通达信主图追必涨指标源码

字:=STRCAT(STRCAT(STRCAT('名称: ',STKNAME),' 代码: '),CODE);

DRAWTEXT_FIX(ISLASTBAR,0.7,0,0,字),COLORYELLOW;

{红}STICKLINE(C>O,C,O,2,1),COLORRED ;STICKLINE(C>O,H,L,0,0),COLORRED;

{绿}STICKLINE(C<O,C,O,2,1),COLORCYAN;STICKLINE(C<O,H,L,0,0),COLORCYAN;

{=======================}

A0:=(L+H+C*2)/4;

A1:EMA(A0,5)COLORWHITE ,LINETHICK1;

A2:=EMA(A0,10)COLORLIBLUE,LINETHICK1;

A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;

A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;

买入持股:IF(A1X>=0,A1,DRAWNULL)COLORMAGENTA ,LINETHICK2;

卖出空仓:IF(A1X<0 AND A2X<0,A1,DRAWNULL)COLORGREEN,LINETHICK1;

短线5日:EMA(C,5),POINTDOT,COLOR3ACCFC,LINETHICK2;

升:IF(短线5日>REF(短线5日,1),短线5日,DRAWNULL),COLORYELLOW ,LINETHICK2;

AAA:=CONST(HHV(H,90));

A74:=MA(CLOSE,20);

A75:=(CLOSE > MA(CLOSE,5));

A76:=(MA(CLOSE,5) > MA(CLOSE,10));

A77:=(CLOSE > MA(CLOSE,10));

A78:=(MA(CLOSE,5) > MA(CLOSE,20));

A79:=(CLOSE > MA(CLOSE,20));

A710:=REF(A74,1);

A711:=(A74 > A710);

AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10))) + IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));

DSLX:=(CLOSE / INDEXC);

DSLX1:=MA(DSLX,5);

V1:=MA(VOL,5);

V2:=MA(VOL,10);

T1:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));

T2:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));

T3:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)),1,0));

T4:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)),1,0));

T5:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));

T6:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));

T7:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));

T8:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));

T9:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));

T10:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));

T11:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));

T12:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));

T13:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));

T14:=CONST(IF( C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));

T15:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));

T16:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));

T17:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));

T18:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));

T19:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 < V2)),1,0));

T20:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 >= V2)),1,0));

T21:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 < V2)),1,0));

T22:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)),1,0));

T23:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)),1,0));

T24:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)),1,0));

T25:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)),1,0));

DRAWTEXT(T1=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'量能理想,明显走强,中线参与，仓位在2/3左右'),COLOR5B91FF;

 DRAWTEXT(T2=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'走势趋强,还显不足,短线进场，仓位在1/2左右'),COLOR5B91FF;

 DRAWTEXT(T3=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'量价良好,没有明显走强，短线进场，仓位1/2左右'),COLOR5B91FF;

 DRAWTEXT(T4=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'形态尚可，量能不足，未完全走强，短线参与，仓位1/3左右'),COLOR5B91FF;

 DRAWTEXT(T5=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'形态变坏，重仓者减持大半，清仓者观望'),COLORFFFF00;

 DRAWTEXT(T6=1 AND CURRBARSCOUNT=60,AAA*0.98

 ,'随大盘一起下跌，明显缩量走势，考虑到风险，减持或清仓'),COLORFFFF00;

 DRAWTEXT(T7=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股放量下跌，走势明显偏弱，离场观望'),COLORFFFF00;

 DRAWTEXT(T8=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股缩量下跌，走势偏弱，离场观望。'),COLORFFFF00;

 DRAWTEXT(T9=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股形态良好，强势明显，量能充足，可以继续持有'),COLOR5B91FF;

 DRAWTEXT(T10=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'上行趋势不变，强势依然，量能开始转弱，注意风险'),COLOR5B91FF;

 DRAWTEXT(T11=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓')COLOR5B91FF;

 DRAWTEXT(T12=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股走势趋弱，量能不足，减持大部分筹码'),COLOR00FFFF;

 DRAWTEXT(T13=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股形态不佳，注意成交量的变化，目前不适合参与'),COLOR00FF00;

 DRAWTEXT(T14=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'趋势不明，股价偏弱，注意量能变化，目前不宜参与'),COLOR00FF00;

 DRAWTEXT(T15=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'有走强迹象，但量能不足，趋势不明，不适合操作'),COLOR00FF00;

 DRAWTEXT(T16=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'该股走势太弱，没有参与价值。'),COLOR00FF00;

 DRAWTEXT(T17=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘理想，有明显走强迹象，中线参与，仓位在2/3左右'),COLOR5B91FF;

 DRAWTEXT(T18=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'如前期经过一轮下跌，最佳买点，前期有过一段涨幅需谨慎'),COLOR4080FF;

 DRAWTEXT(T19=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'考虑短线进场，仓位在1/2左右，一旦量能放大,加仓买入'),COLOR5B91FF;

 DRAWTEXT(T20=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘形态走坏，重仓者可以减去大部分仓位。'),COLORFFFF00;

 DRAWTEXT(T21=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘缩量调整，注意风险，短线清仓观望。'),COLORFFFF00;

 DRAWTEXT(T22=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘走势良好，量能理想，可以继续持有强势股。'),COLOR5B91FF;

 DRAWTEXT(T23=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘形态良好，但量能稍显不足，随时准备减仓。'),COLOR5B91FF;

 DRAWTEXT(T24=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘趋势不明，注意成交量变化，目前不适宜进场。'),COLOR00FF00;

 DRAWTEXT(T25=1 AND CURRBARSCOUNT=60,AAA-(AAA*0.01)

 ,'大盘趋势向下，量能萎缩，不适合进场。'),COLORFFFF00;

SS:=MA((LOW+HIGH+CLOSE)/3,5)>REF(MA((LOW+HIGH+CLOSE)/3,5),1) AND REF(MA((LOW+HIGH+CLOSE)/3,5),1)<REF(MA((LOW+HIGH+CLOSE)/3,5),2);

SC:=L<HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND H>HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND C>REF(C,1) AND C>O;

MR:=SC AND COUNT(SS,2);

买:=MR AND NOT(REF(MR,1)),COLORYELLOW;

VAR3P:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);

DRAWTEXT(VAR3P>90,LOW*0.92,'追涨'),COLORFF00FF; 

DRAWTEXT(VAR3P>90,LOW*0.94,'↖'),COLORFF00FF; 

DRAWTEXT(买,L*0.95, '必涨'),COLORRED;

DRAWTEXT(买,L*0.97, '↑'),COLORRED;

{====================}

MA5:MA(CLOSE,5), NODRAW ;

MA10:MA(CLOSE,10),COLORWHITE    ;

MA20:MA(CLOSE,20), COLORCYAN   ;

ZDF:=(C-REF(C,1))/REF(C,1)*100;

STICKLINE(ZDF>9.8,O,C,1,0),COLORRED;

STICKLINE(ZDF<-9.8,O,C,1,0),COLORBLUE;

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);

VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

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

VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR

VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,0),COLORYELLOW;

VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR 

VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),4,0),COLOR00FF00;

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),1,0),COLORRED;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),1,0),COLORBLUE;