// Downloaded From https://www.WiseStockTrader.com // ************************************************************ // @@@@@@@@@@@@@@@@@@CHART PANE SETTING @@@@@@@@@@@@@@@@@@@@@@@ // ============================================================ _SECTION_BEGIN("Chart Pane"); SetChartOptions(0,chartShowArrows|chartShowDates); //SetChartBkColor(ParamColor("Outer Panel",ColorRGB(30, 30, 30))); //SetChartBkGradientFill(ParamColor("Upper Chart",colorSkyblue),ParamColor("LowerChart",colorDarkGrey)); GraphXSpace=10; //SetBarFillColor(IIf(C>O,colorgreen,IIf(CO,colorgreen,IIf(C avg15, colorGreen, colorRed ) ); Plot( C, "Price", IIf( avg3 > avg15, colorGreen, colorRed ), styleCandle ); //Magnified Market Price GfxSelectFont("Times New Roman", 30, 700, True ); GfxSetBkMode( 1 ); GfxSetTextColor( colorLime ); GfxTextOut(""+C, 700 , 10 ); YC=TimeFrameGetPrice("C",inDaily,-1); DD=Prec(C-YC,2); xx=Prec((DD/YC)*100,2); GfxSelectFont("Times New Roman", 11, 700, True ); GfxSetBkMode( 1 ); GfxSetTextColor(colorGreen ); GfxTextOut(""+DD+" ("+xx+"%)", 700 , 50 ); _SECTION_END(); _SECTION_BEGIN("Grid_HourDay"); ShowGrid = ParamToggle("Show Grid", "No|Yes", 1); if (ShowGrid == 1) { grid_DAY = IIf(Day() != Ref(Day(), -1), 1, 0); grid_DAY_color = ParamColor("?olorDAY", colorBlue); Plot(grid_DAY, "", grid_DAY_color, styleHistogram|styleThick|styleNoLabel|styleNoRescale|styleOwnScale); grid_HOUR = IIf(Hour() != Ref(Hour(), -1), 1, 0); grid_HOUR_color = ParamColor("?olorHOUR", colorBrown); Plot(grid_HOUR, "", grid_HOUR_color, styleHistogram|styleDashed|styleNoLabel|styleNoRescale|styleOwnScale); } else {} _SECTION_END(); // ************************************************************ // @@@@@@@@@@@@@@@@@@CONDITIONAL SETTING @@@@@@@@@@@@@@@@@@@@@@ // ============================================================ _SECTION_BEGIN("CONDITIONAL SETTING "); GfxSetTextColor( colorBlack ); GfxSelectSolidBrush( colorGreen ); // this is the box background color GfxSelectPen( colorRed, 2); // broader color // GETTING TIME FRAME VALUE DH= TimeFrameGetPrice("H",inDaily,0); DL= TimeFrameGetPrice("L",inDaily,0); Plot(DH,"HIGH",colorBlue,styleLine); Plot(DL,"Low",colorGreen,styleLine); GfxTextOut( ("HIGH = "+DH), 13,40); GfxTextOut( ("LOW = "+Dl ), 13,60); //DC= TimeFrameGetPrice("C",inDaily,-1); ClAll=TimeNum()>=152000; LET= TimeNum()<=150000; //Entry-Exit //BASE FORMULA //B=1; //C=100; //D=(A-(B*int(A/B))); // A=125.25 (125.25-(1*INT(125.25/1))) = 0.25 //E=((A-(C*int(A/C)))-D); //((125.25-(100*INT(125.25/100))) - 0.25) = 25 //F=D*C; // 0.25 * 100 = 25 // FOR CHECKING IF DAYHIGH IS MAGIC NUMBER B=1; CC=100; DHD = (DH - ( B * int( DH / B ))); //A = DH DHE = (DH - ( CC * int ( DH / CC )) - DHD); //A = DH AND D = DHD DHF = DHD * CC; GfxTextOut( ("DHD = "+DHD ), 13,80); GfxTextOut( ("DHE = "+DHE ), 13,100); GfxTextOut( ("DHF = "+DHF ), 13,120); SCond = DHE==DHF!=0; Short = ValueWhen(IIf(SCond,DHE,Null),DH,1); //CoverPrice = ShortPrice + Short * 0.005; // FOR CHECKING IF DAYLOW IS MAGIC NUMBER DLD = (DL - ( B * int( DL / B ))); //A = DH DLE = (DL - ( CC * int ( DL / CC )) - DLD); //A = DL AND D = DLD DLF = DLD * CC; BCond = DLE==DLF!=0; Buy = ValueWhen(IIf(BCond,DLE,Null),DL,1); //Sell = Buy + Buy * //GfxTextOut( ("HIGH = "+DHE ), 13,40); //GfxTextOut( ("LOW = "+DLE ), 13,60); GfxSelectSolidBrush( colorRed ); GfxTextOut( ("DLD = "+DLD ), 13,140); GfxTextOut( ("DLE = "+DLE ), 13,160); GfxTextOut( ("DLF = "+DLF ), 13,180); GfxTextOut( ("BCOND = "+BCOND ), 13,200); GfxTextOut( ("SCOND = "+SCOND ), 13,220); //Remove Excessive signals Buy =ExRem(Buy,Short) ; Short=ExRem(Short,Buy); //Sell =ExRem(Sell,Buy) ; //Cover=ExRem(Cover,Short); // PLOTTING SHAPE 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),colorOrange, 0, H, Offset=25); PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0,H, Offset=35); PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-30); _SECTION_END(); // OPEN HIGH LOW // ************************************************************ // @@@@@@@@@@@@@@@@@@CONDITIONAL SETTING @@@@@@@@@@@@@@@@@@@@@@ // ============================================================ _SECTION_BEGIN("OPEN=HIGH=LOW "); TimeFrameSet(inDaily); V1=V; V2=Ref(V,-1); V3=LLV(L,250); OI1=Ref(OI,-1); OI2=(OI-OI1)/1000; L1=LLV(L,250); L2=L; H1=H; Oa=Open; Ha=High; La=Low; Cond11=Oa==Ha; Cond12=Oa==La; BuyOHL = Cond12; ShortOHL= Cond11; Cc = Close > 100; in = Inside(); TimeFrameRestore(); //Remove Excessive signals BuyOHL=ExRem(BuyOHL,ShortOHL); ShortOHL=ExRem(ShortOHL,BuyOHL); //Filter = cc AND BuyOHL OR ShortOHL OR in ; _SECTION_END(); // END OF HIGH LOW // ************************************************************ // @@@@@@@@@@@@@@@@@@EXPLORATION SETTING @@@@@@@@@@@@@@@@@@@@@@ // ============================================================ _SECTION_BEGIN("Exploration"); OHLMAG =ParamToggle("OHL/MAGIC","OHL|MAGIC"); TimeFrameSet(inDaily); //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 = (CCLOSE) AND (Buy OR Short); if (OHLMAG==0) { Filter = cc AND BuyOHL OR ShortOHL OR in ; //OHL // OHL AddColumn( IIf( BuyOHL, 66, colorRed ), "BuyOHL", formatChar, 1, bkcolor = IIf( BuyOHL, 43, colorRed ) ); } else { Filter = (cc) AND (BCOND OR SCOND); // MAGIC NUMBER // MAGIC NUMBER AddColumn( IIf( SCOND, 66, colorRed ), "Buy", formatChar, 1, bkcolor = IIf( SCOND, 43, colorRed ) ); } AddColumn( C, "CMP", 1.2, colorDefault, colorLightBlue ); AddColumn(Open,"Open"); AddColumn(High,"High/SELL"); AddColumn(Low,"Low/BUY"); AddColumn(Volume,"Volume",1.0, colorDefault, IIf (VolumeBlast,colorBlue,colorYellow)); //AddColumn(BCOND,"BUY"); //AddColumn(SCOND,"SELL"); AddColumn(in, "inside day"); SetSortColumns(-2,-8,-3); TimeFrameRestore(); _SECTION_END();