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

Verknüpfen von Zeitreihen



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

Beispiel zu AddGroesse, SubGroesse, MulGroesse und DivGroesse 

 
# Beispielprogramm zu den Funktionen AddGroesse, SubGroesse,
# MulGroesse, DivGroesse

AZUR () HREF="explizit/.html"> 
	zr := GetZR ("4311001", "Niederschlag", "", "I")
	Print (zr)
	bereich := [@"15.1.75", @"25.1.75"]
	Print ("Bereich : ", bereich)
Print () HREF="explizit/.html"> 
	Print ("Original")
	qf := Quantenfolge (zr, bereich)   
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	Print ("AddGroesse")
	sum := AddGroesse (zr, "100 mm", bereich, "nieder1", true)
	Print (sum)
	Print ("Einheit: ", Einheit(sum))
	qf := Quantenfolge (sum, MAXFOCUS)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	Print ("SubGroesse")
	diff := SubGroesse (zr, "100 mm", bereich, "nieder2", true)
	Print (diff)
	Print ("Einheit: ", Einheit(diff))
	qf := Quantenfolge (diff, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	Print ("MulGroesse")
	prod := MulGroesse (zr, "100 mm", bereich, "nieder3", true)
	Print (prod)
	Print ("Einheit: ", Einheit(prod))
	qf := Quantenfolge (prod, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	Print ("DivGroesse")
	quot := DivGroesse (zr, "100 mm", bereich, "nieder4", true)
	Print (quot)
	Print ("Einheit: ", Einheit(quot))
	qf := Quantenfolge (quot, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
END

Ausgabe:

 
(4311001,Niederschlag,Sum,T,,A,Z)
Bereich : [15.01.1975,25.01.1975]

Original
[15.01.1975,16.01.1975]        0.00
[16.01.1975,17.01.1975]       10.93
[17.01.1975,18.01.1975]        2.07
[18.01.1975,19.01.1975]        6.00
[19.01.1975,20.01.1975]        2.00
[20.01.1975,21.01.1975]        1.00
[21.01.1975,22.01.1975]        9.00
[22.01.1975,23.01.1975]       67.00
[23.01.1975,24.01.1975]       20.00
[24.01.1975,25.01.1975]        0.00

AddGroesse
(4311001,nieder1,Sum,T,,M,Z)
Einheit: mm
[15.01.1975,16.01.1975]      100.00
[16.01.1975,17.01.1975]      110.93
[17.01.1975,18.01.1975]      102.07
[18.01.1975,19.01.1975]      106.00
[19.01.1975,20.01.1975]      102.00
[20.01.1975,21.01.1975]      101.00
[21.01.1975,22.01.1975]      109.00
[22.01.1975,23.01.1975]      167.00
[23.01.1975,24.01.1975]      120.00
[24.01.1975,25.01.1975]      100.00

SubGroesse
(4311001,nieder2,Sum,T,,M,Z)
Einheit: mm
[15.01.1975,16.01.1975]     -100.00
[16.01.1975,17.01.1975]      -89.07
[17.01.1975,18.01.1975]      -97.93
[18.01.1975,19.01.1975]      -94.00
[19.01.1975,20.01.1975]      -98.00
[20.01.1975,21.01.1975]      -99.00
[21.01.1975,22.01.1975]      -91.00
[22.01.1975,23.01.1975]      -33.00
[23.01.1975,24.01.1975]      -80.00
[24.01.1975,25.01.1975]     -100.00

MulGroesse
(4311001,nieder3,Sum,T,,M,Z)
Einheit: m^2
[15.01.1975,16.01.1975]        0.000000
[16.01.1975,17.01.1975]        0.001093
[17.01.1975,18.01.1975]        0.000207
[18.01.1975,19.01.1975]        0.000600
[19.01.1975,20.01.1975]        0.000200
[20.01.1975,21.01.1975]        0.000100
[21.01.1975,22.01.1975]        0.000900
[22.01.1975,23.01.1975]        0.006700
[23.01.1975,24.01.1975]        0.002000
[24.01.1975,25.01.1975]        0.000000

DivGroesse
(4311001,nieder4,Sum,T,,M,Z)
Einheit: 
[15.01.1975,16.01.1975]        0.00
[16.01.1975,17.01.1975]        0.11
[17.01.1975,18.01.1975]        0.02
[18.01.1975,19.01.1975]        0.06
[19.01.1975,20.01.1975]        0.02
[20.01.1975,21.01.1975]        0.01
[21.01.1975,22.01.1975]        0.09
[22.01.1975,23.01.1975]        0.67
[23.01.1975,24.01.1975]        0.20
[24.01.1975,25.01.1975]        0.00



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

Beispiel zu AddZR, SubZR, MulZR, DivZR 

 
# Beispielprogramm zu den Funktionen AddZR, SubZR, MulZR, DivZR

AZUR () HREF="explizit/.html"> 
	zr1 := GetZR ("4311001", "Niederschlag", "", "I")
	Print (zr1)
	zr2 := GetZR ("4604003", "Niederschlag", "", "I")
	Print (zr2)
	bereich := [@"15.1.75", @"25.1.75"]
	Print ("Bereich : ", bereich)
Print () HREF="explizit/.html"> 
	
	sumzr := AddZR (zr1, zr2, bereich, "niederadd", true)
	text := "Summe"
	laenge := Length (text)
	Print (text, "\n", laenge*"-")
	Print ("Einheit: ", Einheit(sumzr))
	qf := Quantenfolge (sumzr, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	diffzr := SubZR (zr1, zr2, bereich, "niedersub", true)
	text := "Differenz"
	laenge := Length (text)
	Print (text, "\n", laenge*"-")
	Print ("Einheit: ", Einheit(diffzr))
	qf := Quantenfolge (diffzr, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	prodzr := MulZR (zr1, zr2, bereich, "niedermul", true)
	text := "Produkt"
	laenge := Length (text)
	Print (text, "\n", laenge*"-")
	Print ("Einheit: ", Einheit(prodzr))
	qf := Quantenfolge (prodzr, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
Print () HREF="explizit/.html"> 
	
	quotzr := DivZR (zr1, zr2, bereich, "niederdiv", true)
	text := "Quotient"
	laenge := Length (text)
	Print (text, "\n", laenge*"-")
	Print ("Einheit: ", Einheit(quotzr))
	qf := Quantenfolge (quotzr, bereich)
	FORALL q IN qf
		Print (XBereich(q), "  ", YRechts(q))
	ENDFOR
END

Ausgabe:

 
(4311001,Niederschlag,Sum,T,,A,Z)
(4604003,Niederschlag,Sum,T,,A,Z)
Bereich : [15.01.1975,25.01.1975]

Summe
-----
Einheit: mm
[15.01.1975,16.01.1975]        0.00
[16.01.1975,17.01.1975]       13.23
[17.01.1975,18.01.1975]       17.95
[18.01.1975,19.01.1975]       18.19
[19.01.1975,20.01.1975]        2.00
[20.01.1975,21.01.1975]        7.13
[21.01.1975,22.01.1975]       22.10
[22.01.1975,23.01.1975]      108.10
[23.01.1975,24.01.1975]       24.20
[24.01.1975,25.01.1975]        0.00

Differenz
---------
Einheit: mm
[15.01.1975,16.01.1975]        0.00
[16.01.1975,17.01.1975]        8.63
[17.01.1975,18.01.1975]      -13.81
[18.01.1975,19.01.1975]       -6.19
[19.01.1975,20.01.1975]        2.00
[20.01.1975,21.01.1975]       -5.13
[21.01.1975,22.01.1975]       -4.10
[22.01.1975,23.01.1975]       25.90
[23.01.1975,24.01.1975]       15.80
[24.01.1975,25.01.1975]        0.00

Produkt
-------
Einheit: mm^2
[15.01.1975,16.01.1975]        0.00
[16.01.1975,17.01.1975]       25.14
[17.01.1975,18.01.1975]       32.87
[18.01.1975,19.01.1975]       73.14
[19.01.1975,20.01.1975]        0.00
[20.01.1975,21.01.1975]        6.13
[21.01.1975,22.01.1975]      117.90
[22.01.1975,23.01.1975]     2753.70
[23.01.1975,24.01.1975]       84.00
[24.01.1975,25.01.1975]        0.00

Quotient  
--------  
Einheit:   
[15.01.1975,16.01.1975]  Lücke   
[16.01.1975,17.01.1975]        4.75   
[17.01.1975,18.01.1975]        0.13   
[18.01.1975,19.01.1975]        0.49   
[19.01.1975,20.01.1975]  Lücke   
[20.01.1975,21.01.1975]        0.16   
[21.01.1975,22.01.1975]        0.69   
[22.01.1975,23.01.1975]        1.63   
[23.01.1975,24.01.1975]        4.76   
[24.01.1975,25.01.1975]  Lücke


toposoft GmbH 16. September 2014