Multi-Zeitreihen

• YNum()
• YTyp()
• ZRSetMultiAspekte()
• ZRMultiAspekte()
• ZRMultiEintraege()
• ZRQuant()
• QuantWandeln()
• LQDoppel()
• YLinks()
• YRechts()
• YText()
• SetYLinks()
• SetYRechts()
• SetQuantText()
• InvArr()
• ZRSetPrognoseZP()
• MultiKomponente()
• PrognoseQuanten()

 
# Beispielprogramm zu den Funktionen 

AZUR ()
   # Multi-ZR anlegen
   rt := ReiheTupel()
   rt.SetText ("Ort", "Testhausen")
   rt.SetText ("Parameter", "Abflussmessung")
   rt.SetText ("DefArt", "M")
   rt.SetText ("Herkunft", "O")
   rt.SetText ("Reihenart", "Z")
   rt.SetText ("YTyp", "M")
   rt.SetText ("YNum", "4")
   zr := rt.OpenZR (True)
   
   aspekte := Array()
   aspekte[0] := "Parameter"
   
   werte := StrSplit ("Wasserstand Abfluss Fließgeschwindigkeit Breite")
   zr.ZRSetMultiAspekte (aspekte, werte)
   
   # Werte schreiben
   q := zr.ZRQuant(False)
   q.SetYLinks(12.5, 0)
   q.SetYLinks(13.6, 1)
   q.SetYLinks(45.1, 2)
   q.SetYLinks(23.9, 3)
   
   qf := NewQuantenfolge()
   qf.AppendQuant (q)
   zr.WriteQuantenfolge (qf)
   
   
   # Werte abfragen
   qf := zr.Quantenfolge(zr.MaxFocusZR())
   A := zr.ZRMultiEintraege()
   A := A.InvArr()
   param := "Abfluss"
   IF (A.IsSet(param))
      idx := StrToReal(A[param])
      
      FORALL q IN qf
         zp := XLinks(q.XBereich())
         yw := q.YLinks(idx)
         print (zp.ZPStr("#F")," ",yw.GStr()," ",param)
      ENDFOR
   ENDIF
END