Afl Pixel 2 [PDF]

Citation preview

//price H1 = Ref( H, -1 ); L1 = Ref( L, -1 ); Color= IIf(C==O,colorDefault, IIf(C>O AND C>H1,colorGreen, IIf(C>O,colorPaleGreen, IIf(C High20Days; H60Days = C > High60Days; L5Days = C < Low5Days; L20Days = C < Low20Days;



L60Days = C < Low60Days;



Color1st = IIf(C>O AND H5Days,colorGreen, IIf(CO OR H5Days,colorPaleGreen, colorRed)));



Color2nd = IIf(C>O AND H20Days,colorGreen, IIf(CO OR H20Days,colorPaleGreen, colorRed)));



SetBarFillColor(Color1st); PlotOHLC(4,6,4,6, "",colorblack, styleOwnScale|64|styleNoLabel, -0.5, 100,0,-1 );



SetBarFillColor(Color2nd); PlotOHLC(1,3,1,3, "",colorblack, styleOwnScale|64|styleNoLabel, -0.5, 100,0,-1 );



//fibo StartBar=SelectedValue(BarIndex());



FinishBar = EndValue( BarIndex() ); i = startbar; period = FinishBar - StartBar;



Lo =LLV(L,period); Hi = HHV(H,period); Line0 = 0; Line1 = 0; Line2 = 0; Line3 = 0; Line4= 0; Line100 = 0;



for( i = startbar; i < finishbar; i++ ) { if(EndValue(C) 5 ) AND (MADV10Mil > 2.5 ) ; FV = DVMil / Ref(MADV10Mil,-1) ;



pRp = PeakBars( H, 0.5, 1) == 0; pSp = TroughBars( L, 0.5, 1) == 0; Langit = ValueWhen( pRp, H, 1) ; g=Ref(Langit,-1); Bumi= ValueWhen( pSp, L, 1); f=Ref(Bumi,-1); Plot(Langit,"",color,styleNoDraw|styleNoDraw); Plot(Bumi,"",color,styleNoDraw|styleNoDraw);



Buy = Cross(C,g) AND Likuid AND fv >1 AND ADX(14) > 20; //BuyPrice=ValueWhen(Buy,g,1);



Sell = Cross(f,C); SellPrice=ValueWhen(Sell,f,1);



Buy = ExRem( Buy, Sell ); Sell = ExRem( Sell, Buy );



//PLOT BUY AND SELL shape = Buy * shapeUpTriangle + Sell * shapeDownTriangle; PlotShapes( shape, IIf( Buy, colorBlue, colorBlue ),0, IIf( Buy, Low, High ) );



_SECTION_BEGIN("TEXT BAGIAN KIRI");



//FIXED TITLE 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)+ "%"+



// SUPPORT DAN RESISTEN



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; PKV0 = ValueWhen(PK,haHigh,0); PKV1 = ValueWhen(PK,haHigh,1); PKV2 = ValueWhen(PK,haHigh,2);



MPK = PKV2 < PKV1 AND PKV1 > PKV0 ;



MPKV = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,1); MPKD = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),1); SD = IIf(DateNum() < LastValue(MPKD,lastmode = True ), Null, LastValue(MPKV,Lastmode = True)); Plot(SD, "Resist1", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll);



MPKV2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,2); MPKD2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),2); SD2 = IIf(DateNum() < LastValue(MPKD2,lastmode = True ), Null, LastValue(MPKV2,Lastmode = True)); Plot(SD2, "Resist2", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll);



MPKV3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,3); MPKD3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),3); SD3 = IIf(DateNum() < LastValue(MPKD3,lastmode = True ), Null, LastValue(MPKV3,Lastmode = True)); Plot(SD3, "Resist3", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll);



MPKV4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,4); MPKD4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),4); SD4 = IIf(DateNum() < LastValue(MPKD4,lastmode = True ), Null, LastValue(MPKV4,Lastmode = True)); Plot(SD4, "Resist4", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll);



MPKV5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,5);



MPKD5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),5); SD5 = IIf(DateNum() < LastValue(MPKD5,lastmode = True ), Null, LastValue(MPKV5,Lastmode = True)); Plot(SD5, "Resist5", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll);



MPKV6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,6); MPKD6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),6); SD6 = IIf(DateNum() < LastValue(MPKD6,lastmode = True ), Null, LastValue(MPKV6,Lastmode = True)); Plot(SD6, "Resist6", colorDarkRed,styleDots|styleDashed|styleThick|styleNoTitle,maskAll);



Prd2=Param("Suppport Period",2,0,200,1);



test2 = TEMA ( Low , Prd2 ) ;



SP = Ref(test2,1) > Low AND test2 < Ref(test2,-1); SPV0 = ValueWhen(SP,haLow,0); SPV1 = ValueWhen(SP,haLow,1); SPV2 = ValueWhen(SP,haLow,2);



MSP = SPV2 > SPV1 AND SPV1 < SPV0 ; 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();



_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" ) if( Type == "Simple" )



m = Wilders( P, Periods ); m = MA( P, Periods );



_SECTION_END();



_SECTION_BEGIN("Pivot Finder"); 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; aHPivs = H - H; aLPivs = L - L; 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); //value curBar = (BarCount-1); curTrend = ""; if (aLLVBars[curBar] < aHHVBars[curBar]) {



curTrend = "D";



}



else {



curTrend = "U";



}



if (BarCount > farback) { for (i=0; i lastHPIdx) {



// -- Bar and price info for candidate pivot candIdx = curBar - aHHVBars[curBar]; candPrc = aHHV[curBar]; if (



lastHPH < candPrc AND candIdx > lastLPIdx AND candIdx < curBar) {



//add this as a pivot... aHPivs[candIdx] = 1;



// pivot information arrays for (j=0; j candPrc AND



candIdx > lastHPIdx AND candIdx < curBar) {



//add this as a pivot... aLPivs[candIdx] = 1;



for (j=0; j 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));



_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(m1s1,51,IIf(m1>0 AND m1>s1,colorBrightGreen,IIf(m1>0 AND m1 0; BEAR_CROSS_ABOVE_ZERO = Cross (Signal(r1,r2,r3),MACD(r1, r2)) AND MACD(r1, r2) > 0; BULL_CROSS_BELOW_ZERO = Cross (MACD(r1, r2),Signal(r1,r2,r3)) AND MACD(r1, r2) 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); 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)); _SECTION_END();



_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 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);



} TREND_status = WriteIf(TREND_B,"Buy",WriteIf(TREND_S ,"Sell","NA"));



TREND_col = IIf (TREND_B,colorGreen, IIf (TREND_S ,colorRed,colorLightGrey)); _SECTION_END();



_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); B_RSI = RSI_CROSS_30 = Cross(RSI_PERIODS,OS); S_RSI = RSI_CROSS_70 = Cross(OB,RSI_PERIODS); RSI_BELOW_30 = RSI_PERIODS < OS ; RSI_ABOVE_70 = RSI_PERIODS > OB ; RSI_14_GREATEST = RSI_PERIODS>=HHV( RSI_PERIODS, 14); RSI_14_LOWEST = RSI_PERIODS= 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(RSI_PERIODS, 14 ); RSI_BEAR_DIV1 = RSI_PERIODS LLV(Close,14); /*****///////// RSI_BUY = B_RSI ; RSI_SELL =S_RSI ; 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)); _SECTION_END();



_SECTION_BEGIN("OBV"); MA_OBV_Period = Param("OBV_MA Period",10,10,21,1); OBV_BUY = Cross(OBV(),MA(OBV(),MA_OBV_Period)); OBV_SELL = Cross(MA(OBV(),MA_OBV_Period),OBV()); OBV_status = WriteIf(OBV_BUY,"Buy",WriteIf(OBV_SELL,"Sell","NA")); OBV_col = IIf (OBV_BUY,colorGreen, IIf (OBV_SELL,colorRed,colorLightGrey)); _SECTION_END();



_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 ); 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); TSI_status = WriteIf(TSI_BUY,"Buy",WriteIf(TSI_SELL,"Sell","NA")); TSI_col = IIf (TSI_BUY,colorGreen, IIf (TSI_SELL,colorRed,colorLightGrey)); _SECTION_END();



_SECTION_BEGIN("TRIX"); 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_BUY = Cross(TRIX_VAL, SIG_TRIX) AND TRIX_VAL < 0; TRIX_SIGNAL_SELL = Cross(SIG_TRIX, TRIX_VAL)AND TRIX_VAL > 0; 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; TRIX_status = WriteIf(TRIX_BUY,"Buy",WriteIf(TRIX_SELL,"Sell","NA")); TRIX_col = IIf (TRIX_BUY,colorGreen, IIf (TRIX_SELL,colorRed,colorLightGrey)); _SECTION_END();



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_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);



_SECTION_BEGIN("ANALYSIS"); ANALYSIS_TOGGLE = ParamToggle("ON - OFF","Off|On",1); if(ANALYSIS_TOGGLE==1) {



Chg=Ref(C,-1); Title = EncodeColor(colorBlack)+ "Company :: " +Title = Name() + " " + EncodeColor(colorBlack) + "Date :: " + Date() +EncodeColor(11) + EncodeColor(colorBlack) + "\n{{INTERVAL}} " + EncodeColor(colorBlack)+ " Open: "+ EncodeColor(colorBlack)+ WriteVal(O,format=1.2) +



EncodeColor(colorBlack)+ " High: "+ EncodeColor(colorBlack) + WriteVal(H,format=1.2) + EncodeColor(colorBlack)+ " Low: "+ EncodeColor(colorBlack)+ WriteVal(L,format=1.2) + EncodeColor(colorBlack)+ " Close: "+ WriteIf(C> Chg,EncodeColor(ColorRGB(168,255,0)),EncodeColor(colorRed))+ WriteVal(C,format=1.2)+ EncodeColor(colorBlack)+ " Change: "+ WriteIf(C> Chg,EncodeColor(ColorRGB(168,255,0)),EncodeColor(colorRed))+ WriteVal(ROC(C,1),format=1.2)+ "%"+ EncodeColor(colorBlack)+ " Volume: "+ EncodeColor(colorBlack)+ WriteVal(V,1)



+"\n" +"\n"+EncodeColor(colorBlack) +"========================" +"\n"+EncodeColor(colorGreen)+ "



SIGNAL INDIKATOR "



+"\n"+EncodeColor(colorBlack) +"========================"



//text pivot + "\n" +EncodeColor(colorBlack)+"PIVOT



="+



WriteIf (aLPivs,EncodeColor(colorGreen)+" BUY("+PIVOT_BUY+")",WriteIf (aHPivs,EncodeColor(colorRed)+ " SELL("+PIVOT_SELL+")","Netral"))



//text adx + "\n"



+EncodeColor(colorBlack)+"ADX



= "+



WriteIf (BUY_ADX,EncodeColor(colorGreen)+"BUY("+BUY_ADX+")",WriteIf (SELL_ADX,EncodeColor(colorRed)+ " SELL("+SELL_ADX+")","Netral"))



/**************** MACD ***************************/



+ "\n" + EncodeColor(colorBlack)+"MACD "+"["+r1+"]"+" " +"["+r2+"]"+" " +"["+r3+"] = " + WriteIf (BUY_MACD,EncodeColor(colorGreen)+"BUY("+BUY_MACD+")",WriteIf (SELL_MACD,EncodeColor(colorRed)+ "SELL("+SELL_MACD+")","Netral"))



//text stochastic



+"\n"+EncodeColor(colorBlack)+"Stochastics



= "



+ WriteIf(BUY_STOCH,EncodeColor(colorGreen)+"BUY ("+BUY_STOCH+")",WriteIf(SELL_STOCH,EncodeColor(colorRed)+"SELL("+SELL_STOCH+")","Netral"))



//text rsi +"\n" + EncodeColor(colorBlack)+"RSI "+" "+Rperiods+"



= "



+WriteIf(B_RSI,EncodeColor(colorGreen)+"BUY("+RSI_BUY+")",WriteIf (S_RSI,EncodeColor(colorRed) +"SELL("+RSI_SELL+")","Netral"))



//text trend +"\n" +EncodeColor(colorBlack)+"Trend



= "



+WriteIf(Up AND NOT TREND_B,EncodeColor(colorGreen)+"UP ",WriteIf(Up AND TREND_B,EncodeColor(colorGreen)+ "BUY(1)", WriteIf(Down AND NOT TREND_S,EncodeColor(colorRed)+"DOWN",WriteIf(Down AND TREND_S,EncodeColor(colorRed)+"SELL(1)","."))))



//text gap +"\n"+EncodeColor(colorBlack)+"GAP



= "



+WriteIf(GAP_UP,EncodeColor(colorGreen)+"UP (1)",WriteIf(GAP_DW,EncodeColor(colorRed) +"DOWN (1)", EncodeColor(colorBlack)+"Netral"))



+"\n"+EncodeColor(colorBlack) +"======================" +"\n"+EncodeColor((colorGreen))+"BUY = "+EncodeColor(colorGreen)+Total_Buy +"\n"+EncodeColor((colorRed))+"SELL = "+EncodeColor(colorRed)+Total_Sell +"\n"+EncodeColor(colorBlack) +"======================";



}



_SECTION_BEGIN("TEXTSCS"); SetChartBkColor( ParamColor("Chart Color", colorLavender)); SetChartOptions(0,chartShowArrows|chartShowDates);



GfxSetOverlayMode(1); GfxSelectFont("Tahoma", Status("pxheight") / 30 ); /* Up down name*/ GfxSetTextAlign( 6 );// center alignment GfxSetTextColor( ParamColor("Text Color", ColorHSB( 42, 42, 42 ) )); GfxSetBkMode(0); // transparent GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/5); GfxSelectFont("Tahoma", Status("pxheight")/20 ); GfxTextOut( "STOCK CUAN SAHAM", Status("pxwidth")/2, Status("pxheight")/10 ); GfxSetBkMode(0); // transparent _SECTION_END();