通達信主圖追必漲指标源碼

字:=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

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

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(,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)

SC:=LHHV(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

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;