Hallo,
ich habe mal was zusammengeschustert.
Aber irgendwie kommt da nicht das richtige raus
-1.62
-1,61
0,00 -->Gr��er unsicher
.... Habe ich als Output ....
Eigentlich sollte er ja:
-1,62 --> Kleiner ...
-1,61 --> Kleiner ...
0,00 --> Gleich ...
Ausgeben ....
Kann mir mal jemand den Code ansehen? W�re wer so nett? Dann kann ich
endlich in Urlaub gehen :-)
Code unten!
Mansur
ST = (Y(3)-Y(1)) / ((Y(1)+Y(2)+Y(3))/3)
Response.Write("ST: " &
FormatNumber(ST,2) & "<br>")
select case ST
case ST < 0.09 AND ST > -0.09
' GLEICH
if ABS((Y(3) - 2*Y(2)
+ Y(1))) / ((Y(1)+Y(2)+Y(3))/3) < 0.5 Then
' SICHER
Response.Write("Gleich-Sicher")
else
' UNSICHER
Response.Write("Gleich-Unsicher")
end if
case ST > 0.09
' G��er
if ABS((Y(3) - 2*Y(2)
+ Y(1))) / ((Y(1)+Y(2)+Y(3))/3) < 0.5 Then
' SICHER
Response.Write("Gr��er-Sicher")
else
' UNSICHER
Response.Write("Gr��er-Unsicher")
end if
case ST < 0.09
' Kleiner
if ABS((Y(3) -
2*Y(2) + Y(1))) / ((Y(1)+Y(2)+Y(3))/3) < 0.5 Then
' SICHER
Response.Write("Kleiner-Sicher")
else
' UNSICHER
Response.Write("Kleiner-Unsicher")
end if
end select
>
> Hallo,
>
> Ich soll einen Trend berechnen und habe folgende angaben hierzu bekommen:
>
> Es gibt drei Werte (aus 3 Monaten): Y1, Y2, Y3
> M = ((Y1+Y2+Y3)/3) ' Mittelwert
> ST = (Y3-Y1) / M ' Steigung
> -0,09 > ST < 0,09 ' Es liegt
> ein GLEICH vor
> ST > 0,09 ' Es
> liegt ein HOCH vor
> ST < -0,09 ' Es
> liegt ein RUNTER vor
> F = ABS((Y3 - 2*Y2 + Y1)) / M ' Fehler
> berechnen
> F < 0.5 : es ist SICHER
> F > 0.5 : es ist UNSICHER
>
> Es gibt also sechs Trends:
> -Hoch (Sicher)
> -Hoch (unsicher)
> -Gleich (Sicher)
> - Gleich (Unsicher)
> -Runter (Sicher)
> - Runter (Unsicher)
>
> Das soll ich dann in eben sechs Grafiken darstellen .... :-)
> W�re doch ne "ASP.Golf" Aufgabe oder?
> Hat wer ne Idee wie ich das schnell und elegant l�sen k�nnte?
>
> Mansur
>
>
>
> __________________________________________________________
> Die Utopie ist die wirklichste aller wirklichen M�glichkeiten.
> Mansur Esmann, Offensiv-Medien, Rohrmooserstr. 30, D-87651
> Oberstdorf-Tiefenbach.
> Tel.: +49 (0)8322 � 800 995, Fax: +49 (0)8322 � 800 996.
> eMail: [EMAIL PROTECTED] Web: www.offensiv-medien.de
>
>
>
>
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
>
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
