Limpiar en Igor Pro

El experimento se llena de waves de borrador; con las operaciones kill un script ordena tras de sí.

Function Cleanup(String prefix)
    String list = WaveList(prefix + "*", ";", "")
    Variable i, n = ItemsInList(list)

    for (i = 0; i < n; i += 1)
        WAVE/Z w = $StringFromList(i, list)
        if (WaveExists(w))
            KillWaves/Z w
        endif
    endfor

    KillDataFolder/Z root:Scratch
    Printf "cleaned %d waves\r", n
End

Cómo funciona

1. KillWaves/Z ignora una wave en uso o ausente.
2. KillDataFolder se lleva la carpeta entera y todo lo que hay debajo.
3. Una wave libre no necesita nada de esto, que es el argumento para usar una.

Palabras clave y builtins usados aquí

• End
• Function
• String
• Variable
• WAVE
• endfor
• endif
• for
• if

El intento, en números

Líneas

14

Caracteres a escribir

287

Tokens

74

Ritmo de tres estrellas

70 tpm

Al ritmo de tres estrellas de 70 tokens por minuto, este intento toma unos 63 segundos.

Escribe este fragmento

Paso 4 de 4 en Waves; paso 4 de 18 en Fundamentos del lenguaje.

← Anterior Siguiente →