_SECTION_BEGIN("Trend Blaster V4.0"); SetChartBkColor(ParamColor("Outer panel color ",colorLightYellow)); SetChartBkColor(ParamColor("BackGround Color", colorDarkGrey)); no = Optimize("TSL",Param("A (Change To Optimise)",3, 1, 55 ,1),1, 55 ,1); multiplier1 = Optimize("Multiplier1",Param("B (Change To Optimise)",21, 1, 55 ,1),1, 55 ,1); multiplier2 = Optimize("Multiplier2",Param("C (Change To Optimise)",55, 1, 55 ,1),1, 55 ,1); multiplier3 = Optimize("Multiplier3",Param("D (For Zoom Scan Only)",12, 1, 55 ,1),1, 55 ,1); showtsl =ParamToggle("Show SL Line","Yes|No",1); AudioAlert = ParamToggle("Human Voice Alert", "Yes|No"); AlertOutput = ParamToggle("Alert Output", "Yes|No"); showvol =ParamToggle("Show Volume","No|Yes"); showhl =ParamToggle("Show Day High / Low","No|Yes"); aggressivemode =ParamToggle("Aggressive Mode","Yes|No",0); CloseAtEnd = ParamToggle("Close Positions EOD", "No|Yes"); ZoomScan = ParamToggle("Zoom Scan", "No|Yes"); ShowBands = ParamToggle("Show Trending Bands", "No|Yes"); supres=ParamToggle("Show Support / Resistance","No|Yes"); ShowCrossover = ParamToggle("Show Crossover", "No|Yes"); EmailAlert = ParamToggle("E-mail Alert", "No|Yes"); showtrendline = ParamToggle("Show Trend Line", "No|Yes"); fibs = ParamToggle("Plot Fibonacci Retracement","No|Yes"); text = ParamToggle("Plot Fibonnaci As Text","No|Yes",0); mktclose=Param("Market Close Time",152500,000000,235959,1 ); showsystemname =ParamToggle("Show System Name","No|Yes",0); showsitename =ParamToggle("Show Website Name","No|Yes",0); showenquiryno =ParamToggle("Show Enquiry No","Yes|No",0); systemname = ParamStr( "System Name Name", "DTRP-T V 4" ); sitename = ParamStr( "Website Name", "When your Talent is not afford to support your ambitions. Then you should STOP Learning...." ); enquiryno = ParamStr( "Enquiry Number", "Be Coooolllll" ); decorativeheader = ParamToggle("Decorative Header", "Yes|No",0); Param_Margin = Param("Margin required (used for backtesting only)", 15,0.001,100,0.001); Param_LotSize = Param("Lot Size (used for backtesting only)", 1,1,5000,1); Param_NoOfLots = Param("No of lots normally traded (used for backtesting only)",1,1,10000,1); FS=Param("MM Price Font Size",75,11,100,1); Hor=Param("MM Price Horizontal Position",191,1,1200,1); Ver=Param("MM price Vertical Position",83,1,830,1); atsmode =ParamToggle("Basic ATS For Nest Trader","No|Yes",0); C13=20; C14=2.1; C15=12; Miny = Status("axisminy"); Maxy = Status("axismaxy"); lvb = Status("lastvisiblebar"); fvb = Status("firstvisiblebar"); pxwidth = Status("pxwidth"); pxheight = Status("pxheight"); EntrySignal = C > ( LLV( L, 20 ) + 2 * ATR( 10 ) ); ExitSignal = C < ( HHV( H, 20 ) - 2 * ATR( 10 ) ); Color = IIf( EntrySignal, colorgreen, IIf( ExitSignal, colorRed, colorLightGrey )); Plot( C, "Price", Color, styleCandle | styleThick ); if (showvol==1) { Plot( Volume, _DEFAULT_NAME(), colorLightGrey, styleHistogram | styleOwnScale ); } if (atsmode==0) { if (aggressivemode == 0) { TimeFrameSet(Interval()); dres=HHV(H,no); dsup=LLV(L,no); davd=IIf(H>Ref(dres,-1),1,IIf(Ldtsl; dS=LRef(wres,-1),1,IIf(LWTSL; WS=LRef(mres,-1),1,IIf(LMTSL;//Cross(H,mtsl); MS=LRef(dres,-1),1,IIf(Ldtsl; dS=LRef(wres,-1),1,IIf(LWTSL; WS=LRef(mres,-1),1,IIf(LMTSL;//Cross(H,mtsl); MS=L WTSL AND Low > MTSL), DB, ((WB AND Low > DTSL AND Low > MTSL) OR (MB AND Low > DTSL AND Low > WTSL))); Sell=IIf(CloseAtEnd==False, (DS OR (DS AND WS) AND (Low > MTSL)), (DS OR (DS AND WS) AND (Low > MTSL)) OR TimeNum() > mktclose); Short = IIf((High < WTSL AND High < MTSL), DS, (WS AND High < DTSL AND High < MTSL) OR (MS AND High < DTSL AND High < WTSL)); Cover=IIf(CloseAtEnd==False, (DB OR (DB AND WB) AND (High < MTSL)), (DB OR (DB AND WB) AND (High < MTSL)) OR TimeNum() > mktclose); } if (atsmode==1) { atscode =ParamToggle("I Have My ATS Code","Yes|No",0); dres=HHV(H,no); dsup=LLV(L,no); davd=IIf(C>Ref(dres,-1),1,IIf(C tar1, 0); buyach2 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar2, 0); buyach3 = IIf((Buy OR Long AND NOT Relax AND NOT Cover AND NOT Short AND NOT Shrt), H > tar3, 0); sellach1 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar1, 0); sellach2 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar2, 0); sellach3 = IIf((Short OR Shrt AND NOT Relax AND NOT Sell AND NOT Buy AND NOT Long), L < tar3, 0); Trend = ADX(14) > 25 AND NOT ADX(14) < Ref(ADX(14), -1); Range = ADX(14) < 25 AND NOT ADX(14) > Ref(ADX(14), -1); if (AudioAlert==True) { if (SelectedValue(Buy)==1) Say("JUST BUY BUY BUY JUST BUY IN "); if (SelectedValue(Short)==1) Say("JUST SALE SALE SALE JUST SALE IN "); if (atsmode==0) { if (SelectedValue(Sell AND NOT Short)==1) Say("CLEAR CLEAR BUY CLEAR BUY CLEAR IN "); if (SelectedValue(Cover AND NOT Buy)==1) Say("CLEAR CLEAR SALE CLEAR SALE CLEAR in "); } } if (EmailAlert==True) { AlertIf( Buy, "EMAIL", "Long signal generated on "+FullName(), 1 ); if (atsmode==0) { AlertIf( Sell AND NOT Short, "EMAIL", "Exit long signal generated on "+FullName(), 1 ); } AlertIf( Short, "EMAIL", "Short signal generated on "+FullName(), 1 ); if (atsmode==0) { AlertIf( Cover AND NOT Buy, "EMAIL", "Exit short signal generated on "+FullName(), 1 ); } } if (AlertOutput==True) { AlertIf( Buy, "", "Buy Signal Generated"+Name(), 4 ); AlertIf( Sell AND NOT Short, "", "Exit Long Signal Generated"+Name(), 4 ); AlertIf( Short, "", "Short Signal Generated"+Name(), 4 ); AlertIf( Cover AND NOT Buy, "", "Exit Short Signal Generated"+Name(), 4 ); } if (showtsl==True) { tsl = IIf(Buy OR Long OR Short OR Shrt AND NOT Relax, dtsl,Null); tslcolor = IIf(Buy OR Long AND NOT Relax, colorGreen, colorRed); Plot(tsl, "",tslcolor, styleLine|styleDots|styleThick); } SetChartOptions(0,chartShowArrows|chartShowDates); // Message Board ----------------- GfxSelectFont( "Tahoma", 13, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor ( colorWhite ); if ( SelectedValue( LastSignal ) == 1 ) { GfxSelectSolidBrush( colorDarkGreen ); } else { GfxSelectSolidBrush( colorDarkRed ); } pxHeight = Status( "pxchartheight" ) ; xx = Status( "pxchartwidth"); Left = 1100; width = 310; x = 5; x2 = 290; y = pxHeight; GfxSelectPen ( colorLightBlue, 1); // border color GfxRoundRect ( x, y - 155, x2, y , 7, 7 ) ; if (showenquiryno==0) { GfxTextOut ( (" " + enquiryno),13,y-145); } GfxTextOut ( ("" + WriteIf(trend, "Trending Market Condition " ,"")), 13, y-125); GfxTextOut ( ("" + WriteIf(range, "Rangebound Market Condition " ,"")), 13, y-125); GfxTextOut ( ("" + WriteIf(Buy, "Go Long At "+C+" - SL " +dtsl,"")), 13, y-105); GfxTextOut ( ("" + WriteIf (Short, "Go Short At "+C+" - SL " +dtsl,"")), 13, y-105); if (atsmode==0) { GfxTextOut ( ("" + WriteIf (Sell AND NOT Short, "Exit Long At "+C,"")), 13, y-105); GfxTextOut ( ("" + WriteIf (Cover AND NOT Buy, "Exit Short At "+C,"")), 13, y-105); } GfxTextOut ( ("" + WriteIf (Long AND NOT Buy, "Long At "+(BuyPrice)+" - TSL " + dtsl + "","")), 13, y-105); GfxTextOut ( ("" + WriteIf (shrt AND NOT Short, "Short At "+(SellPrice)+" - TSL " + dtsl + "","")), 13, y-105); GfxTextOut ( ("" + WriteIf (Relax, "Not In Trade - RELAX!!!","")), 13, y-105); GfxTextOut ( ("" + WriteIf (Long AND NOT Buy, "Current P/L: "+(C-BuyPrice)+" Points","")), 13, y-85); GfxTextOut ( ("" + WriteIf (shrt AND NOT Short, "Current P/L: "+(SellPrice-C)+" Points","")), 13, y-85); GfxTextOut ( ("" + WriteIf (Long OR Buy OR Shrt OR Short, "Target 1: "+tar1,"")), 13, y-65); GfxTextOut ( ("" + WriteIf (Long OR Buy OR Shrt OR Short, "Target 2: "+tar2,"")), 13, y-45); GfxTextOut ( ("" + WriteIf (Long OR Buy OR Shrt OR Short, "Target 3: "+tar3,"")), 13, y-25); GfxTextOut ( ("" + WriteIf (buyach1, "Target 1: "+tar1+" :: Achiecheved","")), 13, y-65); GfxTextOut ( ("" + WriteIf (sellach1, "Target 1: "+tar1+" :: Achiecheved","")), 13, y-65); GfxTextOut ( ("" + WriteIf (buyach2, "Target 2: "+tar2+" :: Achiecheved","")), 13, y-45); GfxTextOut ( ("" + WriteIf (sellach2, "Target 2: "+tar2+" :: Achiecheved","")), 13, y-45); GfxTextOut ( ("" + WriteIf (buyach3, "Target 3: "+tar3+" :: Achiecheved","")), 13, y-25); GfxTextOut ( ("" + WriteIf (sellach3, "Target 3: "+tar3+" :: Achiecheved","")), 13, y-25); if (decorativeheader==0) { x=1; y=1; GfxGradientRect( 1, 1, 1400, 40, colorGrey50, colorDarkGrey); GfxSetBkMode(0); GfxSelectFont( "Georgia", 18, 800, False ); GfxSetTextColor( colorWhite ); if (showsystemname==0) { GfxTextOut( systemname, x+615, y+10 ); } GfxSelectFont( "Tahoma", 16, 800, False ); GfxSetTextColor( colorGold ); GfxTextOut( Name(), x+10, y+10 ); GfxSelectFont( "Comic Sans MS", 15, 500, False ); GfxSetTextColor( colorYellow ); GfxTextOut( Interval(2), x+240, y+10 ); GfxSelectFont( "Comic Sans MS", 15, 500, False ); GfxSetTextColor( colorYellow ); GfxTextOut( Date(), x+375, y+10 ); //------------------------------------------------------------ H, L, O, C---------------------- GfxGradientRect( 1, 40, 1400, 55, colorGrey50, colorDarkGrey ); GfxSetBkMode(0); GfxSelectFont( "Areal", 9, 200, False ); GfxSetTextColor( colorWhite ); GfxTextOut( "Open:"+WriteVal(O,1.2), x+10, y+40 ); GfxSelectFont( "Areal", 9, 200, False ); GfxSetTextColor( colorWhite ); GfxTextOut( "High:"+WriteVal(H,1.2), x+110, y+40 ); GfxSelectFont( "Areal", 9, 200, False ); GfxSetTextColor( colorWhite ); GfxTextOut( "Low:"+WriteVal(L,1.2), x+210, y+40 ); GfxSelectFont( "Areal", 9, 200, False ); GfxSetTextColor( colorWhite ); GfxTextOut( "Close:"+WriteVal(C,1.2), x+310, y+40 ); GfxSetTextColor( colorWhite ); GfxSelectFont( "Tahoma", 9, 200, False ); GfxSetTextColor( colorWhite ); GfxTextOut( "Volume="+WriteVal(V,1.2), x+410, y+40 ); GfxSelectFont( "Calibri", 12, 100, False ); if (showsitename==0) { GfxTextOut( " "+sitename, x+300, y+80 ); } } if (decorativeheader==1) { Title = EncodeColor(colorYellow)+ Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorskyblue) + " - " + Date() +" - "+"\n" +EncodeColor(colorYellow) +"Open-"+O+" "+"High-"+H+" "+"Low-"+L+" "+"Close-"+C+" "+ "Volume= "+ WriteVal(V); if (showsystemname==0) { GfxSetBkMode( 1 ); GfxSelectFont("Tahoma", Status("pxheight")/C13 ); GfxSetTextAlign( 6 ); GfxSetTextColor( ColorRGB (217,217,213)); GfxTextOut( systemname, Status("pxwidth")/C14, Status("pxheight")/C15 ); if (showsitename==0) { GfxSelectFont("Tahoma", Status("pxheight")/C13*0.5 ); GfxSetTextColor( ColorRGB (103,103,103)); GfxTextOut( "By", Status("pxwidth")/C14, Status("pxheight")/C15*2.5 ); GfxSelectFont("Tahoma", Status("pxheight")/C13*0.5 ); GfxSetTextColor( ColorRGB (103,103,103)); GfxTextOut( sitename, Status("pxwidth")/C14, Status("pxheight")/C15*4 ); } GfxSelectFont("MS Sans Serif", 10, 500, False, False, 0); } } PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-25); PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-35); PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-30); PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=25); PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=35); PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-30); if (atsmode==0) { PlotShapes(IIf(Sell, shapeStar, shapeNone),colorGold, 0, L, Offset=-15); PlotShapes(IIf(Cover, shapeStar, shapeNone),colorGold, 0,L, Offset=-15); PlotShapes(IIf(CloseAtEnd==True AND TimeNum() > mktclose AND NOT Relax, shapeStar, shapeNone),colorGold, 0,L, Offset=-15); } if(ZoomScan==0) { //Settings for exploration Value1 = V; Value2 = V*(H-L); Value3 = V/(H-L); Climax = (Value2 == HHV(Value2,10)); VolumeBlast = V > Ref(V, -1) AND Climax AND V > 2*WMA( V, 8 ); Filter=Buy OR Short; AddColumn( IIf( Buy, 66 , 83 ), "Signal", formatChar, colorDefault, IIf( Buy , colorGreen, colorRed ) ); AddColumn(Close,"Entry Price",1.4, colorDefault, IIf( Buy , colorGreen, colorRed )); AddColumn(dtsl,"Stop Loss",1.4, colorDefault, IIf( Buy , colorGreen, colorRed )); AddColumn(tar1,"Target 1",1.4, colorDefault, IIf( Buy , colorGreen, colorRed )); AddColumn(tar2,"Target 2",1.4, colorDefault, IIf( Buy , colorGreen, colorRed )); AddColumn(tar3,"Target 3",1.4, colorDefault, IIf( Buy , colorGreen, colorRed )); AddColumn(Volume,"Volume",1.0, colorDefault, IIf (VolumeBlast,colorBlue,colorYellow)); } if(ZoomScan==1) { //Settings for exploration TimeFrameSet(multiplier3*Interval()); MyADX = ADX(14); TimeFrameRestore(); PassedOK = MyADX > Ref( MyADX, -1 ) AND MyADX > 25; Failed = MyADX < 25; PassedWeak = MyADX < Ref( MyADX, -1 ) AND MyADX > 25; TestStatus = WriteIf( PassedOK , "Passed OK", WriteIf(PassedWeak, "Passed Weak", "Failed")); Filter=PassedOK OR Failed OR PassedWeak; AddColumn(Close,"Last Close",1.4, colorDefault,IIf( PassedOK , colorGreen, IIf(PassedWeak, colorGrey50, colorRed))); AddTextColumn( TestStatus, "Test Status", colorDefault,IIf( PassedOK , colorGreen, IIf(PassedWeak, colorGrey50, colorRed))); } //Magfied Market Price GfxSelectFont("Times New Roman", FS, 700, True ); GfxSetBkMode( 1 ); GfxSetTextColor( colorRed ); GfxTextOut("Silver."+C, Hor , Ver ); YC=TimeFrameGetPrice("C",inDaily,-1); DD=Prec(C-YC,2); xx=Prec((DD/YC)*100,2); GfxSelectFont("Times New Roman", 24, 1000, True ); GfxSetBkMode( 1 ); GfxSetTextColor(colorBlack ); GfxTextOut(""+DD+" ("+xx+"%)", Hor+500 , Ver+45 ); _SECTION_BEGIN("Price"); SetChartOptions(0,chartShowArrows|chartShowDates); SetBarsRequired(sbrAll,sbrAll); SetBarFillColor(IIf(C>O,ParamColor("Candle Up Color", colorBrightGreen),IIf(C<=O,ParamColor("Candle Down Color", colorRed),colorLightGrey))); Plot(C,"Price",IIf(C>O,ParamColor("Shadow Up Color", colorBlack),IIf(C<=O,ParamColor("Shadow Down Color", colorBlack),colorLightGrey)),64,0,0,0,0); SetChartBkColor(ParamColor("Panel Color ",colorLightGrey)); SetChartBkGradientFill(ParamColor("Upper Chart",colorLightgrey),ParamColor("Lower Chart",colorLavender)); GraphXSpace=Param("GraphXSpace",20,-10,25,1); //=========================== Back ground Text =================== _SECTION_BEGIN("Background text"); GfxSetOverlayMode(1); GfxSelectFont("Tahoma", Status("pxheight")/23 ); GfxSetTextAlign( 0 );// center alignment //GfxSetTextColor( ColorRGB( 60, 45, 80 ) ); GfxSetTextColor( ColorHSB( 42, 42, 42 ) ); //GfxSetTextColor( ColorHSB( 5, 5,242) ); GfxSetBkMode(0); // transparent GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/12 ); GfxSelectFont("Tahoma", Status("pxheight")/12 ); GfxTextOut( "", Status("pxwidth")/2, Status("pxheight")/3 ); GfxSelectFont("Tahoma", Status("pxheight")/20 ); GfxTextOut( "", Status("pxwidth")/2, Status("pxheight")/2 ); GfxSelectFont("Tahoma", Status("pxheight")/40 ); GfxTextOut( "", Status("pxwidth")/7, Status("pxheight")/6); _SECTION_END(); _SECTION_BEGIN("Price"); SetChartOptions(0,chartShowArrows|chartShowDates); SetBarsRequired(sbrAll,sbrAll); SetBarFillColor(IIf(C>O,ParamColor("Candle Up Color", colorBrightGreen),IIf(C<=O,ParamColor("Candle Down Color", colorRed),colorLightGrey))); Plot(C,"Price",IIf(C>O,ParamColor("Shadow Up Color", colorBlack),IIf(C<=O,ParamColor("Shadow Down Color", colorBlack),colorLightGrey)),64,0,0,0,0); SetChartBkColor(ParamColor("Panel Color ",colorLightGrey)); SetChartBkGradientFill(ParamColor("Upper Chart",colorLightgrey),ParamColor("Lower Chart",colorLavender)); GraphXSpace=Param("GraphXSpace",20,-10,25,1); TimeFrameSet(inDaily); DayHigh = LastValue(H); DayLow = LastValue(L); TimeFrameRestore(); Title = Date() + ", Op=" + Open + ", Hi=" + High + ", Lo=" + Low + ", LTP=" + Close + ", Change= " + SelectedValue( ROC( C, 1 ) ) + "%" + "\n Today`s High=" + DayHigh + ", Today`s Low=" + DayLow + " © " ; prev=AMA2(C,1,0); d=IIf(C>Ref(Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),-1),Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))), IIf(CRef(state,-1); ss=state= 85500 AND TimeNum()<= 153500) AND (DateNum()==LastValue(DateNum())); FH_Range = (TimeNum() >= 085500 AND TimeNum()<= 093000) AND (DateNum()==LastValue(DateNum())); FH_Prices = High * FH_Range; FH_Marker = BarsSince(FH_Range>0); Num_Bars = 36000 / Interval(1); TimeFrameSet(inDaily); TOP_ = Open; PDH_ = Ref(High,-1); PDL_ = Ref(Low,-1); PDO_ = Ref(Open,-1); PDC_ = Ref(Close,-1); PDM_ = (PDH_+PDL_)/2; TimeFrameRestore(); isAll = True; isRth = TimeNum() >= 085400 AND TimeNum() <= 093000; isdRth = TimeNum() >= 085400 AND TimeNum() <= 160000; aRthL = IIf(isRth, L, 1000000); aRthH = IIf(isdRth, H, Null); aRthLd = IIf(isdRth, L, 1000000); TOP = TimeFrameExpand(TOP_,inDaily,expandFirst); PDH = TimeFrameExpand(PDH_,inDaily,expandFirst); PDL = TimeFrameExpand(PDL_,inDaily,expandFirst); PDO = TimeFrameExpand(PDO_,inDaily,expandFirst); PDC = TimeFrameExpand(PDC_,inDaily,expandFirst); PDM = TimeFrameExpand(PDM_,inDaily,expandFirst); FHH = Ref(HHV(High*FH_Range,Num_Bars),-FH_Marker); FHL = TimeFrameCompress( aRthL, inDaily, compressLow ); FHL = TimeFrameExpand( FHL, inDaily, expandFirst ); DayH = TimeFrameCompress( aRthH, inDaily, compressHigh ); DayH = TimeFrameExpand( DayH, inDaily, expandFirst ); DayL = TimeFrameCompress( aRthLd, inDaily, compressLow ); DayL = TimeFrameExpand( DayL, inDaily, expandFirst ); FC1=((PDH-PDL)*0.433); FC2=((PDH-PDL)*0.7666); FC3=((PDH-PDL)*1.355); FC4=(FHH-FHL); A=IIf((FC4<=FC1+PDH*0.005),FC1,0); B=IIf((FC4<=FC2+PDH*0.005 AND FC4>FC1+PDH*0.005),FC2,0); Cl=IIf((FC4<=FC3 AND FC4>FC2+PDH*0.005),FC3,0); AF=(A+B+Cl); //foreign _SECTION_BEGIN ("foreign Index bar graph"); Vr=ParamList("Index",List = "^NSEI,^NSEBANK,^CNXIT,^NSMIDCP,RELIANCE.NS,SB IN.N S",0); SetForeign(Vr); HaC =(O+H+L+C)/4; HaO = AMA( Ref( HaC, -1 ), 0.5 ); HaH = Max( H, Max( HaC, HaO) ); HaL = Min( L, Min( HaC, HaO) ); BG3=HHV(LLV(HaL,4)+ATR(4),8); BR3=LLV(HHV(HaH ,4)-ATR(4),8); co = IIf(Hac>BG3 ,colorTan,IIf(Hac < BR3,colorTan,colorTan)); Plot(4, "", Co,styleArea+styleOwnScale | styleNoLabel, -1, 100); RestorePriceArrays(); _SECTION_END(); BuyPrice=(DayL+AF); BuyTP1=(BuyPrice+(BuyPrice*(PerctakeProfit/100))); BuyTP2=(C>=BuyTP1); SellPrice=(DayH-AF); SellTP1=(SellPrice-(SellPrice*(PerctakeProfit/100))); SellTP2=(C<=SellTP1); percchange=(((C-TOP)/TOP)*100); Vol=(V>=Volmin AND V<=Volmax); Percentage=(percchange>=PercChangemin AND percchange<=PercChangemax); prc=(C>=priceRL AND C<=priceRH); BuyStop1=(BuyPrice-(BuyPrice*(PercStoploss/100))); BuyStop2=IIf((BuyStop1<=SellPrice) AND SellPrice<=BuyPrice,SellPrice,BuyStop1); SellStop1=(SellPrice+(SellPrice*(PercStoploss/100))); SellStop2=IIf((SellStop1>=BuyPrice) AND SellPrice<=BuyPrice, BuyPrice,SellStop1); BuyStop=IIf((Buy AND NOT BuyTP2),BuyStop2,Null); BuyTP=IIf(Buy AND NOT BuyStop,BuyTP2,Null); Bars = BarsSince(TimeNum() >= 85400 AND TimeNum() < 092900); x0 = BarCount-LastValue(Bars); x1 = BarCount-1; TOP_Line = LineArray(x0,LastValue(TOP),x1,LastValue(TOP),0); PDH_Line = LineArray(x0,LastValue(PDH),x1,LastValue(PDH),0); PDL_Line = LineArray(x0,LastValue(PDL),x1,LastValue(PDL),0); PDC_Line = LineArray(x0,LastValue(PDC),x1,LastValue(PDC),0); PDM_Line = LineArray(x0,LastValue(PDM),x1,LastValue(PDM),0); FHH_Line = LineArray(x0,LastValue(FHH),x1,LastValue(FHH),0); FHL_Line = LineArray(x0,LastValue(FHL),x1,LastValue(FHL),0); BuyPriceline=LineArray(x0,LastValue(BuyPrice),x1,LastValue(BuyPrice),2); BuyStopline=LineArray(x0,LastValue(BuyStop2),x1,LastValue(BuyStop2),2); BuyTPline=LineArray(x0,LastValue(BuyTP1),x1,LastValue(BuyTP1),0); SellPriceline=LineArray(x0,LastValue(SellPrice),x1 ,LastValue(SellPrice),2); SellStopline=LineArray(x0,LastValue(SellStop2),x1, LastValue(SellStop2),0); SellTPline=LineArray(x0,LastValue(SellTP1),x1,LastValue(SellTP1),0); DayHline=LineArray(x0,LastValue(DayH),x1,LastValue (DayH),0); DayLline=LineArray(x0,LastValue(DayL),x1,LastValue (DayL),0); style = styleLine | styleNoRescale|styleLine; Plot(BuyPriceline, "BuyPriceline",colorOrange , styleDashed|styleNoRescale|styleThick); Plot(SellPriceline, "SellPriceline",colorOrange ,styleDashed|styleNoRescale|styleThick); Plot(BuyStopline, "BuyStopline",colorBlack ,styleThick|styleNoRescale|styleThick); if( Status("action") == actionIndicator ) ( Title = EncodeColor(colorBlack)+ "Trading System" + " - " + Name() + " - " + EncodeColor(colorBlack)+ Interval(2) + EncodeColor(colorBlack) + " - " + Date() +" - "+ EncodeColor(colorBlack) + "-Open="+WriteVal(O,1) + EncodeColor(colorBlack) + "- High= "+ WriteVal(H,1)+ EncodeColor(colorBlack) + "- Close= "+ WriteVal(C,1)+ EncodeColor(colorBlack) + "- Vol= "+ WriteVal(V,1)+ WriteIf(Percchange, " % Change = "+(Percchange)+" ","")+("\n")+ " Previous DayHigh="+WriteVal(PDH,1)+", Previous DayLow="+WriteVal(PDL,1)+", Today High="+WriteVal(DayH,1)+", Todays Low="+WriteVal(DayL,1)+ Comm2=("\n "+Vr+" Phase: ")+ WriteIf(Hac>BG3,EncodeColor(colorBrightGreen)+"+Up ", WriteIf(Hac"))); GfxSetOverlayMode( mode = 0 ); GfxSelectPen( colorLightBlue, 3 ); GfxSelectSolidBrush( colorLightYellow ); GfxRoundRect( 20, 55, 180, 175, 15, 15 ); GfxSetBkMode(1); GfxSelectFont( "Arial", 10, 700, False ); GfxSetTextColor( colorBrown ); GfxSetTextAlign(0); GfxTextOut( WriteIf(BuyPrice, "Buy Above: "+(BuyPrice),""), 30, 75); GfxTextOut( WriteIf(SellPrice, "Sell Below: "+(SellPrice),""), 30, 120); GfxTextOut( WriteIf(Buystop2, "TRP level: "+(Buystop2),""), 30, 60); AddColumn(V,"Volume",1.0); AddColumn(Percchange,"Change %",1.2); AddColumn(BuyPrice,"Buy at",1.2); AddColumn(BuyStop,"Buy Stop at",1.2); AddColumn(BuyTP1,"Buy Profit at",1.2); AddColumn(SellPrice,"Short at",1.2); AddColumn(SellTP1,"Short profit at",1.2); } _SECTION_END(); //SetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )), //ParamColor("BgBottom", ColorRGB( 172,172,172 )),ParamColor("titleblock",ColorRGB( 172,172,172 ))); GraphXSpace = 16; SetChartBkColor(colorTan); SetChartOptions(0,chartShowArrows|chartShowDates); A = DEMA (H,180); B = EMA (H,100); G = DEMA (L,180); I = EMA(L,100); D = Min (G,I); E = Max (A,B); /* Buy or Sell Condition */ Buy =Cover= Cross(Close,E); Sell = Short=Cross(D,Close); Buy = ExRem(Buy,Sell); Sell = ExRem(Sell,Buy); SellPrice=ValueWhen(Sell,C,1); BuyPrice=ValueWhen(Buy,C,1); Filter = Buy OR Sell; /* Exploration Parameters */ AddTextColumn( FullName(), "Company Name" ); AddColumn( Buy, "Buy", 1 ); AddColumn( Sell, "Sell", 1 ); AddColumn( C, "Close", 1.3 ); AddColumn( H, "High", 1.3 ); Title = EncodeColor(colorWhite)+ " © (Equity) Market Trading System" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +" - "+"\n" +EncodeColor(colorRed) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+ "Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+ EncodeColor(colorLime)+ WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+ WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"\n"+EncodeColor(colorWhite); _SECTION_END(); Buy = ExRem(Buy,Sell); Sell = ExRem(Sell,Buy); //SetChartBkColor(colorBlack); //GraphXSpace = 10; _SECTION_BEGIN("imp 2500 plane for overlay only"); prev=AMA2(C,1,0); d=IIf(C>Ref(Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),-1),Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))), IIf(CRef(state,-1); ss=state Ref( ChandelierHL(ATR(3),20), -1); //e =Close < Ref( ChandelierHL(ATR(3),20), -1); //f = Close < Ref( ChandelierHL(ATR(3),20), -1); //g = Close > Ref( ChandelierHL(ATR(3),20), -1); DayH = SelectedValue(TimeFrameGetPrice("H", inDaily));// yesterdays high DayL = SelectedValue(TimeFrameGetPrice("L", inDaily));//low DayH1 = SelectedValue(TimeFrameGetPrice("H", inDaily, -1));// yesterdays high DayL1 = SelectedValue(TimeFrameGetPrice("L", inDaily, -1));//low DayH2 = SelectedValue(TimeFrameGetPrice("H", inDaily, -2));// yesterdays high DayL2 = SelectedValue(TimeFrameGetPrice("L", inDaily, -2));//low DayH3 = SelectedValue(TimeFrameGetPrice("H", inDaily, -3));// yesterdays high DayL3 = SelectedValue(TimeFrameGetPrice("L", inDaily, -3));//low DayH4 = SelectedValue(TimeFrameGetPrice("H", inDaily, -4));// yesterdays high DayL4 = SelectedValue(TimeFrameGetPrice("L", inDaily, -4));//low Range = ((DayH+DayH1+DayH2+DayH3+DayH4)/5 - (DayL+DayL1+DayL2+DayL3+DayL4)/5); sr3= (Range *0.702)+DayL; sr4= DayH-(Range *0.655); style = styleLine | styleNoRescale|styleLine; Plot(sr3, "SR3",colorblue , styleDashed|styleNoRescale|styleThick); Plot(sr4, "SR4",colorgreen ,styleDashed|styleNoRescale|styleThick); Bars_so_far_today = 1 + BarsSince( Day() != Ref(Day(), -1)); TT= RSIa(C,60); StartBar = ValueWhen(TimeNum() == 090000, BarIndex()); TodayVolume = Sum(TT,Bars_so_far_today); IIf (BarIndex() >= StartBar, VWAP = Sum (C * TT, Bars_so_far_today ) / TodayVolume,0); GraphXSpace = 16; A = DEMA (H,180); B = EMA (H,100); G = DEMA (L,180); I = EMA(L,100); D = Min (G,I); E = Max (A,B); /* Buy or Sell Condition */ Buy =Cover= Cross(Close,E); Sell = Short=Cross(D,Close); Buy = ExRem(Buy,Sell); Sell = ExRem(Sell,Buy); SellPrice=ValueWhen(Sell,C,1); BuyPrice=ValueWhen(Buy,C,1); Filter = Buy OR Sell; /* Exploration Parameters */ AddTextColumn( FullName(), "Company Name" ); AddColumn( Buy, "Buy", 1 ); AddColumn( Sell, "Sell", 1 ); AddColumn( C, "Close", 1.3 ); AddColumn( H, "High", 1.3 ); Title = EncodeColor(colorWhite)+ " " + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +" - "+"\n" +EncodeColor(colorRed) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+ "Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+ EncodeColor(colorLime)+ WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+ WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"\n"+EncodeColor(colorPink); _SECTION_END(); Buy = ExRem(Buy,Sell); Sell = ExRem(Sell,Buy); //GraphXSpace = 10; _SECTION_END();