### Vorbereitungen
# Markierungen auf Nulldurchgänge setzen
Move start of selection to nearest zero crossing
Move end of selection to nearest zero crossing
# markierten Signalabschnitt ausschneiden
extractedSound = Extract selected sound (time from 0)
endeditor
# Hochpass-Filter anwenden
filteredSound = Filter (stop Hann band): 0, 34, 0.1

### Slope und Tilt
# LTAS berechnen
ltas = To Ltas: 100
slope = Get slope: 0, 1000, 1000, 10000, "energy"
# Regressionslinie berechnen
trend = Compute trend line: 1, 10000
tilt = Get slope: 0, 1000, 1000, 10000, "energy"

### CPPS
selectObject: filteredSound
# Cepstrogramm berechnen
cepstrogram = To PowerCepstrogram: 60, 0.002, 5000, 50
# CPPS ermitteln
cpps = Get CPPS: "no", 0.01, 0.001, 60, 330, 0.05, "Parabolic", 0.001, 0, "Straight", "Robust"

### Ausgabe
writeInfoLine: "Slope = " + fixed$ (slope, 2)
appendInfoLine: "Tilt = " + fixed$ (tilt, 2)
appendInfoLine: "CPPS = " + fixed$ (cpps, 2)

### Aufräumen
removeObject: extractedSound, filteredSound, ltas, trend, cepstrogram