# Beispielprogramm zu Funktionen dieser Kategorie
AZUR () HREF="explizit/.html">
ql := LinienQuant ([@"11.11.1988",@"11.11.1989"], 11, 22)
Print ("Der Linienquant : ", Str(ql))
Print ("Der Bereich : ", XBereich(ql))
Print ("Die Summe der Randwerte : ", YRechts(ql)+YLinks(ql))
Print () HREF="explizit/.html">
qi := IntervallQuant ([@"11.11.1988",@"11.11.1989"], 1111)
Print ("Der Intervallquant : ", Str(qi))
Print ("Der Bereich : ", XBereich(qi))
Print () HREF="explizit/.html">
zr1 := GetZR ("2211", "TEMPERATUR", "", "I")
qf := Quantenfolge (zr1, [@"1.8.1988",@"8.8.1988"])
Print (qf)
einh := Einheit (zr1);
FORALL q IN qf
Print (Rechts(XBereich(q)), " ", YRechts(q), einh)
ENDFOR
Print () HREF="explizit/.html">
anz := AnzQuanten (qf)
num := 0
WHILE (num < anz)
q := QuantNr (qf, num)
Print (Rechts(XBereich(q)), " ", YRechts(q), einh)
num := num + 1
ENDWHILE
Print () HREF="explizit/.html">
zr2 := GetZR ("90908", "Niederschlag", "", "K")
Print (zr2)
bereich := MaxFocusZR (zr2)
Print (bereich)
maxbis := Rechts (bereich) + ~"3 Monate"
von := Links (bereich)
bis := von + ~"3 Monate"
qual := 1
qualifolge := Qualitaetsfolge (zr2, bereich)
anzql := AnzQuanten (qualifolge)
Print ("Anzahl der Qualit\atsquanten : ", anzql)
IF (anzql > 0)
FORALL ql IN qualifolge
Print (XBereich(ql), " ", YRechts(ql))
ENDFOR
ENDIF
END
Der Linienquant : (11.11.1988 07:30,11.11.1989 07:30]: 11 22 Der Bereich : [11.11.1988 07:30,11.11.1989 07:30] Die Summe der Randwerte : 33 Der Intervallquant : (11.11.1988 07:30,11.11.1989 07:30]: 1111 1111 Der Bereich : [11.11.1988 07:30,11.11.1989 07:30] IntervallQuant 12.8 auf (01.08.1988 07:30 , 02.08.1988 00:00] IntervallQuant 11.4 auf (02.08.1988 00:00 , 03.08.1988 00:00] IntervallQuant 14.9 auf (03.08.1988 00:00 , 04.08.1988 00:00] IntervallQuant 14.4 auf (04.08.1988 00:00 , 05.08.1988 00:00] IntervallQuant 18.5 auf (05.08.1988 00:00 , 06.08.1988 00:00] IntervallQuant 20.6 auf (06.08.1988 00:00 , 07.08.1988 00:00] IntervallQuant 19.6 auf (07.08.1988 00:00 , 08.08.1988 00:00] IntervallQuant 18.1 auf (08.08.1988 00:00 , 08.08.1988 07:30] :00 12.8°C 03.08.1988 00:00 11.4°C 04.08.1988 00:00 14.9°C 05.08.1988 00:00 14.4°C 06.08.1988 00:00 18.5°C 07.08.1988 00:00 20.6°C 08.08.1988 00:00 19.6°C 08.08.1988 07:30 18.1°C :00 12.8°C 03.08.1988 00:00 11.4°C 04.08.1988 00:00 14.9°C 05.08.1988 00:00 14.4°C 06.08.1988 00:00 18.5°C 07.08.1988 00:00 20.6°C 08.08.1988 00:00 19.6°C 08.08.1988 07:30 18.1°C (90908,Niederschlag,Abl,,0,O,Z) [01.11.1991 08:30,01.11.1993 07:00] Anzahl der Qualitätsquanten : 8 [01.11.1991 08:30,01.02.1992 08:30] 1 [01.02.1992 08:30,01.05.1992 08:30] 2 [01.05.1992 08:30,01.08.1992 08:30] 3 [01.08.1992 08:30,01.11.1992 08:30] 4 [01.11.1992 08:30,01.02.1993 08:30] 5 [01.02.1993 08:30,01.05.1993 08:30] 6 [01.05.1993 08:30,01.08.1993 08:30] 7 [01.08.1993 08:30,01.11.1993 07:00] 1
toposoft GmbH 6. Mai 2014