金龙腾飞（鹏腾2009版本）源码 主图 选股 通达信 贴图

主图与选股参数设置
{m1 0 1000 30}
 {m2 0 1000 60}
 {n  0 1000 20}

 {主图}
m1:=30;
m2:=60;
n:=20;
T1:=MA(C,M1);
T2:=MA(C,M2);
DRAWBAND(T1,RGB(200,0,0),T2,RGB(0,200,0));
DRAWKLINE(H,O,L,C);
A:=EVERY(BETWEEN(C/MA(C,M1),1,1.1) AND T1/T2<1.1 AND MA(C,M1)>MA(C,M2) AND (MA(C,M1)-MA(C,M2))>REF((MA(C,M1)-MA(C,M2)),1),N);
B:=BARSLAST(A);
D:IF(B<N,DRAWLINE(A,C,REF(A,1),REF(C,1),1),DRAWNULL),COLORYELLOW,DOTLINE;
DRAWTEXT(REFX(B=1,1),H,'金龙腾飞'),COLORYELLOW,DRAWABOVE;
DRAWICON(CROSS(C,REF(C,B)) AND B<N,H,1);
DRAWICON(COUNT(C>REF(C,B),B)=1 AND C>REF(C,B) AND B<N,H,1);





 {选股}
T1:=MA(C,M1);
 T2:=MA(C,M2);
 A:=EVERY(BETWEEN(C/MA(C,M1),1,1.1) AND T1/T2<1.1 AND MA(C,M1)>MA(C,M2) AND (MA(C,M1)-MA(C,M2))>REF((MA(C,M1)-MA(C,M2)),1),N);
 B:=BARSLAST(A);
 xg:CROSS(C,REF(C,B)) AND B<N OR COUNT(C>REF(C,B),B)=1 AND C>REF(C,B) AND B<N;