INVESTOX-Forum

desHallo,

ich denke der Fehler liegt am Sortieralgorithmus (Quicksort??) den Du verwendest. Du kannst ja mal den Code hier rein stellen. Dann wird der Fehler sicherlich gefunden.

Gruss
Matthias

Hallo Augustus,

wie ich vermutet habe liegt es an dem "händischen" Sortieralgorithmus. Nimm mal an alle Preis sind gleich, dann ist P(x)=1 (x= 1 bis 5) und somit das Mediandelta nicht definiert.

Ich würde vorschlagen Du nimmst den Quicksortalgorithmus (dann kann N auch variabel sein). Dann würde es etwa so aussehen (habe es aber nicht getestet...also bestimmt ein Fehler drin)

For i = StartIndex + 2 to EndIndex
Price(i) = (HighWert(i) + LowWert(i)) / 2

If i<N then
Mediandelta(i)=0
next
endif

For j= 0 to (N-1)
DeltaPhase(j) = Price(i-j)
next j

Call QuickSortSub(Deltaphase,0,N-1)

Mitte=Int((N-1)/2)
Mediandelta(i)=Deltaphase(Mitte)

Next


' Ergebnisübergabe

For i = StartIndex to EndIndex
Ergebnis(i) = Mediandelta(i)
Next


'Quicksort Algorithmus für VB6 (für VBS muss vielleicht etwas geändert werden)
Public Sub QuickSortSub(Feld() As Double, ByVal LB&, ByVal UB&)
Dim P1&, P2&, Ref$, TEMP$

P1 = LB
P2 = UB
Ref = Feld((P1 + P2) / 2)

Do
Do While (Feld(P1) < Ref)
P1 = P1 + 1
Loop

Do While (Feld(P2) > Ref)
P2 = P2 - 1
Loop

If P1 <= P2 Then
TEMP = Feld(P1)
Feld(P1) = Feld(P2)
Feld(P2) = TEMP

P1 = P1 + 1
P2 = P2 - 1
End If
Loop Until (P1 > P2)

If LB < P2 Then Call QuickSortSub(Feld, LB, P2)
If P1 < UB Then Call QuickSortSub(Feld, P1, UB)
End Sub

hallo,

ich bekomme immer folgende fehlermeldung(anhang)

ich kenn mich nur in java ein bisschen aus und konnte den bug nicht finden.

das konzept des indikators hört sich interessant an, wenn jemand den fehler findet, wäre echt dufte ...

ext hasHallo Augustus,

Quicksort ist ein Unterprogramm (Activevb.de oder googlen um nähere Informationen zu erhalten). Mit dem Next stimmt leider. Probier es mal so( Deklarationen der Variavlen nicht vergessen..)

If i<N then
Mediandelta(i)=Price(i)

else

For j= 0 to (N-1)
DeltaPhase(j) = Price(i-j)
next j

Call QuickSortSub(Deltaphase,0,N-1)

Mitte=Int((N-1)/2)
Mediandelta(i)=Deltaphase(Mitte)

endif

Habe leider kein VBS um es zu testen

einen vbs-code kann man doch in inv testen lassen, ob er funktioniet,

Zitat

If i<N then
Mediandelta(i)=Price(i)

else

For j= 0 to (N-1)
DeltaPhase(j) = Price(i-j)
next j

Call QuickSortSub(Deltaphase,0,N-1)

Mitte=Int((N-1)/2)
Mediandelta(i)=Deltaphase(Mitte)

endif

ist das dasselbe wie der längere code?
und wie man in vbs variblen deklariert , weiss ich leider nicht...

und ich habe im ersten code das next gesucht, aber wenn ich eins entfernt habe, taucht woanders ein anderer fehler auf....

könnte jemand vlt. nochmal den richtigen code posten?

und warum geht das nicht in inv-code? gibts da keinen sortieralgorhytmus?

gibts vielleicht noch einen anderen indikator, der den mittleren wert ähnlich gut berechnet, wie der im thread angegebene,

konnte bisher den code nicht richtig in INV übernehmen