how to code multiple consecutive conditions with MACD?
- This topic has 17 replies, 3 voices, and was last updated 2 years ago by
.
-
#1
123456789101112131415p1 = 3p2 = 2p3 = 2MyHisto = MACD[12,26,9](close) //Histogram//MySignal = ExponentialAverage[9](MACDline[12,26,9](close)) //Signal//MyMACD = MACDline[12,26,9](close) //Macd//RedHisto = MyHisto < 0GreenHisto = MyHisto > 0Red1 = summation[p1](RedHisto[p2 + p3]) = p1Green1 = summation[p2](GreenHisto[p3]) = p2Red2 = summation[p3](RedHisto) = p3//Cond = Red1 AND Green1 AND Red2RETURN Cond#2
123456789101112131415p1 = 3p2 = 2p3 = 2//MyHisto = MACD[12,26,9](close) //HistogramMySignal = ExponentialAverage[9](MACDline[12,26,9](close)) //SignalMyMACD = MACDline[12,26,9](close) //Macd//RedPattern = MyMACD < MySignalGreenPattern = MyMACD > MySignalGreen1 = summation[p1](GreenPattern[p2 + p3]) = p1Red1 = summation[p2](RedPattern[p3]) = p2Green2 = summation[p3](GreenPattern) = p3//Cond = Green1 AND Red1 AND Green2RETURN Cond1 user thanked author for this post.
tks you so much, in addition I just bought Nicolas’ training ;-), and tks agin 🙂
1 user thanked author for this post.
p1 is the first periods, p2 is the second period and p3 is the last period (the latest bars).
I was returned many items on shares.
You can test it as a screener replacing the last line with
1Screener[Cond]1 user thanked author for this post.
I am attaching a diagram, both as a Pic and eXcel file.
I hope it’s clear.
1 user thanked author for this post.
I modified the title of the topic, please try to
- Give your topic a meaningful title. Describe your question or your subject in your title. Do not use meaningless titles such as ‘Coding Help Needed’.
1 user thanked author for this post.
You can simply use several constants, p1, p2 and p3, like I did in the code above, or you can use arrays to store as many values you need:
12345$p[1] = 3$p[2] = 6$p[3] = 3..1 user thanked author for this post.
$p[] is an array. You can find info at https://www.prorealcode.com/topic/array-variables-availability-in-prorealtime/.
No, your example is not correct.
If you can explain your idea with more details I may try to help you. If you mean to apply arrays to the code above, then my answer is no, you can’t, because of the logic behind that code.
1 user thanked author for this post.
This is the code that I modified to:
- use PipSize, otherwise it will plot correctly only on instruments with a pip ratio of 1
- replace the offset of graphic objects with a variable named OFFSET
- replace 10 and 50 periods, with variables P1 and P2:
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869Defparam drawonlastbaronly = true// Attribu :MyMACD = MACDline[12,26,9](close)MySLine = MACDSignal[12,26,9](close)MyHis = MACD[12,26,9](close)Offset = 10 * pipsizep1 = 10p2 = 50// (｡♥‿♥｡) Block Start// Block End (｡♥‿♥｡)IF MyMACD < 0 AND MySLine < 0 THEN// (｡♥‿♥｡) Block Start P3//BACKGROUNDCOLOR (0, 155, 10, 25)FOR X3 = 0 To p1 Do//IF MyMACD[Y] Crosses Under MySLine[Y] AND MyMACD[Y] < 0 AND MySLine[Y] < 0 THENIF MyMACD[X3] Crosses Under MySLine[X3] THENAbscisseP3 = X3BarP3 = Barindex[X3]CP3 = 1Drawtext("#X3#", Barindex[X3], Low[X3]-1)DRAWELLIPSE(BarP3-1,LOW[X3]-Offset,BarP3+1,HIGH[X3]+Offset)coloured(255,10,10)BreakELSECP3 = 0ENDIFNext// Block End (｡♥‿♥｡)P3// (｡♥‿♥｡) Block Start P2IF CP3 THENFOR X2 = X3 To X3+p1 Do//IF MyMACD[Y] Crosses Under MySLine[Y] AND MyMACD[Y] < 0 AND MySLine[Y] < 0 THENIF MyMACD[X2] Crosses Over MySLine[X2] THENAbscisseP2 = X2BarP2 = Barindex[X2]CP2 = 1Drawtext("#X2#", Barindex[X2], Low[X2]-1)DRAWELLIPSE(BarP2-1,LOW[X2]-Offset,BarP2+1,HIGH[X2]+Offset)coloured(255,10,10)BreakELSECP2 = 0ENDIFNextENDIF// Block End (｡♥‿♥｡)P2// (｡♥‿♥｡) Block Start P1IF CP2 THENFOR X1 = X2 To X2+p2 Do//IF MyMACD[Y] Crosses Under MySLine[Y] AND MyMACD[Y] < 0 AND MySLine[Y] < 0 THENIF MyMACD[X1] Crosses Under MySLine[X1] THENAbscisseP1 = X1BarP1 = Barindex[X1]CP1 = 1Drawtext("#X1#", Barindex[X1], Low[X1]-1)DRAWELLIPSE(BarP1-1,LOW[X1]-Offset,BarP1+1,HIGH[X1]+Offset)coloured(255,10,10)BreakELSECP1 = 0ENDIFNextENDIF// Block End (｡♥‿♥｡)P1ENDIF// tks to the Nisola's Cours ;-)Returnand this is the screener:
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869//Defparam drawonlastbaronly = trueMyMACD = MACDline[12,26,9](close)MySLine = MACDSignal[12,26,9](close)//MyHis = MACD[12,26,9](close)//Offset = 10 * pipsizep1 = 10p2 = 50// (｡♥‿♥｡) Block Start// Block End (｡♥‿♥｡)IF MyMACD < 0 AND MySLine < 0 THEN// (｡♥‿♥｡) Block Start P3//BACKGROUNDCOLOR (0, 155, 10, 25)FOR X3 = 0 To p1 Do//IF MyMACD[Y] Crosses Under MySLine[Y] AND MyMACD[Y] < 0 AND MySLine[Y] < 0 THENIF MyMACD[X3] Crosses Under MySLine[X3] THEN//AbscisseP3 = X3//BarP3 = Barindex[X3]CP3 = 1//Drawtext("#X3#", Barindex[X3], Low[X3]-1)//DRAWELLIPSE(BarP3-1,LOW[X3]-Offset,BarP3+1,HIGH[X3]+Offset)coloured(255,10,10)BreakELSECP3 = 0ENDIFNext// Block End (｡♥‿♥｡)P3// (｡♥‿♥｡) Block Start P2IF CP3 THENFOR X2 = X3 To X3+p1 Do//IF MyMACD[Y] Crosses Under MySLine[Y] AND MyMACD[Y] < 0 AND MySLine[Y] < 0 THENIF MyMACD[X2] Crosses Over MySLine[X2] THEN//AbscisseP2 = X2//BarP2 = Barindex[X2]CP2 = 1//Drawtext("#X2#", Barindex[X2], Low[X2]-1)//DRAWELLIPSE(BarP2-1,LOW[X2]-Offset,BarP2+1,HIGH[X2]+Offset)coloured(255,10,10)BreakELSECP2 = 0ENDIFNextENDIF// Block End (｡♥‿♥｡)P2// (｡♥‿♥｡) Block Start P1IF CP2 THENFOR X1 = X2 To X2+p2 Do//IF MyMACD[Y] Crosses Under MySLine[Y] AND MyMACD[Y] < 0 AND MySLine[Y] < 0 THENIF MyMACD[X1] Crosses Under MySLine[X1] THEN//AbscisseP1 = X1//BarP1 = Barindex[X1]CP1 = 1//Drawtext("#X1#", Barindex[X1], Low[X1]-1)//DRAWELLIPSE(BarP1-1,LOW[X1]-Offset,BarP1+1,HIGH[X1]+Offset)coloured(255,10,10)BreakELSECP1 = 0ENDIFNextENDIF// Block End (｡♥‿♥｡)P1ENDIF// tks to the Nisola's Cours ;-)Cond = CP1 AND CP2 AND CP3SCREENER[Cond]1 user thanked author for this post.
Find exclusive trading pro-tools on 
Similar topics:
