Problème de boucles

This topic has 5 replies, 2 voices, and was last updated 8 months ago by BenCD.

Viewing 6 posts - 1 through 6 (of 6 total)

08/10/2023 at 8:17 AM #218884

BenCD

Bonjour à tous,

Cela fait maintenant trop longtemps que je bloque sur un code, et j’aimerai avoir vos avis / idées.

Je cherche à avoir ‘graphiquement’ et en ‘valeurs utilisables’ les obliques resistance et support.

J’aimerai qu’à chaque début d’heure (je travaille en chandelle 1 minute, sur le MES0923) mon code, prenne comme premier point le point le plus haut de la journée, et test chaque high (après le point haut) comme deuxième point pour tirer une droite et vérifier que cette dernière n’est pas coupée.

Cela fonctionne très bien pour ma résistance, c’est parfait…

Quand je transpose mon code vers le support… J’ai un message d’erreur comme quoi une boucle est sans fin ou à trop d’itérations.
Pourtant c’est le même principe que pour la résistance, qui fonctionne très bien.

Après des milliers d’essais, si je “commente / dé-commente” les lignes 161 à 189 de mon code, la cela fonctionne, donc j’imagine que c’est la 2ème boucle que le code n’apprécie pas, mais je ne comprends pas pourquoi, ni comment surmonter ce problème.

Des idées?

N’hésitez pas à me dire s’il faut des explications plus précises,
Merci beaucoup d’avance,

Benjamin

Mon code juste en dessous, je n’arrive toujours pas à l’intégrer dans un post de forum.

Defparam DrawOnLastBarOnly = true
Defparam CalculateOnLastBars = 1500

//_________________________________________________________ TIMING

Heures = Hour
Miinutes = Minute
Secondes = Second

HeureDebutChandelle = HeureFinChandelle[1]

HeureFinChandelle = Hour * 10000 + Miinutes * 100 + Secondes

if HeureFinChandelle < HeureFinChandelle[1] then
HeureDebutChandelle = 0
endif

//______________________________________________ NOMBRE CHANDELLES

NombreChandelles = 1

if HeureDebutChandelle > HeureDebutChandelle[1] then
NombreChandelles = NombreChandelles[1] + 1
endif

//__________________________________________________ INFOS JOURNEE

if NombreChandelles < NombreChandelles[1] then
DebutJournee = barindex
OuvertureJournee = open
PlusBasJournee = min(Open,Close)
PlusHautJournee = max(Open,Close)
endif

//__________________________________________________ REMISE A 0

if NombreChandelles < NombreChandelles[1] then
ColonneArrayxArriveeRO = 0
ColonneArrayyArriveeRO = 0
ColonneArrayxArriveeSO = 0
ColonneArrayyArriveeSO = 0
endif

//__________________________________________________ BLOCKS

Block = 60

BlockPerDay = (60 / Block) * 24

for i = 1 to BlockPerDay do
drawvline (DebutJournee + (i * Block)) style (dottedline) coloured (180,180,180,100)
next

//__________________________________________________ COORDONEES PLUS HAUT

if High >= PlusHautJournee then
PlusHautJournee = High
xPH = Barindex
yPH = High
endif

//__________________________________________________ COORDONEES PLUS BAS

if Low <= PlusBasJournee then
PlusBasJournee = Low
xPB = Barindex
yPB = Low
endif

//__________________________________________________ LOOKBACK

BlockLine = (NombreChandelles / Block) - ceil((NombreChandelles / Block))

if BlockLine < BlockLine[1] then
xFinScanOblique = barindex[1]
SignalBlock = 1
else
SignalBlock = 0
endif

Drawvline (xFinScanOblique) coloured ("blue")

//__________________________________________________ RESISTANCE OBLIQUE

if SignalBlock = 1 and xFinScanOblique >= xDepartRO then

xDepartRO = xPH
yDepartRO = yPH

for i = xDepartRO + 1 to xFinScanOblique do

xArriveeRO = i
yArriveeRO = high[Barindex - xArriveeRO]

for j = xDepartRO + 1 to xFinScanOblique do

RO = (((yArriveeRO - yDepartRO) / (xArriveeRO - xDepartRO)) * j) + (yDepartRO - ((((yArriveeRO - yDepartRO ) / (xArriveeRO - xDepartRO)) * xDepartRO)))

if RO < high[Barindex - j] then

break

endif

if RO >= high[Barindex - j] then

if j = xFinScanOblique then

xArriveeRO = i

$ArrayxArriveeRO[ColonneArrayxArriveeRO] = xArriveeRO

ColonneArrayxArriveeRO = ColonneArrayxArriveeRO + 1

yArriveeRO = high[Barindex - xArriveeRO]

$ArrayyArriveeRO[ColonneArrayyArriveeRO] = yArriveeRO

ColonneArrayyArriveeRO = ColonneArrayyArriveeRO + 1

break
endif
endif
next
next
endif

if ColonneArrayxArriveeRO > 0 and xFinScanOblique > xDepartRO then

xArriveeRO = $ArrayxArriveeRO[ColonneArrayxArriveeRO-1]
yArriveeRO = $ArrayyArriveeRO[ColonneArrayyArriveeRO-1]

drawpoint (xDepartRO, yDepartRO, 1) coloured ("red")
drawpoint (xArriveeRO, yArriveeRO, 1) coloured ("red")

drawline(xDepartRO, yDepartRO, xArriveeRO, yArriveeRO) coloured ("red")

aRO = ((yArriveeRO - yDepartRO) / (xArriveeRO - xDepartRO))
bRO = (yDepartRO - ((((yArriveeRO - yDepartRO ) / (xArriveeRO - xDepartRO)) * xDepartRO)))

RO = (aRO * Barindex) + bRO

endif





//__________________________________________________ SUPPORT OBLIQUE

if SignalBlock = 1 and xFinScanOblique >= xDepartSO then

xDepartSO = xPB
yDepartSO = yPB

for i = xDepartSO + 1 to xFinScanOblique do

xArriveeSO = i
yArriveeSO = Low[Barindex - xArriveeSO]

//for j = xDepartSO + 1 to xFinScanOblique do
//
//SO = (((yArriveeSO - yDepartSO) / (xArriveeSO - xDepartSO)) * j) + (yDepartSO - ((((yArriveeSO - yDepartSO ) / (xArriveeSO - xDepartSO)) * xDepartSO)))
//
//if SO > Low[Barindex - j] then
//
//break
//
//endif
//
//if SO <= Low[Barindex - j] then
//
//if j = xFinScanOblique then
//
//xArriveeSO = i
//
//$ArrayxArriveeSO[ColonneArrayxArriveeSO] = xArriveeSO
//
//ColonneArrayxArriveeSO = ColonneArrayxArriveeSO + 1
//
//yArriveeSO = Low[Barindex - xArriveeSO]
//
//$ArrayyArriveeSO[ColonneArrayyArriveeSO] = yArriveeSO
//
//ColonneArrayyArriveeSO = ColonneArrayyArriveeSO + 1
//break
//endif
//endif
//next
next
endif

drawvline(xDepartSO)

if ColonneArrayxArriveeSO > 0 and xFinScanOblique > xDepartSO then

xArriveeSO = $ArrayxArriveeSO[ColonneArrayxArriveeSO-1]
yArriveeSO = $ArrayyArriveeSO[ColonneArrayyArriveeSO-1]

drawpoint (xDepartSO, yDepartSO, 1) coloured ("green")
drawpoint (xArriveeSO, yArriveeSO, 1) coloured ("green")

drawline(xDepartSO, yDepartSO, xArriveeSO, yArriveeSO) coloured ("green")

aSO = ((yArriveeSO - yDepartSO) / (xArriveeSO - xDepartSO))
bSO = (yDepartSO - ((((yArriveeSO - yDepartSO ) / (xArriveeSO - xDepartSO)) * xDepartSO)))

SO = (aSO * Barindex) + bSO

endif

return

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

Defparam DrawOnLastBarOnly = true

Defparam CalculateOnLastBars = 1500

//_________________________________________________________ TIMING

Heures = Hour

Miinutes = Minute

Secondes = Second

HeureDebutChandelle = HeureFinChandelle[1]

HeureFinChandelle = Hour * 10000 + Miinutes * 100 + Secondes

if HeureFinChandelle < HeureFinChandelle[1] then

HeureDebutChandelle = 0

endif

//______________________________________________ NOMBRE CHANDELLES

NombreChandelles = 1

if HeureDebutChandelle > HeureDebutChandelle[1] then

NombreChandelles = NombreChandelles[1] + 1

endif

//__________________________________________________ INFOS JOURNEE

if NombreChandelles < NombreChandelles[1] then

DebutJournee = barindex

OuvertureJournee = open

PlusBasJournee = min(Open,Close)

PlusHautJournee = max(Open,Close)

endif

//__________________________________________________ REMISE A 0

if NombreChandelles < NombreChandelles[1] then

ColonneArrayxArriveeRO = 0

ColonneArrayyArriveeRO = 0

ColonneArrayxArriveeSO = 0

ColonneArrayyArriveeSO = 0

endif

//__________________________________________________ BLOCKS

Block = 60

BlockPerDay = (60 / Block) * 24

for i = 1 to BlockPerDay do

drawvline (DebutJournee + (i * Block)) style (dottedline) coloured (180,180,180,100)

//__________________________________________________ COORDONEES PLUS HAUT

if High >= PlusHautJournee then

PlusHautJournee = High

xPH = Barindex

yPH = High

endif

//__________________________________________________ COORDONEES PLUS BAS

if Low <= PlusBasJournee then

PlusBasJournee = Low

xPB = Barindex

yPB = Low

endif

//__________________________________________________ LOOKBACK

BlockLine = (NombreChandelles / Block) - ceil((NombreChandelles / Block))

if BlockLine < BlockLine[1] then

xFinScanOblique = barindex[1]

SignalBlock = 1

else

SignalBlock = 0

endif

Drawvline (xFinScanOblique) coloured ("blue")

//__________________________________________________ RESISTANCE OBLIQUE

if SignalBlock = 1 and xFinScanOblique >= xDepartRO then

xDepartRO = xPH

yDepartRO = yPH

for i = xDepartRO + 1 to xFinScanOblique do

xArriveeRO = i

yArriveeRO = high[Barindex - xArriveeRO]

for j = xDepartRO + 1 to xFinScanOblique do

RO = (((yArriveeRO - yDepartRO) / (xArriveeRO - xDepartRO)) * j) + (yDepartRO - ((((yArriveeRO - yDepartRO ) / (xArriveeRO - xDepartRO)) * xDepartRO)))

if RO < high[Barindex - j] then

break

endif

if RO >= high[Barindex - j] then

if j = xFinScanOblique then

xArriveeRO = i

$ArrayxArriveeRO[ColonneArrayxArriveeRO] = xArriveeRO

ColonneArrayxArriveeRO = ColonneArrayxArriveeRO + 1

yArriveeRO = high[Barindex - xArriveeRO]

$ArrayyArriveeRO[ColonneArrayyArriveeRO] = yArriveeRO

ColonneArrayyArriveeRO = ColonneArrayyArriveeRO + 1

break

endif

if ColonneArrayxArriveeRO > 0 and xFinScanOblique > xDepartRO then

xArriveeRO = $ArrayxArriveeRO[ColonneArrayxArriveeRO-1]

yArriveeRO = $ArrayyArriveeRO[ColonneArrayyArriveeRO-1]

drawpoint (xDepartRO, yDepartRO, 1) coloured ("red")

drawpoint (xArriveeRO, yArriveeRO, 1) coloured ("red")

drawline(xDepartRO, yDepartRO, xArriveeRO, yArriveeRO) coloured ("red")

aRO = ((yArriveeRO - yDepartRO) / (xArriveeRO - xDepartRO))

bRO = (yDepartRO - ((((yArriveeRO - yDepartRO ) / (xArriveeRO - xDepartRO)) * xDepartRO)))

RO = (aRO * Barindex) + bRO

endif

//__________________________________________________ SUPPORT OBLIQUE

if SignalBlock = 1 and xFinScanOblique >= xDepartSO then

xDepartSO = xPB

yDepartSO = yPB

for i = xDepartSO + 1 to xFinScanOblique do

xArriveeSO = i

yArriveeSO = Low[Barindex - xArriveeSO]

//for j = xDepartSO + 1 to xFinScanOblique do

//SO = (((yArriveeSO - yDepartSO) / (xArriveeSO - xDepartSO)) * j) + (yDepartSO - ((((yArriveeSO - yDepartSO ) / (xArriveeSO - xDepartSO)) * xDepartSO)))

//if SO > Low[Barindex - j] then

//break

//endif

//if SO <= Low[Barindex - j] then

//if j = xFinScanOblique then

//xArriveeSO = i

//$ArrayxArriveeSO[ColonneArrayxArriveeSO] = xArriveeSO

//ColonneArrayxArriveeSO = ColonneArrayxArriveeSO + 1

//yArriveeSO = Low[Barindex - xArriveeSO]

//$ArrayyArriveeSO[ColonneArrayyArriveeSO] = yArriveeSO

//ColonneArrayyArriveeSO = ColonneArrayyArriveeSO + 1

//break

//endif

//next

endif

drawvline(xDepartSO)

if ColonneArrayxArriveeSO > 0 and xFinScanOblique > xDepartSO then

xArriveeSO = $ArrayxArriveeSO[ColonneArrayxArriveeSO-1]

yArriveeSO = $ArrayyArriveeSO[ColonneArrayyArriveeSO-1]

drawpoint (xDepartSO, yDepartSO, 1) coloured ("green")

drawpoint (xArriveeSO, yArriveeSO, 1) coloured ("green")

drawline(xDepartSO, yDepartSO, xArriveeSO, yArriveeSO) coloured ("green")

aSO = ((yArriveeSO - yDepartSO) / (xArriveeSO - xDepartSO))

bSO = (yDepartSO - ((((yArriveeSO - yDepartSO ) / (xArriveeSO - xDepartSO)) * xDepartSO)))

SO = (aSO * Barindex) + bSO

endif

return

BenCD

Participant

Topics: 11

Replies: 39

Been thanked: 0 times

08/10/2023 at 3:37 PM #218905

JC_Bywan

Bonjour,

à propos du bouton “insert PRT code” tu peux faire un CTRL+F5 (et si les touches fonctions sont accessibles via un bouton Fn, alors CTRL+Fn+F5), s’il n’apparait pas, possible que ce soit à cause du navigateur web (pour moi ça marche avec mozilla firefox), je vais t’éditer le post pour rajouter le formatage.

A propos de ton problème de boucles, j’ai jeté un oeil, je pense que c’est parce que tes boucles seront lues même si xPB et xPH sont égales à 0 (impact sur tes xDepart SO et RO), en l’occurence une journée où ton xPH est défini mais pas encore ton xPB, alors peu d’itérations pour trouver oblique sup de xdepartRO+1 (proche de xFinScanOblique) à xFinScanOblique , mais beaucoup trop d’itérations de 0 à xFinScanOblique pour trouver oblique inf.

Le plus simple est sans doute de vérifier juste avant la boucle que tu as commentée lignes 161-189 que xPB n’est pas nul, en rajoutant un “if xPB<>0 then” et bien sûr un “endif” juste après les lignes commentées, puis de décommenter ta boucle,

et si ça fonctionne d’adapter aussi l’équivalent “if xPH<>0 then” avant le “for j = xDepartRO + 1 to xFinScanOblique do” (et “endif” après le next correspondant).

1 user thanked author for this post.

BenCD

JC_Bywan

Moderator

Topics: 20

Replies: 2547

Been thanked: 838 times

08/10/2023 at 3:54 PM #218906

BenCD

Merci beaucoup JC_Bywan !

Effectivement je suis sur Safari, ça doit jouer !
Je me le note pour mon prochain post ; ) !

Concernant mon problème, je test ça tout de suite et reviens vers toi!

Encore merci !

BenCD

Participant

Topics: 11

Replies: 39

Been thanked: 0 times

08/10/2023 at 4:08 PM #218910

BenCD

Merveilleux!
Cela fonctionne!
Merci beaucoup !

Je profite de ta gentillesse et de ton aide pour essayer de bien comprendre ce que tu me dis et ne pas rester bloquer dans mon raisonnement, car pour être honnête avec toi, pour moi, xPB (ou xPH) correspond au Barindex du PH ou PB, et dans mon esprit, il ne peut pas être nul, vu qu’au minimum il corresponds au barindex de la première chandelle de ma journée (le plus bas du jour est à ‘l’ouverture’ sur la chandelle de 00h00 à 00h00s59).
C’est vrai que si c’est le xPB est sur la première chandelle et que le code lance une “étude” à 23h00, il y a un paquet de chandelle à tester (au maximum, 1380, cela est il un nombre suffisant pour que la plateforme estime qu’il y a trop d’itérations?).

Une nouvelle fois, merci de ton aide! 🙂

BenCD

Participant

Topics: 11

Replies: 39

Been thanked: 0 times

08/10/2023 at 4:15 PM #218911

JC_Bywan

Rajoute xPB et xPH à ta ligne return, et mets ton indicateur en fenêtre sous le prix, tu pourras les voir évoluer, et probablement constater en refaisant le test sur actif et UT où tu as dû commenter la boucle, que xPB n’a pas eu le comportement auquel tu t’attendais sur le début de l’historique. Ensuite, il a peut-être été défini pour le jour en cours, mais le code aura refusé de faire les itérations avant d’arriver jusque là.

1 user thanked author for this post.

BenCD

JC_Bywan

Moderator

Topics: 20

Replies: 2547

Been thanked: 838 times

08/10/2023 at 4:16 PM #218912

BenCD

Je comprends maintenant!

Merci

BenCD

Participant

Topics: 11

Replies: 39

Been thanked: 0 times

Author

Posts

Viewing 6 posts - 1 through 6 (of 6 total)

Find exclusive trading pro-tools on

Create your free account now and post your request to benefit from the help of the community