# Sichtbare Pitch-Kontur in eine Pitch-Objekt umwandeln
Extract visible pitch contour
# Editor-Umgebung verlassen
endeditor

# Kennwerte ermitteln und Variablen zuweisen
min = Get minimum: 0, 0, "Hertz", "Parabolic"
max = Get maximum: 0, 0, "Hertz", "Parabolic"
median = Get quantile: 0, 0, 0.5, "Hertz"
mean = Get mean: 0, 0, "Hertz"
sd = Get standard deviation: 0, 0, "Hertz"
varkoef = (sd / mean) * 100
# Pitch-Objekt wieder entfernen
Remove

# Ausgabe im Info-Fenster generieren
# Alle Werte werden auf 2 Nachkommastellen gerundet
writeInfoLine: "Minimum: ", fixed$ (min, 2), " Hz"
appendInfoLine: "Maximum: ", fixed$ (max, 2), " Hz"
appendInfoLine: "Mittelwert: ", fixed$ (mean, 2), " Hz"
appendInfoLine: "Median: ", fixed$ (median, 2), " Hz"
appendInfoLine: "Standarabweichung: ", fixed$ (sd, 2)
appendInfoLine: "Varianzkoeffizient: ", fixed$ (varkoef, 2), " %"