SetChartBkColor(ParamColor("Panel color ",colorBlack));
_SECTION_BEGIN("Ichi 3R 4");
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 )) ));
GraphXSpace = 10;
filt = Param("filter",0,0,20,0.1);
tu = Param("TS ",5,2,50,1);
su = Param("KS ",20,2,100,1);
ku = Param("KUMO ",40,2,200,1);
sh = Param("CS Shift",20,10,50,1);
ks = SL = ( HHV( H, su ) + LLV( L, su) )/2;
ts = TL = ( HHV( H, tu ) + LLV( L, tu ))/2;
Span1 = (( SL + TL )/2);
Span2 = (HHV( H, ku) + LLV(L, ku))/2;
top = IIf(Ref(span1,-su) > Ref(span2,-su),Ref(span1,-su),Ref(span2,-su));
bot = IIf(Ref(span1,-su) < Ref(span2,-su),Ref(span1,-su),Ref(span2,-su));
Plot( Close, "", colorAqua, styleThick+styleLine+styleNoLabel,Null, Null, -sh );
ichi_col =
IIf(ts > ks AND ks > Ref(span2,-su) , colorBlue,
IIf(ts < ks AND ks < Ref(span2,-su), colorCustom12,
colorGrey40));
Plot(SL,"SL",colorWhite,styleThick); // standard, base, or kijun-sen line
Plot(TL,"TL",colorCustom12,styleThick); // turning, conversion, or tenkan-sen line
Plot(Close,"price",colorGrey40,styleBar+styleThick);
Plot (Ref(span2,-su),"",colorDarkYellow,styleThick);
Plot (Ref(span1,-su),"",colorYellow,styleThick);
PlotOHLC(Span1,Span2,Span1,Span2,"",IIf(Span1>Span2,colorDarkOliveGreen,colorDarkRed),styleCloud|4096,0,0,su);
ts = tl;
ks = sl;
Title = EncodeColor(colorWhite)+ "Linkon " + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2)+ EncodeColor(colorWhite) +
" - " + Date() +
"\n"+
WriteIf(Ref(H,-1) > Ref(H,-2),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+"ex "+Ref(H,-1)+WriteIf(H > Ref(H,-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+" Hi "+H+
EncodeColor(colorYellow)+"T ="+(Ref(H,-1)+filt)+
"\n"+
EncodeColor(colorWhite)+"Op "+O+WriteIf(C > O, EncodeColor(colorBrightGreen),EncodeColor(colorRed))+" Cl : " +C+
EncodeColor(colorYellow)+"R = "+round(10*(H-L))/10+
"\n"+
WriteIf(Ref(L,-1) < Ref(L,-2),EncodeColor(colorRed),EncodeColor(colorBrightGreen))+"ex "+Ref(L,-1)+WriteIf(L < Ref(L,-1),EncodeColor(colorRed),EncodeColor(colorBrightGreen))+" Lo "+L+
EncodeColor(colorYellow)+"T ="+(Ref(L,-1)-filt)+
"\n"+"\n"+
EncodeColor(colorWhite)+"\nIchi Says :"+
WriteIf(L > ts AND ts > ks AND ks > top,EncodeColor(colorBlue)+"clear UpTrend",
WriteIf(H < ts AND ts < ks AND ks < bot,EncodeColor(colorCustom12)+"clear Dntrend",
""
))+
EncodeColor(colorCustom12) + "\nTF+1 @ " +WriteIf(C > tl, EncodeColor(colorBrightGreen),EncodeColor(colorRed))+tl+
EncodeColor(colorWhite) + " \nTF+2 @ "+WriteIf(C > sL, EncodeColor(colorBrightGreen),EncodeColor(colorRed))+sl+
EncodeColor(colorDarkYellow) + "\nTF+3 @ " +WriteIf(C > Ref(span2,-su), EncodeColor(colorBrightGreen),EncodeColor(colorRed))+Ref(span2,-su) +
EncodeColor(colorYellow) +" \nTD @ "+ WriteIf(C > Ref(span1,-su), EncodeColor(colorBrightGreen),EncodeColor(colorRed))+Ref(span1,-su) +
"\n"
;