Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- _SECTION_BEGIN("Price");
- SetChartOptions(0,chartShowArrows|chartShowDates);
- _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
- SD = StochD(8, 3, 3);
- MH = MACD(8, 21) - Signal(8, 21, 5);
- trendup = IIf(MH > 0 OR (MH > 0 AND MH > Ref(MH, -1)) AND RSI(3) >50 AND SD < 80 AND SD > Ref(SD, -1) AND ValueWhen(C,O<C), colorBlue, colorWhite);
- trendcolor = IIf(MH < 0 OR (MH < 0 AND MH < Ref(MH, -1)) AND RSI(3) <50 AND SD > 20 AND SD < Ref(SD, -1) AND ValueWhen(C,O>C), colorRed, trendup);
- Plot( C, "Close", trendcolor, styleCandle | styleThick );
- _SECTION_END();
- BarsToday = 1 + BarsSince( Day() != Ref(Day(), -1));
- StartBar =Open;
- RefOpen = ValueWhen(TimeNum() > 092959, Open,1);
- BaseNum = (int(sqrt(RefOpen))-1);
- sBelow = BaseNum + BaseNum;
- sBelowI = 1;
- //Calculate levels for GANN Square of Nine
- for( i = 1; i < 50; i++ )
- {
- VarSet( "GANN"+i, (BaseNum * BaseNum) );
- BaseNum = BaseNum + 0.125;
- sBelowI = IIf( VarGet("GANN"+i)< RefOpen, i, sBelowI);
- bAboveI = sBelowI + 1;
- sBelow = round(VarGet("GANN"+sBelowI));
- bAbove = round(VarGet("GANN"+bAboveI));
- }
- // Resistance Levels (or Targets for Buy trade)
- BTgt1 = 0.9995 * VarGet("Gann"+(bAboveI+1));
- BTgt2 = 0.9995 * VarGet("Gann"+(bAboveI+2));
- BTgt3 = 0.9995 * VarGet("Gann"+(bAboveI+3));
- BTgt4 = 0.9995 * VarGet("Gann"+(baboveI+4));
- BTgt5 = 0.9995 * VarGet("Gann"+(bAboveI+5));
- BTgt6 = 0.9995 * VarGet("Gann"+(baboveI+6));
- // Support Levels (or Targets for Short trade)
- STgt1 = 1.0005 * VarGet("Gann"+(sBelowI-1));
- STgt2 = 1.0005 * VarGet("Gann"+(sBelowI-2));
- STgt3 = 1.0005 * VarGet("Gann"+(sBelowI-3));
- STgt4 = 1.0005 * VarGet("Gann"+(sbelowI-4));
- STgt5 = 1.0005 * VarGet("Gann"+(sBelowI-5));
- STgt6 = 1.0005 * VarGet("Gann"+(sBelowI-6));
- Sstop= babove-((babove-sbelow)/3) ;
- Bstop= sbelow+((babove-sbelow)/3) ;
- BuySignal = TimeNum()>092959 AND Cross(C,babove);ShortSignal = TimeNum()>092000 AND Cross(Sbelow,C);
- BuySignal = ExRem(BuySignal,ShortSignal);
- ShortSignal = TimeNum()>092959 AND Cross(Sbelow,C);
- ShortProfitStop= (STgt1 AND L<=Stgt1 AND C>Stgt1) OR (STgt2 AND L<=Stgt2 AND C>Stgt2) OR (STgt3 AND L<=Stgt3 AND C>Stgt3) OR (STgt4 AND L<=Stgt4 AND C>Stgt4) OR (STgt5 AND L<=Stgt5 AND C>Stgt5) OR (STgt6 AND L<=Stgt6 AND C>Stgt6);
- BuyProfitStop= (Btgt1 AND H>=btgt1 AND C<Btgt1) OR (Btgt2 AND H>=Btgt2 AND C<btgt2) OR (Btgt3 AND H>=Btgt3 AND C<btgt3) OR (Btgt4 AND H>=Btgt4 AND C<btgt4) OR (Btgt5 AND H>=Btgt5 AND C<btgt5) OR (Btgt6 AND H>=Btgt6 AND C<btgt6);
- Buy = BuySignal;
- Sell = C<Bstop ;
- Short = ShortSignal;
- Cover = C>SStop ;
- Buy = ExRem(Buy,Sell);
- Sell = ExRem(Sell,Buy);
- Short = ExRem(Short,Cover);
- Cover = ExRem(Cover,Short);
- Sstop= round(babove) ;
- Bstop= round(sbelow) ;
- _SECTION_BEGIN("Background text");
- SetChartBkColor(colorBlack);
- strWeekday = StrMid("---SUNDAY---MONDAY--TUESDAYWEDNESDAY-THURSDAY--FRIDAY--SATURDAY", SelectedValue(DayOfWeek())*9,9);
- GraphXSpace=Param("GraphXSpace",0,-55,200,1);
- C13=Param("fonts",20,10,30,1 );
- C14=Param("left-right",2.1,1.0,5.0,0.1 );
- C15=Param("up-down",12,1,20,1 );
- Miny = Status("axisminy");
- Maxy = Status("axismaxy");
- lvb = Status("lastvisiblebar");
- fvb = Status("firstvisiblebar");
- pxwidth = Status("pxwidth");
- pxheight = Status("pxheight");
- YC=TimeFrameGetPrice("C",inDaily,-1);
- DD=Prec(C-YC,2);
- xx=Prec((DD/YC)*100,2);
- GfxSetBkMode(transparent=1);
- GfxSetOverlayMode(1);
- GfxSelectFont("Candara", Status("pxheight")/C13 );
- GfxSetTextAlign( 6 );
- GfxSetTextColor( ColorRGB (217,217,213));
- GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15+200);
- GfxSelectFont("Tahoma", Status("pxheight")/C13*0.5 );
- GfxSetTextColor(ColorRGB (217,217,213));
- GfxTextOut( "L.T.P. : "+ C +"", Status("pxwidth")/C14, Status("pxheight")/C15*2+200 );
- GfxSelectFont("Candara", Status("pxheight")/C13*0.5 );
- GfxSetTextColor( ColorRGB (103,103,103));
- GfxTextOut( ""+DD+ " ( "+xx+"%)", Status("pxwidth")/C14, Status("pxheight")/C15*2.5+200);
- GfxTextOut( "", Status("pxwidth")/C14, Status("pxheight")/C15*2.5+220);
- GfxTextOut( "", Status("pxwidth")/C14, Status("pxheight")/C15*2.5+240);
- GfxSelectFont("Candara", Status("pxheight")/C13*0.5 );
- GfxSetTextColor( ColorRGB (0,265,0));
- GfxTextOut( "Buy Above :"+sstop+"", Status("pxwidth")/C14-450, Status("pxheight")/C15*6);
- GfxSetTextColor( ColorRGB (255,74,74));
- GfxTextOut( "Buy S/L :"+Bstop+"", Status("pxwidth")/C14-350, Status("pxheight")/C15*7);
- GfxSetTextColor( ColorRGB (265,0,0));
- GfxTextOut( "Sell Below :"+bstop+"", Status("pxwidth")/C14+450, Status("pxheight")/C15*6);
- GfxSetTextColor( ColorRGB (100,255,100));
- GfxTextOut( "Sell S/L :"+sstop+"", Status("pxwidth")/C14+350, Status("pxheight")/C15*5);
- GfxSetTextColor( ColorRGB (0,265,0));
- GfxTextOut( "Buy TGT 1 : "+BTgt1+"", Status("pxwidth")/C14-350, Status("pxheight")/C15*5);
- GfxTextOut( "Buy TGT 6 : "+BTgt6+"", Status("pxwidth")/C14+225, Status("pxheight")/C15*4);
- GfxTextOut( "Buy TGT 2 : "+BTgt2+"", Status("pxwidth")/C14-225, Status("pxheight")/C15*4);
- GfxTextOut( "Buy TGT 5 : "+BTgt5+"", Status("pxwidth")/C14+125, Status("pxheight")/C15*3);
- GfxTextOut( "Buy TGT 3 : "+BTgt3+"", Status("pxwidth")/C14-125, Status("pxheight")/C15*3);
- GfxTextOut( "Buy TGT 4 : "+BTgt4+"", Status("pxwidth")/C14, Status("pxheight")/C15*2);
- GfxSetTextColor( ColorRGB (265,0,0));
- GfxTextOut( "Sell TGT 1 : "+STgt1+"", Status("pxwidth")/C14+350, Status("pxheight")/C15*7);
- GfxTextOut( "Sell TGT 6 : "+STgt6+"", Status("pxwidth")/C14-225, Status("pxheight")/C15*8);
- GfxTextOut( "Sell TGT 2 : "+STgt2+"", Status("pxwidth")/C14+225, Status("pxheight")/C15*8);
- GfxTextOut( "Sell TGT 5 : "+STgt5+"", Status("pxwidth")/C14-125, Status("pxheight")/C15*9);
- GfxTextOut( "Sell TGT 3 : "+STgt3+"", Status("pxwidth")/C14+125, Status("pxheight")/C15*9);
- GfxTextOut( "Sell TGT 4 : "+STgt4+"", Status("pxwidth")/C14, Status("pxheight")/C15*10);
- _SECTION_END();
- _SECTION_BEGIN("Title");
- DODay = TimeFrameGetPrice("O", inDaily);
- DHiDay = TimeFrameGetPrice("H", inDaily);
- DLoDay = TimeFrameGetPrice("L", inDaily);
- Title = EncodeColor(colorWhite)+EncodeColor(colorCustom8)+ " "+EncodeColor(colorCustom10)+ Interval(2) + ", " + EncodeColor(colorCustom11)+Date() + EncodeColor(colorCustom14)+" - "+strWeekday + " - " +
- EncodeColor(colorBlue) + "Open " + EncodeColor(colorWhite) + O +
- EncodeColor(colorRed)+ " High : " +EncodeColor(colorWhite) + H +
- EncodeColor(colorBrightGreen)+ " Low : " +EncodeColor(colorWhite) + L +
- EncodeColor(colorCustom16) +" Close : " + EncodeColor(colorWhite) +C +
- EncodeColor(colorBlue)+ " Day-Open : " +DODay + EncodeColor(colorBrightGreen)+" Day-High : " +DHiDay +EncodeColor(colorRed)+ " Day-Low : " + DLoDay
- ;
- _SECTION_BEGIN("Time Left");
- function GetSecondNum()
- {
- Time = Now( 4 );
- Seconds = int( Time % 100 );
- Minutes = int( Time / 100 % 100 );
- Hours = int( Time / 10000 % 100 );
- SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
- return SecondNum;
- }
- RequestTimedRefresh( 1 );
- TimeFrame = Interval();
- SecNumber = GetSecondNum();
- Newperiod = SecNumber % TimeFrame == 0;
- SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
- SecsToGo = TimeFrame - SecsLeft;
- x=Param("xposn",0,0,1000,1);
- y=Param("yposn",900,0,1000,1);
- GfxSelectSolidBrush( ColorRGB( 230, 230, 230 ) );
- GfxSelectPen( ColorRGB( 230, 230, 230 ), 2 );
- if ( NewPeriod )
- {
- GfxSelectSolidBrush( colorYellow );
- GfxSelectPen( colorYellow, 2 );
- Say( "New time CANDLE start" );
- }
- cx = Param( "cxposn", 516, 0, 1250, 1 );
- cy = Param( "cyposn", 15, 0, 500, 1 );
- GfxSelectFont( "bold", 10, 98, False );
- //gfxcup = SelectedValue(C > Ref(C,-1));
- //gfxpcolor = IIf(gfxcup,colorBrightGreen,colorRed);
- GfxSetTextColor(colorBrightGreen);
- //GfxSetTextColor( colorWhite );
- GfxTextOut( "Time left for candle close " + SecsToGo + " ", cx, cy );
- _SECTION_END();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement