|
以下是通达信九转序列源码主图贴图（无源码的请下载附件导入）
A1:=C>REF(C,4);
A2:=BARSLASTCOUNT(A1);
A3:=REF(A2,1)=8 AND A2>REF(A2,1);
A4:=REF(BETWEEN(A2,5,8),1) AND A2<REF(A2,1);
A5:=ISLASTBAR AND BETWEEN(A2,6,8);
A6:=(BACKSET(A3>0,9) OR BACKSET(A4>0,A2+1)*0 OR BACKSET(A5>0,A2))*A2;
DRAWTEXT(A6>0,H+H*0.005,VAR2STR(A6,0)),COLOR00FFFF;
DRAWTEXT(A2=9,H+H*0.005,'9'),COLOR00FF00;
B1:=C<REF(C,4);
B2:=BARSLASTCOUNT(B1);
B3:=REF(B2,1)=8 AND B2>REF(B2,1);
B4:=REF(BETWEEN(B2,5,8),1) AND B2<REF(B2,1);
B5:=ISLASTBAR AND BETWEEN(B2,6,8);
B6:=(BACKSET(B3>0,9) OR BACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
DRAWTEXT(B6>0,L-L*0.005,VAR2STR(B6,0)),COLORFFFFFF;
DRAWTEXT(B2=9,L-L*0.005,'9'),COLORFF00FF;
DX:=C;
M3:MA(DX,20),COLORFFFFFF,LINETHICK2;
AA:IF(M3>REF(M3,1),M3,DRAWNULL),COLORFF00FF,LINETHICK2;
BB:IF(M3<REF(M3,1),M3,DRAWNULL),COLOR00FF00,LINETHICK2;
BP3:=REF(C,4)>(REF(C,5)*0.03);
BP1:=REF(C,3)>(REF(C,4)*0.02);
B:=REF(CLOSE,3)>REF(CLOSE,4);
AP1:=REF(CLOSE,3)<(C+REF(C,2)+REF(C,1))/3;
BP2:=REF(V,3)>REF(V,4)*1.5;
AP2:=REF(V,3)>(V+REF(V,2)+REF(V,1))/3;
AP3:=C>REF(C,3);
黄金柱:=AP2=1 AND AP1=1 AND B=1 AND BP2=1 AND AP3=1 AND BP1=1 AND BP3=1;
STICKLINE(FILTER(黄金柱=1,3),H,L,1,0),COLORFFFFFF;
MTM:=C-REF(C,1);
ZLGJ:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买1:=IF(LLV(ZLGJ,2)=LLV(ZLGJ,7) AND COUNT(ZLGJ<0,2) AND CROSS(ZLGJ,MA(ZLGJ,2)),1,0);
卖1:=IF(HHV(ZLGJ,2)=HHV(ZLGJ,7) AND COUNT(ZLGJ>50,2) AND CROSS(MA(ZLGJ,2),ZLGJ),1,0);
STICKLINE(FILTER(买1=1,5),H,L,1,0),COLORFF00FF;
STICKLINE(FILTER(卖1=1,1),H,L,1,0),COLOR00FF00;
85522935.gif
85355075.rar
(3.66 KB, 下载次数: 0, 售价: 4 金钱)
|
