| |
| |
|
p.specht
 | dans qui Meßtechnik gilt bekanntlich: "Wer misst, misst Mist!". là es alors de toute façon égal ist, si on cela Endergebnis abwartet ou bien mais aus husch-pfusch dans ähnlichen Zeitabständen beiläufig ermitelten Zwischenwerten komplett unsicher et ungenau sur un pouce-la fois-Pi peilungsmäßig ungefähres Endergebnis schließt, peux on früher heimgehen et cela Resultat là avec nachfolgendem Abschätz-Programme ermitteln. Gerichtsmediziner, qui Leichentemperaturen messen, faire schließlich aussi nix d'autre. on darf seulement pas oublier qc, à chacun *Stein et Bein trop schwören*, qui es sich um un völlig korrekt gemessenes Endergebnis handelt. dans qui gewonnenen Zeit peux on z.B. XProfan-Programme écrivons...
Titre de la fenêtre upper$("Natürlichen Grenzwert ermitteln")
'(C) 2014-11_ff by P.Specht@gmx.at; libre pour private Verwendung, ansonsten bestehen Rechte Dritter!
Fenêtre Style 24:var wid&=380:var heig&=200:randomize
Fenêtre (%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:imprimer " Basismesswert (t= 0 [s]) = ";:input v$:c0!=val(v$)
locate 4,2:imprimer " Messwert pour (t=1*dt[s]) = ";:input v$:c1!=val(v$)
locate 6,2:imprimer " Messwert pour (t=2*dt[s]) = ";:input v$:c2!=val(v$)
locate 8,2:imprimer mkstr$("-",40):font 2
locate 10,2:imprimer " Strebwert chez (t=+-Inf[s])= ";
si (c0!=c1!) and (c1!=c2!):imprimer format$("%g",c2!)
d'autre :cen!=2*c1!-c0!-c2!
si cen!<>0:cez!=(c1!*c1!-c0!*c2!):ce!=cez!/cen!:imprimer format$("%g",ce!)
d'autre :imprimer "Ohne frontière!"
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
| sur qui selben la base peux on une Prädiktor pour la troisième pour deux Folgeperioden construire. Interessanter Weise peut avec cela sowohl viele arithmetische comme aussi geometrische Reihen erfolgreich fortgesetzt volonté, vorausgesetzt qui l'affaire weist pas irgendwo une Unstetigkeit sur.
Pandemie-Verläufe sommes à cause de qui Lockdown- et Verhaltensunstetigkeiten daher so pas prognostizierbar, et à qui bourse serait je avec cela lieber aussi pas spekulieren ...
Titre de la fenêtre upper$(" P e r i o d e n p r ä d i k t o r")
Cls:font 2:imprimer "\n\n cet Programme versucht, aus einem Basiswert et deux Folge-"
imprimer "\n werten sur une Wert pour einer weiteren période trop schließen."
imprimer "\n (NCL) Noncommercial CopyLeft 2016-07 ff by P. Specht, Vienna / Austria "
imprimer "\n OHNE JEGLICHE GEWÄHR! NUTZUNG AUF EIGENE GEFAHR DES ANWENDERS! \n\n"
set("decimals",17):declare w0!,w1!,w2!,w3!:imprimer :
waitinput:waitinput 1000
repeat
CLS
Imprimer "\n\n\n Basiswert w0 = ";:input w0!
Imprimer "\n Folgewert w1 = ";:input w1!
Imprimer "\n Folgewert w2 = ";:input w2!
imprimer "\n\n Vorhersage pour période w3: ";
imprimer si((w1!-w0!)=0,2*(w2!-w1!)+w1!,si((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 ▲ |
|
| |
|
(869)
Deutsch
English
Français
Español
Italia