MA01:=MA(CLOSE,3);
MA02:=MA(CLOSE,5);
P01:=IF(MA01>MA02,1,0);
P02:=IF(MA02>MA01,-1,0);
P011:=P01+P02;
MA11:=MA(CLOSE,5);
MA12:=MA(CLOSE,12);
P03:=IF(MA11>MA12,1,0);
P04:=IF(MA12>MA11,-1,0);
P012:=P03+P04;
MA21:=MA(CLOSE,12);
MA22:=MA(CLOSE,50);
P05:=IF(MA21>MA22,1,0);
P06:=IF(MA22>MA21,-1,0);
P013:=P05+P06;
pp01:=p011+p012+p013;
{KDJ02}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
pp02:=if(k>d,3,if(k<d,-3,0));
{NACD03}
DIFF:= EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:= EMA(DIFF,9);
MACD:= 2*(DIFF-DEA);
pp03:=if(macd>0,3,if(macd<0,-3,0));
{MASS04}
MASS:=SUM(EMA((HIGH-LOW),9)/EMA(EMA((HIGH-LOW),9),9),25);
pp04:=if(mass>27 and c>ema(c,3),3,if(mass>27 and c<ema(c,3),-3,0));
{PSY05}
PSY20:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
pp05:=if(psy20>75,3,if(psy20<25,-3,0));
{VR06}
LC:=REF(CLOSE,1);
cdp:=(h+l+2*c)/4;
VR:=(SUM(IF(CLOSE>LC,VOL*cdp,0),24)+sum(if(c=lc,cdp*vol,0),24)/2)/
(SUM(IF(CLOSE<=LC,cdp*VOL,0),24)+sum(if(c=lc,cdp*vol,0),24)/2)*100;
pp06:=if(vr>350,3,if(vr<45,-3,0));
{MOM07}
MOM12:=c-ref(c,12);
pp07:=if(mom12>0,3,if(mom12<0,-3,0));
{DPO08}
DPO20:=C - REF(MA(CLOSE,11),20);
pp08:=if(dpo20>0,3,if(dpo20<0,-3,0));
{BOLL09}
MID:=MA(CLOSE,20);
UPPER:=MID + 2*STD(CLOSE,20);
LOWER:=MID - 2*STD(CLOSE,20);
bljx:=(c-lower)/(upper-lower)*100;
pp09:=if(bljx>100,3,if(bljx<0,-3,0));
{CCI11}
TYP:= (HIGH + LOW + CLOSE)/3;
cci14:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
pp11:=if(cci14>180,3,if(cci14<-180,-3,0));
{SOBV10}
sobv:=SUM(IF(ISUP,VOL,IF(ISDOWN,-VOL,0)),0);
ms:=ema(sobv,24);
pp10:=if(sobv>ms,3,if(sobv<ms,-3,0));
{ARBR12}
AR:= SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
BR:= SUM(MAX(0,HIGH-REF(CLOSE,1)),26)/SUM(MAX(0,REF(CLOSE,1)-LOW),26)*100;
pp12:=if(ar>180 or br>350,3,if(ar<45 or br<45,-3,0));
qq:=pp01+pp02+pp03+pp04+pp05+pp06+pp07+pp08+pp09+pp10+pp11+pp12;
ctv:=36+qq;
決策線:ctv,colorwhite,linethick2;
stickline(c>0,36,36,10,0),color00ff00,LINEDOT;
stickline(c>0,56,56,10,0),colorff00ff,LINEDOT;
stickline(c>0,71,71,10,0),colorred,LINEDOT;
stickline(c>0,44,44,10,0),coloryellow,LINEDOT;
stickline(決策線>63,70,決策線,4,0),colorred;
partline(決策線>=ref(決策線,1),決策線),colorred,linethick2;
DRAWTEXTEX(c,1,980,0,'頂部'),colorred;
DRAWTEXTEX(c,1,980,220,'中期'),colorff00ff;
DRAWTEXTEX(c,1,980,420,'短期'),coloryellow;
DRAWTEXTEX(c,1,980,570,'底部'),color00ff00;