Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
PandoRa V.3 by MRTQ13 of Bangladesh for Amibroker (AFL)
Rating:
3 / 5 (Votes 10)
Tags:
amibroker, pivots, timeframe
Amazing concept by MRTQ13 regarding Trading in zones
Similar Indicators / Formulas
Time Channel
Submitted
by Neo over 12 years ago
Pivots And Prices And Swing Volume
Submitted
by esnataraj over 14 years ago
Tomorrow's pivots
Submitted
by morgen over 13 years ago
Camarilla Pivots
Submitted
by novicetraders over 14 years ago
Woodie's Price Panel With Woodie's Pivots
Submitted
by kaiji almost 15 years ago
Pivot Point - CDP
Submitted
by rajugm over 14 years ago
Indicator / Formula
Copy & Paste Friendly
_SECTION_BEGIN("Background_Setting"); SetChartBkGradientFill( ParamColor("BgTop", colorBlack), ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorDarkGrey )); _SECTION_END(); _SECTION_BEGIN("Flower"); Show_color = ParamToggle("Display CandleColor", "No|Yes", 1); r1 = Param( "ColorFast avg", 5, 2, 200, 1 ); r2 = Param( "ColorSlow avg", 10, 2, 200, 1 ); r3 = Param( "ColorSignal avg", 5, 2, 200, 1 ); Prd1=Param("ATR Period",4,1,20,1); Prd2=Param("Look Back",7,1,20,1); green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2); red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2); flowerClose = EMA((Open+High+Low+Close)/4,3) ; flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3); Temp = Max(High, flowerOpen); flowerHigh = EMA(Max(Temp, flowerClose),3); Temp = Min(Low,flowerOpen); flowerLow = EMA(Min(Temp, flowerClose),3); m1=MACD(r1,r2); s1=Signal(r1,r2,r3); mycolor=IIf(m1<0 AND m1>s1, colorYellow,IIf(m1>0 AND m1>s1,colorGreen,IIf(m1>0 AND m1<s1,colorCustom12,colorRed))); if(Show_color) { ColorHighliter = myColor; SetBarFillColor( ColorHighliter ); } barColor=IIf(C>Green ,colorBrightGreen,IIf(C < RED,colorRed,colorWhite)); PlotOHLC( IIf(flowerOpen<flowerClose, flowerOpen, flowerClose),flowerHigh,flowerLow,IIf(flowerOpen<flowerClose, flowerClose, flowerOpen), "Close", barColor, styleNoTitle | styleCandle); _SECTION_END(); //********************************************************************************** // Plot price horizontal line * //**********************************************************************************/ _SECTION_BEGIN("Price Line"); PriceLineColor=ParamColor("PriceLineColor",ColorRGB(82,82,82)); PriceLevel = ParamField("PriceField", field = 3 ); Daysback = Param("Bars Back",100,10,500,1); FirstBar = BarCount - DaysBack; YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null); Plot(YY,"Current Price",PriceLineColor,ParamStyle("LineStyle",styleLine|styleDashed|styleNoTitle|styleNoLabel|styleThick,maskAll)); side = Param("side",1,0,1000,1); dist = 0; for( i = 0; i < BarCount; i++ ) { if(i+side== BarCount) PlotText( "\n " + PriceLevel[ i ], i, YY[ i ]-dist[i], colorLightBlue ); } _SECTION_END(); _SECTION_BEGIN("Color_Me_Bad"); a =5; //Param("Average Pds", 5, 1, 10, 1 ); n =8; //Param("Short Pds", 8, 5, 21, 1 ); m =60; //Param("Long Pds", 60, 0, 90, 1 ); Var4 =(Low+High+2*Close)/4; OP = EMA(Var4,a); res1 = HHV(OP,n); res2 =HHV(OP,m); sup2 =LLV(OP,m); sup1 =LLV(OP,n); Linecolor1 = IIf(Op==sup1,ColorRGB(48,0,81),IIf(Op==res1,colorGreen,ColorRGB(80,80,80))); Linecolor2 = IIf(Op==sup1,ColorRGB(38,0,60),IIf(Op==res1,colorGreen,colorDarkGrey)); Linecolor3 = IIf(Op==sup1,ColorRGB(27,0,70),IIf(Op==res1,colorGreen,ColorRGB(77,70,75))); _SECTION_END(); _SECTION_BEGIN("ATR"); ParmCloud1 = ParamToggle("TrailingCloud", "No|Yes", 1); Pp1=Param("Ray_Period1",2,1,20,1); // or 4 Pp2=Param("ATR_Period1",3,1,20,1); // or 2 avgClose = EMA((Open+High+Low+Close)/4,3) ; avgOpen = EMA((Ref(Open,-1) + Ref(avgClose,-1))/2,3); Temp = Max(High, avgOpen); avgHigh = EMA(Max(Temp, avgClose),3); Temp = Min(Low,avgOpen); avgLow = EMA(Min(Temp, avgClose),3); Plot(HHV(LLV(avgHigh,Pp1)-ATR(Pp2),4),"",Linecolor1 ,ParamStyle("styleLine 1",styleLine|styleThick|styleNoTitle|styleNoLabel,maskAll)); Plot(HHV(LLV(avgHigh,Pp1)-ATR(Pp2),5),"",Linecolor2 ,ParamStyle("styleLine 2",styleLine|styleThick|styleNoTitle|styleNoLabel,maskAll)); Plot(HHV(LLV(avgHigh,Pp1)-ATR(Pp2),6),"",Linecolor1 ,ParamStyle("styleLine 3",styleLine|styleThick|styleNoTitle|styleNoLabel,maskAll)); Plot(HHV(LLV(avgHigh,Pp1)-ATR(Pp2),7),"",Linecolor1 ,ParamStyle("styleLine 4",styleLine|styleThick|styleNoTitle|styleNoLabel,maskAll)); CS33=HHV(LLV(avgHigh,Pp1)-ATR(Pp2),4); CR33=HHV(LLV(avgHigh,Pp1)-ATR(Pp2),5); CT33=HHV(LLV(avgHigh,Pp1)-ATR(Pp2),6); CM33=HHV(LLV(avgHigh,Pp1)-ATR(Pp2),7); if(parmCloud1 == 1) { PlotOHLC( CS33, CS33, CR33,CR33, "Band1", LineColor1, styleCloud | styleNoLabel|styleNoTitle); PlotOHLC( CR33, CR33, CT33, CT33, "Band2", LineColor2, styleCloud | styleNoLabel|styleNoTitle); PlotOHLC( CR33, CR33, CM33, CM33, "Band3", LineColor3, styleCloud | styleNoLabel|styleNoTitle); } _SECTION_END(); _SECTION_BEGIN("Bands"); SupResB =Param("Sup-Res Short",6,0,100,1); nn=SupResB; Bandlinecol=ParamColor("SupResLineColor",ColorRGB(82,82,82)); ParmCloud = ParamToggle("Cloud", "No|Yes", 0); BoxCloudColor=ParamColor("BoxCloudColor",ColorRGB(27,27,27)); Line2=Param("ResLineLength",100,2,500,0.1); Daysback1 = Line2; FirstBar1 = BarCount - DaysBack1; Hh=HHV(flowerHigh,nn); LL=LLV(flowerLow,nn); Res2=Hh; Sup2=LL; BandRes=IIf(BarIndex() >= Firstbar1,EndValue(Res2),Null); BandSup=IIf(BarIndex() >= Firstbar1,EndValue(Sup2),Null); Plot(BandRes,"",Bandlinecol,ParamStyle("ShortSupBand",styleLine|styleDashed|stylehidden|styleNoTitle|styleNoLabel|styleThick,maskAll)); Plot(BandSup,"",Bandlinecol,ParamStyle("ShortResBand",styleLine|styleDashed|stylehidden|styleNoTitle|styleNoLabel|styleThick,maskAll)); CS=BandRes; CR=BandSup; if(parmCloud == 1) { PlotOHLC( CS, CS, CR,CR, "Band",BoxCloudColor, styleCloud | styleNoLabel|styleNoTitle); } _SECTION_END(); _SECTION_BEGIN("TSKPPIVOT4"); CHiPr = 0; CLoPr = 9999999; blsLong = 0; PrevCOBar = 0; NumBars = 0; PrePP = 0; PrevLowVal = 9999999; BuySig = 0; blsShort = 0; PrevHiVal = 0; blsNewCO = 0; BarDif = 0; KPA900Val = E_TSKPA900(Close); KPAutoStopVal = E_TSKPAUTOSTOP(High,Low,Close); // -- Create 0-initialized arrays the size of barcount aHPivs = H - H; aLPivs = L - L; aHiVal = H - H; aLoVal = L - L; Ctmpl = E_TSKPCOLORTMPL(Open,High,Low,Close,Volume); sctotal = 0; sctotal = sctotal + IIf(tskp_colortmplcnd0 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd1 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd2 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd3 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd4 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd5 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd6 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd7 > 0, 1, -1); sctotal = sctotal + IIf(tskp_colortmplcnd8 > 0, 1, -1); for (curBar=0; curBar < BarCount-1; curBar++) { if ( curBar == 0 ) { CHiPr = flowerHigh[curBar]; CHiBar = curBar; CLoPr = flowerLow[curBar]; CLoBar = curBar; blsLong = 0; blsShort = 0; blsNewCO = 0; PrePP = 0; PrevCOBar = 0; PrevHiVal =flowerHigh[curBar]; PrevLowVal = flowerLow[curBar]; BuySig = 0; SellSig = 0; blsLL = 0; } if (flowerHigh[CurBar] >= CHiPr) { CHiPr = flowerHigh[CurBar]; ChiBar = CurBar; } if (flowerLow[CurBar] <= CLoPr) { CLoPr = flowerLow[CurBar]; CLoBar = CurBar; } if ( (KPA900Val[curBar] >= KPAutoStopVal[curbar]) AND (PrePP != -1) AND (blsLong != 1) ){ BarDif = CurBar - PrevCOBar; if (BarDif >= NumBars) { blsLong = 1; blsShort = 0; blsNewCO = 1; PrevCOBar = CurBar; } } if ( (KPA900Val[curBar] <= KPAutoStopVal[curbar]) AND (PrePP != 1) AND (blsShort != 1) ){ BarDif = CurBar - PrevCOBar; if (BarDif >= NumBars) { blsLong = 0; blsShort = 1; blsNewCO = 1; PrevCOBar = CurBar; } } if ( (blsNewCO == 1) AND (sctotal[CurBar] >= 5) AND (blsLong == 1) ) { LVal = CurBar - CLoBar; for (j= CLoBar-1; j <= CLoBar+1; j++) { if (j >=0) { aLPivs[j] = 1; aLoVal[j] = CLoPr; } } PrePP = -1; blsNewCO = 0; CHiPr = flowerHigh[CurBar]; CHiBar = CurBar; CLoPr = flowerLow[Curbar]; CLoBar = CurBar; } else if ((blsNewCO == 1) AND (sctotal[CurBar] <= -5) AND (blsShort == 1) ) { HVal = CurBar - CHiBar; for (j= CHiBar-1; j <= CHiBar+1; j++) { if (j >=0) { aHPivs[j] = 1; aHiVal[j] = CHiPr; } } PrePP = 1; blsNewCO = 0; CHiPr = flowerHigh[CurBar]; CHiBar = CurBar; CLoPr = flowerLow[Curbar]; CLoBar = CurBar; } } PlotShapes( IIf(aHPivs == 1,shapeHollowSmallCircle,shapeNone),colorYellow ,0, aHiVal+0.05, offset = 5); PlotShapes( IIf(aLPivs == 1,shapeHollowSmallCircle,shapeNone), colorPink,0, aLoVal-0.05, Offset = -5); _SECTION_END(); _SECTION_BEGIN("SupRes_Short"); supresshortcolor=ParamColor("SupResShort",ColorRGB(82,82,82)); //this is for short term support line TimeFrameSet(inWeekly); ShortSupLenght=Param( "ShortResistLength", 4, 1, 55 ,1); ShortSupCond1=HHV(High,ShortSupLenght); ShortSupCond2=Close<Ref(LLV(Low,4),-1); ShortSupA=IIf(L>Ref(ShortSupCond2,-1),1,IIf(H<Ref(ShortSupCond1,-1),-1,0)); ShortSupB=ValueWhen(ShortSupA!=0,ShortSupA,1); ShortSupResult=IIf(ShortSupB==1,ShortSupCond1,ShortSupCond2); TimeFrameRestore(); FinalShortSup=TimeFrameExpand(ShortSupResult,inWeekly,expandFirst); Plot(FinalShortSup ,"ShortResistance",supresshortcolor,styleLine|styleStaircase|styleThick|styleNoRescale|styleNoLabel|styleNoTitle); //this is for short term resistance line TimeFrameSet(inWeekly); ShortResLenght=Param( "ShortSupportLenght", 4, 1, 55 ,1); ShortResCond1=Close>Ref(HHV(High,4),-1); ShortResCond2=LLV(Low,ShortResLenght); ShortResA=IIf(H>Ref(ShortResCond1,-1),1,IIf(L<Ref(ShortResCond2,-1),-1,0)); ShortResB=ValueWhen(ShortResA!=0,ShortResA,1); ShortResResult=IIf(ShortResB==1,ShortResCond2,ShortResCond1); TimeFrameRestore(); FinalShortRes=TimeFrameExpand(ShortResResult,inWeekly,expandFirst); Plot(FinalShortRes ,"ShortSupport",supresshortcolor,styleLine|styleThick|styleStaircase|styleNoRescale|styleNoLabel|styleNoTitle); CS=FinalShortSup; CR=FinalShortRes; Step = (CR-CS)/4; KC = CS + Step; KB = KC + Step; KA = KB + Step; CloudColor1 = ParamColor("CloudColor1",ColorRGB(128,31,17)); CloudColor2 = ParamColor("CloudColor2",ColorRGB(139,139,0)); CloudColor3 = ParamColor("CloudColor3",ColorRGB(1,70,1)); CloudColor4 = ParamColor("CloudColor4",ColorRGB(41,105,05)); PlotOHLC( CS, CS, KC,KC, "Band", CloudColor1, styleCloud | styleNoLabel|styleNoTitle|styleNoRescale); PlotOHLC( KC, KC, KB,KB, "Band", CloudColor2, styleCloud | styleNoLabel|styleNoTitle|styleNoRescale); PlotOHLC( KB, KB, KA,KA, "Band", CloudColor3, styleCloud | styleNoLabel|styleNoTitle|styleNoRescale); PlotOHLC( KA, KA, CR,CR, "Band", CloudColor4, styleCloud | styleNoLabel|styleNoTitle|styleNoRescale); _SECTION_END(); _SECTION_BEGIN("SupRes_Long"); supreslongcolor=ParamColor("SupReslong",ColorRGB(0,0,234)); //this is for long term resistance line TimeFrameSet(inWeekly); LongResLength=Param( "ResistanceLength", 30, 1, 55 ,1); LongResCond1=HHV(H,LongResLength); LongResCond2=Close<Ref(LLV(Low,4),-1); LongResA=IIf(L>Ref(LongResCond2,-1),1,IIf(H<Ref(LongResCond1,-1),-1,0)); LongResB=ValueWhen(LongResA!=0,LongResA,1); LongResResult=IIf(LongResB==1,LongResCond1,LongResCond2); TimeFrameRestore(); FinalResResult=TimeFrameExpand(LongResResult,inWeekly,expandFirst); Plot(FinalResResult ,"Resistance",supreslongcolor,styleLine|styleThick|styleNoRescale|styleNoLabel|styleNoTitle); //this is for long term support line TimeFrameSet(inWeekly); LongSupLenght=Param( "SupportLenght", 30, 1, 55 ,1); LongSupCond1=Close>Ref(HHV(High,4),-1); LongSupCond2=LLV(Low,LongSupLenght); LongSupA=IIf(H>Ref(LongSupCond1,-1),1,IIf(L<Ref(LongSupCond2,-1),-1,0)); LongSupB=ValueWhen(LongSupA!=0,LongSupA,1); LongSupResult=IIf(LongSupB==1,LongSupCond2,LongSupCond1); TimeFrameRestore(); FinalSupResult=TimeFrameExpand(LongSupResult,inWeekly,expandFirst); Plot(FinalSupResult ,"Support",supreslongcolor,styleLine|styleThick|styleNoRescale|styleNoLabel|styleNoTitle); CloudResColor=ParamColor("LongColor",ColorRGB(0,0,45)); CS1=FinalResResult; CR1=FinalSupResult; PlotOHLC( CS1, CS1, CR1,CR1, "", CloudResColor, styleCloud |styleStaircase|styleNoRescale| styleNoLabel|styleNoTitle); _SECTION_END(); _SECTION_BEGIN("PanDora"); /////////////////////////////////// Title = EncodeColor(colorWhite)+ Title = Name () + " | " +EncodeColor(colorYellow) + Date() + " | " +EncodeColor(colorTurquoise)+ "Open : "+ EncodeColor(colorLightGrey)+ O + " | " +EncodeColor(colorTurquoise)+ "High : "+ EncodeColor(colorLightGrey)+ H + " | " +EncodeColor(colorTurquoise)+ "Low : "+ EncodeColor(colorLightGrey)+ L + " | " +EncodeColor(colorTurquoise)+ "Close : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ C + " | " +EncodeColor(colorTurquoise)+ "Change : ("+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed)) + WriteVal(C-Ref(C,-1))+" Tk." +EncodeColor(colorTurquoise)+ " /"+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal( ROC( C, 1 ))+""+ " % " +EncodeColor(colorTurquoise)+ ") | Volume : " + WriteIf(V> Ref(V, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(V,1) ;
36 comments
Leave Comment
Please login here to leave a comment.
Back
not working getting error
error afl
delete..sorry double post
It is required Amibroker Version 5.4
It’s a great afl, Hats off to mrtq13
Nothing error here..
I am using Amibroker Version 5.4. Still it is showing error.
Rakesh brother in which line it shows error…pls. specify
in my side it does not show any error..
Can you explain how to use this indicator for trading ?
Thanks,
Gopal
Line- 186,187 & 196 shows “Syntax error”
Line- 198,199,200,201,202,203,204,205,206 shows variale ‘tskp_colortmplcnd’ used without having been initialized.
Pls. do something about those errors…
Dear rh0390
Error starts from Line No. 186. Error mentioned below.
KPA900Val = E_TSKPA900(Close);
rh0390 how can i down load amibrokar 5.4 full ver
pcdpcd35@gmail.com
People getting errors please install the plugin from the foundation indicator
this is one of the best AFLs any1 has ever shared….this AFL is recently shared by GURU MRTQ13 of Bangladesh…i would request u to post a picture of the AFL so that ppl can have idea how good it is for trading…here he used his developed box instead of bollinger band which is really helpful…..Guru MRTQ13 is really kind and broad minded guy who shared many of his outstanding creations with us for free…GOD bless him….
EROR AFL
!!!!!!!!!!!!!!!!!!!
u need to have plugin to run this AFL…
sorry for late…actually Admin. already give the solution
It required “kpami” plugin which is also use in foundation..
Pls. use that plugin and enjoy it..
amazing afl it is. Very nice.But analysis facility not here. I request the admin please modify afl and provide scanning facility.Without scanning facility any good afl is waste.
Dear Admin,
I am using AmiBroker 5.20. Please tell me If I install 5.4 full version then whether I have to set my indicators again? Or it will work for the new installment.
this Afl not amazing ,simple formula
Jump to sell because it gives me a warning Buy
4 days after the sale of the formula gives me a warning
از دوستان کسی کرک آمی بروکر 5.40 رو داره ؟ خوشحال میشم یاری کنه
THIS AFL NOT WORKING
CODE ….
kuzukapama,this is an indicator.It is not for buy/sell signal.
plugin?
where ؟
Which sites instal plugin?
Address؟
how to instal plugin ?
gangadhar bro.
There is no reason for using Scan or Backtest for PanDora. It is not a Trading System in the general sense. It is,in my opinion,just an indicator created mainly for PATTERN recognitions. Besides,I personally don’t believe in Scan and Backtest stuffs. They never worked for me!!! I’m half mechanical and half discretionary trader. (as per mrtq13)
mr rh0390 ,
you good and best indicator for share ?
im need good indicator
Complete
good
best
This AFl is perfectly working in amibroker 5.30. Thanks to mention that the plugin is same as foundation plugin.
MRTQ13 boss onek valo kaj kortesen. Ami oner theke amibroker autofeed soft er jonno wait korsi.
Apnader kase ki ase,rh0390?
eliteliy
Thank you for the explanation there
This is a nice looking crap…Just twitked Kwikpop code and the Band sucks if you really want to use it for trading..
I am using amibroker 5.40, i am getting error on the line KPA900Val = E_TSKPA900(Close); kindly clarify.
Please down load this files in to your Amibroker
http://www.wisestocktrader.com/indicators/174-the-foundation-by-southwind-v-13-00-int
Vasu
Yes. This indicator worth the effort to study, and continue to work on the Entry and Exit…
Looks like this is not a live indicator & buy/sell signals changes similar to zigzag indicator.
can anybody confirm ?
can this AFL scan or explore?
not working
This AFL doesn’t work many ERR
KINDLY CHECK AND POST AGAIN I am using AimBroker v5.50
Does anybody know what
KPA900Val[curBar]
and
KPAutoStopVal[curbar]
do ?
Rakesh Kumar
see pra tts on ur demand
Getting error, someone plz update this code. Thanks