真资金流指标公式源码[同花顺公式]

相关标签: 通达信真实资金流指标 、 企业资金流分析 、 资金流 、 最好的资金流指标公式 、 物流 信息流 资金流 、 资金流分析 、 资金在线资金流 、 金丰投资资金流 、 企业资金流 、

真资金流指标公式源码

//☆背景設置//
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,'←增量資金'); //内容来至程序化交易网 CXH99.COM//
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;
//内容来至程序化交易网 CXH99.COM//

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

源码解析：

//☆背景設置//填充背景
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//