Lücken füllen von Intensitätsreihen

• FindeEreignis()
• ExtrahiereEreignis()
• SynthetisiereEreignis()
• NextLuecke()

• Beispiel

Beispiel

 
# Beispielprogramm, siehe auch Modul TopoTrop
AZUR () HREF="explizit/.html"> 
   nzr := GetZR ("Ahausen", "Niederschlag", "", "K")
   auffuellzr := GetZR ("Behausen", "Niederschlag", "", "K")
   bereich := WWJ(1998)
   lueckber := NextLuecke (auffuellzr, Links(bereich))
IF (lueckber.IsValid()) HREF="explizit/.html"> 
      zi := FindeEreignis (nzr, lueckber, 0.3, ~"1h", 0.05, ~"1h", 0.01)
IF (zi.IsValid()) HREF="explizit/.html"> 
         quantile := ExtrahiereEreignis (nzr, zi, 20)
IF (qf.AnzQuanten()> HREF="explizit/.html"> 
            SynthetisiereEreignis (auffuellzr, quantile)
         ELSE
            Print ("Fehler beim Bestimmen der Quantile.")
         ENDIF
      ELSE
         Print ("Ereignis nicht bestimmbar.")
      ENDIF   
   ELSE
      Print ("keine Lücke mehr vorhanden.")
   ENDIF
END