// Downloaded From https://www.WiseStockTrader.com _SECTION_BEGIN("res/sup-s1"); DayH = TimeFrameGetPrice("H", inDaily, -1);// yesterdays high DayL = TimeFrameGetPrice("L", inDaily, -1);//low DayC = TimeFrameGetPrice("C", inDaily, -1);//close DayO = TimeFrameGetPrice("O", inDaily);// current day open HiDay = TimeFrameGetPrice("H", inDaily); LoDay = TimeFrameGetPrice("L", inDaily); PP = (DayH + DayL + DayO + DayO) / 4 ; R1 = (2 * PP) - DayL; S1 = (2 * PP) - DayH; R2 = PP + R1 - S1; S2 = PP + S1 - R1; R3 = R2 + (R1 - PP); S3 = S2 - (PP - S1); style = styleLine | styleThick + styleNoRescale; rcolor = colorBlue; scolor = colorRed; pcolor = colorGreen; GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorRed) ); Hor=Param("Horizontal Position",230,10,1200,1); Ver=Param("Vertical Position",230,300,500,500); GfxTextOut(""+s1,Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("res/sup-s2"); GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorRed) ); Hor=Param("Horizontal Position",230,10,1200,1); Ver=Param("Vertical Position",260,300,500,500); GfxTextOut(""+s2,Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("res/sup-s3"); GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorRed) ); Hor=Param("Horizontal Position",230,10,1200,1); Ver=Param("Vertical Position",290,300,600,600); GfxTextOut(""+s3,Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("res/sup-r1"); GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorBrightGreen) ); Hor=Param("Horizontal Position",230,10,1200,1); Ver=Param("Vertical Position",320,300,500,500); GfxTextOut(""+r1,Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("res/sup-r2"); GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorBrightGreen) ); Hor=Param("Horizontal Position",230,10,1200,1); Ver=Param("Vertical Position",350,300,500,500); GfxTextOut(""+r2,Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("res/sup-r3"); GfxSelectFont("arial", 10, 700 ); GfxSetBkMode( colorWhite ); GfxSetTextColor( ParamColor("Color",colorBrightGreen)); Hor=Param("Horizontal Position",230,10,1200,1); Ver=Param("Vertical Position",380,300,500,500); GfxTextOut(""+r3,Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("MACD"); r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); r4 = Param( "Wk slow", 17, 2, 200, 1 ); r5 = Param( "Wk fast", 8, 2, 200, 1 ); m1=MACD(r1,r2); s1=Signal(r1,r2,r3); _SECTION_END(); _SECTION_BEGIN("WRITE"); GfxSelectFont("arial", 11, 800 ); GfxSetBkMode( colorLightBlue ); GfxSetTextColor( ParamColor("Color",COLORRGB(244,89,244)) ); Hor=Param("Horizontal Position",0,10,1200,1); Ver=Param("Vertical Position",20,100,50,50); GfxTextOut(" R O C K E T J E T",Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("Forex_Main_mrtq13"); /////////////////////////////////// Title = EncodeColor(colorWhite)+ Title = Name () + " | " +EncodeColor(colorYellow) + Date() + " | " +EncodeColor(colorTurquoise)+ "O : "+ EncodeColor(colorLightGrey)+ O + " | " +EncodeColor(colorTurquoise)+ "H : "+ EncodeColor(colorLightGrey)+ H + " | " +EncodeColor(colorTurquoise)+ "L : "+ EncodeColor(colorLightGrey)+ L + " | " +EncodeColor(colorTurquoise)+ "C : "+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ C + " | " +EncodeColor(colorTurquoise)+ "Change : ("+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed)) + WriteVal(C-Ref(C,-1))+" Rs." +EncodeColor(colorTurquoise)+ " /"+ WriteIf(C> Ref(C, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal( ROC( C, 1 ))+""+ " % " +EncodeColor(colorTurquoise)+ ") | Volume : " + WriteIf(V> Ref(V, -1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(V,1) ; _SECTION_END(); _SECTION_BEGIN("Flower"); Show_color = ParamToggle("Display CandleColor", "No|Yes", 1); r1 = Param( "ColorFast avg", 5, 2, 200, 1 ); r2 = Param( "ColorSlow avg", 10, 2, 200, 1 ); r3 = Param( "ColorSignal avg", 5, 2, 200, 1 ); Prd1=Param("ATR Period",8,1,20,1); Prd2=Param("Look Back",7,1,20,1); green = HHV(LLV(L,Prd1)+ATR(Prd1),Prd2); red = LLV(HHV(H,Prd1)-ATR(Prd1),Prd2); flowerClose = EMA((Open+High+Low+Close)/4,3) ; flowerOpen = EMA((Ref(Open,-1) + Ref(flowerClose,-1))/2,3); Temp = Max(High, flowerOpen); flowerHigh = EMA(Max(Temp, flowerClose),3); Temp = Min(Low,flowerOpen); flowerLow = EMA(Min(Temp, flowerClose),3); m1=MACD(r1,r2); s1=Signal(r1,r2,r3); mycolor=IIf(m1<0 AND m1>s1, colorYellow,IIf(m1>0 AND m1>s1,colorWhite,IIf(m1>0 AND m1Green ,colorWhite,IIf(C < RED,colorRed,colorWhite)); PlotOHLC( IIf(flowerOpen 20 AND ADX(14) >Ref(ADX(14),-1); B = ADX(14) > 20 AND ADX(14) 20 AND PDI(14)> MDI(14) AND PDI(14) >Ref(PDI(14),-1); B = ADX(14) > 20 AND PDI(14)> MDI(14) AND PDI(14) 20 AND MDI(14)> PDI(14) AND MDI(14) > Ref(MDI(14),-1); B = ADX(14) > 20 AND MDI(14)> PDI(14) AND MDI(14) < Ref(MDI(14),-1); rsiup= A; rsidn= B; //////////////////////////////////////// rsiresult1 = WriteIf( rsiup,"cu", ""); rsiresult2 = WriteIf( rsidn,"cd", ""); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 120 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); if ( rsiresult1 =="cu") { GfxSelectSolidBrush(colorRed); //ColorRGB(0,90,0) } else if ( rsiresult2 =="cd") { GfxSelectSolidBrush( colorYellow); } else if ( rsiresult2 =="") { GfxSelectSolidBrush( colorDarkTeal ); // } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxCircle( 100,430,10 ); _SECTION_END(); _SECTION_BEGIN("CIRCLEWRITE1"); GfxSelectFont("arial", 8, 700 ); GfxSetBkMode( colorLightBlue ); GfxSetTextColor( ParamColor("Color",colorSkyblue) ); Hor=Param("Horizontal Position",20,0,1200,1); Ver=Param("Vertical Position",169,100,50,1); GfxTextOut(" 1.PFE / 2.STC / 3.RSI / 4.RAYS /",Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("CIRCLEWRITE2"); GfxSelectFont("arial", 8, 700 ); GfxSetBkMode( colorLightBlue ); GfxSetTextColor( ParamColor("Color",colorSkyblue) ); Hor=Param("Horizontal Position",20,0,1200,1); Ver=Param("Vertical Position",177,100,50,1); GfxTextOut(" 5.EXIT_BEAST3 / 6.CCI9-2 / 7.%BB7_",Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("PFE"); pds=10; x=sqrt((ROC(C,9)*ROC(C,9))+100); y=Sum(sqrt((ROC(C,1)* ROC(C,1))+1),pds); z=(x/y); pfe=EMA(IIf(C>Ref(C,-9),z,-z)*100,5); rsidn=pfe <-10 AND pfe10 AND pfe>Ref(pfe,-1); rsiresult1 = WriteIf( rsiup,"cu", ""); rsiresult2 = WriteIf( rsidn,"cd", ""); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 120 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); if ( rsiresult1 =="cu") { GfxSelectSolidBrush(colorBrightGreen ); //ColorRGB(0,90,0) } else if ( rsiresult2 =="cd") { GfxSelectSolidBrush( ColorRGB(90,0,0)); } else if ( rsiresult2 =="") { GfxSelectSolidBrush( colorYellow ); // } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); //GfxRoundRect( 15,305,135,215, 5, 5 ); GfxCircle( 100,100,70 ); _SECTION_END(); _SECTION_BEGIN("STC"); _SECTION_BEGIN("Schaff Trend Cycle"); MA1=23; MA2=50; TCLen=10; MA1=Param("ShortMACDLen",23,5,36); MA2=Param("LOngMACDLen",50,10,100); TCLen=Param("TCLen(StochPeriod)",10,5,20); Factor=.5; //Calculate a MACD Line XMac = MACD(MA1,MA2) ; // MACD in Amibroker always uses Close for MACD calculation //1st Stochastic: Calculate Stochastic of a MACD Value1 = LLV(XMac, TCLen); Value2 = HHV(XMac, TCLen) - Value1; //Frac1=1; // prime Frac1 to a default of 1 //Frac1 = IIf(Value2 > 0, ((XMac - Value1) / Value2) * 100, Ref(FRAC1,-1)); // have to "prime" first value so that reference to "i-1" does not result in subscript out of range // since MACD for both periods is not defined until MA2 period, 0 seems to be mathematically correct priming value frac1=0; for (i = 1; i < BarCount; i++) { if (Value2[i] > 0) { frac1[i] = ((XMac[i] - Value1[i])/Value2[i])*100; } else { frac1[i]= frac1[i-1]; } } //Smoothed calculation for %FastD of MACD PF[0]=frac1[0]; PF[1]=frac1[1]; for (i = 2; i < BarCount; i++) { PF[i]=PF[i-1]+(Factor*(frac1[i]-PF[i-1])); } //2nd Stochastic: Calculate Stochastic of Smoothed Percent FastD, above. Value3 = LLV(PF, TCLen); Value4 = HHV(PF, TCLen) - Value3; //%FastK of PF /* Frac2=1; Frac2 = IIf(Value4 > 0, ((PF - Value3) / Value4) * 100, Ref(FRAC2,-1)); */ frac2[0]=0; for (i = 1; i < BarCount; i++) { if (Value4[i] > 0 ) { frac2[i]=((PF[i] - Value3[i])/Value4[i])*100; } else { frac2[i]=frac2[i-1]; } } //Smoothed calculation for %FastD of PF PFF[0]=frac2[0]; PFF[1]=frac2[1]; for (i = 2; i < BarCount; i++) { PFF[i]=PFF[i-1]+(Factor*(frac2[i]-PFF[i-1])); } //HT=ParamColor("HT", colorRed ); rsidn=pff <2; rsiup=pff >98; rsiresult1 = WriteIf( rsiup,"cu", ""); rsiresult2 = WriteIf( rsidn,"cd", ""); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 120 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); if ( rsiresult1 =="cu") { GfxSelectSolidBrush( colorBrightGreen );//ColorRGB(0,120,0) } else if ( rsiresult2 =="cd") { GfxSelectSolidBrush( ColorRGB(120,0,0)); } else if ( rsiresult2 =="") { GfxSelectSolidBrush( colorYellow ); //colorDarkTeal } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxCircle( 100,100,60 ); _SECTION_END(); _SECTION_BEGIN("rsi"); //HT=ParamColor("HT", colorRed ); rsidn=RSI(7) <30; rsiup=RSI(7) >70; rsiresult1 = WriteIf( rsiup,"cu", ""); rsiresult2 = WriteIf( rsidn,"cd", ""); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 120 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); if ( rsiresult1 =="cu") { GfxSelectSolidBrush( colorBrightGreen );//ColorRGB(0,150,0) } else if ( rsiresult2 =="cd") { GfxSelectSolidBrush( ColorRGB(150,0,0)); } else if ( rsiresult2 =="") { GfxSelectSolidBrush( coloryellow); //colorDarkTeal } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxCircle( 100,100,50 ); _SECTION_END(); _SECTION_BEGIN("Rays"); //FT=ParamColor("FT", colorRed ); Pp1=3; Pp2=2; CS33=HHV(LLV(flowerHigh,Pp1)-ATR(Pp2),4); CR33=HHV(LLV(flowerHigh,Pp1)-ATR(Pp2),5); AtrupTrendCond1 = flowerClose> CS33 ; AtrdnTrendCond1 =CS33>flowerClose ; ATRup = WriteIf(AtrupTrendCond1,"atrup", ""); ATRdown= WriteIf( AtrdnTrendCond1,"atrdn", ""); if ( ATRup =="atrup") { GfxSelectSolidBrush( colorBrightGreen );//ColorRGB(0,180,0) } else if (ATRdown =="atrdn") { GfxSelectSolidBrush( ColorRGB(180,0,0)); } else if ( ATRdown =="") { GfxSelectSolidBrush( colorYellow ); //colorDarkTeal } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxSelectPen( colorBlue, 1 ); // broader color GfxCircle( 100,100,40 ); _SECTION_END(); _SECTION_BEGIN("Exit_Beast-3"); //GT=ParamColor("GT", colorRed ); EntrylookbackPeriod=10; EntryATRperiod=1.9; EntrySig = C > ( LLV( flowerLow, EntrylookbackPeriod ) + EntryATRperiod * ATR( 10 ) ); ExitSig = C < ( HHV( flowerHigh, EntrylookbackPeriod ) -EntryATRperiod * ATR( 10 ) ); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); EntryB = WriteIf( EntrySig,"eu", ""); ExitB = WriteIf( ExitSig,"ed", ""); if ( EntryB =="eu") { GfxSelectSolidBrush( colorBrightGreen); //ColorRGB(0,210,0) } else if ( ExitB =="ed") { GfxSelectSolidBrush( ColorRGB(210,0,0)); // } else if ( ExitB =="") { GfxSelectSolidBrush( colorYellow ); //colorDarkTeal } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxSelectPen( colorBlue, 1 ); // broader color GfxCircle( 100,100,30 );// changing the value of x,y,rad x-70, y-90, rad-24 _SECTION_END(); _SECTION_BEGIN("CCI9-2"); //HT=ParamColor("HT", colorRed ); ccidn=CCI(8) < 0; cciup=CCI(9) > 0; ccresult1 = WriteIf( cciup,"cu", ""); ccresult2 = WriteIf( ccidn,"cd", ""); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); if ( ccresult1 =="cu") { GfxSelectSolidBrush( colorBrightGreen ); //ColorRGB(0,240,0) } else if ( ccresult2 =="cd") { GfxSelectSolidBrush( ColorRGB(240,0,0)); } else if ( ccresult2 =="") { GfxSelectSolidBrush( colorYellow); //colorDarkTeal } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxSelectPen( colorBlue, 1 ); // broader color GfxCircle( 100,100,20); _SECTION_END(); _SECTION_BEGIN("%BB7-1"); //IT=ParamColor("IT", colorRed ); p=7; x=((C+2*StDev(C,p)-MA(C,p))/(4*StDev(C,p)))*100; bbdown= x < 40; bbup= x > 40; bbresult1 = WriteIf( bbup,"bu", ""); bbresult2 = WriteIf( bbdown,"bd", ""); bbresult3 = WriteIf( C,"bearishrevers", ""); RequestTimedRefresh( 0 ); GfxSelectFont( "Tahoma", 12, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorWhite ); if ( bbresult1 =="bu") { GfxSelectSolidBrush( colorBrightGreen) ; //ColorRGB(62,255,62) } else if ( bbresult2 =="bd") { GfxSelectSolidBrush( ColorRGB(255,62,62) ); } else if ( bbresult2 =="") { GfxSelectSolidBrush( colorYellow); //colorDarkTeal } GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxSelectPen( colorBlue, 1 ); // broader color GfxCircle( 100,100,10 ); _SECTION_END(); _SECTION_BEGIN("MACDWRITE1"); GfxSelectFont("arial", 8, 700 ); GfxSetBkMode( colorLightBlue ); GfxSetTextColor( ParamColor("Color",colorSkyblue) ); Hor=Param("Horizontal Position",0,10,1200,1); Ver=Param("Vertical Position",380,100,50,50); GfxTextOut(" MACD ^ HIGHBULLISH > LOWBULLISH",Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("MACDWRITE2"); GfxSelectFont("arial", 8, 700 ); GfxSetBkMode( colorLightBlue ); GfxSetTextColor( ParamColor("Color",colorSkyblue) ); Hor=Param("Horizontal Position",0,10,1200,1); Ver=Param("Vertical Position",390,100,50,50); GfxTextOut(" MACD < HIGHBEARISH v LOWBEARISH",Hor , Ver ); _SECTION_END(); _SECTION_BEGIN("MACDHIGHBULLISH"); r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); r4 = Param( "Wk slow", 17, 2, 200, 1 ); r5 = Param( "Wk fast", 8, 2, 200, 1 ); m1=MACD(r1,r2); s1=Signal(r1,r2,r3); rsidn=m1>0 AND m1>s1; rsiresult2 = WriteIf( rsidn,"cd", ""); if ( rsiresult2 =="cd") { GfxSelectSolidBrush( colorBrightGreen); //ColorRGB(0,147,0) } else if ( rsiresult2 =="") { GfxSelectSolidBrush( colorDarkTeal ); } RequestTimedRefresh( 0 ); GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxSelectPen( colorBlue, 1 ); // broader color GfxRectangle(80,220,120,280); _SECTION_END(); _SECTION_BEGIN("MACDLOWHBULLISH"); r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); r4 = Param( "Wk slow", 17, 2, 200, 1 ); r5 = Param( "Wk fast", 8, 2, 200, 1 ); m1=MACD(r1,r2); s1=Signal(r1,r2,r3); rsidn=m1<0 AND m1>s1; rsiresult2 = WriteIf( rsidn,"cd", ""); if ( rsiresult2 =="cd") { GfxSelectSolidBrush( colorYellow); //ColorRGB(0,147,0) } else if ( rsiresult2 =="") { GfxSelectSolidBrush( colorDarkTeal ); } RequestTimedRefresh( 0 ); GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorBlue ); GfxSelectPen( colorBlue, 1 ); // broader color GfxRectangle(120,315,180,280); _SECTION_END(); _SECTION_BEGIN("MACDLOWHBEARISH"); r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); r4 = Param( "Wk slow", 17, 2, 200, 1 ); r5 = Param( "Wk fast", 8, 2, 200, 1 ); m1=MACD(r1,r2); s1=Signal(r1,r2,r3); rsidn=m1>0 AND m1 C1; dc = C <= C1; ud = C > O; dd = C <= O; green = 1; blue = 2; yellow = 3; red = 4; white = 5; VType = IIf(ud, IIf(uc, green, yellow), IIf(dd, IIf(dc, red, blue), white)); /* green volume: up-day and up-close*/ gv = IIf(VType == green, V, 0); /* yellow volume: up-day but down-close */ yv = IIf(VType == yellow, V, 0); /* red volume: down-day and down-close */ rv = IIf(VType == red, V, 0); /* blue volume: down-day but up-close */ bv = IIf(VType == blue, V, 0); uv = gv + bv; uv1 = Ref(uv, -1); /* up volume */ dv = rv + yv; dv1 = Ref(dv, -1); /* down volume */ VolPer = Param("Adjust Vol. MA per.", 10, 1, 255, 1); ConvPer = Param("Adjust Conv. MA per.", 4, 1, 255, 1); MAuv = TEMA(uv, VolPer ); mauv1 = Ref(mauv, -1); MAdv = TEMA(dv, VolPer ); madv1 = Ref(madv, -1); MAtv = TEMA(V, VolPer );//total volume Converge = (TEMA(MAuv - MAdv, ConvPer)); Converge1 = Ref(Converge, -1); ConvergeUp = Converge > Converge1; ConvergeOver = Converge > 0; rising = ConvergeUp AND ConvergeOver; falling = !ConvergeUp AND ConvergeOver; _SECTION_END(); _SECTION_BEGIN("vol30"); rsiup=rising; rsidn=falling; down=Converge > 0; rsiresult1 = WriteIf( rsiup,"ab", ""); rsiresult2 = WriteIf( rsidn,"cd", ""); rsiresult3 = WriteIf( down,"ef", ""); RequestTimedRefresh( 0 ); if ( rsiresult1 =="ab") { GfxSelectSolidBrush( colorBrightGreen );//ColorRGB(0,147,0) GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorGreen ); GfxSelectPen( colorGreen, 1 ); } else if ( rsiresult2 =="cd") { GfxSelectSolidBrush( colorYellow );//ColorRGB(0,85,0) GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorDarkGreen ); GfxSelectPen( colorDarkGreen, 1 ); } else { GfxSelectSolidBrush( ColorRGB(255,0,0) ); GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorRed ); GfxSelectPen( colorRed, 1 ); } GfxRectangle(241,50,259,200);//241,50,259,200 _SECTION_END(); _SECTION_BEGIN("vol31"); rsiup=rising; rsidn=falling; down=Converge > 0; rsiresult1 = WriteIf( rsiup,"ab", ""); rsiresult2 = WriteIf( rsidn,"cd", ""); rsiresult3 = WriteIf( down,"ef", ""); RequestTimedRefresh( 0 ); if ( rsiresult1 =="ab") { GfxSelectSolidBrush( colorBrightGreen); //ColorRGB(0,147,0) GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorGreen ); GfxSelectPen( colorGreen, 1 ); } else if ( rsiresult2 =="cd") { GfxSelectSolidBrush( colorYellow );//ColorRGB(0,85,0) GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorDarkGreen ); GfxSelectPen( colorDarkGreen, 1 ); } else { GfxSelectSolidBrush( ColorRGB(255,0,0) ); GfxSelectFont( "Arial", 10, 100 ); GfxSetBkMode( 1 ); GfxSetTextColor( colorRed ); GfxSelectPen( colorRed, 1 ); } GfxCircle( 250,180,22 );//250,180,22 _SECTION_END(); _SECTION_BEGIN("Average 0"); //Average_switch = ParamToggle("Candle On/off", "Off|On"); P = HaClose; Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple"); Periods = Param("Periods", 20, 2, 200 ); 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 ); Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorWhite),ParamStyle("Style",styleLine |styleThick|styleNoTitle ,maskAll),Displacement ); _SECTION_END(); _SECTION_BEGIN("Average 1"); //Average_switch = ParamToggle("Candle On/off", "Off|On"); P = HaClose; Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple"); Periods = Param("Periods", 60, 2, 200 ); 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 ); Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorGrey50),ParamStyle("Style",styleLine |styleNoTitle ,maskAll),Displacement ); _SECTION_END(); _SECTION_BEGIN("Average 5"); P = HaClose; Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple"); Periods = Param("Periods", 120 ,2, 200 ); 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 ); Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorGrey40),ParamStyle("Style",styleLine |styleNoTitle ,maskAll),Displacement ); _SECTION_END(); _SECTION_BEGIN("Sell Average 3"); P = HaClose; Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple"); Periods = Param("Periods", 180, 2, 800 ); 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 ); Plot( m, _DEFAULT_NAME(), ParamColor("Color", ColorRGB(40,40,40)),ParamStyle("Style",styleLine |styleNoTitle ,maskAll),Displacement ); _SECTION_END();