[Inhalt] [Zurück] [Weiter] [Thema] [Index]

Funktionen auf Quant und QuantList





[Inhalt] [______] [______] [Thema] [Index]

Beispiel


 
# 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

Ausgabe:

 
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