Yogya Daily Trading System |
//www.aflcode.com _SECTION_BEGIN("Yogya Daily Trading System"); Overlaymode = ParamToggle("Overlay Mode", "Show|Hide",0); Fullsymbol = ParamToggle("Name/Industry", "Show|Hide",1); Day1 = ParamToggle("Week Separator", "Show|Hide",1); Ribbon5 = ParamToggle("Stock Ribbon", "Show|Hide",0); Sectorticker = ParamStr( "Sector Ticker", Name() ); Indexticker = ParamStr( "Índex Ticker", "Nifty 50" ); Sectorribbon5 = ParamToggle("Sector-Stock", "Show|Hide",0); Messageboardtext = ParamToggle("All Price", "Show|Hide",0); YPR=Param("Price Range",0.05,0,2,0.005); YPARANGE= Param("Price Range",0.005,0,0.3,0.001); Messageboard = ParamToggle("Analysis Message Board", "Show|Hide",0); Heading = ParamToggle("Heading", "Show|Hide",0); Datetime1 = ParamToggle("Date/Ltp", "Show|Hide",0); Datetime2 = ParamToggle("Today Action", "Show|Hide",0); Yhor=Param("Horizontal Position",1,0.001,1,0.001); Yver=Param("Vertical Position",0, -15, 100, 1); Yfont5 = Param("Font Size",0,-0.01,1,0.001); Ycandledays = Param( "Candle Days", 23, 5, 50000 ); // Candle Days To Determine High-Low Ypricefield = ParamField("Price Field",0); showtrendline = ParamToggle("Show Trend Line", "SHOW|HIDE", 0); Yspace=Param("Graphic Space",75,1,1000); Title = ""; Ygbody=C>=O; //First Candle Green Yrbody=C<O; // First Candle Red Ygbody1 = Ref(C,-1) >= Ref(O, -1); // Second Candle Green Yrbody1 = Ref(C,-1) < Ref(O, -1); // Second Candle Red Ygbody2 = Ref(C,-2) >= Ref(O, -2); // Third Candle Green Yrbody2 = Ref(C,-2) < Ref(O, -2); // Third Candle Red Yocspread = abs(O-C);// Body Of The First Candle Yhlspread = (H-L); // Length Of The First Candle Yocspread1 = abs(Ref(O,-1)- Ref(C, -1));// Body Of The Second Candle Yhlspread1 = Ref(H, -1)- Ref(L,-1); // Length Of The First Candle Yocspread2 =abs(C-(Ref(O,-1))); // Body Of First And Second Candle Yhlspread2= Max(H, Ref(H,-1))-Min(L,Ref(L,-1)); //Length Of First And Second Candle Ygapup = Open >Ref(Close,-1); // Gap Up In First Candle Ygapdown= Open < Ref(Close, -1);// Gap Down In First Candle Ygapup1 = Ref(Open,-1) >Ref(Close,-2); // Gap Up In First Candle Ygapdown1= Ref(Open, -1) < Ref(Close, -2);// Gap Down In First Candle Ybiggapup = Low > Ref(H, -1); // First Candle Low Is Greater Than Second Candle High Ybiggapdown = High < Ref(L, -1); // First Candle High Is Less Than Second Candle Low Ybiggapup1 = Ref(Low, -1) > Ref(H, -2); // Second Candle Low Is Greater Than Third Candle High Ybiggapdown1 = Ref(High, -1) < Ref(L, -2); //Second Candle High Is Less Than Third Candle Low Ybiggapup2 = Ref(Low, -2) > Ref(H, -3); // Third Candle Low Is Greater Than Fourth Candle High Ybiggapdown2 = Ref(High, -2) < Ref(L, -3); //Third Candle High Is Less Than Fourth Candle Low Ypclose = C>=Ref(C,-1); // Gain In First Candle Ynclose = C < Ref(C,-1); //Loss In First Candle Ypclose1 =Ref(C, -1) >=Ref(C,-2); // Gain In Second Candle Ynclose1 = Ref(C, -1) < Ref(C,-1); //Loss In Second Candle Ybopen = (O >= (Ref(High,-1)+Ref(Low,-1))/2) AND Yrbody1; // Bullish Open First Candle Ybeopen = (O < (Ref(High,-1)+Ref(Low,-1))/2) AND Ygbody1; // Bearish Open First Candle Yexbopen = O > Ref(H,-1); // Extreme Bullish Open First Candle Yexbeopen = O < Ref(L,-1); // Extreme Bearish Open First Candle Ybclose = C > Ref(H, -1); // Bullish Close First Candle Ybeclose = C < Ref (L, -1); // Bearish Close First Candle Ybclose1 = Ref(C, -1) > Ref(H, -2); // Bullish Close Second Candle Ybeclose1 = Ref(C, -1) < Ref (L, -2); // Bearish Close Second Candle Yaverage5 = Ref(MA(H, 5), -1) - Ref(MA(L, 5), -1); // Average Lenth Of Five Candle Yexbclose = C>= (L+Yhlspread*0.8) ; // Bullish Close(Closed At Upper End Of The Candle) Yexbeclose = C<=(L+Yhlspread*0.2) ; // Bearish Close(Closed At Lower End Of The Candle) Yexbclose1 = C>= (L+Yhlspread*0.8) AND Ypclose ; // Bullish Close(Closed At Upper End Of The Candle) Yexbeclose1 = C<=(L+Yhlspread*0.2) AND Ynclose ; // Bearish Close(Closed At Lower End Of The Candle) Ynuclose = (Yexbclose1==0 AND Yexbeclose1==0);// Neutral Close Topresistance = HHV(Ypricefield, Ycandledays)== Max(Ypricefield, Ref(Ypricefield, -1)); Yabandonedbabybearish= (Ygbody2 AND Ybiggapup1 AND Ybiggapdown AND Topresistance); Ybelowthestomach= (Ybeopen AND Ybclose1 AND Yrbody AND Topresistance); Ybeltholdbearish = (Yexbopen AND Yrbody AND Topresistance); Ybreakawaybearish = (Ybeopen AND Ybeclose AND Topresistance); Ydarkcloudcover= (Ygapup AND Ygbody1 AND Ynclose AND Topresistance); Yengulfingbearish= (Ygapup AND Ygbody1 AND Ybeclose AND Topresistance); Yeveningstar= (Ygbody2 AND Ygapup1 AND Ygapdown AND Ybeclose AND Topresistance) ; Yharamibearish = (Ygapdown AND Ygbody1 AND Yrbody AND Topresistance); Ykickingbearish = (Ygbody1 AND Yexbeopen AND Yrbody AND Topresistance); Yshootingstar= (Ygapup AND (Yocspread/Yhlspread) < 0.3 AND Yexbeclose AND Topresistance); Ytristarbearish= (Ybiggapup2 AND Ybiggapup1 AND Ybiggapdown AND Topresistance); Ydojibearish= ((Yocspread/Yhlspread) < 0.1 AND Topresistance); Ydojibearishyesterday= ((Yocspread1/Yhlspread1) < 0.1 AND Topresistance); Yonebarbearishwick= ((Yocspread/Yhlspread)< 0.25 AND Yexbeclose AND Topresistance); Ytwobarbearishwick= ((Yocspread2/Yhlspread2)< 0.25 AND Yexbeclose AND Topresistance); Ytheextremereversalbearish = ((Yhlspread/Yaverage5) > 3.5 AND C<= (L +Yhlspread*0.7) AND Topresistance); Ytopcandlebearish = (Yrbody AND Topresistance); Bottomsupport = LLV(Ypricefield, Ycandledays)== Min(Ypricefield, Ref(Ypricefield, -1)); Yabandonedbabybullish= (Yrbody2 AND Ybiggapdown1 AND Ybiggapup AND Bottomsupport); Yabovethestomach= (Ybopen AND Ybeclose1 AND Ygbody AND Bottomsupport); Ybeltholdbullish = (Yexbeopen AND Ygbody AND Bottomsupport); Ybreakawaybullish = (Ybopen AND Ybclose AND Bottomsupport); Yengulfingbullish= (Ygapdown AND Yrbody AND Ybclose AND Bottomsupport); Yhammer= (Ygapdown AND (Yocspread/Yhlspread) < 0.3 AND Yexbclose AND Bottomsupport); Yharamibullish = (Ygapup AND Yrbody1 AND Ygbody AND Bottomsupport); Ykickingbullish = (Yrbody1 AND Yexbopen AND Ygbody AND Bottomsupport); Ymorningstar= (Yrbody2 AND Ygapdown1 AND Ygapup AND Ybclose AND Bottomsupport) ; Ypiercingpattern= (Ygapdown AND Yrbody1 AND Ypclose AND Bottomsupport); Ytristarbullish= (Ybiggapdown2 AND Ybiggapdown1 AND Ybiggapup AND Bottomsupport); Ydojibullish= ((Yocspread/Yhlspread) < 0.1 AND Bottomsupport); Ydojibullishyesterday= ((Yocspread1/Yhlspread1) < 0.1 AND Bottomsupport); Yonebarbullishwick= ((Yocspread/Yhlspread)< 0.25 AND Yexbclose AND Bottomsupport); Ytwobarbullishwick= ((Yocspread2/Yhlspread2)< 0.25 AND Yexbclose AND Bottomsupport); Ytheextremereversalbullish = ((Yhlspread/Yaverage5) > 3.5 AND C>= (L +Yhlspread*0.4) AND Bottomsupport); Ybottomcandlebullish = (Ygbody AND Bottomsupport); Ytopbreak = Ypricefield >= Ref(HHV(Ypricefield, Ycandledays), -1); Yheavyvolume = Volume >= Ref(HHV(Volume, Ycandledays), -1); Ytopbreakout1= Ygapup AND Ygbody AND Ytopbreak AND Yheavyvolume; Ytopbreakout2= Ygapdown AND Ygbody AND Ytopbreak AND Ybclose; Ybottombreak = Ypricefield <= Ref(LLV(Ypricefield, Ycandledays), -1); Ybottombreakout1 = Ygapdown AND Yrbody AND Ybottombreak; Ybottombreakout2 = Ygapup AND Yrbody AND Ybottombreak AND Ybclose; Ctype = WriteIf(Yexbclose1, "Bullish Close", WriteIf(Yexbeclose1, "Bearish Close", WriteIf(Ynuclose, "Neutral Close",""))); Tcandle = WriteIf(Yabandonedbabybearish, "Abandoned Baby Bearish", WriteIf(Ybelowthestomach, "Belowthe Stomach", WriteIf(Ybeltholdbearish, "Belthold Bearish", WriteIf(Ybreakawaybearish, "Breakaway Bearish", WriteIf(Ydarkcloudcover, "Darkcloud Cover", WriteIf(Yengulfingbearish, "Engulfing Bearish", WriteIf(Yeveningstar, "Evening Star", WriteIf(Yharamibearish, "Harami Bearish", WriteIf(Ykickingbearish, "Kicking Bearish", WriteIf(Yshootingstar, "Shooting Star", WriteIf(Ytristarbearish, "Tristar Bearish", WriteIf(Ydojibearish, "Doji Bearish First Candle", WriteIf(Ydojibearishyesterday, "Doji Bearish Second Candle", WriteIf(Yonebarbearishwick, "Onebar Bearish Wick", WriteIf(Ytwobarbearishwick, "Twobar Bearish Wick", WriteIf(Ytheextremereversalbearish, "Extreme Reversal Bearish", WriteIf(Ytopcandlebearish, "Top Candle Bearish", WriteIf(Yabandonedbabybullish, "Abandoned Baby Bullish", WriteIf(Yabovethestomach, "Above The Stomach", WriteIf(Ybeltholdbullish, "Belthold Bullish", WriteIf(Ybreakawaybullish, "Breakaway Bullish", WriteIf(Ypiercingpattern, "Piercing Pattern", WriteIf(Yengulfingbullish, "Engulfing Bullish", WriteIf(Ymorningstar, "Morning Star", WriteIf(Yharamibullish, "Harami Bullish", WriteIf(Ykickingbullish, "Kicking Bullish", WriteIf(Yhammer, "Hammer", WriteIf(Ytristarbullish, "Tristar Bullish", WriteIf(Ydojibullish, "Doji Bullish First Candle", WriteIf(Ydojibullishyesterday, "Doji Bullish Second Candle", WriteIf(Yonebarbullishwick, "Onebar Bullish Wick", WriteIf(Ytwobarbullishwick, "Twobar Bullish Wick", WriteIf(Ytheextremereversalbullish, "Extreme Reversal Bullish", WriteIf(Ybottomcandlebullish, "Bottom Candle Bullish","")))))))))))))))))))))))))))))))))); Breakoutcandle = WriteIf(Ytopbreakout1, "Top Breakout Gapup", WriteIf(Ytopbreakout2, "Top Breakout Gapdown", WriteIf(Ybottombreakout1, "Bottom Breakout Gapdown", WriteIf(Ybottombreakout2, "Bottom Breakout Gapup","")))); Tcandlec = IIf( Yabandonedbabybearish OR Ybelowthestomach OR Ybeltholdbearish OR Ybreakawaybearish OR Ydarkcloudcover OR Yengulfingbearish OR Yeveningstar OR Yharamibearish OR Ykickingbearish OR Yshootingstar OR Ytristarbearish OR Ydojibearish OR Ydojibearishyesterday OR Yonebarbearishwick OR Ytwobarbearishwick OR Ytheextremereversalbearish OR Ytopcandlebearish, colorRed, IIf( Yabandonedbabybullish OR Yabovethestomach OR Ybeltholdbullish OR Ybreakawaybullish OR Ypiercingpattern OR Yengulfingbullish OR Ymorningstar OR Yharamibullish OR Ykickingbullish OR Yhammer OR Ytristarbullish OR Ydojibullish OR Ydojibullishyesterday OR Yonebarbullishwick OR Ytwobarbullishwick OR Ytheextremereversalbullish OR Ybottomcandlebullish, colorGreen, 0)); Breakoutcandlec =IIf(Ytopbreakout1 OR Ytopbreakout2, colorGreen, IIf(Ybottombreakout1 OR Ybottombreakout2, colorRed, 0)); Ctypec = IIf(Yexbclose1, colorGreen, IIf(Yexbeclose1, colorRed, 0)); Yath = Ref(HHV(Ypricefield, 2500), -1); // All Time High Yatl = Ref(LLV(Ypricefield, 2500), -1); // All Time Low Y2yh = Ref(HHV(Ypricefield, 500), -1); // 2 Year High Y2yl = Ref(LLV(Ypricefield, 500), -1); // 2 Year Low Y52wh = Ref(HHV(Ypricefield, 250), -1); // 52 Week High Y52wl = Ref(LLV(Ypricefield, 250), -1); // 52 Week Low Yqh = Ref(HHV(Ypricefield, 55), -1); // Quarterly High Yql = Ref(LLV(Ypricefield, 55), -1); // Quarterly Low Ymh = Ref(HHV(Ypricefield, 21), -1); // Monthly High Yml = Ref(LLV(Ypricefield, 21), -1); // Monthly Low Yfh = Ref(HHV(Ypricefield, 10), -1); //Fortnight High Yfl = Ref(LLV(Ypricefield, 10), -1); //Fortnight Low Ywh = Ref(HHV(Ypricefield, 5), -1); // Weekly High Ywl = Ref(LLV(Ypricefield, 5), -1); // Weekly Low Yath1 = (C > (Yath -Yath*YPR)); Yatl1 = (C < (Yatl + Yatl*YPR)); Y2yh1 = (C > (Y2yh - Y2yh*YPR)); Y2yl1 = (C < (Y2yl+ Y2yl*YPR)); Y52wh1 = (C < (Y52wh+ Y52wh*YPARANGE) AND C > (Y52wh - Y52wh*YPARANGE)); Y52wl1 = (C < (Y52wl+ Y52wl*YPARANGE) AND C > (Y52wl - Y52wl*YPARANGE)); Yqh1 = (C < (Yqh+ Yqh*YPARANGE) AND C > (Yqh - Yqh*YPARANGE)); Yql1 = (C < (Yql+ Yql*YPARANGE) AND C > (Yql - Yql*YPARANGE)); Ymh1 = (C < (Ymh+ Ymh*YPARANGE) AND C > (Ymh - Ymh*YPARANGE)); Yml1 = (C < (Yml+ Yml*YPARANGE) AND C > (Yml - Yml*YPARANGE)); Yfh1 = (C < (Yfh+ Yfh*YPARANGE) AND C > (Yfh - Yfh*YPARANGE)); Yfl1 = (C < (Yfl+ Yfl*YPARANGE) AND C > (Yfl - Yfl*YPARANGE)); Ywh1 = (C < (Ywh+ Ywh*0.005) AND C > (Ywh - Ywh*0.005)); Ywl1 = (C < (Ywl+ Ywl*0.005) AND C > (Ywl - Ywl*0.005)); Yaction = WriteIf(Yath1, "All Time High", WriteIf(Yatl1, "All Time Low", WriteIf(Y2yh1, "2year High", WriteIf(Y2yl1, "2year Low", WriteIf(Y52wh1, "52 Week High", WriteIf(Y52wl1, "52 Week Low", WriteIf(Yqh1, "Quarterly High", WriteIf(Yql1, "Quarterly Low", WriteIf(Ymh1, "20 DAY High", WriteIf(Yml1, "20 DAY Low", WriteIf(Yfh1, "10 DAY High", WriteIf(Yfl1, "10 DAY Low", WriteIf(Ywh1, "5 DAY High", WriteIf(Ywl1, "5 DAY Low", "")))))))))))))); Yactionvalue = WriteIf(Yath1, ""+Yath, WriteIf(Yatl1, ""+Yatl, WriteIf(Y2yh1, ""+Y2yh, WriteIf(Y2yl1, ""+Y2yl, WriteIf(Y52wh1, ""+Y52wh, WriteIf(Y52wl1, ""+Y52wl, WriteIf(Yqh1, ""+Yqh, WriteIf(Yql1, ""+Yql, WriteIf(Ymh1, ""+Ymh, WriteIf(Yml1, ""+Yml, WriteIf(Yfh1, ""+Yfh, WriteIf(Yfl1, ""+Yfl, WriteIf(Ywh1, ""+Ywh, WriteIf(Ywl1, ""+Ywl, "")))))))))))))); Yactionc = IIf(Yath1 OR Y2yh1 OR Y52wh1 OR Yqh1 OR Ymh1 OR Yfh1 OR Ywh1 , colorGreen, IIf(Yatl1 OR Y2yl1 OR Y52wl1 OR Yql1 OR Yml1 OR Yfl1 OR Ywl1, colorRed, 0)); Yathv = Ref(HHV(Volume,2500),-1); Y52whv = Ref(HHV(Volume,250),-1); Yqhv = Ref(HHV(Volume,65),-1); Ymhv = Ref(HHV(Volume,23),-1); Yathv1= Volume > Yathv; Y52whv1= Volume > Y52whv; Yqhv1= Volume > Yqhv; Ymhv1= Volume > Ymhv; Yvolume = WriteIf(Yathv1,"All Time High Volume", WriteIf(Y52whv1,"52 Week High Volume", WriteIf(Yqhv1,"Quarterly High Volume", WriteIf(Ymhv1,"Monthly High Volume","")))); Yvolumec = IIf( Yathv1 OR Y52whv1 OR Yqhv1 OR Ymhv1, colorGreen,0); GfxSelectFont("Tahoma", Status("Pxheight")/75 ); GfxSetTextAlign(0|0);// Center Alignment GfxSetTextColor( colorBlue ); if(Ribbon5==0) { Yrgbody=C>=O; //First Candle Green Yrrbody=C<O; // First Candle Red Yrhlspread1 = Ref(H, -1)- Ref(L,-1); // Length Of The First Candle Yrbclose = C > (Ref(C, -1)+ Yrhlspread1*0.38); // Bullish Close Yrbeclose = C < (Ref (C, -1) - Yrhlspread1*0.38); // Bearish Close Yrrbclose = C > Ref(H, -1); // Bullish Close First Candle Yrrbeclose = C < Ref (L, -1); // Bearish Close First Candle Uptrend=Yrbclose AND Yrgbody AND Yrrbclose ; Downtrend=Yrbeclose AND Yrrbody AND Yrrbeclose; Plot( 1.5, "Ribbon",IIf( Uptrend, colorGreen, IIf( Downtrend, colorRed, 0 )), styleOwnScale|styleArea|styleNoLabel, -7.5, 100 ); GfxTextOut( Interval(2), Status("Pxwidth")/1.1, Status("Pxheight")/1.12 ); GfxTextOut( ""+Name(), Status("Pxwidth")/1.06, Status("Pxheight")/1.12 ); if(Sectorribbon5==0) { Yhhsopen = TimeFrameCompress( Open, inWeekly ); Yhhshigh = TimeFrameCompress( High, inWeekly ); Yhhslow = TimeFrameCompress( Low, inWeekly ); Yhhsclose = TimeFrameCompress( Close, inWeekly ); Yhrgbody1=Yhhsclose>=Yhhsopen; //First Candle Green Yhrrbody1=Yhhsclose<Yhhsopen; // First Candle Red Yhrhlspread2 = Ref(Yhhshigh, -1)- Ref(Yhhslow, -1); // Length Of The First Candle Yhrbclose1 = Yhhsclose > (Ref(Yhhsclose, -1)+ Yhrhlspread2*0.38); // Bullish Close Yhrbeclose2 = Yhhsclose < (Ref (Yhhsclose, -1) - Yhrhlspread2*0.38); // Bearish Close Yhrrbclose1 = Yhhsclose > Ref(Yhhshigh, -1); // Bullish Close First Candle Yhrrbeclose1 = Yhhsclose < Ref (Yhhslow, -1); // Bearish Close First Candle yhUptrend1=Yhrbclose1 AND Yhrgbody1 AND Yhrrbclose1 ; yhDowntrend1=Yhrbeclose2 AND Yhrrbody1 AND Yhrrbeclose1; Plot( 1.5, "Ribbon",IIf( TimeFrameExpand(yhUptrend1, inWeekly), colorGreen, IIf( TimeFrameExpand(yhDowntrend1, inWeekly), colorRed, 0 )), styleOwnScale|styleArea|styleNoLabel, -4.5, 100 ); GfxTextOut( "", Status("Pxwidth")/2.5, Status("Pxheight")/1.18); GfxTextOut( "Ribbon Weekly: "+Name(), Status("Pxwidth")/1.1, Status("Pxheight")/1.08 ); YDhsopen = TimeFrameCompress( Open, inMonthly ); YDhshigh = TimeFrameCompress( High, inMonthly ); YDhslow = TimeFrameCompress( Low, inMonthly ); YDhsclose = TimeFrameCompress( Close, inMonthly ); YDrgbody1=YDhsclose>=YDhsopen; //First Candle Green YDrrbody1=YDhsclose<YDhsopen; // First Candle Red YDrhlspread2 = Ref(YDhshigh, -1)- Ref(YDhslow, -1); // Length Of The First Candle YDrbclose1 = YDhsclose > (Ref(YDhsclose, -1)+ YDrhlspread2*0.38); // Bullish Close YDrbeclose2 = YDhsclose < (Ref (YDhsclose, -1) - YDrhlspread2*0.38); // Bearish Close YDrrbclose1 = YDhsclose > Ref(YDhshigh, -1); // Bullish Close First Candle YDrrbeclose1 = YDhsclose < Ref (YDhslow, -1); // Bearish Close First Candle YDUptrend1=YDrbclose1 AND YDrgbody1 AND YDrrbclose1 ; YDDowntrend1=YDrbeclose2 AND YDrrbody1 AND YDrrbeclose1; Plot( 1.5, "Ribbon",IIf( TimeFrameExpand(YDUptrend1, inMonthly), colorGreen, IIf( TimeFrameExpand(YDDowntrend1, inMonthly), colorRed, 0 )),styleOwnScale|styleArea|styleNoLabel, -1.5, 100 ); GfxTextOut( "Ribbon Monthly: "+Name(), Status("Pxwidth")/1.1, Status("Pxheight")/1.05 ); } else { Yfsopen = Foreign(Sectorticker, "O"); Yfshigh = Foreign(Sectorticker, "H"); Yfslow = Foreign(Sectorticker, "L"); Yfsclose = Foreign(Sectorticker, "C"); Text2 = "Ribbon: "; Yrgbody1=Yfsclose>=Yfsopen; //First Candle Green Yrrbody1=Yfsclose<Yfsopen; // First Candle Red Yrhlspread2 = Ref(Yfshigh, -1)- Ref(Yfslow, -1); // Length Of The First Candle Yrbclose1 = Yfsclose > (Ref(Yfsclose, -1)+ Yrhlspread2*0.38); // Bullish Close Yrbeclose2 = Yfsclose < (Ref (Yfsclose, -1) - Yrhlspread2*0.38); // Bearish Close Yrrbclose1 = Yfsclose > Ref(Yfshigh, -1); // Bullish Close First Candle Yrrbeclose1 = Yfsclose < Ref (Yfslow, -1); // Bearish Close First Candle Uptrend1=Yrbclose1 AND Yrgbody1 AND Yrrbclose1 ; Downtrend1=Yrbeclose2 AND Yrrbody1 AND Yrrbeclose1; Plot( 1.5,"Ribbon",IIf( Uptrend1, colorGreen, IIf( Downtrend1, colorRed, 0 )), styleOwnScale|styleArea|styleNoLabel, -4.5, 100 ); GfxTextOut( ""+Sectorticker, Status("Pxwidth")/1.1, Status("Pxheight")/1.08 ); Ynfsopen = Foreign(Indexticker, "O"); Ynfshigh = Foreign(Indexticker, "H"); Ynfslow = Foreign(Indexticker, "L"); Ynfsclose = Foreign(Indexticker, "C"); Ynrgbody1=Ynfsclose>=Ynfsopen; //First Candle Green Ynrrbody1=Ynfsclose<Ynfsopen; // First Candle Red Ynrhlspread2 = Ref(Ynfshigh, -1)- Ref(Ynfslow, -1); // Length Of The First Candle Ynrbclose1 = Ynfsclose > (Ref(Ynfsclose, -1)+ Ynrhlspread2*0.38); // Bullish Close Ynrbeclose2 = Ynfsclose < (Ref (Ynfsclose, -1) - Ynrhlspread2*0.38); // Bearish Close Ynrrbclose1 = Ynfsclose > Ref(Ynfshigh, -1); // Bullish Close First Candle Ynrrbeclose1 = Ynfsclose < Ref (Ynfslow, -1); // Bearish Close First Candle Ynuptrend1=Ynrbclose1 AND Ynrgbody1 AND Ynrrbclose1 ; Yndowntrend1=Ynrbeclose2 AND Ynrrbody1 AND Ynrrbeclose1; Plot( 1.5, "Ribbon",IIf( Ynuptrend1, colorGreen, IIf( Yndowntrend1, colorRed, 0 )), styleOwnScale|styleArea|styleNoLabel, -1.5, 100 ); GfxTextOut( ""+Indexticker, Status("Pxwidth")/1.1, Status("Pxheight")/1.05 ); }} if (Overlaymode==1) { GfxSetOverlayMode(1); } else if(Overlaymode==0) GfxSetOverlayMode(0); Barssincebuy = BarsSince( Uptrend ); Barssinceshort = BarsSince( Downtrend ); Lastsignal = IIf( Barssincebuy < Barssinceshort, 1, -1 ); if ( SelectedValue( Lastsignal ) == 1 ) { GfxSelectSolidBrush( colorDarkTeal ); } else { GfxSelectSolidBrush( colorPlum); } GfxSelectPen( colorLightBlue, 1); // Border Color Yx1 = Status("pxchartleft") ; // left side of chart Yy1 = Status("pxcharttop"); // top side of chart Yx2 = Status("pxchartright"); // right side of chart Yy2 = Status("pxchartbottom"); // bottom side ofthe chart Yx3 = Status("pxchartwidth"); // boarder type size Yy3 = Status("pxchartwidth"); // boarder type size GfxRoundRect( Yx1*0.5, Yy1*0.5, Yx2*0.22, Yy2*0.12, Yx3*0.005, Yy3*0.005 ); // price action TOP GfxRoundRect( Yx1*0.5, Yy2*0.12, Yx2*0.11, Yy2*0.45, Yx3*0.005, Yy3*0.005 ); // price action high GfxRoundRect( Yx2*0.115, Yy2*0.12, Yx2*0.22, Yy2*0.45, Yx3*0.005, Yy3*0.005 );// price action low Yh = TimeFrameGetPrice( "H", inDaily, -1 ); Yc = TimeFrameGetPrice( "C", inDaily, -1 ); Yl = TimeFrameGetPrice( "L", inDaily, -1 ); Cqh = TimeFrameGetPrice( "H", inQuarterly, 0 ); Cql = TimeFrameGetPrice( "L", inQuarterly, 0 ); Lqh = TimeFrameGetPrice( "H", inQuarterly, -1 ); Lql = TimeFrameGetPrice( "L", inQuarterly, -1 ); Cyh = TimeFrameGetPrice( "H", inYearly, 0 ); Cyl = TimeFrameGetPrice( "L", inYearly, 0 ); Lyh = TimeFrameGetPrice( "H", inYearly, -1 ); Lyl = TimeFrameGetPrice( "L", inYearly, -1 ); Lmh = Ref(HHV(H, 21), -1); // Monthly High Lml = Ref(LLV(L, 21), -1); // Monthly Low Cmh = Ref(HHV(H, 10), -1); //Fortnight High Cml = Ref(LLV(L, 10), -1); //Fortnight Low Lwh = Ref(HHV(H, 5), -1); // Weekly High Lwl = Ref(LLV(L, 5), -1); // Weekly Low Ath= Highest(H); Atl= Lowest(L); Ath1 =C < (Ath+ Ath*YPR) AND C > (Ath - Ath*YPR); Lyh1 =C < (Lyh+ Lyh*YPR) AND C > (Lyh - Lyh*YPR); Cyh1 =C < (Cyh+ Cyh*YPR) AND C > (Cyh - Cyh*YPR); Lqh1 =C < (Lqh+ Lqh*YPR) AND C > (Lqh - Lqh*YPR); Cqh1 = C < (Cqh+ Cqh*YPR) AND C > (Cqh - Cqh*YPR); Lmh1 = C < (Lmh+ Lmh*YPR) AND C > (Lmh - Lmh*YPR); Cmh1 = C < (Cmh+ Cmh*YPR) AND C > (Cmh - Cmh*YPR); Lwh1 = C < (Lwh+ Lwh*YPR) AND C > (Lwh - Lwh*YPR); Yh1 = C < (Yh+ Yh*YPR) AND C > (Yh - Yh*YPR); Yc1 = C < (Yc+ Yc*YPR) AND C > (Yc - Yc*YPR); Atl1 =C < (Atl+ Atl*YPR) AND C > (Atl - Atl*YPR); Lyl1 =C < (Lyl+ Lyl*YPR) AND C > (Lyl - Lyl*YPR); Cyl1 =C < (Cyl+ Cyl*YPR) AND C > (Cyl - Cyl*YPR); Lql1 =C < (Lql+ Lql*YPR) AND C > (Lql - Lql*YPR); Cql1 = C < (Cql+ Cql*YPR) AND C > (Cql - Cql*YPR); Lml1 = C < (Lml+ Lml*YPR) AND C > (Lml - Lml*YPR); Cml1 = C < (Cml+ Cml*YPR) AND C > (Cml - Cml*YPR); Lwl1 = C < (Lwl+ Lwl*YPR) AND C > (Lwl - Lwl*YPR); Yl1 = C < (Yl+ Yl*YPR) AND C > (Yl - Yl*YPR); FS = (Status("pxchartwidth") + Status("pxchartheight")); GfxSetTextAlign(0|0); GfxSetBkMode(1); GfxSelectFont( "Tahoma",FS*0.0078, 800 ); GfxSetTextColor ( colorTurquoise ); GfxTextOut( ( "TARGET OR ACTION PRICES"),YX2*0.005,YY2*0.001); GfxTextOut( ( "YESTERDAY CLOSE:"),YX2*0.005,YY2*0.040); GfxSetTextColor ( colorBrightGreen ); GfxTextOut( ( "HIGHS"),YX2*0.03,YY2*0.075); GfxSetTextColor ( colorRed); GfxTextOut( ( "LOWS"),YX2*0.15,YY2*0.075); GfxSetTextColor ( colorYellow ); GfxSelectFont( "Tahoma", FS*0.006, 100 ); // HIGHS GfxTextOut( ( "___________________________"),Yx2*0.005,Yy2*0.015); GfxTextOut( ( "___________________________"),Yx2*0.005,Yy2*0.050); GfxTextOut( ( "1. YH:"),Yx2*0.005,Yy2*0.13); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.135); GfxTextOut( ( "2. 5DH:"),Yx2*0.005,Yy2*0.165); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.170); GfxTextOut( ( "3. 10DH: "),Yx2*0.005,Yy2*0.200); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.205); GfxTextOut( ( "4. 20DH:"),Yx2*0.005,Yy2*0.235); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.240); GfxTextOut( ( "5. CQH:"),Yx2*0.005,Yy2*0.270); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.275); GfxTextOut( ( "6. LQH: "),Yx2*0.005,Yy2*0.305); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.310); GfxTextOut( ( "7. CYH: "),Yx2*0.005,Yy2*0.340); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.345); GfxTextOut( ( "8. LYH: "),Yx2*0.005,Yy2*0.375); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.380); GfxTextOut( ( "9. ATH: "),Yx2*0.005,Yy2*0.410); GfxTextOut( ( "______________"),Yx2*0.005,Yy2*0.415); //LOWS GfxTextOut( ( "1. YL:"),Yx2*0.12,Yy2*0.13); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.135); GfxTextOut( ( "2. 5DL:"),Yx2*0.12,Yy2*0.165); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.170); GfxTextOut( ( "3. 10DL: "),Yx2*0.12,Yy2*0.200); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.205); GfxTextOut( ( "4. 20DL:"),Yx2*0.12,Yy2*0.235); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.240); GfxTextOut( ( "5. CQL:"),Yx2*0.12,Yy2*0.270); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.275); GfxTextOut( ( "6. LQL: "),Yx2*0.12,Yy2*0.305); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.310); GfxTextOut( ( "7. CYL: "),Yx2*0.12,Yy2*0.340); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.345); GfxTextOut( ( "8. LYL: "),Yx2*0.12,Yy2*0.375); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.380); GfxTextOut( ( "9. ATL: "),Yx2*0.12,Yy2*0.410); GfxTextOut( ( "______________"),Yx2*0.12,Yy2*0.415); GfxSelectFont( "Tahoma", FS*0.006, 800 ); YJ = BarIndex(); YI= SelectedValue( YJ ) - YJ[ 0 ]; if(Messageboardtext==1) { if (C[YI]>YH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Yh1, ""+Yh,"")), Yx2*0.055,Yy2*0.13); if (C[YI]>LWH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lwh1, ""+Lwh,"")), Yx2*0.055,Yy2*0.165); if (C[YI]>cmH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Cmh1, ""+Cmh,"")), Yx2*0.055,Yy2*0.200); if (C[YI]>Lmh[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lmh1, ""+Lmh,"")), Yx2*0.055,Yy2*0.235); if (C[YI]>Cqh[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Cqh1, ""+Cqh,"")), Yx2*0.055,Yy2*0.270); if (C[YI]>Lqh[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lqh1, ""+Lqh,"")), Yx2*0.055,Yy2*0.305); if (C[YI]>Cyh[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Cyh1, ""+Cyh,"")), Yx2*0.055,Yy2*0.340); if (C[YI]>Lyh[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lyh1, ""+Lyh,"")), Yx2*0.055,Yy2*0.375); if (C[YI]>Ath[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Ath1, ""+Ath,"")), Yx2*0.055,Yy2*0.410); GfxSelectFont( "Tahoma", FS*0.0078, 800 ); if (C[YI]>Yc[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (" "+Yc), Yx2*0.15,YY2*0.040); GfxSelectFont( "Tahoma", FS*0.006, 800 ); if (C[YI]>Yl[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Yl1, ""+Yl,"")), Yx2*0.165,Yy2*0.13); if (C[YI]>Lwl[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lwl1, ""+Lwl,"")), Yx2*0.165,Yy2*0.165); if (C[YI]>Cml[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Cml1, ""+Cml,"")), Yx2*0.165,Yy2*0.200); if (C[YI]>Lml[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lml1, ""+Lml,"")), Yx2*0.165,Yy2*0.235); if (C[YI]>Cql[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Cql1, ""+Cql,"")), Yx2*0.165,Yy2*0.270); if (C[YI]>Lql[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lql1, ""+Lql,"")), Yx2*0.165,Yy2*0.305); if (C[YI]>Cyl[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Cyl1, ""+Cyl,"")), Yx2*0.165,Yy2*0.340); if (C[YI]>Lyl[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Lyl1, ""+Lyl,"")), Yx2*0.165,Yy2*0.375); if (C[YI]>Atl[YI]) GfxSetTextColor(colorLime); else GfxSetTextColor(colorRed); GfxTextOut ( ("" + WriteIf (Atl1, ""+Atl,"")), Yx2*0.165,Yy2*0.410); } else { if (C[YI]>YH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Yh), Yx2*0.055,Yy2*0.13); if (C[YI]>LWH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lwh), Yx2*0.055,Yy2*0.165); if (C[YI]>CMH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Cmh), Yx2*0.055,Yy2*0.200); if (C[YI]>LMH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lmh), Yx2*0.055,Yy2*0.235); if (C[YI]>CQH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Cqh), Yx2*0.055,Yy2*0.270); if (C[YI]>LQH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lqh), Yx2*0.055,Yy2*0.305); if (C[YI]>CYH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Cyh), Yx2*0.055,Yy2*0.340); if (C[YI]>LYH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lyh), Yx2*0.055,Yy2*0.375); if (C[YI]>ATH[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Ath), Yx2*0.055,Yy2*0.410); GfxSelectFont( "Tahoma", FS*0.0078, 800 ); if (C[YI]>YC[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (" "+Yc), Yx2*0.15,YY2*0.040); GfxSelectFont( "Tahoma", FS*0.006, 800 ); if (C[YI]>YL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Yl), Yx2*0.165,Yy2*0.13); if (C[YI]>LWL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lwl), Yx2*0.165,Yy2*0.165); if (C[YI]>CML[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Cml), Yx2*0.165,Yy2*0.200); if (C[YI]>LML[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lml), Yx2*0.165,Yy2*0.235); if (C[YI]>CQL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Cql), Yx2*0.165,Yy2*0.270); if (C[YI]>LQL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lql), Yx2*0.165,Yy2*0.305); if (C[YI]>CYL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Cyl), Yx2*0.165,Yy2*0.340); if (C[YI]>LYL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Lyl), Yx2*0.165,Yy2*0.375); if (C[YI]>ATL[YI]) GfxSetTextColor(colorBrightGreen); else GfxSetTextColor(colorRed); GfxTextOut ( (""+Atl), Yx2*0.165,Yy2*0.410); } if(Messageboard==0) { GfxRoundRect( Yx1*0.5, Yy2, Yx2*0.22, Yy2*0.50, Yx3*0.005, Yy3*0.005 ); // Analysis Windows GfxSetTextAlign(0|24); GfxSelectFont( "Tahoma",FS*0.0060, 800 ); GfxSetTextColor ( colorWhite ); GfxTextOut( ( "ANALYSIS WITH CANDLE AND PRICE"),Yx2*0.005,Yy2*0.53); GfxTextOut( ( "_____________________________"),Yx2*0.005,Yy2*0.54); GfxSelectFont( "Tahoma", FS*0.0055, 100 ); GfxSetTextColor ( colorYellow ); GfxTextOut( "1. Price Actions:",Yx2*0.005,Yy2*0.57); GfxTextOut( ( "______________________________________"),Yx2*0.005,Yy2*0.58); GfxTextOut( "2. Action Price:",Yx2*0.005,Yy2*0.61); GfxTextOut( ( "______________________________________"),Yx2*0.005,Yy2*0.62); GfxTextOut( "3. Reversal Candle:",Yx2*0.005,Yy2*0.65); GfxTextOut( ( "______________________________________"),Yx2*0.005,Yy2*0.66); GfxTextOut( "4. Breakout Candle:",Yx2*0.005,Yy2*0.69); GfxTextOut( ( "______________________________________"),Yx2*0.005,Yy2*0.70); GfxTextOut( "5. Volume Singal:", Yx2*0.005,Yy2*0.73); GfxTextOut( ( "______________________________________"),Yx2*0.005,Yy2*0.74); GfxTextOut( "6. Close Type:",Yx2*0.005,Yy2*0.77); GfxTextOut( ( "______________________________________"),Yx2*0.005,Yy2*0.78); GfxTextOut( ""+Yaction,Yx2*0.11,Yy2*0.57); GfxTextOut( ""+Yactionvalue,Yx2*0.11,Yy2*0.61); GfxTextOut( ""+Tcandle,Yx2*0.11,Yy2*0.65); GfxTextOut( ""+Breakoutcandle,Yx2*0.11,Yy2*0.69); GfxTextOut( ""+Yvolume,Yx2*0.11,Yy2*0.73); GfxTextOut( ""+Ctype,Yx2*0.11,Yy2*0.77); } if(Heading==0) { GfxRoundRect( Yx2*0.25, Yy1*0.5, Yx2*0.85, Yy2*0.1, Yx3*0.005, Yy3*0.005 ); //header Windows GfxSetTextAlign(6|0); GfxSelectFont( "Tahoma",FS*0.0078, 800 ); GfxSetTextColor ( colorOrange); GfxTextOut( Name(), Yx2*0.32, YY2*0.001); GfxSetTextColor ( colorLime ); GfxTextOut( Interval(2), Yx2*0.43, YY2*0.001); GfxSelectFont( "Tahoma",FS*0.0085, 800 ); GfxSetTextColor ( colorWhite ); GfxTextOut( "Yogya Daily Trading System", Yx2*0.59, YY2*0.001); GfxSelectFont( "Tahoma",FS*0.0078, 800 ); GfxSetTextAlign(0|0); GfxSetTextColor ( colorLightOrange ); GfxTextOut( IndustryID(Mode=1), Yx2*0.72, YY2*0.001); GfxSetTextColor ( colorYellow ); GfxTextOut( ( "______________________________________________________________"),Yx2*0.26,YY2*0.011); GfxSetTextAlign(0|0); GfxSelectFont( "Tahoma", FS*0.006, 800 ); GfxSetTextColor ( colorLime ); GfxTextOut( Date(), Yx2*0.255, YY2*0.06); GfxSetTextColor ( colorYellow ); Ydo=TimeFrameGetPrice("O",inDaily,0); Ydh=TimeFrameGetPrice("H",inDaily,0); Ydl=TimeFrameGetPrice("L",inDaily,0); Ydc=TimeFrameGetPrice("C",inDaily,0); Ydv=TimeFrameGetPrice("V",inDaily,0); GfxSetTextColor (colorCustom15); GfxTextOut( "Open:"+WriteVal(Ydo,1.2), Yx2*0.35, YY2*0.06); GfxSetTextColor (colorBrightGreen); GfxTextOut( "High:"+WriteVal(Ydh,1.2), Yx2*0.45, YY2*0.06); GfxSetTextColor (colorRed); GfxTextOut( "Low:"+WriteVal(Ydl,1.2), Yx2*0.55, YY2*0.06); GfxSetTextColor (colorCustom11); GfxTextOut( "Close:"+WriteVal(Ydc,1.2), Yx2*0.65, YY2*0.06); GfxSetTextColor (colorWhite); GfxTextOut( "Volume="+WriteVal(Ydv,1.0), Yx2*0.75, YY2*0.06); } Yyc=TimeFrameGetPrice("C",inDaily,-1); Ydd=Prec(C-Yyc,2); Yxx=Prec((Ydd/Yyc)*100,2); Yto=TimeFrameGetPrice("O",inDaily,0); Ydd1=Prec(C-Yto,2); Yxx1=Prec((Ydd1/Yto)*100,2); //LTP PRICE AND GAIN LOSS Bi = BarIndex(); Ii = SelectedValue( Bi ) - Bi[ 0 ]; if (C[Ii]>Yyc[Ii]) GfxSetTextColor(colorGreen); else GfxSetTextColor(colorRed); GfxSetTextAlign( 2|0 ); GfxSelectFont( "Tahoma",FS*(0.01+Yfont5), 800 ); if(Datetime1==0) { GfxTextOut( "LTP: "+Close, Yx2*Yhor, Yy1*(16+Yver) ); GfxSelectFont( "Tahoma",FS*(0.006+Yfont5), 800 ); GfxTextOut(""+Ydd+" ("+Yxx+"%)", Yx2*Yhor, Yy1*(24+Yver)); if(Datetime2==0) { //TODAY CHANGE GfxTextOut(""+Ydd1+" ("+Yxx1+"%)", Yx2*Yhor, Yy1*(29+Yver)); }} if(Day1==0) { Grid_Week = IIf(DayOfWeek() < Ref(DayOfWeek(), -1), 1, 0); Plot(Grid_Week,"",colorDarkGrey ,styleHistogram|styleDots|styleNoLabel|styleOwnScale); } if(Fullsymbol==0) { GfxSetTextAlign( 6 |0); GfxSelectFont( "Tahoma", FS*0.02, 100 ); GfxSetTextColor( colorDarkGrey);; GfxTextOut( FullName(), Yx2*0.5,Yy2*0.340); GfxSelectFont( "Tahoma", FS*0.015, 100 ); GfxTextOut( IndustryID(Mode=1), Yx2*0.35,Yy2*0.450); GfxTextOut( SectorID(Mode=1), Yx2*0.75,Yy2*0.450); } SetChartOptions(0,chartShowArrows|chartShowDates); SetChartBkColor(ParamColor("Background Color",colorDarkOliveGreen)); // Color Of Outer Border SetBarFillColor( IIf( C > O, ParamColor("Up Candle 1", colorBrightGreen), ParamColor("Down Candle 1",colorRed ) )); Plot( C, "Price", IIf( C > O, ParamColor("Up Candle", colorBrightGreen), ParamColor("Down Candle",colorRed )), styleCandle ); GraphXSpace = Status("Pxheight")/Yspace; Filter = 1; SetOption("Nodefaultcolumns", True ); AddTextColumn( Name(), "TICKER", 1.2,colorDefault, colorDefault, 60); AddTextColumn( FullName(), "Full name",1.2,colorDefault, colorDefault, 90); AddColumn( DateTime(), "Date", formatDateTime, colorDefault, colorDefault, 90); AddColumn(Close, "Close", 1.2); AddTextColumn(Ctype, "Close Type ", 1.0, Ctypec, colorDefault,150); AddTextColumn(Tcandle, "Candle At Resistance ", 1.0, Tcandlec, colorDefault,150); AddTextColumn(Breakoutcandle, "Candle At Breakout ", 1.0, Breakoutcandlec, colorDefault,150); AddTextColumn(Yvolume, "Volume Filter", 1.0, Yvolumec, colorDefault,170); AddTextColumn(Yaction, "Price Actions", 1.0, Yactionc, colorDefault,150); AddTextColumn(Yactionvalue, "Action Price", 1.2); _SECTION_END();
Sign up here with your email
ConversionConversion EmoticonEmoticon