| |
| |
|
p.specht
 | In der Meßtechnik gilt bekanntlich: "Wer misst, misst Mist!". Da es also ohnehin egal ist, ob man das Endergebnis abwartet oder aber aus husch-pfusch in ähnlichen Zeitabständen beiläufig ermitelten Zwischenwerten komplett unsicher und ungenau auf ein Daumen-mal-Pi peilungsmäßig ungefähres Endergebnis schließt, kann man früher heimgehen und das Resultat dort mit nachfolgendem Abschätz-Programm ermitteln. Gerichtsmediziner, die Leichentemperaturen messen, machen schließlich auch nix anderes. Man darf nur nicht vergessen, gegenüber jedermann *Stein und Bein zu schwören*, daß es sich um ein völlig korrekt gemessenes Endergebnis handelt. In der gewonnenen Zeit kann man z.B. XProfan-Programme schreiben...
WindowTitle upper$("Natürlichen Grenzwert ermitteln")
'(C) 2014-11_ff by P.Specht@gmx.at; frei für private Verwendung, ansonsten bestehen Rechte Dritter!
WindowStyle 24:var wid&=380:var heig&=200:randomize
Window (%maxx-wid&)\2,(%maxy-heig&-wid&)\2 - wid&,heig&
declare v$,c0!,c1!,c2!,ce!,cez!,cen!:start:
cls rgb(200+rnd(56),200+rnd(56),200+rnd(56)):font 0
locate 2,2:print " Basismesswert (t= 0 [s]) = ";:input v$:c0!=val(v$)
locate 4,2:print " Messwert nach (t=1*dt[s]) = ";:input v$:c1!=val(v$)
locate 6,2:print " Messwert nach (t=2*dt[s]) = ";:input v$:c2!=val(v$)
locate 8,2:print mkstr$("-",40):font 2
locate 10,2:print " Strebwert bei (t=+-Inf[s])= ";
if (c0!=c1!) and (c1!=c2!):print format$("%g",c2!)
else :cen!=2*c1!-c0!-c2!
if cen!<>0:cez!=(c1!*c1!-c0!*c2!):ce!=cez!/cen!:print format$("%g",ce!)
else :print "Ohne Grenze!"
endif:endif:waitinput:goto "start"
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 17.05.2021 ▲ |
|
| |
|
|
p.specht
| Auf der selben Basis kann man einen Prädiktor für die dritte nach zwei Folgeperioden bauen. Interessanter Weise können damit sowohl viele arithmetische als auch geometrische Reihen erfolgreich fortgesetzt werden, vorausgesetzt die Sache weist nicht irgendwo eine Unstetigkeit auf.
Pandemie-Verläufe sind wegen der Lockdown- und Verhaltensunstetigkeiten daher so nicht prognostizierbar, und an der Börse würde ich damit lieber auch nicht spekulieren ...
WindowTitle upper$(" P e r i o d e n p r ä d i k t o r")
Cls:font 2:print "\n\n Dieses Programm versucht, aus einem Basiswert und zwei Folge-"
print "\n werten auf einen Wert nach einer weiteren Periode zu schließen."
print "\n (NCL) Noncommercial CopyLeft 2016-07 ff by P. Specht, Vienna / Austria "
print "\n OHNE JEGLICHE GEWÄHR! NUTZUNG AUF EIGENE GEFAHR DES ANWENDERS! \n\n"
set("decimals",17):declare w0!,w1!,w2!,w3!:print :
waitinput:waitinput 1000
repeat
CLS
Print "\n\n\n Basiswert w0 = ";:input w0!
Print "\n Folgewert w1 = ";:input w1!
Print "\n Folgewert w2 = ";:input w2!
print "\n\n Vorhersage für Periode w3: ";
print if((w1!-w0!)=0,2*(w2!-w1!)+w1!,if((w2!-w1!)=0,w2!,(w2!*w2!-(w1!+w0!)*w2!+w1!*w1!)/(w1!-w0!)))
waitinput
until .
|
|
| |
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 20.05.2021 ▲ |
|
| |
|
(851)
Deutsch
English
Français
Español
Italia