3D Candlesticks TOPIC

ALE · Sun, 08 Jul 2018 19:18:09 +0000

Hello this is Topic to ask more informations about the 3D CANDLE indicator This simple indicator, allows to interpret the values of the oscillator selected through the colors on the candlesticks and directly on the price chart. I have proposed the classical oscillators with canonical colors. You can also translate the 3d candle under the original to maintain both. You can choose the following oscillators: COMMODITY CHANNEL INDEX RSI STOCHASTIC CYCLE DIRECTIONAL INDEX Settings are modified at the top of the code or directly into the indicator’s settings window if you choose to download and importe the file below. //05.07.2018 //ALE@PROREALCODE //https://www.automatictrading.it/ //////////////////////////////////////////////////////////// TranslateCandle =1 // To maintain both the candles on the graph without overlap TransRange =0.01 // To choose distance of the 3D caNdle Transparency =4 //////////////////////////////////////////////////////////// ONCE CandleCci =1 // CANDLE + COMMODITY CHANNEL INDEX COLOUR ONCE CandleRsi =0 // CANDLE + RSI COLOUR ONCE CandleStochastic =0 // CANDLE + STOCASTIC COLOUR ONCE CandleCycle =0 // CANDLE + CYCLE COLOUR ONCE CandleDI =0 // CANDLE + DIRECTIONAL INDEX COLOUR //////////////////////////////V////////////////////////////// ONCE CciPeriod =20 ONCE RsiPeriod =14 ONCE N =14 ONCE K =3 ONCE DiPeriod =14 //////////////////////////////V////////////////////////////// If CandleCci then // CANDLE + COMMODITY CHANNEL INDEX COLOUR MyCci = Cci[max(1,CciPeriod)](customclose) R = (200-MyCci) G =(200+MyCci) if TranslateCandle then DRAWCANDLE(open-(open*TransRange*pointsize), high-(high*TransRange*pointsize), low-(low*TransRange*pointsize), close-(close*TransRange*pointsize)) Coloured (R,G,0,transparency*50) else DRAWCANDLE(open, high, low, close) Coloured (R,G,0,transparency*50) endif Elsif CandleRsi then // CANDLE + RSI COLOUR MyRsi = RSI[max(1,RsiPeriod)](customclose) R =50+(200-(MyRsi-50)*12) G =50+(200+(MyRsi-50)*12) if TranslateCandle then DRAWCANDLE(open-(open*TransRange*pointsize), high-(high*TransRange*pointsize), low-(low*TransRange*pointsize), close-(close*TransRange*pointsize)) Coloured (R,G,0,transparency*50) else DRAWCANDLE(open, high, low, close) Coloured (R,G,0,transparency*50) endif Elsif CandleStochastic then // CANDLE + STOCHASTIC COLOUR MyStoch = Stochastic[max(1,N),max(1,K)](customclose) R =50+(200-(MyStoch-50)*6) G =50+(200+(MyStoch-50)*6) if TranslateCandle then DRAWCANDLE(open-(open*TransRange*pointsize), high-(high*TransRange*pointsize), low-(low*TransRange*pointsize), close-(close*TransRange*pointsize)) Coloured (R,G,0,transparency*50) else DRAWCANDLE(open, high, low, close) Coloured (R,G,0,transparency*50) endif Elsif CandleCycle then // CANDLE + CYCLE COLOUR MyCycle = Cycle(customclose) R = (200-MyCycle*10) G =(200+MyCycle*10) if TranslateCandle then DRAWCANDLE(open-(open*TransRange*pointsize), high-(high*TransRange*pointsize), low-(low*TransRange*pointsize), close-(close*TransRange*pointsize)) Coloured (R,G,0,transparency*50) else DRAWCANDLE(open, high, low, close) Coloured (R,G,0,transparency*50) endif Elsif CandleDI then // CANDLE + DIRECTIONAL INDEX MyDi = DI[max(1,DiPeriod)](customclose) R = 50+(200-MyDi*10) G =50+(200+MyDi*10) if TranslateCandle then DRAWCANDLE(open-(open*TransRange*pointsize), high-(high*TransRange*pointsize), low-(low*TransRange*pointsize), close-(close*TransRange*pointsize)) Coloured (R,G,0,(transparency)*50) else DRAWCANDLE(open, high, low, close)Coloured (R,G,0,transparency*50) endif endif Return

This topic has 61 replies, 10 voices, and was last updated 4 years ago by Bard.

Viewing 15 posts - 16 through 30 (of 62 total)

← 1 2 3 4 5 →

07/11/2018 at 8:26 AM #75763

ALE

Ok..
Have you some strategy idea with this code?

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

07/30/2018 at 9:42 AM #77063

supertiti

@ ALE

+ 11% in a few days, the idea was good!

supertiti

Participant

Topics: 123

Replies: 738

Been thanked: 76 times

08/07/2018 at 1:38 AM #77674

Takeshi

Hello sir, great indicator thank you. I really would like to add it to my strategy, is there a way to use Candlesticks colors for my conditions?

Thank you!

Takeshi

Participant

Topics: 0

Replies: 1

Been thanked: 0 times

08/08/2018 at 6:10 AM #77743

ALE

Hello Tekeshi

yes there are many way, what can I do?

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

08/08/2018 at 3:47 PM #77783

Fr7

Can you create a system with the color changes?
buy: when the candle is green
closing of buy: when the candle is yellow
Sell: when the candle is red
closing sell: candle is yellow
It is possible to integrate in a single candle: cci + rsi + stochastic + cycle + di?

Fr7

Participant

Topics: 51

Replies: 160

Been thanked: 21 times

08/09/2018 at 4:28 AM #77816

ALE

remeber that colours indicate values of the oscillator

if candle is Red the oscillator is oversold

if candle is green the oscillator is overbought

and if it’s yellow the oscillator is in the middle of its range

so to do system with this premises i think that you can use also auto programming of ptorealtime, but if you want example I’ll do it, let me know

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

08/09/2018 at 8:38 AM #77827

Fr7

Ok Ale,Would you be so kind to do the system? Thank you

Fr7

Participant

Topics: 51

Replies: 160

Been thanked: 21 times

08/11/2018 at 4:56 PM #78011

ALE

Ok !

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

08/14/2018 at 5:30 PM #78171

Bard

Wow, @ALE that has got to be one of the coolest ideas/indicators I’ve seen.
Can more sophisticated oscillators like John Ehler’s Universal SuperSmoother Oscillator or Cynthia Kase’s Peak Oscillator be incorporated? Just a thought, but I understand if it’s too much work.

Best
Bard

Super Oscillators

//John Ehler's Universal SuperSmoother Oscillator bandedge= 25 //Default = 25 whitenoise= (Close - Close[2])/2 if barindex>bandedge then // super smoother filter a1= Exp(-1.414 * 3.14159 / bandedge) b1= 2*a1 * Cos(1.414*180 /bandedge) c2= b1 c3= -a1 * a1 c1= 1 - c2 - c3 filt= c1 * (whitenoise + whitenoise[1])/2 + c2*filt[1] + c3*filt[1] filt1 = filt if ABS(filt1)>pk[1] then pk = ABS(filt1) else pk = 0.991 * pk[1] endif if pk=0 then denom = -1 else denom = pk endif if denom = -1 then result = result[1] else result = filt1/pk endif endif RETURN result COLOURED(66,66,255) as "Universal Oscillator", 0 as "0" ========================================================================== //PRC_Kase Peak Oscillator V2 | indicator //19.07.2017 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //translated from MT4 code // --- settings kpoDeviations= 2.0 // Kase peak oscillator deviations kpoShortCycle= 8 // Kase peak oscillator short cycle kpoLongCycle = 65 // Kase peak oscillator long cycle kpoSensitivity = 40 allPeaksMode = 0 //1=true ; 0=false // --- end of settings if barindex>kpoLongCycle*2 then ccLog = Log(Close[0]/Close[1]) ccDev = std[9](ccLog) avg = average[30](ccDev) if (avg>0) then max1 = 0 maxs = 0 for k = kpoShortCycle to kpoLongCycle-1 do max1 = Max(Log(High[0]/Low[0+k])/Sqrt(k),max1) maxs = Max(Log(High[0+k]/Low[0])/Sqrt(k),maxs) next x1 = max1/avg xs = maxs/avg endif xp= kpoSensitivity*(average[3](x1)-average[3](xs)) xpAbs = Abs(xp) kpoBuffer = xp kphBuffer = xp tmpVal = average[50](xpAbs)+kpoDeviations*std[50](xpAbs) maxVal = Max(90.0,tmpVal) minVal = Min(90.0,tmpVal) if (kpoBuffer > 0) then kpdBuffer = maxVal kpmBuffer = minVal else kpdBuffer = -maxVal kpmBuffer = -minVal endif kppbuffer=0 if (not allPeaksMode) then if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2] and kpoBuffer[1]>= maxVal) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2] and kpoBuffer[1]<=-maxVal) then kppBuffer = kpoBuffer[1] endif else if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2]) then kppBuffer = kpoBuffer[1] endif endif endif return kphBuffer coloured(105,105,105) style(histogram), kpoBuffer coloured(105,105,105) style(line,2), kpdBuffer coloured(255,0,255), kpmBuffer coloured(0,191,255), kppBuffer coloured(255,0,255) style(histogram,2) //105,105,105=grey //255,0,255=pink //0,191,255=blue

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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113

//John Ehler's Universal SuperSmoother Oscillator

bandedge= 25 //Default = 25
whitenoise= (Close - Close[2])/2

if barindex>bandedge then
// super smoother filter
a1= Exp(-1.414 * 3.14159 / bandedge)
b1= 2*a1 * Cos(1.414*180 /bandedge)
c2= b1
c3= -a1 * a1
c1= 1 - c2 - c3
filt= c1 * (whitenoise + whitenoise[1])/2 + c2*filt[1] + c3*filt[1]

filt1 = filt

if ABS(filt1)>pk[1] then
pk = ABS(filt1)
else
pk = 0.991 * pk[1]
endif

if pk=0 then
denom = -1
else
denom = pk
endif

if denom = -1 then
result = result[1]
else
result = filt1/pk
endif
endif

RETURN result COLOURED(66,66,255) as "Universal Oscillator", 0 as "0"

==========================================================================

//PRC_Kase Peak Oscillator V2 | indicator
//19.07.2017
//Nicolas @ www.prorealcode.com
//Sharing ProRealTime knowledge
//translated from MT4 code

// --- settings
kpoDeviations= 2.0 // Kase peak oscillator deviations
kpoShortCycle= 8 // Kase peak oscillator short cycle
kpoLongCycle = 65 // Kase peak oscillator long cycle
kpoSensitivity = 40
allPeaksMode = 0 //1=true ; 0=false
// --- end of settings

if barindex>kpoLongCycle*2 then
ccLog = Log(Close[0]/Close[1])
ccDev = std[9](ccLog)

avg = average[30](ccDev)

if (avg>0) then
max1 = 0
maxs = 0

for k = kpoShortCycle to kpoLongCycle-1 do
max1 = Max(Log(High[0]/Low[0+k])/Sqrt(k),max1)
maxs = Max(Log(High[0+k]/Low[0])/Sqrt(k),maxs)
next
x1 = max1/avg
xs = maxs/avg
endif

xp= kpoSensitivity*(average[3](x1)-average[3](xs))
xpAbs = Abs(xp)

kpoBuffer = xp
kphBuffer = xp

tmpVal = average[50](xpAbs)+kpoDeviations*std[50](xpAbs)
maxVal = Max(90.0,tmpVal)
minVal = Min(90.0,tmpVal)

if (kpoBuffer > 0) then
kpdBuffer = maxVal
kpmBuffer = minVal
else
kpdBuffer = -maxVal
kpmBuffer = -minVal
endif
kppbuffer=0
if (not allPeaksMode) then
if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2] and kpoBuffer[1]>= maxVal) then
kppBuffer = kpoBuffer[1]
endif
if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2] and kpoBuffer[1]<=-maxVal) then
kppBuffer = kpoBuffer[1]
endif
else
if (kpoBuffer[1]>0 and kpoBuffer[1]>kpoBuffer[0] and kpoBuffer[1]>=kpoBuffer[2]) then
kppBuffer = kpoBuffer[1]
endif
if (kpoBuffer[1]<0 and kpoBuffer[1]<kpoBuffer[0] and kpoBuffer[1]<=kpoBuffer[2]) then
kppBuffer = kpoBuffer[1]
endif
endif
endif

return kphBuffer coloured(105,105,105) style(histogram), kpoBuffer coloured(105,105,105) style(line,2), kpdBuffer coloured(255,0,255), kpmBuffer coloured(0,191,255), kppBuffer coloured(255,0,255) style(histogram,2)

//105,105,105=grey
//255,0,255=pink
//0,191,255=blue

Bard

Participant

Topics: 138

Replies: 814

Been thanked: 99 times

08/17/2018 at 11:09 AM #78439

ALE

Hello Bard

Thanks for your comment.

I’m on holiday I’ll do it asap

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

08/17/2018 at 2:04 PM #78467

Bard

Hello ALE,
Thank you, I really don’t mind waiting. Enjoy your holiday and relax if you wish.
Cheers
Bard

Bard

Participant

Topics: 138

Replies: 814

Been thanked: 99 times

08/18/2018 at 10:43 AM #78521

ALE

😉

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

09/01/2018 at 4:48 PM #79526

Olivier Martinez

Hi Ale

I hope you has passed great holidays.

The indicator is very interesting, have you been able to use this indicator in a automated strategy ?

Thank you a lot

Olivier Martinez

Participant

Topics: 6

Replies: 6

Been thanked: 0 times

09/02/2018 at 9:48 AM #79553

ALE

Hello

please find version with Universal code.

Please let me know as you would want to interpret the indicator kase,

1 user thanked author for this post.

Bard

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

09/02/2018 at 9:52 AM #79556

ALE

@Martinez
this is indicator is based on oscillator mentioned in the indicator. So it could be use like an oscillator…

ALE

Moderator

Topics: 17

Replies: 570

Been thanked: 223 times

Author

Posts

Viewing 15 posts - 16 through 30 (of 62 total)

← 1 2 3 4 5 →

Find exclusive trading pro-tools on