# Formular für die Eingabe des Pitch floor
form Pitch parameter
  natural Pitch_floor_(Hz) 75
endform

# markierten Signalabschnitt ausschneiden
sound = Extract selected sound (windowed): "slice", "Hanning", 1, "no"
endeditor
# Pitchanalyse berechnen
pitch = To Pitch (cc): 0, pitch_floor, 15, "no", 0.03, 0.45, 0.01, 0.35, 0.14, 600
# PointProcess berechnen
selectObject: sound, pitch
pproc = To PointProcess (cc)
# LTAS berechnen
selectObject: sound, pproc
ltas = To Ltas (only harmonics): 20, 0.0001, 0.02, 1.3
# H1 und H2 abfragen
h1 = Get value in bin: 2
h2 = Get value in bin: 3
# alles auf eine Nachkommastelle runden
h1$ = fixed$ (h1, 1)
h2$ = fixed$ (h2, 1)
# Amplitudendifferenz berechnen und runden
diff$ = fixed$ (h1-h2, 1)
# Ergebnis ausgeben
writeInfoLine: "H1 = ", h1$, " dB"
appendInfoLine: "H2 = ", h2$, " dB"
appendInfoLine: "H1-H2 = ", diff$, " dB"
# Aufräumen
removeObject: sound, pitch, pproc, ltas