Daily Gap im 5 MinChart – Hilfe

• 08/28/2021 at 10:37 AM #176405
  Rainer (RFW)

  Liebe PRTler,
  ich muss erneut dieses Forum behelligen.
  Zwar gibt es so einiges an Codes zum Thema GAP, aber irgendwie möchte ich doch selbst was meinen Vorstellungen entspricht auf die Reihe bekommen.
  Sicher habe ich einen fatalen Denkfehler schon in der ersten Bedingung, denn es wird kein einziges GAP gefunden, auch scheint die Suche nach dem jeweiligem Barindex nicht zu laufen (separat auch erfolglos getestet).

  Ob das Gap bereits geschlossen wurde, habe ich mal völligst außen vor gelassen, dies dann abschließend wenn die Prüfung selbst funktioniert.

  Wo liegt denn mein grober Denkfehler?

  Ich danke vorab und wünsche ein schönes Wochenende.
  Liebe Grüße
  Rainer

  DayGap

  Defparam DrawonLastbaronly = True //******************************************************************************************************************************************************************** // Timeframe 5 Minute BIM = Barindex MinGap = 10 If IsLastbarUpdate Then For Dx = 0 To 10 Do If Abs((DClose(Dx+1) And Time = 173000) - (DOpen(Dx) And Time = 080000)) > MinGap Then For Ox = 0 To BIM Do If Barindex[Ox] = (Day[Dx+1] And Time = 173000) Then OpenBarX = Barindex[Ox] OpenPrice = Open[Ox] Break EndIf Next For Cx = 0 To BIM Do If Barindex[Cx] = (Day[Dx] And Time = 080000) Then CloseBarX = Barindex[Cx] ClosePrice = Close[Cx] Break EndIf Next DrawRectangle(OpenBarX,OpenPrice,CloseBarX,ClosePrice) Coloured(0,0,255,50) Bordercolor(0,0,255)Style(Line,3) EndIf Next Endif //******************************************************************************************************************************************************************** Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

  Defparam DrawonLastbaronly   = True //******************************************************************************************************************************************************************** // Timeframe 5 Minute BIM   = Barindex MinGap = 10 If IsLastbarUpdate Then For Dx = 0 To 10 Do If Abs((DClose(Dx+1) And Time = 173000) - (DOpen(Dx) And Time = 080000)) > MinGap Then   For Ox = 0 To BIM Do If Barindex[Ox] = (Day[Dx+1] And Time = 173000) Then OpenBarX  = Barindex[Ox] OpenPrice = Open[Ox] Break EndIf Next   For Cx = 0 To BIM Do If Barindex[Cx] = (Day[Dx] And Time = 080000) Then CloseBarX  = Barindex[Cx] ClosePrice = Close[Cx] Break EndIf Next   DrawRectangle(OpenBarX,OpenPrice,CloseBarX,ClosePrice) Coloured(0,0,255,50) Bordercolor(0,0,255)Style(Line,3)   EndIf Next Endif //******************************************************************************************************************************************************************** Return

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  08/28/2021 at 12:02 PM #176409
  robertogozzi

  Warum gehen Sie in Zeile 9 von 0 auf 10?

  In den Zeilen 11 und 19 vergleichen Sie BARINDEX mit DAY, wofür benötigen Sie diesen Vergleich (was unmöglich ist, da es unterschiedliche Werte gibt)?

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  08/28/2021 at 12:47 PM #176413
  Rainer (RFW)

  Hallo Roberto,
  vielen Dank, wollte jetzt nicht am Wochenende stören. Eilt keinesfalls.
  Deine Frage ist berechtigt, ich hatte einfach mal nach Vorstellung drauf losgetippt.

  Barindex / Kurs kann nun ausgelesen werden....

  DtC = 2 // Days To Check MinGap = 0 For Dx = 0 To DtC Do If (Day[Dx+1] And Time = 173000) Then CloseBarX = Barindex ClosePrice = Close DRAWVLINE(CloseBarX)Coloured(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,3) EndIf If (Day[Dx] And Time = 080000) Then OpenBarX = Barindex OpenPrice = Open DRAWVLINE(OpenBarX)Coloured(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,3) EndIf If ((OpenPrice - ClosePrice) > MinGap) Then DrawRectangle(OpenBarX,OpenPrice,CloseBarX,ClosePrice) Coloured(255,0,0,50) Bordercolor(255,0,0)Style(Line,3) EndIf If ((ClosePrice - OpenPrice) > MinGap) Then DrawRectangle(OpenBarX,OpenPrice,CloseBarX,ClosePrice) Coloured(0,255,0,50) Bordercolor(0,255,0)Style(Line,3) EndIf Next Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

  DtC    = 2 // Days To Check MinGap = 0 For Dx = 0 To DtC Do   If (Day[Dx+1] And Time = 173000) Then CloseBarX  = Barindex ClosePrice = Close DRAWVLINE(CloseBarX)Coloured(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,3) EndIf   If (Day[Dx] And Time = 080000) Then OpenBarX  = Barindex OpenPrice = Open DRAWVLINE(OpenBarX)Coloured(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,3) EndIf   If ((OpenPrice - ClosePrice) > MinGap) Then DrawRectangle(OpenBarX,OpenPrice,CloseBarX,ClosePrice) Coloured(255,0,0,50) Bordercolor(255,0,0)Style(Line,3) EndIf If ((ClosePrice - OpenPrice) > MinGap) Then DrawRectangle(OpenBarX,OpenPrice,CloseBarX,ClosePrice) Coloured(0,255,0,50) Bordercolor(0,255,0)Style(Line,3) EndIf   Next     Return

  Zwischenzeitlich habe ich herausgefunden, wie entsprechender Barindex/Kurs zu ermitteln ist, siehe Code. Jedoch verstehe ich hier nicht so richtig, weshalb nicht nur von 17:30 Uhr Vortag bis 08:00 Uhr Folgetag gezeichnet wird, siehe Screenshots. Gern hätte ich eigentlich mit “Defparam Drawonlastbaronly = True” gearbeitet, aber dann bin ich noch ratloser, musss noch sehr viel lernen…
  Ggf. Idee?
  Recht herzlichen Danke vorab und schönes Wochenende. Ich teste weiter…
  Liebe Grüße
  Rainer

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  08/28/2021 at 1:29 PM #176417
  Rainer (RFW)

  Korrektur: Zeichenbeginn natürlich bei Close Vortag zu Open Folgetag, dennoch wird beides eingezeichnet?

  DtC = 10 // Days To Check MinGap = 0 For Dx = 0 To DtC Do If (Day[Dx+1] And Time = 173000) Then CloseBarX = Barindex ClosePrice = Close DRAWVLINE(CloseBarX)Coloured(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,3) EndIf If (Day[Dx] And Time = 080000) Then OpenBarX = Barindex OpenPrice = Open DRAWVLINE(OpenBarX)Coloured(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,3) EndIf If ((OpenPrice - ClosePrice) > MinGap) Then DrawRectangle(CloseBarX,ClosePrice, OpenBarX,OpenPrice) Coloured(255,0,0,50) Bordercolor(255,0,0)Style(Line,3) EndIf If ((ClosePrice - OpenPrice) > MinGap) Then DrawRectangle(CloseBarX,ClosePrice,OpenBarX,OpenPrice) Coloured(0,255,0,50) Bordercolor(0,255,0)Style(Line,3) EndIf Next Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  DtC    = 10 // Days To Check MinGap = 0   For Dx = 0 To DtC Do If (Day[Dx+1] And Time = 173000) Then CloseBarX  = Barindex ClosePrice = Close DRAWVLINE(CloseBarX)Coloured(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,3) EndIf If (Day[Dx] And Time = 080000) Then OpenBarX  = Barindex OpenPrice = Open DRAWVLINE(OpenBarX)Coloured(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,3) EndIf If ((OpenPrice - ClosePrice) > MinGap) Then DrawRectangle(CloseBarX,ClosePrice, OpenBarX,OpenPrice) Coloured(255,0,0,50) Bordercolor(255,0,0)Style(Line,3) EndIf If ((ClosePrice - OpenPrice) > MinGap) Then DrawRectangle(CloseBarX,ClosePrice,OpenBarX,OpenPrice) Coloured(0,255,0,50) Bordercolor(0,255,0)Style(Line,3) EndIf Next Return

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  08/28/2021 at 1:33 PM #176418
  Rainer (RFW)

  …weshalb auch von 08:00 bis 1700 gezeichnet wird ist mir noch schleierhaft…

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  08/28/2021 at 1:42 PM #176421
  Rainer (RFW)

  ..mit Vergleich ob “Barindex Zeichnungsbeginn < Barindex Zeichnungsende diese Problem gelöst"

  DtC = 10 // Days To Check MinGap = 0 For Dx = 0 To DtC Do If (Day[Dx+1] And Time = 173000) Then CloseBarX = Barindex ClosePrice = Close DRAWVLINE(CloseBarX)Coloured(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,3) EndIf If (Day[Dx] And Time = 080000) Then OpenBarX = Barindex OpenPrice = Open DRAWVLINE(OpenBarX)Coloured(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,3) EndIf If ((OpenPrice – ClosePrice) > MinGap) AND (CloseBarX < OpenBarX) Then DrawRectangle(CloseBarX,ClosePrice, OpenBarX,OpenPrice) Coloured(255,0,0,50) Bordercolor(255,0,0)Style(Line,3) EndIf If ((ClosePrice – OpenPrice) > MinGap) AND (CloseBarX < OpenBarX) Then DrawRectangle(CloseBarX,ClosePrice,OpenBarX,OpenPrice) Coloured(0,255,0,50) Bordercolor(0,255,0)Style(Line,3) EndIf Next Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

  DtC    = 10 // Days To Check MinGap = 0   For Dx = 0 To DtC Do If (Day[Dx+1] And Time = 173000) Then CloseBarX  = Barindex ClosePrice = Close DRAWVLINE(CloseBarX)Coloured(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,3) EndIf If (Day[Dx] And Time = 080000) Then OpenBarX  = Barindex OpenPrice = Open DRAWVLINE(OpenBarX)Coloured(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,3) EndIf If ((OpenPrice – ClosePrice) > MinGap) AND (CloseBarX < OpenBarX) Then DrawRectangle(CloseBarX,ClosePrice, OpenBarX,OpenPrice) Coloured(255,0,0,50) Bordercolor(255,0,0)Style(Line,3) EndIf If ((ClosePrice – OpenPrice) > MinGap) AND (CloseBarX < OpenBarX) Then DrawRectangle(CloseBarX,ClosePrice,OpenBarX,OpenPrice) Coloured(0,255,0,50) Bordercolor(0,255,0)Style(Line,3) EndIf Next   Return

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  08/29/2021 at 9:34 AM #176426
  robertogozzi

  Tolle Arbeit Lorien !

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  08/29/2021 at 11:20 AM #176431
  Rainer (RFW)

  Hallo Roberto,
  herzlichen Dank, sehr freundlich.
  Allerdings hat es noch nicht ganz meinen Vorstellungen entsprochen.
  Nachfolgend, bzw. anbei/nachfolgend Screenshot/Endversion, nunmehr auch die eigentlich wichtige Anzeige von offenen Gaps.  itf. Datei nachstehen, ggf. kann jemand dies sinnvoll einsetzen.
  Noch einen schönen Sonntag und Danke für die stets vorbildliche Moderation/Hilfe.
  Liebe Grüße
  Rainer

  Gap Finder

  // Rainer-Franz Wirth Rainer FW(RFW) @ prorealcode.com //******************************************************************************************************************************************************************** Defparam Drawonlastbaronly = True Defparam Calculateonlastbars = 10000 //******************************************************************************************************************************************************************** //LookBack = 3000 //MinGap = 10 GFCT = DayCloseTime // 173000 GFOT = DayOpenTime // 90000 //******************************************************************************************************************************************************************** For FOS = 0 To 250 Do If Time[FOS] = GFOT Then LOX = Barindex[FOS] LOXC = Open[FOS] Break EndIf Next LBI = Barindex-LOX[FOS] // Last Open //******************************************************************************************************************************************************************** If IsLastBarupdate Then For LBX1 = LookBack DownTo LBI+1 Do If Time[LBX1] = GFCT Then CloseBarX = Barindex[LBX1] ClosePrice = Close[LBX1] DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,2) If CloseBarX > 0 Then For LBX2 = LBX1-1 DownTo LBI Do If Time[LBX2] = GFOT Then OpenBarX = Barindex[LBX2] OpenPrice = Open[LBX2] DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,2) Break EndIf Next EndIf If ((OpenPrice - ClosePrice) > MinGap*PointSize) Then UpGap = 1 DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(255,0,0)Style(Line,2) For UpGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If Low[UpGapCSx] =< ClosePrice Then UpGapCloseX = BarIndex[UpGapCSx] DRAWPOINT(UpGapCloseX,ClosePrice,2)Coloured(255,0,0)Bordercolor(255,0,0) DRAWSEGMENT(OpenBarX, ClosePrice, UpGapCloseX, ClosePrice)Coloured(255,0,0)Style(Line,2) UpGap = 2 Break EndIf Next If UpGap = 1 Then DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(255,0,0)Style(Dottedline,2) EndIf EndIf If ((ClosePrice - OpenPrice) > MinGap*PointSize) Then DownGap = 1 DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(0,255,0)Style(Line,2) For DownGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If High[DownGapCSx] >= ClosePrice Then DownGapCloseX = BarIndex[DownGapCSx] DRAWPOINT(DownGapCloseX,ClosePrice,2)Coloured(0,255,0)Bordercolor(0,255,0) DRAWSEGMENT(OpenBarX, ClosePrice, DownGapCloseX, ClosePrice)Coloured(0,255,0)Style(Line,2) DownGap = 2 Break EndIf Next If DownGap = 1 Then DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(0,255,0)Style(Dottedline,2) EndIf Endif Endif Next EndIf Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

  //  Rainer-Franz Wirth  Rainer FW(RFW) @ prorealcode.com //******************************************************************************************************************************************************************** Defparam Drawonlastbaronly   = True Defparam Calculateonlastbars = 10000 //******************************************************************************************************************************************************************** //LookBack = 3000 //MinGap   = 10 GFCT     = DayCloseTime // 173000 GFOT     = DayOpenTime // 90000 //******************************************************************************************************************************************************************** For FOS = 0 To 250 Do If Time[FOS] = GFOT Then LOX  = Barindex[FOS] LOXC = Open[FOS] Break EndIf Next LBI = Barindex-LOX[FOS] // Last Open //******************************************************************************************************************************************************************** If IsLastBarupdate Then For LBX1 = LookBack DownTo LBI+1 Do If Time[LBX1] = GFCT Then CloseBarX  = Barindex[LBX1] ClosePrice = Close[LBX1] DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWSEGMENT(CloseBarX, ClosePrice, CloseBarX+20, ClosePrice)Coloured(255,255,0)Style(Line,2) If CloseBarX > 0 Then For LBX2 = LBX1-1 DownTo LBI Do If Time[LBX2] = GFOT Then OpenBarX  = Barindex[LBX2] OpenPrice = Open[LBX2] DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, OpenPrice, OpenBarX+20, OpenPrice)Coloured(0,255,255)Style(Line,2) Break EndIf Next EndIf If ((OpenPrice - ClosePrice) > MinGap*PointSize) Then UpGap = 1 DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(255,0,0)Style(Line,2) For UpGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If Low[UpGapCSx] =< ClosePrice Then UpGapCloseX = BarIndex[UpGapCSx] DRAWPOINT(UpGapCloseX,ClosePrice,2)Coloured(255,0,0)Bordercolor(255,0,0) DRAWSEGMENT(OpenBarX, ClosePrice, UpGapCloseX, ClosePrice)Coloured(255,0,0)Style(Line,2) UpGap = 2 Break EndIf Next If UpGap = 1 Then DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(255,0,0)Style(Dottedline,2) EndIf EndIf If ((ClosePrice - OpenPrice) > MinGap*PointSize) Then DownGap = 1 DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(0,255,0)Style(Line,2) For DownGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If High[DownGapCSx] >= ClosePrice Then DownGapCloseX = BarIndex[DownGapCSx] DRAWPOINT(DownGapCloseX,ClosePrice,2)Coloured(0,255,0)Bordercolor(0,255,0) DRAWSEGMENT(OpenBarX, ClosePrice, DownGapCloseX, ClosePrice)Coloured(0,255,0)Style(Line,2) DownGap = 2 Break EndIf Next If DownGap = 1 Then DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(0,255,0)Style(Dottedline,2) EndIf Endif Endif Next EndIf   Return

  2 users thanked author for this post.

  Nicolas, robertogozzi

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  09/01/2021 at 8:17 AM #176563
  Rainer (RFW)

  Guten Morgen,
  ich reiche noch die getestete Final-Version ergänzt um den DisplayMod nach:
  DisplayMod 1 = nur offene Gaps
  DisplayMod 2 = geschlossene Gaps
  DisplayMod 3 = offene und geschlossene Gaps
  Die übrigen Variablen sind ja ohnehin selbsterklärend, dennoch der Hinweis, das ggf. bei TimeFrame-Änderung die Uhrzeiten logischer Weise anglichen werden müssen, denn z.B. im 1 Hour TimeFrame kann natürlich kein Barindex mit 173000 gefunden werden….usw.
  Ich denke, dass es eher ein Tool, als Indikator ist und daher wohl nicht so recht in die Library passt.
  Schönen erfolgreichen Tag und GESUNDHEIT!
  Liebe Grüße
  Rainer

  GapFinder Daily

  // Rainer-Franz Wirth Rainer FW(RFW) @ prorealcode.com //******************************************************************************************************************************************************************** Defparam Drawonlastbaronly = True Defparam Calculateonlastbars = 3000 //******************************************************************************************************************************************************************** //LookBack = 3000 //MinGap = 10 GFCT = DayCloseTime // 173000 GFOT = DayOpenTime // 90000 //******************************************************************************************************************************************************************** For FOS = 0 To 20 Do If Time[FOS] = GFOT Then LOX = Barindex[FOS] LOXC = Open[FOS] Break EndIf Next LBI = Barindex-LOX[FOS] // Last Open //******************************************************************************************************************************************************************** If IsLastBarupdate Then For LBX1 = LookBack DownTo LBI+1 Do If Time[LBX1] = GFCT Then CloseBarX = Barindex[LBX1] ClosePrice = Close[LBX1] If CloseBarX > 0 Then For LBX2 = LBX1-1 DownTo LBI Do If Time[LBX2] = GFOT Then OpenBarX = Barindex[LBX2] OpenPrice = Open[LBX2] Break EndIf Next EndIf If ((OpenPrice - ClosePrice) > MinGap*PointSize) Then UpGap = 1 For UpGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If Low[UpGapCSx]-Spread*PointSize =< ClosePrice Then UpGapCloseX = BarIndex[UpGapCSx] UpGap = 2 Break EndIf Next If UpGap = 2 Then If (DisplayMod = 2) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(255,0,0)Style(Line,2) DRAWPOINT(UpGapCloseX,ClosePrice,2)Coloured(255,0,0)Bordercolor(255,0,0) DRAWSEGMENT(OpenBarX, ClosePrice, UpGapCloseX, ClosePrice)Coloured(255,0,0)Style(Line,2) EndIf EndIf If UpGap = 1 Then If (DisplayMod = 1) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(255,0,0)Style(Dottedline,2) EndIf EndIf EndIf If ((ClosePrice - OpenPrice) > MinGap*PointSize) Then DownGap = 1 For DownGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If High[DownGapCSx]+Spread*PointSize >= ClosePrice Then DownGapCloseX = BarIndex[DownGapCSx] DownGap = 2 Break EndIf Next If DownGap = 2 Then If (DisplayMod = 2) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(0,255,0)Style(Line,2) DRAWPOINT(DownGapCloseX,ClosePrice,2)Coloured(0,255,0)Bordercolor(0,255,0) DRAWSEGMENT(OpenBarX, ClosePrice, DownGapCloseX, ClosePrice)Coloured(0,255,0)Style(Line,2) EndIf EndIf If DownGap = 1 Then If (DisplayMod = 1) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(0,255,0)Style(Dottedline,2) Endif EndIf Endif Endif Next EndIf Return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95

  //  Rainer-Franz Wirth  Rainer FW(RFW) @ prorealcode.com //******************************************************************************************************************************************************************** Defparam Drawonlastbaronly   = True Defparam Calculateonlastbars = 3000 //******************************************************************************************************************************************************************** //LookBack = 3000 //MinGap   = 10 GFCT = DayCloseTime // 173000 GFOT = DayOpenTime  // 90000 //******************************************************************************************************************************************************************** For FOS = 0 To 20 Do If Time[FOS] = GFOT Then LOX  = Barindex[FOS] LOXC = Open[FOS] Break EndIf Next LBI = Barindex-LOX[FOS] // Last Open //******************************************************************************************************************************************************************** If IsLastBarupdate Then For LBX1 = LookBack DownTo LBI+1 Do If Time[LBX1] = GFCT Then CloseBarX  = Barindex[LBX1] ClosePrice = Close[LBX1] If CloseBarX > 0 Then For LBX2 = LBX1-1 DownTo LBI Do If Time[LBX2] = GFOT Then OpenBarX  = Barindex[LBX2] OpenPrice = Open[LBX2] Break EndIf Next EndIf If ((OpenPrice - ClosePrice) > MinGap*PointSize) Then UpGap = 1 For UpGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If Low[UpGapCSx]-Spread*PointSize =< ClosePrice Then UpGapCloseX = BarIndex[UpGapCSx] UpGap = 2 Break EndIf Next If UpGap = 2 Then If (DisplayMod = 2) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(255,0,0)Style(Line,2) DRAWPOINT(UpGapCloseX,ClosePrice,2)Coloured(255,0,0)Bordercolor(255,0,0) DRAWSEGMENT(OpenBarX, ClosePrice, UpGapCloseX, ClosePrice)Coloured(255,0,0)Style(Line,2) EndIf EndIf If UpGap = 1 Then If (DisplayMod = 1) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(255,0,0)Style(Line,2) DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(255,0,0)Style(Dottedline,2) EndIf EndIf EndIf If ((ClosePrice - OpenPrice) > MinGap*PointSize) Then DownGap = 1 For DownGapCSx = Max(1,(LBX2-1)) DownTo 0 Do If High[DownGapCSx]+Spread*PointSize >= ClosePrice Then DownGapCloseX = BarIndex[DownGapCSx] DownGap = 2 Break EndIf Next If DownGap = 2 Then If (DisplayMod = 2) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(0,255,0)Style(Line,2) DRAWPOINT(DownGapCloseX,ClosePrice,2)Coloured(0,255,0)Bordercolor(0,255,0) DRAWSEGMENT(OpenBarX, ClosePrice, DownGapCloseX, ClosePrice)Coloured(0,255,0)Style(Line,2) EndIf EndIf If DownGap = 1 Then If (DisplayMod = 1) Or (DisplayMod = 3) Then DRAWPOINT(CloseBarX,ClosePrice,2)Coloured(255,255,0)Bordercolor(255,255,0) DRAWPOINT(OpenBarX,OpenPrice,2)Coloured(0,255,255)Bordercolor(0,255,255) DRAWSEGMENT(OpenBarX, ClosePrice, OpenBarX, OpenPrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(CloseBarX, ClosePrice, OpenBarX, ClosePrice)Coloured(0,255,0)Style(Line,2) DRAWSEGMENT(OpenBarX, ClosePrice, BarIndex+5, ClosePrice)Coloured(0,255,0)Style(Dottedline,2) Endif EndIf Endif Endif Next EndIf Return

  2 users thanked author for this post.

  Nicolas, robertogozzi

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
  09/01/2021 at 8:41 AM #176567
  robertogozzi

  Ich habe diese Zeilen zwischen Zeile 93 (Next) und Zeile 94 (Endif) hinzugefügt, um die Lückengröße zu zeichnen:

  Difference = abs(ClosePrice - OpenPrice) Offset = max(close,max(ClosePrice,OpenPrice)) + (range * 2) PlotBar = max(CloseBarX,OpenBarX) DrawText("Gap size = #Difference#",PlotBar,Offset,Dialog,Bold,12) coloured(0,128,0,155)

  1 2 3 4

  Difference = abs(ClosePrice - OpenPrice) Offset     = max(close,max(ClosePrice,OpenPrice)) + (range * 2) PlotBar    = max(CloseBarX,OpenBarX) DrawText("Gap size = #Difference#",PlotBar,Offset,Dialog,Bold,12) coloured(0,128,0,155)

  1 user thanked author for this post.

  Rainer (RFW)

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  09/01/2021 at 8:53 AM #176570
  Rainer (RFW)

  Guten Morgen Roberto,
  super Idee. Danke nochmals.
  Liebe Grüße
  Rainer

  

  Rainer (RFW)

  Participant

  Topics: 30

  Replies: 98

  Been thanked: 17 times
• Author
  Posts