修改控盘公式改为通达信

编写要求：

DRAWGBKlast(DATE>900101,strip(RGB(0,0,160),RGB(0,20,10),0)); cyc5:=cyc(5); cyc0:=MAXCYC; aa:(cyc5-cyc0)/cyc0; STICKLINE(aa>0.12,0,aa,8.10,0),COLORRED; STICKLINE(aa<0,0,aa,8.10,0),colorgreen; STICKLINE(aa<0.12 and aa>0,0,aa,8.10,0),coloryellow

解答：

{控盘公式}
P1:=1;
JJJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));
DDD:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01);
JJJT:=IF(DDD,1,(JJJ<(DYNAINFO(5)+0.01) && JJJ>(DYNAINFO(6)-0.01)));
CYC0:=IF(JJJT,0.01*EXPMA(AMOUNT,P1)/EXPMA(VOL,P1),EMA((HIGH+LOW+CLOSE)/3,P1));
CYC5:=CYC(13);
AA:(CYC0-CYC5)/CYC0,NODRAW;
STICKLINE(AA>0.12,0,AA,1,0),colorred;
STICKLINE(AA<0,0,AA,1,0),colorgreen;
STICKLINE(AA<0.12 AND AA>0,0,AA,1,0),coloryellow;
0;?