通达信【三线乾坤】,主图选股源码,顶底中线穿三线

主图有未来函数是划线函数，穿三线信号不会漂移，选股也没有未来函数。

{主图公式源码↓}

MA5:MA(C,5),COLORWHITE;

MA10:MA(C,10),COLORYELLOW;

MA20:MA(C,20),COLORMAGENTA;

突破三线:=O<MIN(MA5,MIN(MA10,MA20)) AND C>MAX(MA5,MAX(MA10,MA20));

STICKLINE(突破三线, O, C, 2, 0),COLORYELLOW;

DRAWTEXT(突破三线, L*0.97, ‘穿三线’),COLORYELLOW;

ZT:=C/REF(C,1)>1.097 AND C=H;

DRAWTEXT(ZT,L*0.98,’涨停’),COLORYELLOW;

DT:=C/REF(C,1)<0.903 AND C=L;

DRAWTEXT(DT,H*1.02,’跌停’),COLORGREEN;

JC:=CROSS(MA(C,5),MA(C,10));

SC:=CROSS(MA(C,10),MA(C,5));

DRAWICON(JC,MIN(C,O),1);

DRAWICON(SC,MAX(C,O),2);

MA60:=MA(CLOSE,60);

EMA10:=EMA(CLOSE,10);

STICKLINE(CLOSE/REF(C,1)>=1.09,O,C,2.7,0),COLORYELLOW;

STICKLINE(CLOSE/REF(C,1)<=0.91,O,C,2.7,0),COLORGREEN;

GSKZA:=ABS(O-C);

GSKZX:=MIN(C,O)-L;

GSKZXBL:=GSKZX/GSKZA;

GSKZTJ1:=GSKZXBL>=2.8 AND GSKZXBL<=4.2 AND L=LLV(L,1);

YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;

趋势线:=(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3)+16*REF(YTSL,4)+15*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7)+12*REF(YTSL,8)+11*REF(YTSL,9)+10*REF(YTSL,10)+9*REF(YTSL,11)+8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+5*REF(YTSL,15)+4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/211;

GSKZQK:趋势线,COLORRED,NODRAW;

PARTLINE(趋势线,IF(趋势线>REF(趋势线,1),RGB(255,0,0),IF(趋势线<=REF(趋势线,1),RGB(0,255,0),0)),0),LINETHICK1;

GSKZVV1:=REFX(VOL,1)<VOL;

GSKZVV2:=REFX(OPEN>CLOSE,1);

VV:=GSKZVV1 OR GSKZVV2;

V1:=OPEN<CLOSE AND REF(OPEN<CLOSE,1) AND REF(OPEN<CLOSE,2);

V2:=VOL>REF(VOL,1) AND REF(VOL,1)>REF(VOL,2);

VA:=V1 AND V2 AND VV;

GSKZV11:=OPEN<=CLOSE AND REF(OPEN<=CLOSE,1) AND REF(OPEN<=CLOSE,2);

V12:=VOL>REF(VOL,1) AND REF(VOL,1)>REF(VOL,2);

V13:=CLOSE>REF(C,1) AND REF(C,1)>REF(C,2) AND REF(C,2)>REF(C,3);

VB:=GSKZV11 AND V12 AND V13 AND VV;

GSKZVVV:=VA OR VB;

VX:=BACKSET(BARSTATUS,BARSLAST(GSKZVVV=1)+1);

VVX:=VX>REF(VX,1);

GS57:=MIN(LOW,30);

GS58:=2*CLOSE+HIGH+LOW;

GS59:=4-GS57;

GS60:=GS58/GS59;

GS61:=MAX(HIGH,30);

GS62:=GS61-GS57;

GS63:=GS62*100;

GS64:=GS60/GS63;

GS65:=EMA(GS64,8);

GS66:=EMA(GS65,5);

GS67:=REFDATE(REF(HHV(MAX(CLOSE,OPEN),96),5),DATE);

GS68:=REFDATE(REF(LLV(MIN(CLOSE,OPEN),96),5),DATE); 

GS69:=GS67+GS68;

GS70:=GS69/2;

顶:IF(GS65>0 AND GS65-GS66<=0,GS67,GS67),LINETHICK1,DOTLINE,COLORRED;

腰:IF(GS65>0 AND GS65-GS66<=0,GS70,GS70),LINETHICK1,DOTLINE,COLORYELLOW;

底:IF(GS65>0 AND GS65-GS66<=0,GS68,GS68),LINETHICK1,DOTLINE,COLORGREEN;

LTP:=FINANCE(7)/100000;

LT:=IF(LTP>500,LTP,500);

AXA:=IF(ISLASTBAR,DYNAINFO(15)/DYNAINFO(4)/100,GPJYVALUE(25,1,2));

XSBB:=IF(REF(AMO/100000000,1)<5,10,IF(REF(AMO/100000000,1)>5 AND REF(AMO/100000000,1)<10,8,IF(REF(AMO/100000000,1)>10 AND REF(AMO/100000000,1)<20,5,4)));

LTA:=FINANCE(7)/10000;

XSAA:=IF(LTA<3000,600,IF(LTA>3000 AND LTA<6000,800,IF(LTA>6000 AND LTA<10000,1000,IF(LTA>10000 AND LTA<20000,1500,IF(LTA>20000 AND LTA<40000,2000,IF(LTA>40000 AND LTA<60000,2500,IF(LTA>60000 AND LTA<100000,3000,6000)))))));

XSA:=AXA/LT;

XSB:=AXA/REF(VOL,1)*100;

XSC:=AXA/REF(AXA,1);

XSE:=WINNER(CLOSE)*100;

XSF:=(COST(95)-COST(5))/(COST(95)+COST(5))*100/2;

XSD:=100*VOL/(FINANCE(7)/100);

XSG:=((AXA*OPEN)/REF(AMO/10000,1))/XSBB;

XSH:=AXA/XSAA;

XSK:=IF(ISLASTBAR,DYNAINFO(15)/DYNAINFO(4)/100,GPJYVALUE(25,1,2))/REF(MA(V,5),1)*240;

{选公式源码↓–无未来}

GSKZA:=ABS(O-C);

GSKZX:=MIN(C,O)-L;

GSKZXBL:=GSKZX/GSKZA;

GSKZTJ1:=GSKZXBL>=2.8 AND GSKZXBL<=4.2 AND L=LLV(L,1);

MA5:=MA(C,5);

MA10:=MA(C,10);

MA20:=MA(C,20);

突破三线:O<MIN(MA5,MIN(MA10,MA20)) AND C>MAX(MA5,MAX(MA10,MA20));