// Downloaded From https://www.WiseStockTrader.com
 _SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

_SECTION_BEGIN("Ichimoku");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}

Daogam1 = ( HHV( H, 65 ) + LLV( L, 65) )/2;
Daogam2 = ( HHV( H, 129 ) + LLV( L, 129) )/2;
KS = ( HHV( H, 17 ) + LLV( L, 17) )/2;
TS = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;
//CS = Ref( C, 26 );
CS=C;
Span1 = (( KS + TS )/2);
Span2 = (HHV( H, 26) + LLV(L, 26))/2;

Plot(Daogam2,"Daogam2",colorWhite,styleThick);
Plot(Daogam1,"Daogam1",colorOrange,styleThick);
Plot(KS,"KS",colorBlue,styleThick);
Plot(TS,"TS",colorRed,styleThick);
Plot(CS,"",colorBrightGreen,styleLine|styleThick,Null,Null,-26);
Plot(Span1,"",colorBrown,1,0,0,26);
Plot(Span2,"",colorLightOrange,1,0,0,26);
PlotOHLC(Span1,Span2,Span1,Span2,"",IIf(Span1>Span2,colorLime,colorLightOrange),styleCloud|4096,0,0,26);
_SECTION_END();

_SECTION_BEGIN("TS_KS Crossover");
Buy = Cross( TS,KS );
Sell = Cross( KS,TS );
PlotShapes(IIf(Sell==1, shapeDownArrow, shapeNone), colorRed, 0,High, Offset=-15);
PlotShapes(IIf(Buy==1, shapeUpArrow , shapeNone), colorBlue, 0,Low, Offset=-15);
_SECTION_END();