修改控盘公式改为通达信
2019/12/4 18:46:26
公式编写说明：
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;
投 股票网 www.t ou18.cn
股市公式下载推荐
