通达信 启爆跳龙门选股公式A1:=6...

通达信 启爆跳龙门选股公式

A1:=60-CURRBARSCOUNT;
A2:=(POW(60,2)+POW(A1,2))/1000;
A3:=IF(CURRBARSCOUNT<120,A2,DRAWNULL);
分:=CONST(LLV(A3,90));
百:=CONST(HHV(A3,90))-分;
基点:=CONST(LLV(L,90));
基:=CONST(HHV(H,90))-基点;
CC比:=(A3-分)/百;
XCX:=CC比*基+基点;
A8:=XCX;
A9:=MA(A8,20);
A10:=MA(A9,20);
D1:=WMA((REF(L,24)+REF(C,12)+REF(H,1)*8)/10,22);
D2:=CONST(D1),COLORLIMAGENTA;
D3:=CONST((HHV(C,60)+D2)/2);
A11:=MAX(MAX(A8,A9),A10);
A12:=A11*1.1;
A13:=IF(A12>D3,D3,A12);
A14:=IF(A13>D3,D3,A13*1.1);
A15:=A14*1.1;
A16:=IF(A15>A14,A14,A15);
A17:=CONST(A8*0.818);
启爆:=LONGCROSS(DCLOSE,REF(DCLOSE,1)*1.025,4) AND V/REF(MA(V,5),1)>2;
XG:V/REF(MA(V,5),1)>2 AND 启爆 OR CROSS(C,D2) OR CROSS(C,D3) OR CROSS(C,A8) OR CROSS(C,A9) OR CROSS(C,A10) OR CROSS(C,A17);
主图：
DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1,2,1);
A1:=N-CURRBARSCOUNT;
A2:=(POW(N,2)+POW(A1,2))/1000;
A3:=IF(CURRBARSCOUNT<N*2,A2,DRAWNULL);
分:=CONST(LLV(A3,90));
百:=CONST(HHV(A3,90))-分;
基点:=CONST(LLV(L,90));
基:=CONST(HHV(H,90))-基点;
CC比:=(A3-分)/百;
XCX:=CC比*基+基点;
A8:XCX;
A9:MA(A8,20);
A10:MA(A9,20);
D1:=WMA((REF(L,24)+REF(C,12)+REF(H,1)*8)/10,22);
D2:CONST(D1),COLORLIMAGENTA;
D3:CONST((HHV(C,60)+D2)/2);
A11:=MAX(MAX(A8,A9),A10);
A12:=A11*1.1;
A13:=IF(A12>D3,D3,A12);
A14:=IF(A13>D3,D3,A13*1.1);
A15:=A14*1.1;
A16:=IF(A15>A14,A14,A15);
A17:CONST(A8*0.818);
DRAWKLINE(H,O,L,C);
XG:=CROSS(C,D2) OR CROSS(C,D3) OR CROSS(C,A8) OR CROSS(C,A9) OR CROSS(C,A10) OR CROSS(C,A17);
DRAWTEXT(LONGCROSS(DCLOSE,REF(DCLOSE,1)*1.025,4) AND V/REF(MA(V,5),1)>1.6,L*0.95,'▲启爆'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT<6 AND XG AND V/REF(MA(V,5),1)>1.6,L*0.975,'▲跳龙门'),COLORYELLOW;