# Beispielprogramm zu den Funktionen AddWP, Transpose
AZUR () HREF="explizit/.html">
t := HREF="explizit/().html"> ()
setText (t, "Ort", "Regenhausen")
setText (t, "Parameter", "Niederschlag")
setText (t, "DefArt", "I")
setText (t, "Einheit", "mm/h")
setText (t, "Reihenart", "Z")
zp := @"11.11.88"
zr := OpenZR (t)
i := 0
WHILE (i < 5)
AddWP (zr, zp, i*11)
zp := zp + ~"1 Tag"
i := i + 1
ENDWHILE
Print (zr)
Print ("Einheit : ", Einheit(zr))
Print () HREF="explizit/.html">
qf := Quantenfolge (zr, MAXFOCUS)
Print (qf)
Print () HREF="explizit/.html">
Transpose (zr, "l/(s*ha)")
Print (zr)
Print ("Einheit : ", Einheit(zr))
Print () HREF="explizit/.html">
qf := Quantenfolge (zr, MAXFOCUS)
Print (qf)
END
(,Niederschlag,,,0,,) Einheit : mm/h IntervallQuant 0 auf (-Infty , 11.11.1988 07:30] IntervallQuant 11 auf (11.11.1988 07:30 , 12.11.1988 07:30] IntervallQuant 22 auf (12.11.1988 07:30 , 13.11.1988 07:30] IntervallQuant 33 auf (13.11.1988 07:30 , 14.11.1988 07:30] IntervallQuant 44 auf (14.11.1988 07:30 , 15.11.1988 07:30] (,Niederschlag,,,0,,) Einheit : l/(s*ha) IntervallQuant 0 auf (-Infty , 11.11.1988 07:30] IntervallQuant 30.555553 auf (11.11.1988 07:30 , 12.11.1988 07:30] IntervallQuant 61.111107 auf (12.11.1988 07:30 , 13.11.1988 07:30] IntervallQuant 91.666664 auf (13.11.1988 07:30 , 14.11.1988 07:30] IntervallQuant 122.22221 auf (14.11.1988 07:30 , 15.11.1988 07:30]
toposoft GmbH 1. Oktober 2012