 |
| Swing Support Resistance With Buy Sell Arrows |
//www.aflcode.com _SECTION_BEGIN("Name"); GfxSetOverlayMode(1); GfxSelectFont("Tahoma", Status("pxheight")/8 ); GfxSetTextAlign( 6 );// center alignment GfxSetTextColor( ColorHSB( 42, 42, 42 ) ); GfxSetBkMode(0); // transparent GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/12 ); GfxSelectFont("Tahoma", Status("pxheight")/18 ); GfxTextOut( IndustryID(1), Status("pxwidth")/2, Status("pxheight")/4 ); GfxSelectFont("Tahoma", Status("pxheight")/18 ); GfxSelectFont("Tahoma", Status("pxheight")/36 ); GfxTextOut( "PRASAD RAO", Status("pxwidth")/2, Status("pxheight")/3 ); _SECTION_END(); SetBarFillColor( IIf(O>C,colorDarkRed, colorBrightGreen ) ); Plot( C, "Price", IIf( O>C,colorRed, colorGreen ), styleCandle ); HaClose =EMA((O+H+L+C)/4,3); HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); _SECTION_BEGIN("Resistance"); supres=ParamToggle("Sup_Res","No|Yes",1); if(supres) { Prd1=Param("Res_Period1",2,0,200,1); test = TEMA ( High , Prd1 ) ; PK = test > Ref(test,-1) AND Ref(test,1) < High;//Peak PKV0 = ValueWhen(PK,haHigh,0);//PeakValue0 PKV1 = ValueWhen(PK,haHigh,1);//PeakValue1 PKV2 = ValueWhen(PK,haHigh,2);//PeakValue2 MPK = PKV2 < PKV1 AND PKV1 > PKV0 ;//MajorPeak MPKV = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,1); //MajorPeakValue MPKD = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),1); //MajorPeakDate SD = IIf(DateNum() < LastValue(MPKD,lastmode = True ), Null, LastValue(MPKV,Lastmode = True));//SelectedDate Plot(SD, "Resist1", colorBrown,ParamStyle("ResStyle1",styleLine|styleNoTitle,maskAll)); MPKV2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,2); //MajorPeakValue MPKD2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),2); //MajorPeakDate SD2 = IIf(DateNum() < LastValue(MPKD2,lastmode = True ), Null, LastValue(MPKV2,Lastmode = True));//SelectedDate Plot(SD2, "Resist2", colorBrown,ParamStyle("ResStyle2",styleLine|styleNoTitle,maskAll)); MPKV3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,3); //MajorPeakValue MPKD3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),3); //MajorPeakDate SD3 = IIf(DateNum() < LastValue(MPKD3,lastmode = True ), Null, LastValue(MPKV3,Lastmode = True));//SelectedDate Plot(SD3, "Resist3", colorBrown,ParamStyle("ResStyle3",styleLine|styleNoTitle,maskAll)); MPKV4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,4); //MajorPeakValue MPKD4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),4); //MajorPeakDate SD4 = IIf(DateNum() < LastValue(MPKD4,lastmode = True ), Null, LastValue(MPKV4,Lastmode = True));//SelectedDate Plot(SD4, "Resist4", colorBrown,ParamStyle("ResStyle4",styleLine|styleNoTitle,maskAll)); MPKV5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,5); //MajorPeakValue MPKD5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),5); //MajorPeakDate SD5 = IIf(DateNum() < LastValue(MPKD5,lastmode = True ), Null, LastValue(MPKV5,Lastmode = True));//SelectedDate Plot(SD5, "Resist5", colorBrown,ParamStyle("ResStyle5",styleLine|styleNoTitle,maskAll)); MPKV6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,6); //MajorPeakValue MPKD6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),6); //MajorPeakDate SD6 = IIf(DateNum() < LastValue(MPKD6,lastmode = True ), Null, LastValue(MPKV6,Lastmode = True));//SelectedDate Plot(SD6, "Resist6", colorBrown ,ParamStyle("ResStyle6",styleLine|styleNoTitle,maskAll)); _SECTION_END(); _SECTION_BEGIN("Support"); //SP=L > Ref(L,-1) AND Ref(L,1) < L;//Peak Prd2=Param("Sup_Period1",2,0,200,1); test2 = TEMA ( Low , Prd2 ) ; SP = Ref(test2,1) > Low AND test2 < Ref(test2,-1);//Peak SPV0 = ValueWhen(SP,haLow,0);//PeakValue0 SPV1 = ValueWhen(SP,haLow,1);//PeakValue1 SPV2 = ValueWhen(SP,haLow,2);//PeakValue2 //PKV5 = ValueWhen(PK,haHigh,5);//PeakValue5 //PKV6 = ValueWhen(PK,haHigh,6);//PeakValue6 MSP = SPV2 > SPV1 AND SPV1 < SPV0 ;//MajorPeak MSPV = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,1); MSPD = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),1); SD = IIf(DateNum() < LastValue(MSPD,lastmode = True ), Null, LastValue(MSPV,Lastmode = True)); Plot(SD,"Support1", colorPlum,ParamStyle("SupportLine1",styleLine|styleNoTitle,maskAll)); MSPV2 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,2); MSPD2 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),2); SD2 = IIf(DateNum() < LastValue(MSPD2,lastmode = True ), Null, LastValue(MSPV2,Lastmode = True)); Plot(SD2,"Support2", colorPlum,ParamStyle("SupportLine2",styleLine|styleNoTitle,maskAll)); MSPV3 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,3); MSPD3 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),3); SD3 = IIf(DateNum() < LastValue(MSPD3,lastmode = True ), Null, LastValue(MSPV3,Lastmode = True)); Plot(SD3,"Support3", colorPlum,ParamStyle("SupportLine3",styleLine|styleNoTitle,maskAll)); MSPV4 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,4); MSPD4 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),4); SD4 = IIf(DateNum() < LastValue(MSPD4,lastmode = True ), Null, LastValue(MSPV4,Lastmode = True)); Plot(SD4,"Support4", colorPlum,ParamStyle("SupportLine4",styleLine|styleNoTitle,maskAll)); MSPV5 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,5); MSPD5 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),5); SD5 = IIf(DateNum() < LastValue(MSPD5,lastmode = True ), Null, LastValue(MSPV5,Lastmode = True)); Plot(SD5,"Support5", colorPlum,ParamStyle("SupportLine5",styleLine|styleNoTitle,maskAll)); MSPV6 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,6); MSPD6 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),6); SD6 = IIf(DateNum() < LastValue(MSPD6,lastmode = True ), Null, LastValue(MSPV6,Lastmode = True)); Plot(SD6,"Support6", colorPlum,ParamStyle("SupportLine6",styleLine|stylehidden|styleNoTitle,maskAll)); } _SECTION_END(); _SECTION_BEGIN("PRASAD SYSTEMS"); Param("DEDICATED TO MY FATHER",5); _SECTION_END(); _SECTION_BEGIN("BACK COLR"); SetChartBkColor( ParamColor("Chart Color", colorBlack)); SetChartOptions(0,chartShowArrows|chartShowDates); GfxSetOverlayMode(1); GfxSelectFont("Tahoma", Status("pxheight")/13 ); GfxSetTextAlign( 6 );// center alignment GfxSetTextColor( ParamColor("Text Color", ColorHSB( 42, 42, 42 ) )); GfxSetBkMode(0); // transparent GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/7); GfxSelectFont("Tahoma", Status("pxheight")/17 ); GfxTextOut( "HOLY GRAIL", Status("pxwidth")/2, Status("pxheight")/2.6 ); GfxSelectFont("Tahoma", Status("pxheight")/30 ); GfxTextOut( "prasad9rao@gmail.com", Status("pxwidth")/2, Status("pxheight")/2.1); GfxSelectFont("Arial Bold", Status("pxheight")/15); GfxTextOut( "PRASAD ANALYSTIC ver 5", Status("pxwidth")/2, Status("pxheight")/20); _SECTION_END(); GfxSetTextColor(ColorRGB(200, 150, 100) ); GfxSelectFont("Arial BOLD", Status("pxheight")/60); GfxTextOut( "Dedicated to My Father : BALKRISHNA RAO",Status("pxwidth")/5, Status("pxheight")/1.06); SetBarFillColor( IIf(O>C,ColorRGB(217,0,0),ColorRGB(1,149,38)) ); Plot( C, "Price", IIf( O>C,ColorRGB(255,208,82), ColorRGB(255,255,255)), styleCandle ); /******************FIXED TITLES**************/ Chg=Ref(C,-1); Title = EncodeColor(colorYellow)+ "Company :: " +Title = Name() + " " + EncodeColor(colorLightOrange) + "Date :: " + Date() +EncodeColor(11) + EncodeColor(colorWhite) + "\n{{INTERVAL}} " + EncodeColor(55)+ " Open: "+ EncodeColor(colorWhite)+ WriteVal(O,format=1.2) + EncodeColor(55)+ " High: "+ EncodeColor(colorWhite) + WriteVal(H,format=1.2) + EncodeColor(55)+ " Low: "+ EncodeColor(colorWhite)+ WriteVal(L,format=1.2) + EncodeColor(55)+ " Close: "+ WriteIf(C> Chg,EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(C,format=1.2)+ EncodeColor(55)+ " Change: "+ WriteIf(C> Chg,EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(ROC(C,1),format=1.2)+ "%"+ EncodeColor(55)+ " Volume: "+ EncodeColor(colorWhite)+ WriteVal(V,1); /************************************************************ SUPPORTS & RESISTANCE *************************************************************/ HaClose =EMA((O+H+L+C)/4,3); HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); _SECTION_BEGIN("Support and Resistance"); supres=ParamToggle("Display(ON - OFF)","Off|On",0); if(supres) { Prd1=Param("Resistance Period",2,0,200,1); test = TEMA ( High , Prd1 ) ; PK = test > Ref(test,-1) AND Ref(test,1) < High;//Peak PKV0 = ValueWhen(PK,haHigh,0);//PeakValue0 PKV1 = ValueWhen(PK,haHigh,1);//PeakValue1 PKV2 = ValueWhen(PK,haHigh,2);//PeakValue2 MPK = PKV2 < PKV1 AND PKV1 > PKV0 ;//MajorPeak MPKV = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,1); //MajorPeakValue MPKD = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),1); //MajorPeakDate SD = IIf(DateNum() < LastValue(MPKD,lastmode = True ), Null, LastValue(MPKV,Lastmode = True));//SelectedDate Plot(SD, "Resist1", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MPKV2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,2); //MajorPeakValue MPKD2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),2); //MajorPeakDate SD2 = IIf(DateNum() < LastValue(MPKD2,lastmode = True ), Null, LastValue(MPKV2,Lastmode = True));//SelectedDate Plot(SD2, "Resist2", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MPKV3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,3); //MajorPeakValue MPKD3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),3); //MajorPeakDate SD3 = IIf(DateNum() < LastValue(MPKD3,lastmode = True ), Null, LastValue(MPKV3,Lastmode = True));//SelectedDate Plot(SD3, "Resist3", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MPKV4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,4); //MajorPeakValue MPKD4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),4); //MajorPeakDate SD4 = IIf(DateNum() < LastValue(MPKD4,lastmode = True ), Null, LastValue(MPKV4,Lastmode = True));//SelectedDate Plot(SD4, "Resist4", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MPKV5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,5); //MajorPeakValue MPKD5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),5); //MajorPeakDate SD5 = IIf(DateNum() < LastValue(MPKD5,lastmode = True ), Null, LastValue(MPKV5,Lastmode = True));//SelectedDate Plot(SD5, "Resist5", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MPKV6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,6); //MajorPeakValue MPKD6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),6); //MajorPeakDate SD6 = IIf(DateNum() < LastValue(MPKD6,lastmode = True ), Null, LastValue(MPKV6,Lastmode = True));//SelectedDate Plot(SD6, "Resist6", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); //SP=L > Ref(L,-1) AND Ref(L,1) < L;//Peak Prd2=Param("Suppport Period",2,0,200,1); test2 = TEMA ( Low , Prd2 ) ; SP = Ref(test2,1) > Low AND test2 < Ref(test2,-1);//Peak SPV0 = ValueWhen(SP,haLow,0);//PeakValue0 SPV1 = ValueWhen(SP,haLow,1);//PeakValue1 SPV2 = ValueWhen(SP,haLow,2);//PeakValue2 //PKV5 = ValueWhen(PK,haHigh,5);//PeakValue5 //PKV6 = ValueWhen(PK,haHigh,6);//PeakValue6 MSP = SPV2 > SPV1 AND SPV1 < SPV0 ;//MajorPeak MSPV = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,1); MSPD = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),1); SD = IIf(DateNum() < LastValue(MSPD,lastmode = True ), Null, LastValue(MSPV,Lastmode = True)); Plot(SD,"Support1", colorYellow,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MSPV2 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,2); MSPD2 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),2); SD2 = IIf(DateNum() < LastValue(MSPD2,lastmode = True ), Null, LastValue(MSPV2,Lastmode = True)); Plot(SD2,"Support2", colorYellow,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MSPV3 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,3); MSPD3 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),3); SD3 = IIf(DateNum() < LastValue(MSPD3,lastmode = True ), Null, LastValue(MSPV3,Lastmode = True)); Plot(SD3,"Support3", colorYellow,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MSPV4 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,4); MSPD4 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),4); SD4 = IIf(DateNum() < LastValue(MSPD4,lastmode = True ), Null, LastValue(MSPV4,Lastmode = True)); Plot(SD4,"Support4", colorYellow,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MSPV5 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,5); MSPD5 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),5); SD5 = IIf(DateNum() < LastValue(MSPD5,lastmode = True ), Null, LastValue(MSPV5,Lastmode = True)); Plot(SD5,"Support5", colorYellow,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); MSPV6 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,6); MSPD6 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),6); SD6 = IIf(DateNum() < LastValue(MSPD6,lastmode = True ), Null, LastValue(MSPV6,Lastmode = True)); Plot(SD6,"Support6", colorYellow,styleDots|styleDashed|styleThick|styleNoTitle,maskAll); } _SECTION_END(); /* ********************************** PIVOTS ********************************** */ _SECTION_BEGIN("PIVOT Average "); P = ParamField("Field"); Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple"); Periods = Param("Periods", 9, 2, 100 ); Displacement = Param("Displacement", 1, -50, 50 ); m = 0; if( Type == "Weighted" ) m= WMA( P, Periods ); if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods); if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 ); if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods ); if( Type == "Exponential" ) m = EMA( P, Periods ); if( Type == "Double Exponential" ) m = DEMA( P, Periods ); if( Type == "Tripple Exponential" ) m = TEMA( P, Periods ); if( Type == "Wilders" ) m = Wilders( P, Periods ); if( Type == "Simple" ) m = MA( P, Periods ); _SECTION_BEGIN("Pivot Finder"); /* ********************************** Code to automatically identify pivots ********************************** */ // -- what will be our lookback range for the hh and ll? farback=Param("How Far back to go",100,50,5000,10); nBars = Param("Number of bars", 12, 5, 40); "BIdxJJJ = " + BarIndex() + "\n" + "OGGGGGGGGGGG = " + O + "\n"+"H = "+ H + "\n"+"L = " + L + "\n"+"C " ; GraphXSpace=7; // -- Create 0-initialized arrays the size of barcount aHPivs = H - H; aLPivs = L - L; // -- More for future use, not necessary for basic plotting aHPivHighs = H - H; aLPivLows = L - L; aHPivIdxs = H - H; aLPivIdxs = L - L; nHPivs = 0; nLPivs = 0; lastHPIdx = 0; lastLPIdx = 0; lastHPH = 0; lastLPL = 0; curPivBarIdx = 0; aHHVBars = HHVBars(H, nBars); aLLVBars = LLVBars(L, nBars); aHHV = HHV(H, nBars); aLLV = LLV(L, nBars); aVisBars = Status("barvisible"); nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0))); _TRACE("Last visible bar: " + nLastVisBar); // -- Initialize value of curTrend curBar = (BarCount-1); curTrend = ""; if (aLLVBars[curBar] < aHHVBars[curBar]) { curTrend = "D"; } else { curTrend = "U"; } if (BarCount > farback) { for (i=0; i<farback; i++) { curBar = (BarCount - 1) - i; // -- Have we identified a pivot? If trend is down... if (aLLVBars[curBar] < aHHVBars[curBar]) { // ... and had been up, this is a trend change if (curTrend == "U") { curTrend = "D"; // -- Capture pivot information curPivBarIdx = curBar - aLLVBars[curBar]; aLPivs[curPivBarIdx] = 1; aLPivLows[nLPivs] = L[curPivBarIdx]; aLPivIdxs[nLPivs] = curPivBarIdx; nLPivs++; } // -- or current trend is up } else { if (curTrend == "D") { curTrend = "U"; curPivBarIdx = curBar - aHHVBars[curBar]; aHPivs[curPivBarIdx] = 1; aHPivHighs[nHPivs] = H[curPivBarIdx]; aHPivIdxs[nHPivs] = curPivBarIdx; nHPivs++; } // -- If curTrend is up...else... } // -- loop through bars } } curBar = (BarCount-1); candIdx = 0; candPrc = 0; lastLPIdx = aLPivIdxs[0]; lastLPL = aLPivLows[0]; lastHPIdx = aHPivIdxs[0]; lastHPH = aHPivHighs[0]; if (lastLPIdx > lastHPIdx) { // -- Bar and price info for candidate pivot candIdx = curBar - aHHVBars[curBar]; candPrc = aHHV[curBar]; if ( lastHPH < candPrc AND candIdx > lastLPIdx AND candIdx < curBar) { // -- OK, we'll add this as a pivot... aHPivs[candIdx] = 1; // ...and then rearrange elements in the // pivot information arrays for (j=0; j<nHPivs; j++) { aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs- (j+1)]; aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)]; } aHPivHighs[0] = candPrc ; aHPivIdxs[0] = candIdx; nHPivs++; } } else { // -- Bar and price info for candidate pivot candIdx = curBar - aLLVBars[curBar]; candPrc = aLLV[curBar]; if ( lastLPL > candPrc AND candIdx > lastHPIdx AND candIdx < curBar) { // -- OK, we'll add this as a pivot... aLPivs[candIdx] = 1; for (j=0; j<nLPivs; j++) { aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)]; aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)]; } aLPivLows[0] = candPrc; aLPivIdxs[0] = candIdx; nLPivs++; } } printf("\n Buuuy pivotss %g", aLPivs); printf("\n Seel pivotss %g \n",aHPivs); IIf( (aHPivs==1 AND aLPivs==0),PIVOT_SELL = 5, PIVOT_SELL = 0 ); IIf( aLPivs==1 AND aHPivs==0, PIVOT_BUY = 0, PIVOT_BUY = 5 ); PIVOT_BUY = IIf(aLPivs==1, 5, 0); PIVOT_SELL = IIf(aHPivs==1, 5, 0); printf("\n Buuuy pivotss %g", PIVOT_BUY); printf("\n Seel pivotss %g \n",PIVOT_SELL); PIVOT_status = WriteIf(PIVOT_BUY,"Buy["+PIVOT_BUY+"]",WriteIf(PIVOT_SELL,"Sell["+PIVOT_SELL+"]","NA")); PIVOT_col = IIf (PIVOT_BUY,colorGreen, IIf (PIVOT_SELL,colorRed,colorLightGrey)); _SECTION_END(); /************************************************************ VOLUMES INCLUDED IN CHART *************************************************************/ _SECTION_BEGIN("Volume"); VOLUME_TOGGLE = ParamToggle("Plot Volume","Off|On",0); minimum = LastValue( Lowest( Volume ) ); maximum = LastValue( Highest( Volume ) )*10; Period = Param("Period", 10, 2, 300, 1, 10 ); Volumeclimaxup = colorRed; HighVolumeChurnbars = colorLime; Lowvolumebars = colorYellow; Volumeclimaxdn = colorWhite; ClimaxChurnColor=colorBlue; Value1 = V; Value2 = V*(H-L); Value3 = V/(H-L); SetBarFillColor(IIf( (Value2 == HHV(Value2,Period)),ColorRGB(255,0,0), IIf( (Value3 == HHV(Value3,Period)), ColorRGB(0, 142,0), IIf( (Value1 == LLV(Value1,Period)), ColorRGB(255,255,0), IIf( ((Value2 == HHV(Value2,Period) AND (Value3 == HHV(Value3,Period)))), ClimaxChurnColor, IIf( (Value3 == LLV(Value3,Period)), Volumeclimaxdn, ColorRGB(0, 206, 255 ))))))); BarColor = IIf( (Value2 == HHV(Value2,Period)),ColorRGB(255,0,0), IIf( (Value3 == HHV(Value3,Period)),ColorRGB(0, 142,0), IIf( (Value1 == LLV(Value1,Period)), ColorRGB(255,255,0), IIf( ((Value2 == HHV(Value2,Period) AND (Value3 == HHV(Value3,Period)))), ClimaxChurnColor, IIf( (Value3 == LLV(Value3,Period)), Volumeclimaxdn, ColorRGB(0, 206, 255)))))); if(VOLUME_TOGGLE==1) { Plot( Volume, "Volume", Barcolor, styleCandle | styleThick | styleOwnScale, minimum, maximum); _SECTION_END(); } /************************************************************ EMA 21 50 crossover *************************************************************/ /********************************************************** /ADX ***********************************************************/ range = Param("Range",14,3,60,1); px = PDI(range); nx = MDI(range); ax = ADX(range); Line_Control = 20; up_adx = Ref(ADX(range),-1) < ADX(range); dw_adx = Ref(ADX(range),-1) > ADX(range); // ADX Trends Notrend = ADX(range) < 20; ModerateTrend = ADX(range) >= 20 AND ADX(range) < 40 AND up_adx ; StrongTrend = ADX(range) >= 40 AND ADX(range) < 60 AND up_adx ; VeryStrongTrend = ADX(range) >= 60 AND ADX(range) < 80 AND up_adx ; ExtremelyStrongTrend = ADX(range) >= 80 AND up_adx ; // Buy Conditions bcon1 = Cross(px,ax) AND nx < px AND ax > Ref(ax,-1); scon1 = Cross(nx,ax) AND px < nx AND ax > Ref(ax,-1); adbuy = ax < 20 AND ax > Ref(ax,-1) AND ( Cross(px,nx) OR nx < px) ; adsell = ax < 20 AND ax > Ref(ax,-1) AND ( Cross(nx,px) OR nx > px) ; adbuy1 = Cross(px,ax) AND nx < px AND ax > Ref(ax,-1) AND px > ax; adsell1 = Cross(nx,ax) AND nx > px AND ax > Ref(ax,-1) AND nx > ax; BUY_ADX = bcon1 + adbuy + adbuy1; SELL_ADX = scon1 + adsell + adsell1; ADX_status = WriteIf(BUY_ADX,"Buy["+BUY_ADX+"]",WriteIf(SELL_ADX,"Sell["+SELL_ADX+"]","NA")); ADX_col = IIf (BUY_ADX,colorGreen, IIf (SELL_ADX,colorRed,colorLightGrey)); /********************************************************** /MACD Cross ***********************************************************/ _SECTION_BEGIN("MACD"); MACD_TOGGLE = ParamToggle("Plot MACD","Off|On",0); r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); m1 = MACD(r1, r2); s1 = Signal(r1,r2,r3); difference = m1-s1; mycolor=IIf(m1<0 AND m1>s1,51,IIf(m1>0 AND m1>s1,colorBrightGreen,IIf(m1>0 AND m1<s1,colorLightOrange,colorRed))); // ********************** //MACD crossing zero B_MACD_0 = Cross(MACD(r1, r2),0); S_MACD_0 = Cross(0,MACD(r1, r2)); // ********************** //Bullish - Bearish MACD crossing signal above zero or below zero plane BULL_CROSS_ABOVE_ZERO = Cross (MACD(r1, r2),Signal(r1,r2,r3)) AND MACD(r1, r2) > 0; BEAR_CROSS_ABOVE_ZERO = Cross (Signal(r1,r2,r3),MACD(r1, r2)) AND MACD(r1, r2) > 0; // ********************** //bELOW ZERO Bullish - Bearish MACD crossing signal above zero or below zero plane BULL_CROSS_BELOW_ZERO = Cross (MACD(r1, r2),Signal(r1,r2,r3)) AND MACD(r1, r2)<0; BEAR_CROSS_BELOW_ZERO = Cross(Signal(r1,r2,r3),MACD(r1, r2)) AND MACD(r1, r2)<0; // ********************** //Zero line reject ZLR BEAR_ZLR = BarsSince(B_MACD_0); BEAR_ZLR1 = (BEAR_ZLR < 6) AND (S_MACD_0); BULL_ZLR = BarsSince(S_MACD_0); BULL_ZLR1 = (BULL_ZLR < 6) AND (B_MACD_0); // ********************** //HOOKS BULL_HOOK1 = BarsSince(BEAR_CROSS_ABOVE_ZERO); BULL_HOOK = (BULL_HOOK1<6) AND BULL_CROSS_ABOVE_ZERO ; BEAR_HOOK1 = BarsSince(BULL_CROSS_ABOVE_ZERO); BEAR_HOOK = (BEAR_HOOK1<6) AND BEAR_CROSS_ABOVE_ZERO ; BUY_MACD = B_MACD_0 + BULL_CROSS_ABOVE_ZERO + BULL_CROSS_BELOW_ZERO + BULL_ZLR1 + BULL_HOOK; SELL_MACD = S_MACD_0 + BEAR_CROSS_ABOVE_ZERO + BEAR_CROSS_BELOW_ZERO + BEAR_ZLR1 + BEAR_HOOK; /* if(MACD_TOGGLE==1) { GraphX = 5; Plot( m1, StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ),ParamStyle("MACD style") ); Plot( s1 ,"Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlueGrey ), ParamStyle("Signal style") ); Color =IIf(difference > 0,colorLime,colorRed); Plot(m1-s1, "MACD Histogram", mycolor, styleHistogram | styleThick | styleNoLabel, styleOwnScale); PlotShapes(IIf(B_MACD_0,shapeDigit1 ,Null),colorYellow,0,Min(0,0),Min(0,0)); PlotShapes(IIf(B_MACD_0,shapeUpArrow,Null),colorGreen,0,Min(0,0),-20); PlotShapes(IIf(S_MACD_0,shapeDigit2 ,Null),colorOrange,0,Min(0,0),0); PlotShapes(IIf(S_MACD_0,shapeDownArrow,Null),colorRed,0,Min(0,0),-20); PlotShapes(IIf(BULL_CROSS_ABOVE_ZERO,shapeDigit3 ,Null),colorYellow,0,Min(0,0),Min(0,0)); PlotShapes(IIf(BULL_CROSS_ABOVE_ZERO,shapeUpArrow,Null),colorGreen,0,Min(0,0),-20); PlotShapes(IIf(BEAR_CROSS_ABOVE_ZERO ,shapeDigit4 ,Null),colorOrange,0,Min(0,0),Min(0,0)); PlotShapes(IIf(BEAR_CROSS_ABOVE_ZERO ,shapeDownArrow,Null),colorRed,0,Min(0,0),-20); PlotShapes(IIf(BULL_CROSS_BELOW_ZERO,shapeDigit5 ,Null),colorYellow,0,Min(0,0),Min(0,0)); PlotShapes(IIf(BULL_CROSS_BELOW_ZERO,shapeUpArrow,Null),colorGreen,0,Min(0,0),-20); PlotShapes(IIf(BEAR_CROSS_BELOW_ZERO,shapeDigit6 ,Null),colorOrange,0,Min(0,0),Min(0,0)); PlotShapes(IIf(BEAR_CROSS_BELOW_ZERO,shapeDownArrow,Null),colorRed,0,Min(0,0),-20); PlotShapes(IIf(BEAR_ZLR1,shapeStar+shapePositionAbove,shapeNone),colorRed,0,0,-30); PlotShapes(IIf(BULL_ZLR1,shapeStar+shapePositionAbove,shapeNone),colorGold,0,0,30); PlotShapes(IIf(BULL_HOOK,shapeStar+shapePositionAbove,shapeNone),colorGold,0,0,30); PlotShapes(IIf(BEAR_HOOK,shapeStar+shapePositionAbove,shapeNone),colorRed,0,0,-30); } */ _SECTION_END(); BUY_MACD = B_MACD_0 + BULL_CROSS_ABOVE_ZERO + BULL_CROSS_BELOW_ZERO + BULL_ZLR1 + BULL_HOOK ; SELL_MACD = S_MACD_0 + BEAR_CROSS_ABOVE_ZERO + BEAR_CROSS_BELOW_ZERO + BEAR_ZLR1 + BEAR_HOOK ; MACD_status = WriteIf(BUY_MACD,"Buy["+BUY_MACD+"]",WriteIf(SELL_MACD,"Sell["+SELL_MACD+"]","NA")); MACD_col = IIf (BUY_MACD,colorGreen, IIf (SELL_MACD,colorRed,colorLightGrey)); /************************************************** Stochastics ***************************************************/ _SECTION_BEGIN("STOCHASTICS"); STOC_TOGGLE = ParamToggle("Plot STOCHASTICS","Off|On",0); SP = Param( "Periods", 10, 1, 200, 1 ); Ksmooth = Param( "%K avg", 5, 1, 200, 1 ); Dsmooth = Param( "%D avg", 5, 1, 200, 1 ); StochDval = StochD( SP , Ksmooth, DSmooth ); StochKval = StochK( SP , Ksmooth); Overbought = 80; Oversold = 20; /* if(STOC_TOGGLE==1) { GraphX = 5; Plot( StochD( SP , Ksmooth, DSmooth), _DEFAULT_NAME(), ParamColor( "ColorD", colorTurquoise ), ParamStyle("Style") ); Plot( StochK( SP , Ksmooth), _DEFAULT_NAME(), ParamColor( "ColorK", colorPaleGreen ), ParamStyle("Style") ); Plot(Overbought,"Overbought Level",colorRed); Plot(Oversold,"Oversold Level",colorGreen); } */ StochBuy = Cross(StochK(SP,Ksmooth), StochD(SP,Ksmooth, DSmooth)) AND (StochD(SP,Ksmooth, DSmooth) > 20) AND (StochK(SP,Ksmooth) > 20) AND (StochD(SP,Ksmooth, DSmooth) < 80) AND (StochK(SP,Ksmooth) < 80); StochSell = Cross (StochD(SP,Ksmooth, DSmooth), StochK(SP,Ksmooth)) AND (StochD(SP,Ksmooth, DSmooth) > 20) AND (StochK(SP,Ksmooth) > 20) AND (StochD(SP,Ksmooth, DSmooth) < 80) AND (StochK(SP,Ksmooth) < 80); StochStrongBuy = Cross(StochK(SP,Ksmooth),StochD(SP,Ksmooth, DSmooth)) AND (StochD(SP,Ksmooth, DSmooth) < 20) AND (StochK(SP,Ksmooth) < 20) ; StochStrongSell = Cross (StochD(SP,Ksmooth,DSmooth), StochK(SP , Ksmooth)); (StochD(SP,Ksmooth, DSmooth) > 80) AND (StochK(SP,Ksmooth) > 80); BUY_STOCH = StochBuy + StochStrongBuy; SELL_STOCH = StochSell + StochStrongSell; printf("sto %g",BUY_STOCH); _SECTION_END(); STOCH_status = WriteIf(BUY_STOCH,"Buy["+BUY_STOCH+"]",WriteIf(SELL_STOCH,"Sell["+SELL_STOCH+"]","NA")); STOCH_col = IIf (BUY_STOCH,colorGreen, IIf (SELL_STOCH,colorRed,colorLightGrey)); /************************************************** TREND DETECTOR ***************************************************/ _SECTION_BEGIN("Trend Detector"); TREND_TOGGLE = ParamToggle("Plot Trend","Off|On",0); A = (H+C+L)/3; B=MA(A,5)-EMA(A,34); D = EMA(A,34)-MA(A,5); Bcolor=IIf(B>D,25,39); Dcolor=IIf(D<B,25,39); Up = B > D; down = B < D; TREND_B = Cross(B,D); TREND_S = Cross(D,B); if(TREND_TOGGLE==1) { Plot(B,"B ",Bcolor,styleLine|styleThick); Plot(D,"D ",Dcolor,styleLine|styleThick); Plot(B,"",Bcolor,styleHistogram|styleThick); Plot(D,"",Dcolor,styleHistogram|styleThick); Plot(0,"",colorWhite,styleLine); PlotShapes(IIf(TREND_S, shapeHollowDownArrow , shapeNone), colorRed,0,0,-8); PlotShapes(IIf(TREND_B, shapeHollowUpArrow , shapeNone), colorGreen,0,0,-8); } _SECTION_END(); TREND_status = WriteIf(TREND_B,"Buy",WriteIf(TREND_S ,"Sell","NA")); TREND_col = IIf (TREND_B,colorGreen, IIf (TREND_S ,colorRed,colorLightGrey)); /************************************************** RSI ***************************************************/ _SECTION_BEGIN("RSI"); Rperiods = Param( "Periods", 14, 1, 200, 1 ); OB = Param("OverBrought Line",70,70,100,1); OS = Param("OverSold Line",30,20,40,1); CentreRSI = 50; Overbought = OB; Oversold = OS; RSI_PERIODS = Prec(RSI( Rperiods),1); //******* RSI Cross 30 or 70**// B_RSI = RSI_CROSS_30 = Cross(RSI_PERIODS,OS); S_RSI = RSI_CROSS_70 = Cross(OB,RSI_PERIODS); //******* RSI < 30 or > 70**// RSI_BELOW_30 = RSI_PERIODS < OS ; RSI_ABOVE_70 = RSI_PERIODS > OB ; //******* RSI > OR < IN LAST 14 DAYS***// RSI_14_GREATEST = RSI_PERIODS>=HHV( RSI_PERIODS, 14); RSI_14_LOWEST = RSI_PERIODS<=LLV( RSI_PERIODS, 14); //******* RSI DIVERGENCE***// RSI_BEAR_DIV = Close >= HHV( Close, 14 ) AND RSI_PERIODS < HHV( RSI_PERIODS, 14 ); RSI_BULL_DIV = RSI_PERIODS >= HHV( RSI_PERIODS, 14 ) AND Close < HHV( Close, 14 ); RSI_BULL_DIV1 = Close <= LLV( Close, 14 ) AND RSI_PERIODS > LLV(RSI_PERIODS, 14 ); RSI_BEAR_DIV1 = RSI_PERIODS <= LLV( RSI_PERIODS, 14) AND Close > LLV(Close,14); /*****///////// RSI_BUY = B_RSI ; RSI_SELL =S_RSI ; _SECTION_END(); RSI_status = WriteIf(RSI_BUY,"Buy["+RSI_BUY+"]",WriteIf(RSI_SELL,"Sell["+RSI_SELL+"]","NA")); RSI_col = IIf (RSI_BUY,colorGreen, IIf (RSI_SELL,colorRed,colorLightGrey)); /************************************************** OBV ***************************************************/ _SECTION_BEGIN("OBV"); MA_OBV_Period = Param("OBV_MA Period",10,10,21,1); /***********OBV CROSS MA************/ OBV_BUY = Cross(OBV(),MA(OBV(),MA_OBV_Period)); OBV_SELL = Cross(MA(OBV(),MA_OBV_Period),OBV()); _SECTION_END(); OBV_status = WriteIf(OBV_BUY,"Buy",WriteIf(OBV_SELL,"Sell","NA")); OBV_col = IIf (OBV_BUY,colorGreen, IIf (OBV_SELL,colorRed,colorLightGrey)); /************************************************** TSV = SIMILAR TO WORDEN ***************************************************/ _SECTION_BEGIN("TSV"); Period = Param("Period for FVE", 22, 5, 80, 1 ); Coeff = Param("Coeff for Cutoff", 0.1, 0, 2, 0.01 ); intra=log(H)-log(L); Vintra = StDev(intra, period ); inter = log(Avg)-log(Ref(Avg,-1)); Vinter = StDev(inter,period); Cutoff = Coeff * (Vinter+Vintra)*C; MF = C- (H+L)/2 + Avg - Ref( Avg, -1 ); VC = IIf( MF > Cutoff, V, IIf( MF < -Cutoff, -V, 0 )); FVE = 100 * Sum( VC, Period )/(MA( V, Period ) * Period ); // Momemtum Indicator by William Blau TSI = 100 * ( EMA( EMA( C - Ref( C, -1 ) ,25 ) ,13) / EMA( EMA( abs( C - Ref( C, -1) ),25 ), 13 ) ); TSI_BUY = Cross(TSI,EMA(TSI,7)); TSI_SELL = Cross(EMA(TSI,7),TSI); _SECTION_END(); TSI_status = WriteIf(TSI_BUY,"Buy",WriteIf(TSI_SELL,"Sell","NA")); TSI_col = IIf (TSI_BUY,colorGreen, IIf (TSI_SELL,colorRed,colorLightGrey)); /************************************************** TRIX ***************************************************/ _SECTION_BEGIN("TRIX"); // TRIX - 15 Periods, 9 Signal Periods tPeriods = Param("Periods", 15, 2, 100, 1 ); tSig = Param("Signal", 9, 2, 100, 1); Zero = 0; TRIX_VAL = Trix(tPeriods); SIG_TRIX = EMA(Trix(tPeriods),tSig); /***********TRIX & Signal Line cross ************/ TRIX_SIGNAL_BUY = Cross(TRIX_VAL, SIG_TRIX) AND TRIX_VAL < 0; TRIX_SIGNAL_SELL = Cross(SIG_TRIX, TRIX_VAL)AND TRIX_VAL > 0; /***********TRIX & Zero Line cross ************/ TRIX_ZERO_BUY = Cross(TRIX_VAL, Zero); TRIX_ZERO_SELL = Cross(Zero, TRIX_VAL); TRIX_BUY = TRIX_SIGNAL_BUY + TRIX_ZERO_BUY; TRIX_SELL = TRIX_SIGNAL_SELL + TRIX_ZERO_SELL; _SECTION_END(); TRIX_status = WriteIf(TRIX_BUY,"Buy",WriteIf(TRIX_SELL,"Sell","NA")); TRIX_col = IIf (TRIX_BUY,colorGreen, IIf (TRIX_SELL,colorRed,colorLightGrey)); /************************************************ Gap *************************************************/ GAP_UP = GapUp(); GAP_DW = GapDown(); GAP_status = WriteIf(GAP_UP,"Buy",WriteIf(GAP_DW ,"Sell","NA")); GAP_col = IIf (GAP_UP,colorGreen, IIf (GAP_DW ,colorRed,colorLightGrey)); /************************************************ Total of Bullish/Bearish *************************************************/ Total_Buy = PIVOT_BUY + BUY_ADX + BUY_MACD + BUY_STOCH+ TREND_B + GAP_UP + RSI_BUY + OBV_BUY + TSI_BUY + TRIX_BUY; Total_Sell = PIVOT_SELL + SELL_ADX + SELL_MACD + SELL_STOCH + TREND_S + GAP_DW + RSI_SELL + OBV_SELL +TSI_SELL+TRIX_SELL; printf("B OIVOTS %g\n",PIVOT_BUY); printf("SELL PIVOTS %g\n",PIVOT_SELL); printf("BUY GAP %g\n",TREND_B); printf("BUY TREND %g\n",GAP_UP); printf("BUY RSI %g\n",B_RSI + RSI_14_GREATEST + RSI_BULL_DIV1 + RSI_BULL_DIV); /**************************************************** CHART TITLES ****************************************************/ _SECTION_BEGIN("ANALYSIS"); ANALYSIS_TOGGLE = ParamToggle("ON - OFF","Off|On",1); if(ANALYSIS_TOGGLE==1) { Chg=Ref(C,-1); Title = EncodeColor(ColorRGB(109,178,255))+ "Company :: " +Title = Name() + " " + EncodeColor(colorLightOrange) + "Date :: " + Date() +EncodeColor(11) + EncodeColor(colorWhite) + "\n{{INTERVAL}} " + EncodeColor(ColorRGB(0,240,255))+ " Open: "+ EncodeColor(colorWhite)+ WriteVal(O,format=1.2) + EncodeColor(ColorRGB(0,240,255))+ " High: "+ EncodeColor(colorWhite) + WriteVal(H,format=1.2) + EncodeColor(ColorRGB(0,240,255))+ " Low: "+ EncodeColor(colorWhite)+ WriteVal(L,format=1.2) + EncodeColor(ColorRGB(0,240,255))+ " Close: "+ WriteIf(C> Chg,EncodeColor(ColorRGB(168,255,0)),EncodeColor(colorRed))+ WriteVal(C,format=1.2)+ EncodeColor(ColorRGB(0,240,255))+ " Change: "+ WriteIf(C> Chg,EncodeColor(ColorRGB(168,255,0)),EncodeColor(colorRed))+ WriteVal(ROC(C,1),format=1.2)+ "%"+ EncodeColor(ColorRGB(195,158,255))+ " Volume: "+ EncodeColor(colorWhite)+ WriteVal(V,1) +"\n" +"\n"+EncodeColor(colorYellow) +"---------------------" +"\n"+EncodeColor(colorGold)+ " Prasad " +"\n"+EncodeColor(colorYellow) +"---------------------" /**************** PIVOTS***************************/ + "\n" +EncodeColor(colorWhite)+"PIVOTS = " + WriteIf (aLPivs,EncodeColor(ColorRGB(168,255,0))+" BUY("+PIVOT_BUY+")",WriteIf (aHPivs,EncodeColor(colorRed)+ " SELL("+PIVOT_SELL+")","Neutral")) /**************** ADX***************************/ + "\n" +EncodeColor(colorWhite)+"ADX = " + WriteIf (BUY_ADX,EncodeColor(ColorRGB(168,255,0))+"BUY("+BUY_ADX+")",WriteIf (SELL_ADX,EncodeColor(colorRed)+ " SELL("+SELL_ADX+")","Neutral")) /**************** MACD ***************************/ + "\n" + EncodeColor(colorWhite)+"MACD "+"["+r1+"]"+" " +"["+r2+"]"+" " +"["+r3+"] = " + WriteIf (BUY_MACD,EncodeColor(ColorRGB(168,255,0))+"BUY("+BUY_MACD+")",WriteIf (SELL_MACD,EncodeColor(colorRed)+ "SELL("+SELL_MACD+")","Neutral")) /********************STOChASTICS*********************/ +"\n"+EncodeColor(colorWhite)+"Stochastics = " + WriteIf(BUY_STOCH,EncodeColor(ColorRGB(168,255,0))+"BUY ("+BUY_STOCH+")",WriteIf(SELL_STOCH,EncodeColor(colorRed)+"SELL("+SELL_STOCH+")","Neutral")) /********************RSI*********************/ +"\n" + EncodeColor(colorWhite)+"RSI"+"("+Rperiods+") = " +WriteIf(B_RSI,EncodeColor(ColorRGB(168,255,0))+"BUY("+RSI_BUY+")",WriteIf (S_RSI,EncodeColor(colorRed)+"SELL("+RSI_SELL+")","NEUTRAL")) /********************OBV********************/ +"\n" +EncodeColor(colorWhite)+"OBV = "+ WriteIf(OBV_BUY,EncodeColor(ColorRGB(168,255,0))+"BUY(1)",WriteIf(OBV_SELL,EncodeColor(colorRed)+"SELL(1)",""))+ WriteIf(NOT OBV_BUY AND NOT OBV_SELL,"No Cross","") /********************TSV********************/ +"\n" +EncodeColor(colorWhite)+"TSV = " + WriteIf(TSI_BUY,EncodeColor(ColorRGB(168,255,0))+"BUY(1)", WriteIf(TSI_SELL,EncodeColor(colorRed)+"SELL(1)",""))+ WriteIf(NOT TSI_BUY AND NOT TSI_SELL,EncodeColor(colorAqua)+"NA","") /********************TRIX*********************/ +"\n" +EncodeColor(colorWhite)+"TRIX "+ "("+tPeriods+") "+"(" +tSig+ ") = " +EncodeColor(ColorRGB(168,255,0))+ WriteIf (TRIX_BUY, "BUY ("+TRIX_BUY+")","") +EncodeColor(colorRed)+ WriteIf (TRIX_SELL, "SELL("+TRIX_SELL+")","") +EncodeColor(colorAqua)+ WriteIf (NOT TRIX_SELL AND NOT TRIX_BUY, "No Cross","") /**************TREND*********************************/ +"\n" +EncodeColor(colorWhite)+"Trend = " +WriteIf(Up AND NOT TREND_B,EncodeColor(ColorRGB(168,255,0))+"Up ",WriteIf(Up AND TREND_B,EncodeColor(colorBrightGreen)+ "BUY(1)", WriteIf(Down AND NOT TREND_S,EncodeColor(colorRed)+"Down",WriteIf(Down AND TREND_S,EncodeColor(colorRed)+"SELL(1)",".")))) /**************GAPS *********************************/ +"\n"+EncodeColor(colorWhite)+"GAP = " +WriteIf(GAP_UP,EncodeColor(ColorRGB(168,255,0))+"UP (1)",WriteIf(GAP_DW,EncodeColor(colorRed)+"DOWN (1)", EncodeColor(colorAqua)+"Neutral")) +"\n"+EncodeColor(colorPink) +"======================" +"\n"+EncodeColor((ColorRGB(242,157,255)))+"BUY = "+EncodeColor(colorYellow)+Total_Buy +"\n"+EncodeColor((ColorRGB(242,157,255)))+"SELL = "+EncodeColor(colorYellow)+Total_Sell +"\n"+EncodeColor(colorPink) +"---------------------"; } _SECTION_END(); //************************************************************************************** // EXPLORATION COLUMNS //***********************************************************************************/ Filter = Total_Buy OR Total_Sell; SetOption("NoDefaultColumns", True); AddTextColumn( Name(), "Security", 1, textColor=colorBlack, bkgndColor=colorSkyblue); AddColumn( DateTime(), "Date", formatDateTime, colorBlack, colorTan); AddTextColumn(PIVOT_status, "MACD", 1, colorWhite,PIVOT_col); AddTextColumn(MACD_status, "MACD", 1, colorWhite, MACD_col); AddTextColumn(STOCH_status, "STOCH", 1, colorWhite, STOCH_col); AddTextColumn(RSI_status, "RSI", 1, colorWhite, RSI_col); AddTextColumn(OBV_status, "OBV", 1, colorWhite, OBV_col); AddTextColumn(TSI_status, "TSV", 1, colorWhite, TSI_col); AddTextColumn(TRIX_status, "TRIX", 1, colorWhite, TRIX_col); AddTextColumn(TREND_status, "TREND", 1, colorWhite, TREND_col); AddTextColumn(GAP_status, "GAP", 1, colorWhite, GAP_col); AddColumn(Total_Buy,"Ttl Buy",1.2,colorBlack); AddColumn(Total_Sell,"Ttl Sell",1.2,colorBlack); SetBarsRequired(200, 0); _SECTION_BEGIN("TA signal "); GraphXSpace = 5; SetChartOptions(0, chartShowArrows|chartShowDates); k = Optimize("K", Param("A (Change To Optimise)", 1.75, 0.25, 5, 0.25), 0.25, 5, 0.25); Per= Optimize("ATR", Param("B (Change To Optimise)", 10, 3, 20, 1), 3, 20, 1); CloseAtEnd = ParamToggle("Close Positions EOD", "No|Yes"); ShowBands = ParamToggle("Show Trending Bands", "No|Yes"); ShowPivots = ParamToggle("Show Pivot High/Low", "No|Yes"); SetChartBkGradientFill( ParamColor("BgTop", colorDarkOliveGreen), ParamColor("BgBottom", colorRose), ParamColor("titleblock", colorRose )); //Param_Margin = Param("Margin required (used for backtesting only)", 15, 0.001, 100, 0.001); //Param_LotSize = Param("Lot Size (used for backtesting only)", 50, 5, 5000, 5); //Param_NoOfLots = Param("No of lots normally traded (used for backtesting only)", 2, 1, 10000, 1); R=(H-L);//RANGE; FR=(H-L)/3;//THIRD OF RANGE; S1=H-FR;//SEGMENT ONE; S2=H-2*FR;//SEGMENT TWO; S3=L;//SEGMENT THREE; /*POSITION OF OPEN AND CLOSE RELATIVE TO BAR*/ P=IIf(O>S1, 1, IIf(S1>O<S2, 2, IIf(S2>O<L, 3, 0)));// POSITION OF OPENING PRICE ; CL=IIf(C>S1, 1, IIf(S1>C<S2, 2, IIf(S2>C<L, 3, 0)));// POSITION OF CLOSING PRICE; /*CONDITIONAL STATEMENTS */ COND_C=((P==2 OR P==3) AND CL==1) OR (P==3 AND (CL==1 OR CL==2)); //CLIMBERS(eq. 1) COND_C=(P==2 /*OR P==3)*/ AND CL==1) OR (P==3 AND (CL==1 OR CL==2));//CLIMBERS (eq. 1a) COND_D=(P==1 AND (CL==2 OR CL==3)) OR (P==2 AND (CL==2 OR CL==3));//DRIFTERS COND_N=((P==CL) AND ( P==1 OR P==2 OR P==3)); //NEUTRAL BARS DYNAMIC_COLOR=IIf(COND_C, colorDarkGreen, IIf(COND_D, colorRed, IIf(COND_N, colorBlue, colorTeal))); PlotOHLC( Open, High, Low, Close, "Price chart ", DYNAMIC_COLOR, styleCandle, styleThick); HACLOSE=(O+H+L+C)/4; HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); j=Haclose; //================================================== ================================================== =================== //=========================Indicator================ ================================================== ============================ f=ATR(14); rfsctor = WMA(H-L, Per); revers = k * rfsctor; Trend = 1; NW[0] = 0; for(i = 1; i < BarCount; i++) { if(Trend[i-1] == 1) { if(j[i] < NW[i-1]) { Trend[i] = -1; NW[i] = j[i] + Revers[i]; } else { Trend[i] = 1; if((j[i] - Revers[i]) > NW[i-1]) { NW[i] = j[i] - Revers[i]; } else { NW[i] = NW[i-1]; } } } if(Trend[i-1] == -1) { if(j[i] > NW[i-1]) { Trend[i] = 1; NW[i] = j[i] - Revers[i]; } else { Trend[i] = -1; if((j[i] + Revers[i]) < NW[i-1]) { NW[i] = j[i] + Revers[i]; } else { NW[i] = NW[i-1]; } } } } activezone=ADX(14) >20 AND V> MA(V, 60); calmzone=ADX(14) < 20 AND V < MA(V, 60); Plot( 2, /* defines the height of the ribbon in percent of pane width */"ribbon", IIf( activezone, colorBlue, IIf( calmzone, colorYellow, 0 )), /* choose color */ styleOwnScale|styleArea|styleNoLabel, -0.5, 100 ); //===============system================ ForceCloseTradesAfter = 153000; NextBarOutsideRTH = (Ref(TimeNum(), 1) > ForceCloseTradesAfter); NextBarNotToday = (Ref(DateNum(), 1) > DateNum()); Buy=Cross(j, nw); Short=Cross(nw, j); Sell=IIf(CloseAtEnd==False, Short, Short OR NextBarOutsideRTH OR NextBarNotToday); Cover=IIf(CloseAtEnd==False, Buy, Buy OR NextBarOutsideRTH OR NextBarNotToday); SellPrice=ValueWhen(Short, C, 1); BuyPrice=ValueWhen(Buy, C, 1); Long=Flip(Buy, Sell); Shrt=Flip(Short, Cover); OBSetting=Param("Setting", 45, 1, 500, 1); Bline = StochD(OBSetting); Oversold=Bline<=5; Overbought=Bline>=95; PlotShapes (IIf(Oversold, shapeSmallCircle, shapeNone), colorBrightGreen, layer = 0, yposition = HaLow, offset = -8 ); PlotShapes (IIf(Overbought, shapeSmallCircle, shapeNone), colorOrange, layer = 0, yposition = HaHigh, offset = 7 ); //=================TITLE============================ ================================================== ================== if( Status("action") == actionIndicator ) ( Title = EncodeColor(colorBlue)+ "" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorBlue) + " - " + Date() +" - "+"n" +EncodeColor(colorLightBlue) +"Open-"+O+" "+"High-"+H+" "+"Low-"+L+" "+ "Close-"+C+" "+ "Volume= "+ WriteVal(V)+"n"+ EncodeColor(colorBlue)+ WriteIf (Buy, " GO LONG ABOVE "+H+" AND IF TRIGGERS ADD MORE LONG NEAR "+C+" - KEEP SL BELOW"+NW+" ", "")+ WriteIf (Short, " GO SHORT BELOW "+L+" AND IF TRIGGERS ADD MORE SHORT NEAR "+C+" - KEEP SL ABOVE"+NW+" ", "")+"n"+EncodeColor(colorDarkGreen)+ WriteIf(Short AND CloseAtEnd==False, "Total Profit/Loss For The Last Trade: Points - "+(C-BuyPrice)+"", "")+ WriteIf(Buy AND CloseAtEnd==False, "Total Profit/Loss For The Last Trade: Points - "+(SellPrice-C)+"", "")+ WriteIf(Long AND NOT Buy, "Current Trade : Long - Entry Price Near "+(BuyPrice), "")+ WriteIf(shrt AND NOT Sell, "Current Trade : Short - Entry Price Near "+(SellPrice), "")+"n"+ WriteIf(Long AND NOT Buy, "Current Profit/Loss "+(C-BuyPrice)+" Points - Current Trailing Stop Loss @ " + NW + "", "")+ WriteIf(shrt AND NOT Sell, "Current Profit/Loss "+(SellPrice-C)+" Points - Current Trailing Stop Loss @ " + NW + "", ""))+ WriteIf(NOT Long AND NOT Buy AND NOT shrt AND NOT Sell, "Currently Not In A Trade ", ""); PlotShapes(IIf(Buy, shapeUpArrow, shapeNone), colorGreen, 0, Low, -15); PlotShapes(IIf(Short, shapeHollowDownArrow, shapeNone), colorPink, 0, High, -15); PlotShapes(IIf(Buy, shapeHollowUpArrow, shapeNone), colorLime, 0, Low, -25); PlotShapes(IIf(Short, shapeDownArrow, shapeNone), colorDarkRed, 0, High, -25); PlotShapes(IIf(CloseAtEnd==True AND (NextBarOutsideRTH OR NextBarNotToday), shapeStar, shapeNone), colorGold, 0, L, Offset=-10); //Settings for Backtester SetOption("AllowSameBarExit", False); SetOption("AllowPositionShrinking", False); SetOption("FuturesMode", True); SetOption("InterestRate", 0); SetOption("MaxOpenPositions", 1); //RoundLotSize = Param_LotSize; SetOption("MinShares", RoundLotSize); SetOption("PriceBoundChecking", False); //SetOption("CommissionMode", 3); //SetOption("CommissionAmount", 12.5/RoundLotSize); //SetOption("AccountMargin", Param_Margin); SetOption("ReverseSignalForcesExit", True); SetOption("UsePrevBarEquityForPosSizing", True); SetOption("GenerateReport", 1); SetOption("MaxOpenLong", 1); SetOption("MaxOpenShort", 1); SetOption("RefreshWhenCompleted", True); //PositionSize = C*RoundLotSize*Param_NoOfLots; SetTradeDelays(0, 0, 0, 0); BuyPrice = Close; SellPrice = Close; ShortPrice = Close; CoverPrice = Close; //End of Settings for Backtester // Downloaded From www.WiseStockTrader.com SetBarFillColor( IIf(O>C,colorDarkRed, colorBrightGreen ) ); Plot( C, "Price", IIf( O>C,colorRed, colorGreen ), styleCandle ); HaClose =EMA((O+H+L+C)/4,3); HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); //Topping Bar //Range = H - L ; //TPB = Volume > MA(Volume,9) AND Close < Low + Range/2 AND Range <= Ref(Range,-1); //PlotShapes(shapeSmallCircle * TPB,colorYellow,0,H,20); // Downloaded From www.WiseStockTrader.com // Downloaded From www.WiseStockTrader.com // Downloaded From www.WiseStockTrader.com SetBarFillColor( IIf(O>C,colorDarkRed, colorBrightGreen ) ); Plot( C, "Price", IIf( O>C,colorRed, colorGreen ), styleCandle ); HaClose =EMA((O+H+L+C)/4,3); HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); // Downloaded From www.WiseStockTrader.com //Topping Bar //Range = H - L ; //TPB = Volume > MA(Volume,9) AND Close < Low + Range/2 AND Range <= Ref(Range,-1); //PlotShapes(shapeSmallCircle * TPB,colorYellow,0,H,20); // Downloaded From www.WiseStockTrader.com // Downloaded From www.WiseStockTrader.com // Downloaded From www.WiseStockTrader.com SetBarFillColor( IIf(O>C,colorDarkRed, colorBrightGreen ) ); Plot( C, "Price", IIf( O>C,colorRed, colorGreen ), styleCandle ); HaClose =EMA((O+H+L+C)/4,3); HaOpen = AMA( Ref( HaClose, -1 ), 0.5 ); HaHigh = Max( H, Max( HaClose, HaOpen ) ); HaLow = Min( L, Min( HaClose, HaOpen ) ); // Downloaded From www.WiseStockTrader.com
Sign up here with your email
ConversionConversion EmoticonEmoticon