相關標簽:

?

?

原理解析：
ZLCM賦值:以收盤價計算的獲利盤比例*70的3日指數移動平均 SHCM賦值:(以收盤價*1.1計算的獲利盤比例-以收盤價*0.9計算的獲利盤比例)*80的3日指數移動平均 ZSHTL賦值:SHCM/(ZLCM+SHCM)*100 ZZLKP賦值:ZLCM/(ZLCM+SHCM)*100 ZCMZL賦值:ZLCM+SHCM的13日簡單移動平均 ZZNTS賦值:上次ZSHTL<90ANDREF(ZSHTL,1)>90距今天數 ZSHJJ賦值:ZSHTL的89日指數移動平均 ZZLJJ賦值:ZZLKP的89日指數移動平均 ZJLRQD賦值:ZZLKP-ZZLJJ的整數部分 SH8賦值:ZSHTL的8日指數移動平均 DKB賦值:如果ZZLKP-1日前的ZZLKP>ZSHTL-1日前的ZSHTL,返回1,否則返回0 當滿足條件收盤價>0時,在ZSHTL和ZZLKP位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件ZSHJJ>1日前的ZSHJJ時,在ZSHTL和ZSHJJ位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00FF00 當滿足條件收盤價>0時,在ZZLKP和0位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORA4A4A4 當滿足條件ZZLKP>75時,在ZZLKP和0位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件ZZLJJ>1日前的ZZLJJ時,在ZZLKP和ZZLJJ位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫紅色 當滿足條件ZSHTL>=90時,在ZZLKP和0位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR66FFCC 如果ZCMZL,返回ZCMZL>1日前的ZCMZL,否則返回無效數,COLOR0066FF,線寬為1 輸出散戶套牢系數:ZSHTL的整數部分,畫青色,線寬為2 輸出主力控盤系數:ZZLKP的整數部分,畫黃色,線寬為2 輸出資金流入強度:ZJLRQD,線寬為2,畫紅色 輸出資金流入強度2:如果ZJLRQD<10,返回ZJLRQD,否則返回無效數,線寬為2,畫白色 輸出市場籌碼總量:ZCMZL的整數部分,畫白色,NODRAW 當滿足條件主力控盤系數上穿散戶套牢系數時,在散戶套牢系數-5位置畫11號圖標 當滿足條件資金流入強度上穿散戶套牢系數時,在散戶套牢系數-5位置畫17號圖標 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力籌碼估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散戶籌碼估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散戶套牢籌碼比率}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盤籌碼比率}
ZCMZL:=MA(ZLCM+SHCM,13);{//市場籌碼總量}
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天數}
ZSHJJ:=EMA(ZSHTL,89);{//散戶警戒}
ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}
ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//資金流入強度}
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
{散戶套牢籌碼}
STICKLINE(C>0,ZSHTL,ZZLKP,1,0),COLORFFFFFF;
{散戶籌碼警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,2,0),COLOR00FF00;
{主力控盤籌碼}
STICKLINE(C>0,ZZLKP,0,1,0),COLORA4A4A4;
{筑頂風險區}
STICKLINE(ZZLKP>75,ZZLKP,0,1,0),COLORFFFFFF;
{頂部:(ZZLKP>75),COLORFFFFFF;}
{主力籌碼警戒}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,2,0),COLORRED;
{筑底散兵坑}
STICKLINE(ZSHTL>=90,ZZLKP,0,2,0),COLOR66FFCC;
{底部:(ZSHTL>=90),COLOR66FFCC;}
{籌碼總量上升}
IF(ZCMZL,ZCMZL>REF(ZCMZL,1),DRAWNULL),COLOR0066FF,LINETHICK1;
{增量資金};
{//------【數值顯示】}
散戶套牢系數:INTPART(ZSHTL),COLORCYAN,LINETHICK2;
主力控盤系數:INTPART(ZZLKP),COLORYELLOW,LINETHICK2;
資金流入強度:ZJLRQD,LINETHICK2,COLORRED;
資金流入強度2:IF(ZJLRQD<10,ZJLRQD,DRAWNULL),LINETHICK2,COLORWHITE;
市場籌碼總量:INTPART(ZCMZL),COLORWHITE,NODRAW;
DRAWICON(CROSS(主力控盤系數,散戶套牢系數),散戶套牢系數-5,11);
DRAWICON(CROSS(資金流入強度,散戶套牢系數),散戶套牢系數-5,17);
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?