当前位置: 股旁网 > 通达信答疑 > 决策密码指标改通达信指标

决策密码指标改通达信指标

来源：Internet，编辑：股旁网，2012-07-31

编写条件：

N 0 1 1 IF(n1<1) { IF(CLOSE>OPEN) RETURN "阳"; ELSE IF(CLOSE=CLOSE[1]) RETURN "阳"; ELSE IF(CLOSE==OPEN AND OPEN<=CLOSE[1]) RETURN "阴"; MONEY; K线换手; } IF(n1>0) { Var1=MONEY/VOL; A=SMA(Var1,5,1)-SMA(Var1,55,1); B=SMA((A-SMA(A,5,1)),5,1); 风险系数:B; aa:=MA(CLOSE,5); 前非红:=IF(REF(CLOSE,1)MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),1,2); LOWV1:=LLV(LOW,8); HIGHV1:=HHV(HIGH,8); RSV1:=EMA((CLOSE-LOWV1)/(HIGHV1-LOWV1)*100,3); K11:=EMA(RSV1,3); D11:=MA(K11,2); LOWV2:=LLV(LOW,21); HIGHV2:=HHV(HIGH,21); RSV2:=EMA((CLOSE-LOWV2)/(HIGHV2-LOWV2)*100,3); K22:=EMA(RSV2,3); D22:=MA(K22,2); V5:=MA(V,5); V18:=MA(V,18); IF(V>V5 AND V>V18) Ll:=6.5; ELSE Ll:=0; IF(D11>REF(D11,1)) dx:=2.1; ELSE dx:=0; IF(D11<25) dz:=7.6; ELSE IF(D11<28) dz:=6.1; ELSE IF(D11<31) dz:=4.6; ELSE IF(D11<35) dz:=3.1; ELSE IF(D11<40) dz:=1.6; IF(D22<25) dz2:=7.6; ELSE IF(D22<28) dz2:=6.1; ELSE IF(D22<31) dz2:=4.6; ELSE IF(D22<35) dz2:=3.1; ELSE IF(D22<40) dz2:=1.6; zz:=Ll+dx+dz+dz2; MAVOL$0:MA(VOL,2); MAVOL$1:MA(VOL,5); MAVOL$2:MA(VOL,20); RSV1=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; a1=SMA(RSV1,3,1); b1=SMA(a1,3,1); e1=3*a1-2*b1; IF(前非红=1 AND 当红=1 AND zz>16 AND C>O*0.985 AND C>REF(C,1)*0.98)//23 RETURN ("yang"); IF(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1) AND REF(MAVOL$1,1)MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1)) RETURN ("colorred"); IF(CLOSEREF(A,1) AND B>REF(B,1)) RETURN ("colorwhite"); IF(AREF(A,1) AND BREF(B,1)) RETURN ("colorwhite");

编写方法：

 VAR1:=AMOUNT/vol;

A:=SMA(VAR1,5,1)-SMA(VAR1,55,1);

B:=SMA((A-SMA(A,5,1)),5,1);

风险系数:=B;

AA:=MA(CLOSE,5);

前非红:=IF(REF(CLOSE,1)<REF(AA,1) OR REF(A,1)<REF(A,2) OR REF(B,1)<REF(B,2),1,2);

当红:=IF(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),1,2);

LOWV1:=LLV(LOW,8);

HIGHV1:=HHV(HIGH,8);

RSV1:=EMA((CLOSE-LOWV1)/(HIGHV1-LOWV1)*100,3);

K11:=EMA(RSV1,3);

D11:=MA(K11,2);

LOWV2:=LLV(LOW,21);

HIGHV2:=HHV(HIGH,21);

RSV2:=EMA((CLOSE-LOWV2)/(HIGHV2-LOWV2)*100,3);

K22:=EMA(RSV2,3);

D22:=MA(K22,2);

V5:=MA(V,5);

V18:=MA(V,18);

LL:=IF(V>V5 AND V>V18,6.5,0);

DX:=IF(D11>REF(D11,1),2.1,0);

DZ:=IF(D11<25,7.6,IF(D11<28,6.1,IF(D11<31,4.6,IF(D11<35,3.1,IF(D11<40,1.6,0)))));

DZ2:=IF(D22<25,7.6,IF(D22<28,6.1,IF(D22<31,4.6,IF(D22<35,3.1,IF(D22<40,1.6,0)))));

ZZ1:=LL+DX+DZ+DZ2;

MAVOL0:=MA(VOL,2);

MAVOL1:=MA(VOL,5);

MAVOL2:=MA(VOL,20);

RSV3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

A1:=SMA(RSV3,3,1);

B1:=SMA(A1,3,1);

E1:=3*A1-2*B1;

DRAWICON(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1) AND REF(MAVOL1,1)<MAVOL1 AND REF(MAVOL2,1)<MAVOL2 AND 前非红=1 AND 当红=1 AND B1<80,L,1);

STICKLINE(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),L,H,0,0),COLOR0000FF;

STICKLINE(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),C,O,2,0),COLOR000000;

STICKLINE(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),C,O,2,1),COLOR0000FF;

STICKLINE(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),L,H,0,0),COLORFFFFFF;

STICKLINE(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),C,O,2,0),COLOR000000;

STICKLINE(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),C,O,2,1),COLORFFFFFF;

STICKLINE(A<REF(A,3) AND B<REF(B,3),L,H,0,0),COLOR00FF00;

STICKLINE(A<REF(A,3) AND B<REF(B,3),C,O,2,0),COLOR000000;

STICKLINE(A<REF(A,3) AND B<REF(B,3),C,O,2,1),COLOR00FF00;

STICKLINE(A>REF(A,1) AND B<REF(B,1),L,H,0,0),COLORFFFFFF;

STICKLINE(A>REF(A,1) AND B<REF(B,1),C,O,2,0),COLOR000000;

STICKLINE(A>REF(A,1) AND B<REF(B,1),C,O,2,1),COLORFFFFFF;

STICKLINE(A<REF(A,1) AND B>REF(B,1),L,H,0,0),COLORFFFFFF;

STICKLINE(A<REF(A,1) AND B>REF(B,1),C,O,2,0),COLOR000000;

STICKLINE(A<REF(A,1) AND B>REF(B,1),C,O,2,1),COLORFFFFFF;

STICKLINE(前非红=1 AND 当红=1 AND ZZ1>16 AND C>O*0.985 AND C>REF(C,1)*0.98,L,H,0,0),COLOR0000FF;

STICKLINE(前非红=1 AND 当红=1 AND ZZ1>16 AND C>O*0.985 AND C>REF(C,1)*0.98,C,O,2,0),COLOR0000FF;

相关文章