Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
option explicit dim Mini, Maxi, i, Fehler,n dim NNOutput, Prognoseziel, Startdatum, Enddatum, Datumsfeld Startdatum=cdbl(TestErg("SystemStart")) Enddatum=cdbl(TestErg("SystemEnde")) Getdatum Datumsfeld scriptberechneformel "NN", NNOutput ' NN=Global Calc der NeuroProg-Berechnung scriptberechneformel "Output", Prognoseziel ' Output=Global Calc des gewünschten Outputs Mini=ErsteDatenperiode(NNOutput) Maxi=LetzteDatenperiode(NNOutput) for i=Mini to Maxi if Datumsfeld(i)>=Startdatum AND Datumsfeld(i)<=Enddatum then if Prognoseziel(i)<>Novalue then Fehler=Fehler+abs(NNOutput(i)-Prognoseziel(i))^2 'quadratische Abweichung n=n+1 end if end if next if n>0 then Ergebnis = sqr(Fehler/n) 'Durchschnittliche Abweichung als Ergebnis else Ergebnis = "K/A" end if |