通达信迪马克震荡选股指标公式源码

通达信迪马克震荡选股指标公式源码

源码正文：

N:=1{XG51};
M:=3{XG51};
N1:=64{XG51};
st:=24{XG51};
OVERBOUGHT:0.7{XG51};
OVERSOLD:0.3{XG51};
DemaX:=HIGH>REF(HIGH,1){XG51};
DEMIN:=LOW<REF(LOW,1){XG51};
DENUM:=ma(DEMAX,9){XG51};
DEDOM:=MA(DEMAX,9)+MA(DEMIN,9) {XG51};
DEMARK:DENUM/DEDOM{XG51};
DD:=C=LLV(C,60){XG51};
DDSJ:=BArslAST(REF(DD,1)){XG51};
DDGJ:=REF(CLOSE,DDSJ+1)>CLOSE{XG51};
DMZB:REF(DEMARK,DDSJ+1){XG51};
DEMARK底背离:=IF(DDGJ AND DMZB,0.1,0){XG51};
TD1:=IF(C<REF(C,4),1,0){XG51};
TD2:=IF(TD1=1 AND REF(TD1,1)=1 AND REF(TD1,2)=1 AND REF(TD1,3)=1 AND
REF(TD1,4)=1 AND REF(TD1,5)=1 AND REF(TD1,6)=1 AND REF(TD1,7)=1 AND
REF(TD1,8)=1, 1,0){XG51};
TD3:=IF(REF(C,9)>=REF(C,13),1,0){XG51};
TD4:=IF(TD2=1 AND TD3=1,1,0){XG51};
TD5:=IF(H>=REF(LLV(L,5),3),1,0){XG51};
D8:=IF(REF(TD4,1)=1 AND TD5=1,1,0){XG51};
D9:=IF(TD4=1 AND TD5=1 AND REF(D8,1)!=1,1,0){XG51};
D10:=IF(REF(TD4,1)=1 AND TD5=1 AND REF(D8,2)!=1 AND REF(D9,1)!=1,1,0){XG51};
D11:=IF(REF(TD4,2)=1 AND TD5=1 AND REF(D8,3)!=1 AND REF(D9,2)!=1 AND
REF(D10,1)!=1,1,0){XG51};
D12:=IF(REF(TD4,3)=1 AND TD5=1 AND REF(D8,4)!=1 AND REF(D9,3)!=1 AND
REF(D10,2)!=1 AND REF(D11,1)!=1,1,0){XG51};
D13:=IF(REF(TD4,4)=1 AND TD5=1 AND REF(D8,5)!=1 AND REF(D9,4)!=1 AND
REF(D10,3)!=1 AND REF(D11,2)!=1 AND REF(D12,1)!=1,1,0){XG51};
D14:=IF(REF(TD4,5)=1 AND TD5=1 AND REF(D8,6)!=1 AND REF(D9,5)!=1 AND
REF(D10,4)!=1 AND REF(D11,3)!=1 AND REF(D12,2)!=1 AND REF(D13,1)!=1,1,0){XG51};
D15:=IF(REF(TD4,6)=1 AND TD5=1 AND REF(D8,7)!=1 AND REF(D9,6)!=1 AND
REF(D10,5)!=1 AND REF(D11,4)!=1 AND REF(D12,3)!=1 AND REF(D13,2)!=1 AND
REF(D14,1)!=1,1,0){XG51};
D16:=IF(REF(TD4,7)=1 AND TD5=1 AND REF(D8,8)!=1 AND REF(D9,7)!=1 AND
REF(D10,6)!=1 AND REF(D11,5)!=1 AND REF(D12,4)!=1 AND REF(D13,3)!=1 AND
REF(D14,2)!=1 AND REF(D15,1)!=1,1,0){XG51};
D17:=IF(REF(TD4,8)=1 AND TD5=1 AND REF(D8,9)!=1 AND REF(D9,8)!=1 AND
REF(D10,7)!=1 AND REF(D11,6)!=1 AND REF(D12,5)!=1 AND REF(D13,4)!=1 AND
REF(D14,3)!=1 AND REF(D15,2)!=1 AND REF(D16,1)!=1,1,0){XG51};
SETUP:=(D8+D9+D10+D11+D12+D13+D14+D15+D16+D17){XG51};
XG:SETUP AND (DEMARK=0 OR (DEMARK>0 AND (REF(DEMARK,1)=0 OR (REF(DEMARK,1)>0 AND REF(DEMARK,2)=0)))),COLORRED,NODRAW{XG51};
XG1:crOSS(DEMARK,DMZB) AND DMZB=0,COLORBLUE{XG51};
STICKLINE(XG,0.3,0.35,2,0),COLORGREEN{X!G*5?1!C!N!{};