通达信30顶主图源码
N:=8;
MA1:MA(C,3);
MA2:MA(C,10),COLORFF8000;
MA3:MA(C,30);
MA4:MA(C,60),COLORFFBBCC;
TY:=C;
A1:=REF(TY,N)=HHV(TY,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
HD:=FILTER(C1,N);
A2:=REF(TY,N)=LLV(TY,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
LD:=FILTER(C2,N);
A:=REF(C,BARSLAST(HD));
B:=REF(L,BARSLAST(LD));
T1:=BARSLAST(HD)
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
顶:IF(T1,A,A),COLORYELLOW,POINTDOT,LINETHICK1;
底:IF(T2,B,B),COLORGREEN,POINTDOT;
上升:IF(MA3>REF(MA3,1),MA3,DRAWNULL),COLORRED,LINETHICK2;
下降:IF(MA3
平:IF(MA(C,30)=REF(MA(C,30),1),MA(C,30),DRAWNULL),COLOR00FFFF,LINETHICK2;
BB:=(LMA(C,30)) AND (VO;
DRAWICON(BB,L*0.98,1);
STICKLINE(BB,O,C,1.5,0),COLORYELLOW;
换手:=VOL*100/CAPITAL;
STICKLINE(换手>15 AND C>O AND COUNT((CROSS(MA(VOL,3),MA(VOL,34))),3),
OPEN,CLOSE,1.5,0),COLORFF6600;{放量蓝色K线信号}
YCX:=MA3>=REF(MA3,1);
H1:=MAX(MAX(MA1,MA2),MA3);
L1:=MIN(MIN(MA1,MA2),MA3);{一阳穿3线}
一阳穿线:= H1REF(MA2,1); {穿C线洋红色K线}
STICKLINE(一阳穿线,O,C,1.5,1),COLORLIGREEN;{洋红色K线}
ZX:=(MA1+MA3)/2;
QSXS:=MA1>=MA3 AND MA3>REF(MA3,1);
GD:=ZX>=REF(ZX,1) AND REF(ZX,1)
YB:=C>REF((O-C)/2+C,2);
买:=CROSS(C,ZX) AND (GD OR YB) AND QSXS;
DRAWTEXT(买 AND BB,L*0.99, '买'),COLORLIBLUE;
DRAWTEXT(买 AND 一阳穿线,L*0.99, '阳'),COLOR5290FF;
ZH1:=MAX(MAX(MA1,MA2),MA2);
ZH2:=MIN(MIN(MA1,MA2),MA2);
ZH3:=(FILTER((ZH1-ZH2)/ZH2<0.0005 AND C>O AND MA1>REF(MA1,1)
AND (LZH1),1));
DRAWTEXT(买 AND ZH3,L*0.99, '合'),COLORYELLOW;
