真資金流指標公式源碼

作者：同花順來源：cxh99.com 發布時間：2013年05月07日

相關標簽: 通達信真實資金流指標、企業資金流分析、資金流、最好的資金流指標公式、物流信息流資金流、資金流分析、資金在線資金流、金豐投資資金流、企業資金流、

真資金流指標公式源碼

//☆背景設置//
DRAWGBK(C=C,COLORRGB(30,30,30),COLORRGB(130,130,130),1);

//☆資金流向//

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:=ROUND(ZZLKP-ZZLJJ);//資金流入強度
SH8:=EMA(ZSHTL,8);
DKB:=IF(ZZLKP-ref(ZZLKP,1)>ZSHTL-ref(ZSHTL,1),1,0);
散戶套牢系數:ROUND(ZSHTL),LINETHICK0,COLORWHITE;
主力控盤系數:ROUND(ZZLKP),LINETHICK0,COLORCYAN;
資金流入強度:ZJLRQD,LINETHICK0,COLORRED;
市場籌碼總量:ROUND(ZCMZL),LINETHICK0,COLORGREEN; //本文來至程序化交易網 cxh99.com//
//神祕黑洞//
FILLRGN(ref(ZSHTL,1)>90 AND ZSHTL<90,ZSHTL,0),COLOR9966FF;
//散戶套牢籌碼//
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLOREEEEEE;
//散戶籌碼警戒//
STICKLINE(ZSHJJ>ref(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORCARY;
//散戶線//
PARTLINE(C>0,ZSHTL),LINEDOT,COLORYELLOW;
//主力控盤籌碼//
STICKLINE(C>0,ZZLKP,0,7,0),COLORBLUE;
//鑄頂風險區//
STICKLINE(ZZLKP>75,ZZLKP,0,7,0),COLORFFFFFF;
//主力籌碼警戒//
STICKLINE(ZZLJJ>ref(ZZLJJ,1),ZZLKP,ZZLJJ,7,0),COLORRED;
//築底散兵坑//
STICKLINE(ZSHTL>=90,ZZLKP,0,7,0),COLOR66FFCC;
//籌碼總量//
PARTLINE(C>0,ZCMZL),COLORGREEN;
//籌碼總量上昇//
PARTLINE(ZCMZL>ref(ZCMZL,1),ZCMZL),COLOR0066FF;
//增量資金//
DRAWTEXT(ZCMZL>ref(ZCMZL,1) AND SH8<ref(SH8,1) AND ISLASTBAR,ZCMZL,'←增量資金');
EXPLAIN(C>ref(C,1),'§'+STKNAME+' №:'+STKLABEL),COLORRED;
EXPLAIN(C<=ref(C,1),'§'+STKNAME+' №:'+STKLABEL),COLORGREEN;
//走牛天數判斷//
EXPLAINEX(C>0,'走牛天數判斷：',ZZNTS,0,0),COLORWHITE;
//主力動向監控//
EXPLAIN(ZCMZL>ref(ZCMZL,1) AND DKB=1,'主力動向監控：主力增倉'),COLORRED;
EXPLAIN(ZCMZL>ref(ZCMZL,1) AND DKB=0,'主力動向監控：主力減倉'),COLORMAGENTA;
EXPLAIN(ZCMZL=ref(ZCMZL,1),'主力動向監控：多空平衡'),COLORGRAY;
EXPLAIN(ZCMZL<ref(ZCMZL,1) AND DKB=1,'主力動向監控：主力回補'),COLORFF9933;
EXPLAIN(ZCMZL<ref(ZCMZL,1) AND DKB=0,'主力動向監控：主力出逃'),COLORGREEN;
//特別信號提示//
EXPLAIN(ZSHTL>90,'特別信號提示：築底散兵坑'),COLOR66FFCC;
EXPLAIN(ZZLKP>75,'特別信號提示：鑄頂風險區'),COLORCYAN;
EXPLAIN(CROSS(ZCMZL,ZZLJJ) AND ZZLKP>ZZLJJ AND ZZLKP>10 AND ZZLJJ>ref(ZZLJJ,1) AND ZCMZL>ref(ZCMZL,1),'特別信號提示：穿越警戒'),COLORRED;
EXPLAIN(CROSS(ZCMZL,ZZLKP) AND ZZLKP>ZZLJJ AND ZZLKP<ZSHTL AND ZZLKP>10 AND ZZLJJ>ref(ZZLJJ,1) AND ZCMZL>ref(ZCMZL,1),'特別信號提示：穿越主力'),COLORYELLOW;
EXPLAIN(CROSS(ZCMZL,ZSHTL) AND ZSHTL>ZZLKP AND ZCMZL>ref(ZCMZL,1),'特別信號提示：穿越散戶'),COLORGREEN;
EXPLAIN(CROSS(ZCMZL,100) AND ZCMZL>ref(ZCMZL,1),'特別信號提示：全盤穿越'),COLOR3399FF;
EXPLAIN(ref(ZSHTL,1)>90 AND ZSHTL<90,'特別信號提示：神祕黑洞'),COLOR9966FF;

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

源碼解析：

//☆背景設置//填充背景
ZLCM賦值:以收盤價計算的獲利盤比例*70的3日指數移動平均
M賦值:(以收盤價*1.1計算的獲利盤比例-以收盤價*0.9計算的獲利盤比例)*80的3日指數移動平均
TL賦值:SHCM/(ZLCM+SHCM)*100
蔤ZLKP賦值:ZLCM/(ZLCM+SHCM)*100
蔤CMZL賦值:ZLCM+SHCM的13日簡單移動平均
TS賦值:上次ZSHTL<90ANDREF(ZSHTL,1)>90距今天數
走牛天數ZSHJJ賦值:ZSHTL的89日指數移動平均
散戶警戒ZZLJJ賦值:ZZLKP的89日指數移動平均
主力警戒ZJLRQD賦值:對ZZLKP-ZZLJJ(進行)四舍五入ZZLKP-ZZLJJ關于?的四舍五入
賦值:ZSHTL的8日指數移動平均
DKB賦值:如果ZZLKP-昨日ZZLKP>ZSHTL-昨日ZSHTL,返回1,否則返回0
輸出散戶套牢系數:對ZSHTL(進行)四舍五入ZSHTL關于?的四舍五入,線寬為0,畫白色
輸出主力控盤系數:對ZZLKP(進行)四舍五入ZZLKP關于?的四舍五入,線寬為0,畫青色
輸出資金流入強度:ZJLRQD,線寬為0,畫紅色
輸出市場籌碅總量:對ZCMZL(進行)四舍五入ZCMZL關于?的四舍五入,線寬為0,畫綠色
//本文來至程序化交易網 CXH99.COM////神礪黑洞//FILLRGN(昨日ZSHTL>90 AND ZSHTL<90,ZSHTL,0),COLOR9966FF
//散戶套牢籌碅//當滿足條件收盤價>0時,在ZSHTL和ZZLKP位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOREEEEEE
//散戶籌碅警戒//當滿足條件ZSHJJ>昨日ZSHJJ時,在ZSHTL和ZSHJJ位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORCARY
//散戶線//PARTLINE(收盤價>0,ZSHTL),LINEDOT,畫黃色
//主力控盤籌碅//當滿足條件收盤價>0時,在ZZLKP和0位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,畫藍色
//鑄頂風險區//當滿足條件ZZLKP>75時,在ZZLKP和0位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORFFFFFF
//主力籌碅警戒//當滿足條件ZZLJJ>昨日ZZLJJ時,在ZZLKP和ZZLJJ位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,畫紅色
//築底散兵坑//當滿足條件ZSHTL>=90時,在ZZLKP和0位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR66FFCC
//籌碅總量//PARTLINE(收盤價>0,ZCMZL),畫綠色
//籌碅總量上昇//PARTLINE(ZCMZL>昨日ZCMZL,ZCMZL),COLOR0066FF
//增量資金//當滿足條件ZCMZL>昨日ZCMZLANDSH8<昨日SH8ANDISLASTBAR時,在ZCMZL位置書寫文字
輸出 //內容來至程序化交易網 CXH99.COM//EXPLAIN(收盤價>昨收,'§'+股票名稱+' №:'+STKLABEL),畫紅色
輸出EXPLAIN(收盤價<=昨收,'§'+股票名稱+' №:'+STKLABEL),畫綠色
//走牛天數判斷//EXPLAINEX(收盤價>0,'走牛天數判斷：',ZZNTS,0,0),畫白色
//主力動向監控//EXPLAIN(ZCMZL>昨日ZCMZL AND DKB=1,'主力動向監控：主力增倉'),畫紅色
EXPLAIN(ZCMZL>昨日ZCMZL AND DKB=0,'主力動向監控：主力淧倉'),畫洋紅色
EXPLAIN(ZCMZL=昨日ZCMZL,'主力動向監控：多空平衡'),畫深灰色
EXPLAIN(ZCMZL<昨日ZCMZL AND DKB=1,'主力動向監控：主力回袮'),COLORFF9933
EXPLAIN(ZCMZL<昨日ZCMZL AND DKB=0,'主力動向監控：主力出逃'),畫綠色
//特凟信號提示//EXPLAIN(ZSHTL>90,'特凟信號提示：築底散兵坑'),COLOR66FFCC
EXPLAIN(ZZLKP>75,'特凟信號提示：鑄頂風險區'),畫青色
EXPLAIN(ZCMZL上穿ZZLJJ AND ZZLKP>ZZLJJ AND ZZLKP>10 AND ZZLJJ>昨日ZZLJJ AND ZCMZL>昨日ZCMZL,'特凟信號提示：穿越警戒'),畫紅色
EXPLAIN(ZCMZL上穿ZZLKP AND ZZLKP>ZZLJJ AND ZZLKP<ZSHTL AND ZZLKP>10 AND ZZLJJ>昨日ZZLJJ AND ZCMZL>昨日ZCMZL,'特凟信號提示：穿越主力'),畫黃色
EXPLAIN(ZCMZL上穿ZSHTL AND ZSHTL>ZZLKP AND ZCMZL>昨日ZCMZL,'特凟信號提示：穿越散戶'),畫綠色
EXPLAIN(ZCMZL上穿100 AND ZCMZL>昨日ZCMZL,'特凟信號提示：全盤穿越'),COLOR3399FF
EXPLAIN(昨日ZSHTL>90 AND ZSHTL<90,'特凟信號提示：神礪黑洞'),COLOR9966FF
//內容來至程序化交易網 CXH99.COM//