把通达信的资金写照改写成大智慧的
2020/1/16 18:26:11
公式编写说明：
求老师帮助把通达信的资金写照改写成大智慧的，谢谢N:=5;QJ0:=(HIGH+LOW+CLOSE)/3;QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));QJ6:="MACD.DIF">"MACD.DEA" AND "MACD.DEA"<0;QJ7:="KDJ.K">"KDJ.D" AND "KDJ.D"<30;QJ8:="MACD.DIF"<"MACD.DEA";QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80;特大: QJ4*QJ5,NODRAW;大单: QJ3*QJ5,NODRAW;中单: QJ1*QJ5,NODRAW;小单: QJ2*QJ5,NODRAW;W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N);量振1:=特大>大单 AND 大单>小单;量振2:=特大<小单 AND 大单<小单;标振1:=QJ6 AND QJ7;标振2:=QJ8 AND QJ9;A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);STICKLINE(A0,0,A0,3,0),COLOR000044;STICKLINE(A0,0,A0,2.5,0),COLOR000088;STICKLINE(A0,0,A0,1.5,0),COLOR0000AA;STICKLINE(A0,0,A0,1,0),COLOR0000CC;STICKLINE(B0,0,-B0,3,0),COLOR004400;STICKLINE(B0,0,-B0,2.5,0),COLOR008800;STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00;STICKLINE(B0,0,-B0,1,0),COLOR00CC00;周趋势: MA(A,5),COLORFFFFFF;平滑值: EMA(周趋势,5),COLOR00FFFF;STICKLINE(标振1 AND 量振1 AND 周趋势>平滑值,0,A0,3,0),COLORYELLOW; DRAWTEXT(标振1 AND 量振1 AND 周趋势>平滑值,A0,'振'),COLORYELLOW;
公式源码示例：
N:=5;QJ0:=(HIGH+LOW+CLOSE)/3;
QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);
QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));
QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));
QJ6:="MACD.DIFF">"MACD.DEA" AND "MACD.DEA"<0;
QJ7:="KDJ.K">"KDJ.D" AND "KDJ.D"<30;
QJ8:="MACD.DIFF"<"MACD.DEA";
QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80;
特大: QJ4*QJ5,LINETHICK0;大单: QJ3*QJ5,LINETHICK0;
中单: QJ1*QJ5,LINETHICK0;小单: QJ2*QJ5,LINETHICK0;
W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N);
量振1:=特大>大单 AND 大单>小单;
量振2:=特大<小单 AND 大单<小单;
标振1:=QJ6 AND QJ7;
标振2:=QJ8 AND QJ9;
A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);
STICKLINE(A0,0,A0,3,0),COLOR000044;
STICKLINE(A0,0,A0,2.5,0),COLOR000088;
STICKLINE(A0,0,A0,1.5,0),COLOR0000AA;
STICKLINE(A0,0,A0,1,0),COLOR0000CC;
STICKLINE(B0,0,-B0,3,0),COLOR004400;
STICKLINE(B0,0,-B0,2.5,0),COLOR008800;
STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00;
STICKLINE(B0,0,-B0,1,0),COLOR00CC00;
周趋势: MA(A,5),COLORFFFFFF;
平滑值: EMA(周趋势,5),COLOR00FFFF;
STICKLINE(标振1 AND 量振1 AND 周趋势>平滑值,0,A0,3,0),COLORYELLOW;
DRAWTEXT(标振1 AND 量振1 AND 周趋势>平滑值,A0,'振'),COLORYELLOW;
看股 吧公式 www.kang uba.com
其它股票公式列表
