// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("1chimoku");
SetChartOptions( 1,chartShowDates, chartGridMiddle=0 ) ;

pr1=Param("Periode1",7,2,300);
pr2=Param("Periode2",22,2,300);
pr3=Param("Periode3",44,2,300);

Tenkan=(HHV(H,pr1)+LLV(L,pr1))/2;
Kijun=(HHV(H,pr2)+LLV(L,pr2))/2;
SpanA=(tenkan+kijun)/2;
SpanB=(HHV(H,pr3)+LLV(L,pr3))/2;

Plot(C,"",colorBlack,styleCandle);
Plot(Ref(spanA,-pr2),"SpanA",colorBrightGreen,16,0,0);
Plot(Ref(spanB,-pr2),"SpanB",colorPink,16,0,0,0);
PlotOHLC(SpanA,SpanB,SpanA,SpanB,"",IIf(spanA>spanB,colorBrightGreen,colorLavender),styleCloud|4096,0,0,pr2,-1);

Line1=ParamToggle("Lines","OFF|ON",1);
if(Line1==1)
{
//Plot(Tenkan,"Tenkan",colorBlue,styleStaircase,0,0,0);
//Plot(Kijun,"Kijun",colorRed,styleStaircase,0,0,0);
//Plot(C,"Chikou",colorOrange,1,0,0,-pr2);
}


Buy = Cross(Tenkan,Kijun);
Sell = Cross(Kijun,Tenkan);


//PlotShapes(IIf(Sell==1, shapeDownArrow, shapeNone), colorRed , 0,High, Offset=-20);
//PlotShapes(IIf(Buy==1, shapeUpArrow , shapeNone),  colorBlue, 0,Low, Offset=-20);

Filter = (Buy OR Sell) AND Volume*500*C > 5000000000 ;
AddColumn(Buy,"buy");
AddColumn(Sell,"sell");
AddColumn(MA(V,5)>MA(V,20),"MA(v,5)>Ma(v,20)");



_SECTION_END();
Title = 

"\n";


_SECTION_BEGIN("Background Color");
SetChartBkColor(ParamColor("Outer panel color ",colorWhite)); // color of outer border 
SetChartBkGradientFill( ParamColor("BgTop", colorWhite),ParamColor("BgBottom", colorWhite)); 


_SECTION_BEGIN("Background Name");
GfxSelectFont("Tahoma", 13,500 ); 
GfxSetBkMode(1); 
GfxSetTextColor(colorOrange); 
GfxTextOut(Name()+"   "+Date() + "  • O=  " +WriteVal(O,0)+ "  • Hi = "+WriteVal(H,0)+ "  • Lo=  "+WriteVal(L,0)+ "  • C=  "+WriteVal(C,0) + "  • Chg=  "+WriteVal(C-Ref(C,-1),0) +
"  • %Chg= "+WriteVal(ROC(C,1))+ " % " , 10, 3 );
SetChartOptions( 0, chartShowArrows|chartShowDates );

_SECTION_BEGIN("Fractal");
UpFractal= ValueWhen(
 (Ref(H,-2) >= Ref(H, -3)) AND
 (Ref(H,-2) >= Ref(H, -1)) AND
 (Ref(H,-2) >= H), Ref(H,-2));

DownFractal= ValueWhen(
 (Ref(L,-3) <= Ref(L, -4)) AND
 (Ref(L,-3) <=  Ref(L, -2)) AND
 (Ref(L,-3) <=  Ref(L, -1)) AND
 (Ref(L,-3) <=  L), Ref(L,-3));
Buy  = (Ref(C,-1)<=UpFractal) AND C>UpFractal AND V >= MA(V,20);
Sell = (Ref(C,-1)>=DownFractal) AND C<DownFractal;

Plot(Ref(UpFractal,2), "spekulative buy jika tembus", ParamColor("resistance",colorGreen), ParamStyle("Up Fractal Style", styleLine));
Plot(Ref(DownFractal,3), "cutloss jika tembus",ParamColor("suport",colorOrange), ParamStyle("Down Fractal Style", styleLine));

_SECTION_END();


_SECTION_BEGIN("Exploration");
//Filter = (Buy OR Sell) AND V > 0; /*AND (C>=PriceFrom AND C<=PriceTo) AND V>0; */

Filter = (Buy  OR Sell) AND V > 5000;
AddTextColumn( WriteIf(Buy,"Buy", WriteIf(Sell, "Sell", "")), "Trade", 1.0);
AddColumn( UpFractal, "resistance");
AddColumn( DownFractal, "suport");
AddColumn( C, " Close");
LP = (H+L)/2;// Medium Level Price.
MlP = (H+L)/2;

Plot(MLP,"MLP", colorGreen,styleStaircase,0,0, 1); 
Plot(C,"Close",1,64);


_SECTION_END();
_SECTION_BEGIN("EMA4");
P = ParamField("Price field",-1);
Periods = Param("Periods", 200);
Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorBlue),styleDots, ParamStyle("Style") ); 
_SECTION_END();
Periods = Param("Periods", 20);
Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorRed),styleDots, ParamStyle("Style") ); 
_SECTION_END();