通达信〖金阶突破〗主图选股公式源码 无未来函数多周期共振抓涨停

AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);

BA:=EMA(AB,5);

A18:=REFDATE(REF(HHV(H,96),5),DATE);

B1:=REFDATE(REF(LLV(L,96),5),DATE);

DY:=((A18)+(B1))/2;

顶:IF(AB>0 AND AB-BA<=0,A18,A18),DOTLINE,COLORCYAN;

腰:IF(AB>0 AND AB-BA<=0,DY,DY),DOTLINE,COLORCYAN;

底:IF(AB>0 AND AB-BA<=0,B1,B1),DOTLINE,COLORCYAN;

MC:=C#MONTH,NODRAW;

MO1:=IF(DAY< REF(DAY,1),O,DRAWNULL);

MO:=HHV(MO1,DAY),NODRAW;

STICKLINE(MC>=MO,MO,MC,4,-1)COLOR00009C;

STICKLINE(MC< MO,MO,MC,4,-1),COLOR4F2F4F;

AQ:=O#WEEK;

B:=C#WEEK;

AAQ:=H#WEEK;

BB:=L#WEEK;

STICKLINE(B>=AQ,AAQ,BB,4,0),COLOR00006B;

STICKLINE(B< AQ,AAQ,BB,4,0),COLOR663300;

P:=9;

WH1:=IF(L=LLV(L,P),L,DRAWNULL);

WH2:=CONST(BARSLAST(WH1!=DRAWNULL));

WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));

WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);

WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));

WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);

赢:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORMAGENTA,LINETHICK2;

DRAWTEXT(ISLASTBAR,赢,' YW'),COLORMAGENTA;

H1:=IF(H=HHV(H,P),H,DRAWNULL);

H2:=CONST(BARSLAST(H1!=DRAWNULL));

H3:=CONST(IF(H2=0,L,REF(L,H2)));

H4:=CONST(REF(BARSLAST(L< H3),H2+1)+H2+1);

H5:=CONST(IF(H4=0,L,REF(L,H4)));

H6:=CONST(REF(BARSLAST(L< H5),H4+1)+H4+1);

损:IF(CURRBARSCOUNT<=H2+10,CONST(IF(H6=0,L,REF(L,H6))),DRAWNULL),COLORGREEN,LINETHICK2;

DRAWTEXT(ISLASTBAR,损,' SW'),COLORGREEN;

GSZJ1:=(2*CLOSE+HIGH+LOW+OPEN)/5;

A1:(EMA(GSZJ1,3)+EMA(GSZJ1,6)+EMA(GSZJ1,12)+EMA(GSZJ1,24))/4,COLOR0044BB;

A2:EMA(A1,2),COLOR3355BB;

A3:EMA(A2,2),COLOR4455BB;

A4:EMA(A3,2),COLOR5555BB;

A5:EMA(A4,2),COLOR6655BB;

A6:EMA(A5,2),COLOR7755BB;

A7:EMA(A6,2),COLOR8855BB;

DRAWKLINE(H,O,L,C);

STICKLINE(C>=O,C,O,3,0),COLOR1F1AC5;

STICKLINE(C>=O,C,O,1.3,0),COLOR1F1AD5;

STICKLINE(C>=O,C,O,0,0),COLOR1F1AF5;

STICKLINE(C< O,C,O,3,0),COLORBBBB00;

STICKLINE(C< O,C,O,1.3,0),COLORDDDD00;

STICKLINE(C< O,H,L,0,0),COLORFFFF00;

A8:EMA(GSZJ1,2.78)*1.028,COLORWHITE,LINETHICK1;

A9:MA(OPEN,3.2)*1.028,COLORYELLOW,LINETHICK1;

C6:=REF(C,1);

涨停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0);

STICKLINE(涨停,OPEN,CLOSE,2,0),COLORMAGENTA;

STICKLINE(涨停,H,L,0,0),COLORLIRED;

GSZJ2:=(REF(HIGH,1)+REF(LOW,1))/2;

GSZJ3:=MA(CLOSE,20)+2*STD(CLOSE,20);

DRAWTEXT(CROSS(GSZJ2,GSZJ3),HIGH*1.045,'↓高'),COLORCYAN;

GSZJ7:=REF(C,1);

GSZJ8:=SMA(MAX(C-GSZJ7,0),6,1)/SMA(ABS(C-GSZJ7),6,1)*100;

DRAWTEXT(CROSS(82,GSZJ8),H*1.025,'↓逃'),COLORCYAN;

GSZJ4:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));

GSZJ5:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));

GSZJ6:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));

DRAWICON(CROSS(GSZJ5,MA(GSZJ6,6)),(LOW - (LOW*0.015)),38);

DRAWICON(CROSS(MA(GSZJ6,6),GSZJ4),(HIGH+(HIGH*0.015)),39);

STICKLINE(CROSS("KDJ.K"(3,5,3),"KDJ.D"(3,5,3)),O,C,0.6,0),COLORYELLOW;

STICKLINE(CROSS("KDJ.D"(3,5,3),"KDJ.K"(3,5,3)),O,C,0.6,0),COLORBLUE;

GSZJ3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);

GSZJ4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)< 1.01) AND (GSZJ3AA>0),91,0);

DRAWTEXT(FILTER((GSZJ4AA>90),45),(LOW)*(0.95),'★马'),COLORMAGENTA;

DRAWTEXT(FILTER((GSZJ4AA>90),35),(LOW)*(0.97),'★加'),COLORMAGENTA;

GSZJ9:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);

GSZJ10:=SMA(GSZJ9,3,1);

GSZJ11:=SMA(GSZJ10,3,1);

GSZJ12:=SMA(GSZJ11,3,1);

主力出现:DRAWICON(CROSS(GSZJ11,GSZJ12) AND (GSZJ11< 40),L*0.98,23);

A10:=HHV(H,73);

A11:=LLV(L,73);

M1:=MA(C,13);

M2:=MA(C,36);

M3:=MA(C,73);

K1:=(0.618*A10+0.382*A11),COLORGREEN;

K2:=(0.5*A10+0.5*A11),COLORGREEN;

K3:=(0.382*A10+0.618*A11),COLORGREEN;

K4:=(0.191*A10+0.809*A11),COLORRED;

K5:=(0.809*A10+0.191*A11),COLORRED;

牛:=V=HHV(V,64) AND V>REF(V,1)*1.5;

单阳:=C AND 牛;

单阳收:=C;

单阳开:=O;

DRAWTEXT_FIX(C>O,0,0.2,0,'公式之家：WWW.GS8.CN'),COLOR333333;

高不破价:=REF(C,BARSLAST(单阳));

前高:=HHV(高不破价,13);

STICKLINE(前高,高不破价,高不破价,5,0)DOTLINE,COLORBLUE;

突破:=CROSS(C,前高) AND C>MA(C,36) AND (C-O)/O>0.030 AND MA(C,13)>REF(MA(C,13),1) AND C>K5;

DRAWTEXT(CROSS(C,前高) AND C>MA(C,36) AND (C-O)/O>0.035 AND  MA(C,13)>REF(MA(C,13),1) AND MA(C,36)>REF(MA(C,36),1) ,L*1.00,'☆突') ,COLORMAGENTA;

DRAWTEXT(单阳 >REF(单阳,1) AND (C-O)/O>0.0455,L*1.00,'★追') ,COLORMAGENTA;

所属地域:DRAWTEXT_FIX(ISLASTBAR ,0.05,0.01,1,DYBLOCK),COLORYELLOW;

所属行业:DRAWTEXT_FIX(ISLASTBAR ,0.06,0.01,0,HYBLOCK),COLORYELLOW;

低:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L*0.98,DRAWNULL),DRAWNULL),COLORRED,CIRCLEDOT,LINETHICK6;

高:IF(CURRBARSCOUNT<=H2+1,IF(H=HHV(H,P),H*1.012,DRAWNULL),DRAWNULL),COLORGREEN,CIRCLEDOT,LINETHICK6;

下图仅为公式功能演示，所用 K 线数据为历史模拟数据，不代表任何个股未来走势。