AZUR: Thema: ZR: Weitere Funktionen [Inhalt] [Zurück] [Weiter] [Thema] [Index]

Weitere Funktionen auf ZR



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

Beispiel zu SummenLinien, SummenHeberLinien und Dauerlinie 

 
# Beispielprogramm zu den Funktionen SummenLinien, SummenHeberLinien, 
# Dauerlinie

AZUR () HREF="explizit/.html"> 
	von := @"1.1.75"
	bis := @"2.1.75"
	bereich := [von, bis]
	Print ("Bereich : ", bereich)
Print () HREF="explizit/.html"> 
	
	zr := GetZR ("4311001", "Niederschlag", "", "K")
	Print ("A --> OriginalZR:\n", zr)
	Print ("Einheit: ", Einheit(zr))
	qf := Quantenfolge (zr, bereich)
Print () HREF="explizit/.html"> 
	
	summl := SummenLinien (zr, bereich, ~"1 Monat", true)
	Print ("B --> SummenLinien:\n", summl)
	Print ("Einheit: ", Einheit(summl))
	qfsumml := Quantenfolge (summl, bereich)
Print () HREF="explizit/.html"> 
	
	param := "heber"
	heberl := SummenHeberLinien (zr, bereich, param, 0,10, true, ~"5 min")
	Print ("C --> SummenHeberLinien:\n", heberl)
	Print ("Einheit: ", Einheit(heberl))
	qfheberl := Quantenfolge (heberl, bereich)
Print () HREF="explizit/.html"> 
	
	dauerl := Dauerlinie (zr, bereich, true)
	Print ("D --> Dauerlinie:\n", dauerl)
	Print ("Einheit: ", Einheit(dauerl))
	qfdauerl := Quantenfolge (dauerl, bereich)
Print () HREF="explizit/.html"> 

	Print ("Datum: ", von)
	anzq := AnzQuanten (qf)
	maxanz := 10
	IF (anzq < maxanz)
		maxanz := anzq
	ENDIF
	i := 0
	Print (21*" ", "A", 11*" ", "B", 11*" ", "C", 11*" ", "D")
	WHILE (i < maxanz)
		qzr := YRechts(Quantnr(qf, i))
		qsumml := YRechts(Quantnr(qfsumml, i))
		qheberl := YRechts(Quantnr(qfheberl, i))
		qdauerl := YRechts(Quantnr(qfdauerl, i))
		derbereich := XBereich(Quantnr(qf, i))
		Print (derbereich, " |", qzr, " |", qsumml, " |", qheberl, " |", qdauerl)
		i := i+1
	ENDWHILE
END

Ausgabe:

 
Bereich : [01.01.75 07:30,02.01.75 07:30]

A --> OriginalZR:
(4311001,Niederschlag,,M,1075052544,G,Z)
Einheit: mm/5min

B --> SummenLinien:
(4311001,Niederschlag,Sum,M,1075052544,M,Z)
Einheit: mm

C --> SummenHeberLinien:
(4311001,heber,Sum,M,1075052544,M,Z)
Einheit: mm

D --> Dauerlinie:
(4311001,Niederschlag,Dau,M,1075052544,M,Z)
Einheit: mm/5min

Datum: 01.01.75
                     A           B           C           D
[07:30,07:40] |      0.00 |      0.00 |      0.00 |      0.00
[07:40,07:45] |      0.11 |      0.05 |      0.11 |      0.01
[07:45,07:50] |      0.13 |      0.17 |      0.24 |      0.03
[07:50,07:55] |      0.14 |      0.31 |      0.38 |      0.04
[07:55,08:00] |      0.13 |      0.44 |      0.51 |      0.06
[08:00,08:05] |      0.14 |      0.58 |      0.65 |      0.07
[08:05,08:10] |      0.13 |      0.71 |      0.78 |      0.07
[08:10,08:15] |      0.14 |      0.85 |      0.92 |      0.08
[08:15,08:20] |      0.33 |      1.08 |      1.25 |      0.09
[08:20,08:25] |      0.62 |      1.56 |      1.87 |      0.10



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

Beispiel zu LueckenReihe 

 
# Beispielprogramm zu der Funktion LueckenReihe 

AZUR () HREF="explizit/.html"> 
	zrl := OrtQuery ("Lemming")
	
	FORALL zr IN zrl
		Print (zr)
Print () HREF="explizit/.html"> 
		zqf  := Quantenfolge (zr, MAXFOCUS)
		lzr := LueckenReihe (zr, MAXFOCUS, 1.0, true)
		lqf := Quantenfolge (lzr, MAXFOCUS)
		Print ("Zeitreihe:")
		FORALL zq IN zqf
			Print (XBereich(zq), " ", YRechts(zq))
		ENDFOR
Print () HREF="explizit/.html"> 
		Print ("L\uckenreihe:")
		FORALL lq IN lqf
			Print (XBereich(lq), " ", YRechts(lq))
		ENDFOR
Print () HREF="explizit/.html"> 
	ENDFOR
END

Ausgabe:

 
(Lemming,Buddler,,,0,,Z) 
Zeitreihe: 
[01.01.,02.01.]    10 
[02.01.,03.01.]    12 
[03.01.,04.01.]     8 
[04.01.,05.01.] Lücke 
[05.01.,06.01.] Lücke 
[06.01.,07.01.]     7 
Lückenreihe: 
[01.01.,04.01.]     1 
[04.01.,06.01.] Lücke 
[06.01.,07.01.]     1 
(Lemming,Graber,,,0,,Z) 
Zeitreihe: 
[03.01.,04.01.]     8 
[04.01.,05.01.]    12 
[05.01.,06.01.] Lücke 
[06.01.,07.01.]     7 
[07.01.,08.01.]     5 
Lückenreihe: 
[03.01.,05.01.]     1 
[05.01.,06.01.] Lücke 
[06.01.,08.01.]     1 
(Lemming,Baggerer,,,0,A,Z) 
Zeitreihe: 
[01.01.,02.01.]    10 
[02.01.,03.01.]    12 
[03.01.,04.01.]     8 
[04.01.,05.01.]    12 
[05.01.,06.01.] Lücke 
[06.01.,07.01.]     7 
[07.01.,08.01.]     5 
Lückenreihe: 
[01.01.,05.01.]     1 
[05.01.,06.01.] Lücke 
[06.01.,08.01.]     1



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

Beispiel zu Transform 

 
# Beispielprogramm zu den Funktionen Transform

AZUR () HREF="explizit/.html"> 
	beckenzr := GetZR ("Hier","Beckenstand","","K");
	Print (beckenzr)
	bereich := MaxFocusZR (beckenzr)
	Print ("Bereich: ", bereich)
Print () HREF="explizit/.html"> 
	qf := Quantenfolge (beckenzr, bereich)
	FORALL q IN qf
		Print (XBereich (q), "  ", YLinks(q), " | ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	kurve := GetZR ("Hier","Beckenkurve","","K");
	Print (kurve)
	qf := Quantenfolge (kurve, MAXFOCUS)
	Print (qf)
Print () HREF="explizit/.html"> 
	zr2 := Transform (beckenzr, kurve, MAXFOCUS, "Beckenf\ulle", false);
	Print (zr2)
	qf := Quantenfolge (zr2, MAXFOCUS)
	FORALL q IN qf
		Print (XBereich (q), "  ", YLinks(q), " | ", YRechts(q))
	ENDFOR
END

Ausgabe:

 
(Hier,Beckenstand,,,0,,Z) 
Bereich: [10:00,13:00] 
[10:00,12:00]        0.00 |       0.00 
[12:00,12:20]        0.00 |       1.00 
[12:20,12:30]        1.00 |       6.00 
[12:30,12:50]        6.00 |      12.00 
[12:50,12:55]       12.00 |      18.00 
[12:55,12:55]       18.00 |      20.00 
[12:55,13:00]       20.00 |      15.00 
(Hier,Beckenkurve,,,0,,R) 
Linienquant 0  100   auf (0 , 10] 
Linienquant 100  500   auf (10 , 20] 
(Hier,Beckenfülle,,,0,A,Z) 
[12:20,12:30]       10.00 |      60.00 
[12:30,12:50]       60.00 |     180.00 
[12:50,12:55]      180.00 |     420.00 
[12:55,12:55]      420.00 |     500.00 
[12:55,13:00]      500.00 |     300.00



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

Beispiel zu WnachQ 

 
# Beispielprogramm zu der Funktion WnachQ  

AZUR () HREF="explizit/.html"> 
t := HREF="explizit/().html"> ()
	setText (t, "Ort", "24005107")
	setText (t, "Parameter", "Wasserstand")
	zrl := Query (t)
	
	FORALL zr IN zrl
		Print ("Wasserstands-Zeitreihe:")
		Print (zr)
		Print ("Bereich: ", MaxFocusZR (zr))
		Print ("Einheit: ", Einheit (zr))
Print () HREF="explizit/.html"> 
		qf  := Quantenfolge (zr, MAXFOCUS)
		Print ("Abflu\s-Zeitreihe:")
		wq := WnachQ (zr, MAXFOCUS, "STAU", false)
		Print (wq)
		Print ("Bereich: ", MaxFocusZR (wq))
		Print ("Einheit: ", Einheit (wq))
Print () HREF="explizit/.html"> 
	ENDFOR
END

Ausgabe:

 
Wasserstands-Zeitreihe: 
(24005107,Wasserstand,,E,0,O,Z) 
Bereich: [01.11.87,31.10.88] 
Einheit: mNN 
Abfluß-Zeitreihe: 
(24005107,Abfluss,,E,0,A,Z) 
Bereich: [01.11.87,31.10.88] 
Einheit: m^3/s



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

Beispiel zu PrioZR 

 
# Beispielprogramm zu der Funktion PrioZR

AZUR () HREF="explizit/.html"> 
	zrl := OrtQuery ("Lemming")
	FORALL zr IN zrl
		Print (zr)
		qf := Quantenfolge (zr, MAXFOCUS)
		FORALL q IN qf
			Print (XBereich(q), " ", YRechts(q))
		ENDFOR
Print () HREF="explizit/.html"> 
	ENDFOR
Print () HREF="explizit/.html"> 
	
	zrneu := PrioZR (zrl, GetFocus(zrl), "Baggerer", "Lemming", false)
	Print (zrneu)
	qf := Quantenfolge (zrneu, MAXFOCUS)
	FORALL q IN qf
		Print (XBereich(q), " ", YRechts(q))
	ENDFOR
END

Ausgabe:

 
(Lemming,Buddler,,,0,,Z)
[01.01.,02.01.]    10
[02.01.,03.01.]    12
[03.01.,04.01.]     8
[04.01.,05.01.] Lücke
[05.01.,06.01.] Lücke
[06.01.,07.01.]     7
(Lemming,Graber,,,0,,Z)
[03.01.,04.01.]     8
[04.01.,05.01.]    12
[05.01.,06.01.] Lücke
[06.01.,07.01.]     7
[07.01.,08.01.]     5
(Lemming,Baggerer,,,0,A,Z)
[01.01.,02.01.]    10
[02.01.,03.01.]    12
[03.01.,04.01.]     8
[04.01.,05.01.]    12
[05.01.,06.01.] Lücke
[06.01.,07.01.]     7
[07.01.,08.01.]     5


toposoft GmbH 3. Februar 2015