主力筹码指标

｛价量线主线快线｝

价量:3＊SMＡ((CＬOSE－LLV(LOW,２７))/(HHV(HＩGH,27)—LLＶ(LOW,27))*１00,5,1)

—２*SMＡ(ＳMA((CLＯSE—LＬV(ＬOW,2７))/(ＨHV(ＨIGH,27)-LLV(LOW,27))＊10０,5,1),3,1) ,CＯＬOR00CＣFF,ＮOＤRAＷ;

主线:(((价量—ＬLV(价量,27))/(HHV(价量,27)-ＬLV(价量,27)))*(4))*(２５)

,COLOＲＣＹAN,ＮOＤRＡW;

快线:(((价量-ＬLＶ(价量,9))/(HHV(价量,9)-LＬV(价量,9)))*(4))＊(2５)

,COLOＲ５5AＡFＦ,NODRＡＷ;

ＲＳV:＝(CLOSE-ＬLV(LOＷ,1３))／(HＨV(HIGH,１３)—ＬLV(LOＷ,１３))*100;

Ｋ1:=SMA(RSV,3,1);

D１:=ＳMA(Ｋ１,3,1);

KＫ:＝INTPＡRT(K1);

DＤ:＝INTPART(Ｄ１);

ＴFXXＳ:＝KK+DＤ;{变异KＤ风险系数}

TGLXS:=(TFXXS—ＲEF(TFXXS,1));{变异KD乖离系数:资金流向｝

{红｝

SＴＩCKＬINE(ＴGLXS〉0 AND TGLXS＞REF(TGLXS,1),100,TGLXS+10０,２、5,0),COLOＲ0000ＡＡ;

SＴICＫLINE(TGＬXＳ>０AＮD TGLＸS〉REF(TＧLXS,１),100,TGLXＳ+100,1、5,0),ＣＯLOＲ0022CC;

ＳTIＣKLINE(TＧLＸS＞0 AND TＧLXS＞ＲEF(TGLXＳ,1),１0０,ＴGLXS+100,０。5,0),ＣOＬＯR0055ＦF;

｛粉｝

STＩCＫLＩNE(TGＬXS<0 AND ＴGLＸS＞RＥF(TGLＸS,1),１0０,TGＬXS＋100,2。5,０),CＯLORAＡ0０BB;

STICKLIＮE(TGＬXS<0 AND TＧＬXS〉REF(TGLXS,1),１00,TＧＬXS+100,1.５,0),ＣＯLＯＲCC22BB;

STＩCＫLINＥ(TGLXS〈0 ANＤTGLＸS>REF(ＴGＬＸS,1),１00,TＧLXS+１00,0。5,0),COLORFＦ55BB;

｛黄｝

ＳTＩCKＬINE(TGLXS〉0AND TＧLXS〈＝REF(ＴGLＸS,1),1００,ＴGLXS＋10０,２、5,0),COLOR0０AAFF;

SＴICKLIＮE(TGLXS>0AND TGＬXS＜=RＥF(TGLＸS,1),100,TGLＸS＋10０,1。5,0),ＣOLＯＲ00ＣCFF;

SＴICKLＩNE(TGLXS〉0ＡＮD ＴGLXS<=REＦ(TGＬXS,1),10０,ＴGLXS+１00,0、5,０),COLOR00FFFＦ;

｛蓝}

STICKLＩＮE(ＴＧLＸS<0 ANＤTGＬXS＜＝ＲEF(TGＬXＳ,1),1０0,TGLＸS+100,２。5,0),COLOR ＦＦ77０0;

ＳＴＩCKLINE(TGLXS<0 ＡND TＧLXS＜=ＲＥF(TGLXＳ,１),1０0,TＧLＸS+100,1、5,0),ＣOLORFFAＡ22;

STICKLINE(TGＬXＳ<0 AND TGLXＳ＜=REF(ＴGLXS,1),１00,ＴGLXS+100,０、５,０),COＬORFFFF55;

STICＫLＩＮE(TGＬXS=0 ANＤREF(ＴGLXS,1)〉＝0,１０0,TGＬXS＋100,8,0),COLORＢRＯＷN; ＳTICKLINE(TGLXＳ=0ANＤRＥF(TＧＬXS,1)<0,100,TGLXS+1０0,８,0),ＣOLORＷHITE;

ZＬCＭ:=EMA(WＩNＮEＲ(CLOＳE)＊70,3);{主力筹码估算｝

SHCM:=EMA((WINNER(ＣLＯSE＊１。1)－WINNEＲ(CLOSE*0。９))*80,3);｛散户筹码估算｝ZSHTL:＝SHCM/(ZLCM+ＳHＣM)*100;｛散户套牢筹码系数｝

ZＺLKP:＝ZLＣM／(ZＬCＭ+SHCM)＊100;{主力控盘筹码系数}

ZSHJJ:=EMＡ(ZSHTＬ,55);{散户警戒}

ZZLJJ:=EMA(ZＺＬＫＰ,５5);｛主力警戒}

散兵坑:IF(ZZLKP<=10,ZＺLＫP,ＺＺLKP),ＣOLＯRMＡGENＴA,NODＲAW;

｛散户套牢筹码｝

STICKＬINＥ(C〉0,ZSＨTＬ,ZZLＫP,2,0),CＯLOR8０8０80;

{散户筹码警戒}

SＴICKＬINE(ZSＨJＪ>REＦ(ZSHJJ,1),ＺＳＨＴL,ZSHJＪ,2,0),COＬORC0C0C０;

｛主力控盘筹码}

｛粉｝

STICＫLINE(ZＺLＫP〉REF(ZZLKP,1) ANＤZZLKP>20,ZZLKP,2０,2、５,0),ＣOＬOＲＡA00BＢ; STICＫLＩNE(ZZLKP>RＥF(ZZＬＫP,1) AND ZＺLKP〉2０,ZＺLＫＰ,20,1、5,0 ),ＣOLORＣC2２BB; STＩＣKLＩＮE(ＺZＬＫP＞REF(ＺZLKP,1) AND ZZLKP>20,ZZLＫP,2０,0。5,0 ),CＯLORＥE44BB; ｛蓝｝

ＳＴICKLＩNE(ZZLＫP〈＝ＲＥＦ(ZZLKP,１) ANＤZＺLＫP＞20,ZZＬKP,2０,2.5,0 ),CＯLORFF77０0;

STＩCKLIＮＥ(ZＺLKＰ＜=ＲEF(ZZLKP,1) AND ＺZLKP＞20,ZZLKP,20,1。5,0 ),ＣＯLOＲFFＡA22; SＴICKLINＥ(ZZLKP<=REF(ＺＺLKP,１) ANＤZZＬKＰ>２０,ZZＬKＰ,20,0。5 ,０),COLORFFFＦ5５;

｛亮红｝

STＩCKLINE(ZZLKP>RＥF(ZZＬKＰ,1) AＮD ZＺＬKP＜20,ＺZLKP,0,2.5,0 ),COLＯＲ131FFD;

ＳＴICＫLINE(ZZLKＰ〉RＥF(ZZLKＰ,１) AND ＺZＬKＰ<20,ZZLKP,0,１、5,0 ),COLOR５05０FF; ＳTICKＬINE(ZＺＬKP〉REF(ZＺLKP,１) AND ＺZLＫP＜20,ＺZLKＰ,0,0。5,0 ),COＬOR7E7EＦF; ｛深蓝｝

STＩCKLIＮE(ZZLＫP<=ＲＥF(ZZLKP,１) AND ＺZLKP<２0,ZZLKＰ,0,２。5,0),COLOＲＡA0000; STICKLINＥ(ZZLKP<＝ＲEＦ(ZＺLKＰ,1) ANＤZZLKP<２0,ZZLKP,０,1。5,0 ),COＬORCＣ0００0; STICKLINE(ZZＬKＰ〈=ＲEF(ＺＺＬKＰ,1) AND ZZLKＰ〈20,ＺZLKP,0,0。5,0 ),ＣOＬORＦF0000; {主力筹码警戒｝

｛黄｝

ＳTＩＣKLＩNE(ZZLＪJ＞REF(ZZLJJ,１),ZＺLKＰ,ZZＬＪJ,2。5,0 ),ＣＯLOＲ０0AAＦＦ; STICKLINE(ZZＬJJ>ＲＥF(ZZLJJ,１),ZＺLKP,ZZLJJ,1。5,0 ),ＣOLOR00CCＦＦ;

ＳTICKLＩNＥ(ZZLJJ>REF(ＺZLJJ,1),ＺZLKＰ,ZZLJJ,0。5,0),ＣOＬOR00FFFF;

{红}

STICＫLIＮE(ZZLKP>ＺZLJJ AＮD ZZLJJ＞50,ＺＺLKP,ZZLJＪ,2、5,0 ),COＬＯR00０0AA; STICKＬＩNE(ZＺＬＫP>ZZＬJJ ANＤZZＬJJ〉5０,ＺＺLＫP,ＺZＬJJ,1、5,0 ),COＬOR０02２CC;

STICＫLINＥ(ZZLKＰ〉ZZＬJJ AND ZZＬＪJ＞５0,ＺZLKＰ,ZZLJJ,0.5 ,０),ＣOLOＲ0０55FF; ｛红｝

STICKLINE(ZZLＫP>ZZＬJＪAＮD ZＺLJJ<50 ＡND ZZLKP＞50