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 ....
PULLBACKS for Amibroker (AFL)
Copy & Paste Friendly
Back
("jayeshbhai 1.1 + Roc"); //OptimizerSetEngine("cmae"); SetChartOptions(0,chartShowArrows|chartShowDates); SetChartBkColor(ColorRGB(49,79,79)); _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) )); Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); SetBarsRequired(sbrAll,sbrAll); xx =Cum(1); //nbar =Optimize("NBar",Param("nbar",5,2,400,1),2,400,1); //nbar =Optimize("nbar",Param("nbar",6,1,21,1),5,21,1); nbar = 6; //FB[0] = 0.28;FB[1] = 0.28; FB[2] = 0.38; FB[3] = 0.50; FB[4] = 0.61; FB[5] = 1; FB[6] =1.61; FB[7] = 2.61; FB[8] = 4.23; //FibNum = Optimize("FBindex",Param("FBindex",0.16,0.10,0.50,0.01),0.10,0.50,0.01); FibNum = 0.16; //FibNum =FB[FBindex]; //F=Optimize("F",Param("F",10,5,50,1),5,50,1); f = 10; // define fractals PHigh = C > Ref(HHV(C,nbar),-1) AND Ref(HHV(C,nbar),0) <= C; PHighPrice =ValueWhen(PHigh,C); PLow = C < Ref(LLV(C,nbar),-1) AND Ref(LLV(C,nbar),0) >= C; PLowPrice = ValueWhen(PLow,C); //PlotShapes(shapeSmallCircle*PLow,colorGreen,0,L,-10); //PlotShapes(shapeSmallCircle*PHigh,colorRed,0,H,10); R = PHighPrice - PLowPrice; // range //R4 = PHighPrice-(R *0.11 ); //S4 = PLowPrice +(R *0.11); R4 = PHighPrice -(R * FibNum ); S4 = PLowPrice + (R * FibNum ); BSL= PLowPrice; SSL= PHighPrice; //Plot(R4, "",colorOrange,styleStaircase); //Plot(S4, "",colorGreen,styleStaircase); //Plot(SSL, "",colorAqua,styleStaircase); //Plot(BSL, "",colorAqua,styleStaircase); //Buy = Cover = Cross(C, S4); //Sell = Short = Cross(R4, C); BuyFlag_ = False; SellFlag =False; BuyFlag = False; temp1 =True; temp2= True; FinalSell =False; FinalBuy = False; for (i=1 ; i < BarCount ; i++){ if(PHigh[i]){ SellFlag =True; BuyFlag = False; } if(SellFlag){ if( (C[i-1] > R4[i-1] AND C[i] < R4[i]) AND temp1 ) { SellFlag=False; FinalSell[i]=True; temp2=True; temp1=False; } } if(temp2){ if( C[i] > PHighPrice[i-1] ){ FinalBuy[i]=True; temp2=False; temp1=True; } } if(PLow[i]){ BuyFlag = True; SellFlag =False; } if(BuyFlag){ if( (C[i-1] < S4[i-1] AND C[i] > S4[i]) AND temp2 ){ BuyFlag=False; BuyFlag_=True; FinalBuy[i]=True; temp2=False; temp1=True; } } if(temp1){ if( C[i] < PLowPrice[i-1] ){ FinalSell[i]=True; temp2=True; temp1=False; } } } test1Flag = False; test2Flag = False; test1Flag_ = False; test2Flag_ = False; JackPotSell = False; JackPotBuy = False; JackPotCover = False; JackPotShort = False; t1 = False; t2 = False; t3 = False; t4 = False; t5 = False; R = ROC(Close,F); for (i=1 ; i < BarCount ; i++){ if((FinalBuy[i])){ if(t5){ JackPotCover[i]= True; t5 =False; } t1 = True; } if(R[i] > 0 ){ if(t1){ JackpotBuy[i] = True; t3 = True; t1= False; } } if((FinalSell[i])){ if(t3){ JackPotSell[i]= True; t3 =False; } t4 = True; } if(R[i] < 0 ){ if(t4){ JackPotShort[i] = True; t5 = True; t4= False; } } } //Plot(StoMom, _DEFAULT_NAME(), ParamColor("Color", ColorCycle ) ); _SECTION_END(); pivot = ParamToggle("pivot","Show|Hide",0); Buyselllable = ParamToggle("Buysell-lable","Show|Hide",0); NormalCandle=ParamToggle("Plot Normal Candle", "No,Yes", 1 ); messageboard = ParamToggle("Message Board","Show|Hide",0); font = ParamToggle("font","Show|Hide",1); GraphXSpace = Param( "GraphXSpace", 8, 2, 200, 1 ); p = 4; //p = Param("p",5,2,100,1); _SECTION_BEGIN("Trend Lines"); //p1 = Param("TL 1 Periods", 20, 5, 50, 1); p1 = 29; p2 = 7; //p2 = Param("TL 2 Periods", 5, 3, 25, 1); TL1 = LinearReg(C, p1); TL2 = MA(TL1, p2); Col1 = IIf(TL1 > TL2, ParamColor("TL Up Colour", colorGreen), ParamColor("TL Dn Colour", colorRed)); Plot(TL1, "TriggerLine 1", Col1, styleLine|styleThick|styleNoLabel); Plot(TL2, "TriggerLine 2", Col1, styleLine|styleThick|styleNoLabel); _SECTION_END(); SetChartOptions(0,chartShowArrows|chartShowDates); //_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) )); //SetChartBkGradientFill(ParamColor("Top", colorTeal), ParamColor("Bottom", colorLightGrey), ParamColor("Title", colorTeal)); //SetChartBkColor(colorTeal); //SetForeign(Vr); Om=DEMA(O,p); hm=DEMA(H,p); lm=DEMA(L,p); Cm=DEMA(C,p); HAC=(Om+Hm+Lm+Cm)/4; //HaC =(O+H+L+C)/4; HaO = AMA( Ref( HaC, -16 ), 0.5 ); HaH = Max( H, Max( HaC, HaO) ); HaL = Min( L, Min( HaC, HaO) ); HAClose=(Om+Hm+Lm+Cm)/4; //HaC =(O+H+L+C)/4; HaOpen = AMA( Ref( HaC, -1 ), 0.5 ); HaHigh = Max( H, Max( HaC, HaO) ); HaLow = Min( L, Min( HaC, HaO) ); BG3=HHV(LLV(HaL,18)+ATR(8),10); BR3=LLV(HHV(HaH ,4)-ATR(4),2); co = IIf(Hac>BG3 ,colorDarkGreen,IIf(Hac < BR3,colorDarkRed,colorGrey50)); Plot(4, "", Co,styleArea+styleOwnScale | styleNoLabel, -1, 100); RestorePriceArrays(); if(NormalCandle==1 ) { PlotOHLC( Hac, Hao, Hah, Hal, " " , co, styleCandle | styleThick ); } else { //PlotOHLC( Open, High, Low, Close, " " ,co, styleCandle | styleThick ); } //Plot( C, "Close", colorWhite, styleCandle, Zorder = 1); SetChartOptions(0,chartShowArrows | chartShowDates); tempo = TimeNum() > 091000 AND TimeNum() < 165000; saida = TimeNum() > 170000; Buy = TL1>TL2 AND jackpotsell ; Short = TL1<TL2 AND JackPotCover ; Buy = ExRem(Buy,Short); Short = ExRem(Short,Buy); Sell = Short OR saida; Cover = Buy OR saida; PlotShapes( IIf( Buy == 1, shapeUpArrow, shapeNone ), colorLime, 0, Low ); PlotShapes( IIf( Short == 1, shapeDownArrow, shapeNone ), colorRed, 0, High ); GraphXSpace = 8;dist = 1.2*ATR(21); for( i = 0; i < BarCount; i++) { if( Buy[i] ) PlotText( "" + C[ i ], i, L[ i ]-dist[i], colorLime ); if( Short[i] ) PlotText( "" + C[ i ], i, H[ i ]+dist[i], colorRed); }