|
以下是通达信寻牛决策源码副图（无源码的请下载附件导入）
寻牛决策源码
HJ:=ATAN((HIGH-REF(HIGH,1))/REF(HIGH,1)/0.1)/6.28*360;
LJ:=ATAN((LOW-REF(LOW,1))/REF(LOW,1)/0.1)/6.28*360;
CJ:=ATAN((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)/0.1)/6.28*360;
OJ:=ATAN((OPEN-REF(OPEN,1))/REF(OPEN,1)/0.1)/6.28*360;
A:=MIN(MIN(MIN(CJ,OJ),HJ),LJ);
B:=MAX(MAX(MAX(CJ,OJ),HJ),LJ);
A11:=MIN(CJ,OJ);
B11:=MAX(CJ,OJ);
N:20,COLORMAGENTA;
UP1:10,POINTDOT,COLORMAGENTA;
DP2:30,POINTDOT,COLORMAGENTA;
T:=IF(B11>0 AND A11>0,B11,0);
D:=IF(B11<0 AND A11<0,A11,0);
J1:=IF(B11>0 AND A11<0,B11,0);
J2:=IF(B11>0 AND A11<0,A11,0);
TM:=MA(T+J1,1);
DM:=MA(D+J2,1);
JX:=TM+DM;
T1:=FINDHIGH(B,1,3,1);
T2:=FINDHIGH(B,1,3,2);
Y:=BARSCOUNT(T1)<BARSCOUNT(T2);
W1:=IF(Y,T1,0);
W2:=IF(Y,T2,0);
N1:=W1-W2;
D1:=FINDLOW(A,1,3,1);
D2:=FINDLOW(A,1,3,2);
Y1:=BARSCOUNT(D1)<BARSCOUNT(D2);
W3:=IF(Y1,D1,0);
W4:=IF(Y1,D2,0);
N2:=W3-W4;
M1:MA(REF(T1+N1,1),5),COLORWHITE;
M2:=-MA(D1+N2,5);
DJ:MA(B,5),COLORYELLOW;
DPAJ:-MA(A,5),COLORCYAN;
725555089.jpg
|
