Kuriose RSI Abweichung nach Variablen-Zuweisung
Forums › ProRealTime Deutsch forum › ProBuilder Support › Kuriose RSI Abweichung nach Variablen-Zuweisung
- This topic has 2 replies, 2 voices, and was last updated 3 years ago by Rainer (RFW).
-
-
11/15/2021 at 6:40 PM #181645
Guten Abend,
ich habe in kurioses Problem mit einem im Grunde einfach Divergenz-Indikator, jedoch nur mit dem RSI.
Weise ich die RSI-Grundlage per Variable, hier IndMod = 4, zu ergibt sich eine kuriose, wenn auch nur geringfügige Abweichung, siehe Screenshot.
Der Code ist zu den anderen Prüf-Indikatoren (siehe Screenshot) bis auf die Variablen-Zuweisung identisch. Ggf. mal nachfolgenden Code mit/ohne Kommentierung in Zeile 30 bis 32 den Fehler nachstellen. .itf-File anbei.
Hat jemand eine Idee was hierfür die Ursache sein könnte?
Danke vorab und einen schönen Abend.
Liebe Grüße
RainerRSI Divergenz Fehler nach Variablen-Zuweisung1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677DIVSeachPeriods = 20IndicatorPeriod = 12IndMod = 4////********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************If IndMod = 1 ThenSDIVSrc1 = AroonDown[IndicatorPeriod] // 14LDIVSrc1 = AroonUp[IndicatorPeriod]ElsIf IndMod = 2 ThenSDIVSrc1 = BollingerUp[IndicatorPeriod](close) // 20LDIVSrc1 = BollingerDown[IndicatorPeriod](close)ElsIf IndMod = 3 ThenDIVSrc1 = CCI[IndicatorPeriod]// 20SDIVSrc1 = DIVSrc1LDIVSrc1 = DIVSrc1ElsIf IndMod = 4 ThenDIVSrc1 = RSI[IndicatorPeriod] // 12SDIVSrc1 = DIVSrc1LDIVSrc1 = DIVSrc1ElsIf IndMod = 5 ThenDIVSrc1 = Stochastic[IndicatorPeriod,3](close) //14,3SDIVSrc1 = DIVSrc1LDIVSrc1 = DIVSrc1ElsIf IndMod = 6 ThenDIVSrc1 = Williams[IndicatorPeriod](close) //14SDIVSrc1 = DIVSrc1LDIVSrc1 = DIVSrc1EndIf//**** Dies zur Fehlernachstellung auskommentieren.... Kurioser Weise ergeben sich ohne Zuweisung des RSI geringe Abweichungen.....???//DIVSrc1 = RSI[IndicatorPeriod] // 12//SDIVSrc1 = DIVSrc1//LDIVSrc1 = DIVSrc1////********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************DIVSrc2 = CloseSDIVSrc2 = DIVSrc2LDIVSrc2 = DIVSrc2//********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************If BarIndex > (Max(IndicatorPeriod,DivergencePeriod)) Then//********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************If (SDIVSrc1[1] > SDIVSrc1[0]) And (SDIVSrc1[1] > SDIVSrc1[2]) ThenSDIVSrc1M1 = Highest[DIVergencePeriod](SDIVSrc1)SDIVSrc1M2 = SDIVSrc1[1]SDIVSrc2M1 = Highest[DIVergencePeriod](SDIVSrc2)SDIVSrc2M2 = SDIVSrc2[1]If (SDIVSrc1M2 < SDIVSrc1M1) And (SDIVSrc2M2 > SDIVSrc2M1[1]) ThenFor SDIV1HHBix = 1 To DIVergencePeriod DoIf SDIVSrc1[SDIV1HHBix] = SDIVSrc1M1 ThenSDIV1HHBi = SDIV1HHBixDRAWVLINE(BarIndex[1])Coloured(255,0,0)Style(Line,1)DRAWSEGMENT(BarIndex[1],SDIVSrc1[1],BarIndex[SDIV1HHBi],SDIVSrc1[SDIV1HHBi])Coloured(255,0,0)Style(Line,5)BreakEndifNextEndIfEndIf//********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************If (LDIVSrc1[1] < LDIVSrc1[0]) And (LDIVSrc1[1] < LDIVSrc1[2]) ThenLDIVSrc1M1 = Lowest[DIVergencePeriod](LDIVSrc1)LDIVSrc1M2 = LDIVSrc1[1]LDIVSrc2M1 = Lowest[DIVergencePeriod](LDIVSrc2)LDIVSrc2M2 = LDIVSrc2[1]If (LDIVSrc1M2 > LDIVSrc1M1) And (LDIVSrc2M2 < LDIVSrc2M1[1]) ThenFor LDIV1HHBix = 1 To DIVergencePeriod DoIf LDIVSrc1[LDIV1HHBix] = LDIVSrc1M1 ThenLDIV1HHBi = LDIV1HHBixDRAWVLINE(BarIndex[1])Coloured(0,255,0)Style(Line,1)DRAWSEGMENT(BarIndex[1],LDIVSrc1[1],BarIndex[LDIV1HHBi],LDIVSrc1[LDIV1HHBi])Coloured(0,255,0)Style(Line,5)BreakEndifNextEndIfEndif//********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EndIf // MinBarIndex//********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************Return SDIVSrc1, LDIVSrc11 user thanked author for this post.
11/16/2021 at 7:11 PM #181689Ich habe Ihren Code gründlich getestet, konnte aber die Ursache nicht finden. Ich habe Nicolas gefragt und er wird es PRT zur Untersuchung melden. Wir informieren Sie, sobald die Ursache feststeht.
1 user thanked author for this post.
11/17/2021 at 9:08 AM #181715Guten Morgen Roberto,
schon mal ein HERZLICHES DANKESCHÖN für die Bemühungen.
Ich wünsche einen schönen erfolgreichen Tag.
Liebe Grüße
Rainer -
AuthorPosts
Find exclusive trading pro-tools on