1、【通達信】長征征解盤（促進進指數）-指指標公式源碼碼MA1:MA(CLOSEE,5),CCOLORRRED; MA2:MA(CLOSEE,10),COLORRRED; MA3:MA(CLOSEE,20),COLORRRED; MA4:MA(CLOSEE,60),COLORRRED;MA5:MA(CLOSEE,120),COLOORRED;IF(MA1REF(MMA1,1),MA1,DRAWNNULL),COLORRGREENN;IF(MA2REF(MMA2,1),MA2,DDRAWNUULL),CCOLORGGREEN;IF(MA3REF(MMA3,1),MA3,DRAWNNULL),COLO

2、RRGREENN;IF(MA4REF(MMA4,1),MA4,DRAWNNULL),COLORRGREENN;IF(MA5 MAA(CLOSSE,5);YYA6:=(MA(CLLOSE,55) MMA(CLOOSE,100);YYA7:=(CLOSEE MAA(CLOSSE,10);YYA8:=(MA(CLLOSE,55) MMA(CLOOSE,200);YYA9:=(CLOSEE MAA(CLOSSE,20);YYA10:=REF(YYYA4,11);YYA11:=(YYA44 YYYA10);YYAVX:=(IF(YYYA5,100,(0 - 10) + IFF(YYA66,10,(0 -

3、 110) + IF(YYA7,10,(00 - 100) + IF(YYYA8,110,(0 - 10) + IF(YYYA9,100,(0 - 10) + IIF(YYAA11,100,(0 - 10);DSLX:=(CLOSEE / INNDEXC);DSLX1:=MA(DSSLX,5);DSLX2:=MA(DSSLX,100);YYV1:=MMA(VOLL,5);YYV2:=MMA(VOLL,10);情況1:=COONST(IIF(CCROSS(YYAVXX,1) AAND (YYYV1 = YYVV2) AAND (DDSLX = DSLLX1),1,0);情況2:=COONST(I

4、IF(CCROSS(YYAVXX,1) AAND (YYYV1 = DSLXX1),11,0);情況3:=COONST(IIF(CCROSS(YYAVXX,1) AAND (YYYV1 YYV22) ANND (DSSLX DSLX11),1,0);情況4:=COONST(IIF(CCROSS(YYAVXX,1) AAND (YYYV1 = YYVV2) AAND (DDSLX = YYVV2) AAND (DDSLX = DSLLX1),1,0);情況6:=COONST(IIF(CCROSS(1,YYAAVX) AAND (YYYV1 = DSLXX1),11,0);情況7:=COONST(

5、IIF(CCROSS(1,YYAAVX) AAND (YYYV1 = YYVV2) AAND (DDSLX DSLXX1),11,0);情況8:=COONST(IIF(CCROSS(1,YYAAVX) AAND (YYYV1 YYV22) ANND (DSSLX = 1) ANND (REEF(YYAAVX,1) 0) ANDD (YYVV1 = YYV2) ANDD (DSLLX = DSLX11),1,0);情況10:=CCONST(IF(YYAAVX = 1) AAND (RREF(YYYAVX,11) 00) ANND (YYYV1 = DSLX11),1,0);情況11:COONST

6、(IIF(YYAVVX = 1) ANND (REEF(YYAAVX,1) 0) ANDD (YYVV1 = YYV2) ANDD (DSLLX = 1) AAND (RREF(YYYAVX,11) 00) ANND (YYYV1 YYV2) ANDD (DSLLX DDSLX1),1,00);情況13:=CCONST(IF(YYAAVX 1) ANND (REEF(YYAAVX,1) = YYV2) ANDD (DSLLX = DSLX11),1,0);情況14:=CCONST(IF(YYAAVX 1) ANND (REEF(YYAAVX,1) 0) ANDD (YYVV1 = DDSLX1

7、),1,00);情況15:=CCONST(IF(YYAAVX 1) ANND (REEF(YYAAVX,1) = YYV2) ANDD (DSLLX DDSLX1),1,00);情況16:=CCONST(IF(YYAAVX 1) ANND (REEF(YYAAVX,1) 0) ANDD (YYVV1 YYYV2) AND (DSLXX = YYV22),1,0);大盤2:=COONST(IIF(CRROSS(YYYAVX,1) ANND (YYYV1 = YYV22),1,0);大盤4:=COONST(IIF(CRROSS(11,YYAVVX) ANND (YYYV1 = 11) ANDD (

8、REFF(YYAVVX,1) 0) AND (YYV11 = YYYV2),1,0);大盤6:=COONST(IIF(YYAVXX = 11) ANDD (REFF(YYAVVX,1) 0) AND (YYV11 YYYV2),1,0);大盤7:=COONST(IIF(YYAVXX 1) AND (REF(YYAVXX,1) = YYYV2),1,0);大盤8:=COONST(IIF(YYAVXX 1) AND (REF(YYAVXX,1) 0) AND (YYV1 =REFF(MFI,1)ANDD VOL*比=REEF(VOLL,1);M1:=CONNST(綠燈燈);衰退:=MFIIREF(

9、MFI,11)AND VOL*比比=REFF(MFI,1)ANDD VOL*比REFF(VOL,1);M3:=CONNST(偽裝裝);蟄伏:=MFII=REFF(VOL,1); M4:=CONNST(蟄伏伏);TS1:=IFF(M1=11,0.033+0.033,0.033);TS2:=IFF(M2=11,TS1+0.03,TS1);TS3:=IFF(M3=11,TS2+0.03,TS2);TS4:=IFF(M4=11,TS3+0.03,TS3);DRAWTEXXT(情況11=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*0

10、0.03),量能理想想,明顯走強強,中線參與與，倉位在22/3左右),COLLORFF000FF;DRAWTEXXT(情況22=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),走勢趨強強量能不足，短短線進場，倉倉位在1/22左右),COLORRFF00FFF;DRAWTEXXT(情況33=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),量價良好好，并沒有明明顯走強，短短線進場，倉倉位1/2左左右。),COLORRFF00FFF;DR

11、AWTEXXT(情況44=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),形態尚可可，量能不足足，未完全走走強,短線參參與，倉位11/3左右。),COLLORFF000FF;DRAWTEXXT(情況55=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),形態變壞壞，走勢尚可可，重倉減大大半，清倉者者觀望。),COLOORFF00000;DRAWTEXXT(情況66=1 AAND (CCLOSE 2000) ANDD CURRRBARS

12、CCOUNT=70,ZGGD2-(ZZGD2*00.03),隨大盤一一起下跌，明明顯縮量走勢勢，考慮大盤盤風險，減持持或清倉。),COLLORFF00000;DRAWTEXXT(情況77=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),該股放量量下跌，走勢勢明顯偏弱，離離場觀望。),COLLORFF00000;DRAWTEXXT(情況88=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),該股縮量量下跌，走勢勢偏弱，離場場觀望。),C

13、OLOORFFFFF00;DRAWTEXXT(情況99=1 AAND (CCLOSE 2000) ANDD CURRRBARSCCOUNT=70,ZGGD2-(ZZGD2*00.03),該股形態態良好，強勢勢明顯，量能能充足，可以以繼續持有。),COLOR00FFFF;DRAWTEXXT(情況110=1 AND (CLOSEE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),該股上上行趨勢不變變，強勢依然然，但量能開開始轉弱，注注意風險),COLOOR00FFFFF;DRAWTEXXT(情況111=1 AND (CLOSEE 2000) ANN

14、D CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),該股仍仍然具備上漲漲潛力，但股股性偏弱，可可考慮減倉。),COLLORFFFFFFF;DRAWTEXXT(情況112=1 AND (CLOSEE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),該股走走勢趨弱，量量能不足，減減持大部分籌籌碼),CCOLORFFFFF000;DRAWTEXXT(情況113=1 AND (CLOSEE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),該股形形態不佳，注注意成交量的的變化，

15、但目目前不適合參參與。),COLORRFFFF000;DRAWTEXXT(情況114=1 AND (CLOSEE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),該股趨趨勢不明，股股價偏弱，注注意量能變化化，目前不宜宜參與。),COLOORFFFFF00;DRAWTEXXT(情況115=1 AND (CLOSEE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),有走強強跡象，但量量能不足，趨趨勢不明，不不適合操作),COLLORFFFFF00;DRAWTEXXT(情況116=1 AND (CLO

16、SEE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),量能理理想,2/33倉位, 前前一輪下跌，最最佳買點，否否則謹慎介入入。),CCOLOR000FF000;DRAWTEXXT(大盤22 AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),趨強，量量能不足，若若前一輪下跌跌，短線進場場1/2，量量能放大加倉倉。),CCOLORFFF00FFF;DRAWTEXXT(大盤33 AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(

17、ZGD2*0.03),大盤形形態走壞，重重倉者可以減減去大部分倉倉位。),COLORRAAAAAAA;DRAWTEXXT(大盤44 AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),大盤縮縮量調整，注注意風險，短短線清倉觀望望。),CCOLORFFF00000;DRAWTEXXT(大盤55 AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),大盤走走勢良好，量量能理想，可可以繼續持有有強勢股。),COLLOR00FFFFF;DRAWTEXXT(大盤66

18、AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),大盤形形態良好，但但量能稍顯不不足，隨時準準備減倉),COLOOR00FFF00;DRAWTEXXT(大盤77 AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),大盤趨趨勢不明，注注意成交量變變化，目前不不適宜進場。),COLLORFFFFFFF;DRAWTEXXT(大盤88 AND (CLOSSE 2000) ANND CURRRBARSSCOUNTT=70,ZZGD2-(ZGD2*0.03),大盤趨

19、趨勢向下，量量能萎縮，不不適合進場。),COLLORFFFFFFF;DRAWTEXXT(M1 AND CCURRBAARSCOUUNT=700,ZGD22-(ZGDD2*TS11),綠綠燈實計交交易量增加。MMFI促進指指數增加。),COLLORGREEEN;DRAWTEXXT(M2 AND CCURRBAARSCOUUNT=700,ZGD22-(ZGDD2*TS22),衰衰退實計交交易量減少。MMFI促進指指數減少。),COLLORGREEEN;DRAWTEXXT(M3 AND CCURRBAARSCOUUNT=700,ZGD22-(ZGDD2*TS33),偽偽裝實計交交易量減少。MMFI促

20、進指指數增加。),COLLORGREEEN;DRAWTEXXT(M4 AND CCURRBAARSCOUUNT=700,ZGD22-(ZGDD2*TS44),蟄蟄伏實計交交易量增加。MMFI促進指指數減少。),COLLORGREEEN;天使:=EMAA(C,2),COLOOR0000000; 魔鬼:=EMAA(SLOPPE(C,221)*200+C,422),COLLOR0000000; 買:=CROSSS(天使,魔鬼); 賣:=CROSSS(魔鬼,天使); DRAWICOON(買,LL*0.977,1); DRAWTEXXT(買,LL*0.955,B),COLOORYELLLOW; DRAWICOON(賣,HH*1.033,2); DRAWTEXXT(賣,HH*1.055,S),COLOORWHITTE; STICKLIINE(天使使=魔鬼,LOW,HHIGH,00.01,00),COLLOR00000DD; STICKLIINE(天使使=魔鬼,CLOSEE,OPENN,2,1),COLOORRED; STICKLLINE(天天使=魔鬼鬼,CLOSSE,OPEEN,3,00),COLL