%>
50,COLORFFBB00;
K:"KDJ.K",PRECISION2,COLORWHITE,LINETHICK;D:="KDJ.D";
J:"KDJ.J",PRECISION2,COLORMAGENTA,LINEDOT;
PARTLINE(K <REF(K,1),K),COLORFFBBBB,LINEDOT;
FILLRGN(K>D,K,D),COLOR0066FF;
{}
Bb:=CROSS(K,D);Ss:=CROSS(D,K);
drawtext(Bb,2,' ↑'),colorred;
drawtext(Bb,2,'B'),colorred;
drawtext(Ss,100,' ↓'),colorwhite;
drawtext(Ss,100,'S'),colorwhite;
{}
RK:=MA("KDJ.K#DAY",1);
ZJ:=MA("KDJ.J#WEEK",5);
YJ:=MA("KDJ.J#MONTH",21);
SAT:IF((AMOUNT/C)/(HHV(AMOUNT,21)/HHV(C,21))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,21)/HHV(C,21))*100),PRECISION2,COLORCCFFCC,LINETHICK;
{}P:=SYSPARAM(1);BD:=BARPOS;ww:=SYSPARAM(2)+4;
STICKLINE(BD=WW,-22,122,84,1),COLORFFFFFF;
STICKLINE(BD=WW-3,1,YJ[p] ,14,0),COLORFFAAAA;
STICKLINE(BD=WW-1,1,ZJ[p] ,14,0),COLORFF6600;
STICKLINE(BD=WW+1,1,RK[p] ,14,0),COLOR0000BB;
STICKLINE(BD=WW+3,1,SAT[p],14,0),COLOR66AA66;
DRAWTEXT(BD=WW-3,YJ[p],' 月J:\n'+NUMTOSTR(YJ[P],2)),COLORWHITE,align0,PXUP30;
DRAWTEXT(BD=WW-1,ZJ[p],' 周J:\n'+NUMTOSTR(ZJ[P],2)),COLORFFEE00,align0,PXUP30;
DRAWTEXT(BD=WW+1,RK[p],' 日K:\n'+NUMTOSTR(RK[P],2)),COLORCCFFCC,align0,PXUP30;
DRAWTEXT(BD=WW+3,SAT[p],'饱和度:\n'+NUMTOSTR(SAT[P],1)),COLORCCFFCC,align0,PXUP30;
{股票教程网-承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}