主图真金白银独一无二经典公式下载 飞狐无二指标 源码

指标公式详细说明

真金白银）独一无二
{黑色零线}
0,colorblack;
{/黑色零线}

{黄金比例}
比:=(sqrt(5)-1)/2;{～0.618}
{.反比}
反比:=2/(sqrt(5)-1);{～1.618}
双反比:=pow(反比,反比);{～2.178}
{/.反比}
{.比反比}
比反比:=pow(比,反比);{～0.459}
比双反比:=pow(比,双反比);{～0.351}//比反比*比双反比～=0.161
比反比双反比:=pow(比反比,双反比);{～0.183}//比双反比*比反比双反比～=0.064
{/.比反比}
{/黄金比例}
{填充背景.bgb}
//填充背景为黑色???:
//drawgbk(1, colorrgb(0,0,0), colorrgb(0,0,0),0);
{填充背景.bgb.end}

{主题及logo}

drawtextex(1,1,比双反比*1000,比反比*1000,'·for money·for girl·'),colorc5b5ff;
drawtextex(1,1,382,618,'超级吸金黑洞'),color696969;
{/主题及logo 2009.01.27}

{当前数据周期类型}
当前数据周期类型:=datatype;{返回值范围为-1-12，分别表示即时图、分笔成交、1分钟、5分钟、15分钟、30分钟、60分钟、日、周、 月、年、多日、多分钟、多秒}
当前数据周期类型超日线:=当前数据周期类型>=6;
当前数据周期类型低六十分钟:=当前数据周期类型<=5;
当前数据周期类型低三十分钟:=当前数据周期类型<=4;
{/当前数据周期类型}


{股价关系提示}
drawtextex(1,1,0,879,' 股价=每笔金额/每笔换手*1/流通盘\n===>股价与每笔金额(资金度)成正比,与每笔换手(控盘度)成反比... (1/流通盘)一般不变为常量'),colorc6b7d8b;
{/股价关系提示}

{显示所属板块.黑金}
//定义常量
所属板块字符串:=blkname;
截取所属板块字符串:=' 所属板块: '+所属板块字符串;
单行最大显示长度:=159;//单位:字节
截取所属板块字符串长度:=strlen(截取所属板块字符串);
//定义并初始化变量
显示字符串:='';
逗号:=',';
末单字符截取位置:=单行最大显示长度-1;
单行末单个字符:='';
//判断截取长度
if 截取所属板块字符串长度>单行最大显示长度 then
//截取长度超过单行最大显示长度时,开始以下运算.
begin
//截取长度超过单行最大显示长度时,循环
while 截取所属板块字符串长度>单行最大显示长度 do
begin
//循环计算单行最大长度前最后一个逗号的位置
while strcmp(单行末单个字符,逗号)<>0 do
begin
单行末单个字符:=strmid(截取所属板块字符串,末单字符截取位置,1);
末单字符截取位置:=末单字符截取位置-1;
end;
//截取截取所属板块字符串到最后逗号位置.
单行可显示字符串:=strleft(截取所属板块字符串,末单字符截取位置+1)+'\n';
//逗号位置所截取长度.
单行可显示字符串长度:=strlen(单行可显示字符串)-1;
//前段填充空格 对 所属板块字符串
截取所属板块字符串:=' '+strmid(截取所属板块字符串,单行可显示字符串长度,0);
//填充后字符串长度.
截取所属板块字符串长度:=strlen(截取所属板块字符串);
//再次初始化变量.
末单字符截取位置:=单行最大显示长度-1;
单行末单个字符:='';
//对可显示字符串进行累加.
显示字符串:=显示字符串+单行可显示字符串;
end;
//累加后的可显示字符串累加最后一行截取字符串.
显示字符串:=显示字符串+截取所属板块字符串;
end;
else
//截取长度不超过单行最大显示长度时,进行以下运算.
显示字符串:=截取所属板块字符串;
//屏幕左上角显示输出可显示所属板块字符串.
drawtextex(1,1,0,0,显示字符串),color8b8b00;
{/显示所属板块.黑金}



{代码核心算法概括 sum(qt andor amount,sumbars(v,capital));}
{完全量计算(算法起源)}
完全:=1;{可根据股本流通率,动态更新,将1替换.当非流通股解禁时动态更新流通盘大小}
完全量:=完全*capital;
完全略周期:=sumbars(v,完全量);
完全略周期量:=sum(v,完全略周期);
完全略周期超出量:=完全略周期量-完全量;
完全略周期减一周期:=完全略周期-1;
完全略周期初周期量:=ref(v,完全略周期减一周期);
完全略周期超出量初周期量比:=完全略周期超出量/完全略周期初周期量;
完全略周期超出周期:=1*完全略周期超出量初周期量比;{超出量比粗认为超出周期,使用周期越小越精确}
完全略周期初周期金额:=ref(amount,完全略周期减一周期);
完全略周期初周期笔数:=ref(qt,完全略周期减一周期);
完全略周期超出金额:=完全略周期初周期金额*完全略周期超出量初周期量比;{超出量比粗认为超出金额比,使用周期越小越精确}
完全略周期超出笔数:=完全略周期初周期笔数*完全略周期超出量初周期量比;{超出量比粗认为超出笔数比,使用周期越小越精确}
完全略周期金额:=sum(amount,完全略周期);
完全略周期笔数:=sum(qt,完全略周期);
完全量周期:=完全略周期-完全略周期超出周期;
完全金额:=完全略周期金额-完全略周期超出金额;
完全笔数:=完全略周期笔数-完全略周期超出笔数;
完全价:=完全金额/完全量/100;
完全市值:=完全金额/100000000;//单位:亿元
{/完全量计算}

{黄金比例量周期超精简版.黑金}
{向前45.9%(比反比)换手,35.1%(比双反比)换手所用周期}
比反比量周期:=sumbars(v,比反比*完全量)-(sum(v,sumbars(v,比反比*完全量))-比反比*完全量)/ref(v,sumbars(v,比反比*完全量)-1);
比双反比量周期:=sumbars(v,比双反比*完全量)-(sum(v,sumbars(v,比双反比*完全量))-比双反比*完全量)/ref(v,sumbars(v,比双反比*完全量)-1);
{/黄金比例量周期超精简版.黑金}

{以量周期计算要使用的周期及周期对应数据及数据运算}
{.比周期计算}
比周期:=完全量周期*比反比;//～0.459
比略周期:=ceiling(比周期);
比略周期超出周期:=比略周期-比周期;
比略周期超出周期初比:=比略周期超出周期/1;
比略周期减一周期:=比略周期-1;
比略周期初周期金额:=ref(amount,比略周期减一周期);
比略周期初周期量:=ref(v,比略周期减一周期);
比略周期初周期笔数:=ref(qt,比略周期减一周期);
比略周期超出金额:=比略周期初周期金额*比略周期超出周期初比;
比略周期超出量:=比略周期初周期量*比略周期超出周期初比;
比略周期超出笔数:=比略周期初周期笔数*比略周期超出周期初比;
比略周期金额:=sum(amount,比略周期);
比略周期量:=sum(v,比略周期);
比略周期笔数:=sum(qt,比略周期);
比周期金额:=比略周期金额-比略周期超出金额;
比周期量:=比略周期量-比略周期超出量;
比周期笔数:=比略周期笔数-比略周期超出笔数;
比周期换手:=比周期量*100000000/完全量;
比周期量大于零:=比周期量>0;
上次比周期量大于零周期数:=barslast(比周期量大于零);
原比周期市值:=比周期金额*完全量/比周期量/100000000;
原比周期价:=比周期金额/比周期量/100;
原比周期每笔金额:=比周期金额/比周期笔数/10000;
原比周期每笔换手:=比周期换手/比周期笔数;
比周期市值:=if(比周期量大于零,原比周期市值,ref(原比周期市值,上次比周期量大于零周期数));//单位:亿元
比周期价:=if(比周期量大于零,原比周期价,ref(原比周期价,上次比周期量大于零周期数));//单位:元每股
比周期每笔金额:=if(比周期量大于零,原比周期每笔金额,ref(原比周期每笔金额,上次比周期量大于零周期数));
//单位:万元每笔{比周期资金度}
比周期每笔换手:=if(比周期量大于零,原比周期每笔换手,ref(原比周期每笔换手,上次比周期量大于零周期数));
//单位:每笔亿分之{比周期控盘度}
{上次比周期量大于零周期数? or 上次比周期量大于零周期数-1?}
{/.比周期计算}

{.比比周期计算}
比比周期:=比反比量周期*比双反比;//比反比*比双反比～=0.161
比比略周期:=ceiling(比比周期);
比比略周期超出周期:=比比略周期-比比周期;
比比略周期超出周期初比:=比比略周期超出周期/1;
比比略周期减一周期:=比比略周期-1;
比比略周期初周期金额:=ref(amount,比比略周期减一周期);
比比略周期初周期量:=ref(v,比比略周期减一周期);
比比略周期初周期笔数:=ref(qt,比比略周期减一周期);
比比略周期超出金额:=比比略周期初周期金额*比比略周期超出周期初比;
比比略周期超出量:=比比略周期初周期量*比比略周期超出周期初比;
比比略周期超出笔数:=比比略周期初周期笔数*比比略周期超出周期初比;
比比略周期金额:=sum(amount,比比略周期);
比比略周期量:=sum(v,比比略周期);
比比略周期笔数:=sum(qt,比比略周期);
比比周期金额:=比比略周期金额-比比略周期超出金额;
比比周期量:=比比略周期量-比比略周期超出量;
比比周期笔数:=比比略周期笔数-比比略周期超出笔数;
比比周期换手:=比比周期量*100000000/完全量;
比比周期量大于零:=比比周期量>0;
上次比比周期量大于零周期数:=barslast(比比周期量大于零);
原比比周期市值:=比比周期金额*完全量/比比周期量/100000000;
原比比周期价:=比比周期金额/比比周期量/100;
原比比周期每笔金额:=比比周期金额/比比周期笔数/10000;
原比比周期每笔换手:=比比周期换手/比比周期笔数;
比比周期市值:=if(比比周期量大于零,原比比周期市值,ref(原比比周期市值,上次比比周期量大于零周期数));//单位:亿元
比比周期价:=if(比比周期量大于零,原比比周期价,ref(原比比周期价,上次比比周期量大于零周期数));//单位:元每股
比比周期每笔金额:=if(比比周期量大于零,原比比周期每笔金额,ref(原比比周期每笔金额,上次比比周期量大于零周期数));
//单位:万元每笔{比比周期资金度}
比比周期每笔换手:=if(比比周期量大于零,原比比周期每笔换手,ref(原比比周期每笔换手,上次比比周期量大于零周期数));
//单位:每笔亿分之{比比周期控盘度}
{上次比比周期量大于零周期数? or 上次比比周期量大于零周期数-1?}
{/.比比周期计算}

{.比比比周期计算.起源.黑金}
比比比周期:=比双反比量周期*比反比双反比;//比双反比*比反比双反比～=0.064
{取消对比比比周期的大于有效周期引用...计算更正确...渐进消亡,,用有效周期的有效数据的可用性}
比比比略周期:=ceiling(比比比周期);
比比比略周期超出周期:=比比比略周期-比比比周期;
比比比略周期超出周期初比:=比比比略周期超出周期/1;
比比比略周期减一周期:=比比比略周期-1;
比比比略周期初周期金额:=ref(amount,比比比略周期减一周期);
比比比略周期初周期量:=ref(v,比比比略周期减一周期);
比比比略周期初周期笔数:=ref(qt,比比比略周期减一周期);
比比比略周期超出金额:=比比比略周期初周期金额*比比比略周期超出周期初比;
比比比略周期超出量:=比比比略周期初周期量*比比比略周期超出周期初比;
比比比略周期超出笔数:=比比比略周期初周期笔数*比比比略周期超出周期初比;
比比比略周期金额:=sum(amount,比比比略周期);
比比比略周期量:=sum(v,比比比略周期);
比比比略周期笔数:=sum(qt,比比比略周期);
比比比周期金额:=比比比略周期金额-比比比略周期超出金额;
比比比周期量:=比比比略周期量-比比比略周期超出量;
比比比周期笔数:=比比比略周期笔数-比比比略周期超出笔数;
比比比周期换手:=比比比周期量*100000000/完全量;
比比比周期量大于零:=比比比周期量>0;
上次比比比周期量大于零周期数:=barslast(比比比周期量大于零);
原比比比周期市值:=比比比周期金额*完全量/比比比周期量/100000000;
原比比比周期价:=比比比周期金额/比比比周期量/100;
原比比比周期每笔金额:=比比比周期金额/比比比周期笔数/10000;
原比比比周期每笔换手:=比比比周期换手/比比比周期笔数;
比比比周期市值:=if(比比比周期量大于零,原比比比周期市值,ref(原比比比周期市值,上次比比比周期量大于零周期数));
//单位:亿元
比比比周期价:=if(比比比周期量大于零,原比比比周期价,ref(原比比比周期价,上次比比比周期量大于零周期数));
//单位:元每股
比比比周期每笔金额:=if(比比比周期量大于零,原比比比周期每笔金额,ref(原比比比周期每笔金额,上次比比比周期量大于零周期数));
//单位:万元每笔{比比比周期资金度}
比比比周期每笔换手:=if(比比比周期量大于零,原比比比周期每笔换手,ref(原比比比周期每笔换手,上次比比比周期量大于零周期数));
//单位:每笔亿分之{比比比周期控盘度}
{上次比比比周期量大于零周期数? or 上次比比比周期量大于零周期数-1?}
{/.比比比周期计算.起源.黑金}
{/以量周期计算要使用的周期及周期对应数据及数据运算}

{不知道飞狐支持unicode大字符集的显示否?那样就可以制作非·非主流火星文版的黑金指标~\(≧▽≦)/~啦啦啦,,,哗哗哗....}

{当前周期计算}
当前周期金额:=amount;
当前周期量:=vol;
当前周期笔数:=qt;
当前周期换手:=当前周期量*100000000/完全量;
当前周期量大于零:=当前周期量>0;
上次当前周期量大于零周期数:=barslast(当前周期量大于零);
原当前周期市值:=当前周期金额*完全量/当前周期量/100000000;
原当前周期价:=当前周期金额/当前周期量/100;
原当前周期每笔金额:=当前周期金额/当前周期笔数/10000;
原当前周期每笔换手:=当前周期换手/当前周期笔数;
{引用语句消耗的资源 vs 判断语句消耗的资源????}
{不知是否需要添加判断 上次当前周期量大于零周期数=0 ,而后决定是否使用 ref 引用语句....以减少引用语句 消耗的 处理器资源 或及 内存 或虚拟硬盘 读写时间消耗......或不会消耗多少,不需要添加判断语句,,,,,或添加判断语句所耗费的资源同样高????}
{想了想,,,,,还是加上判断语句吧........我真的好懒,,,不想动哪......~~~~(>_<)~~~~ 呜呜呜呜呜呜}
当前周期市值:=if(当前周期量大于零,原当前周期市值,ref(原当前周期市值,上次当前周期量大于零周期数));
//单位:亿元
当前周期价:=if(当前周期量大于零,原当前周期价,ref(原当前周期价,上次当前周期量大于零周期数));
//单位:元每股
当前周期每笔金额:=if(当前周期量大于零,原当前周期每笔金额,ref(原当前周期每笔金额,上次当前周期量大于零周期数));
//单位:万元每笔{当前资金度}
当前周期每笔换手:=if(当前周期量大于零,原当前周期每笔换手,ref(原当前周期每笔换手,上次当前周期量大于零周期数));
//单位:每笔亿分之{当前控盘度}
{上次当前周期量大于零周期数? or 上次当前周期量大于零周期数-1?}
{/当前周期计算}
{霍哗哗,终于写完啦....哗哈哈哈哈哈o(∩_∩)o哈哈~}


{显示输出价}
//单位:元每股
白金价:比周期价,colorwhite;
蓝金价:比比周期价,colorff9900;
黄金价:比比比周期价,color00d7ff;
当前价:当前周期价,colorgray,linethick2;
{/显示输出价}


{显示输出市值}
{单位:亿元}
{
白金市值:=比周期市值,colorwhite;
蓝金市值:=比比周期市值,colorff9900;
黄金市值:=比比比周期市值,color00d7ff;
当前周期市值:=当前周期市值,colorgray,linethick2;
}
{/显示输出市值}

{显示输出每笔金额}
{
//单位:万元每笔
{30,60分钟周期不明原因有别}
{资金度}
白金每笔金额:=比周期每笔金额,colorwhite;
蓝金每笔金额:=比比周期每笔金额,colorff9900;
黄金每笔金额:=比比比周期每笔金额,color00d7ff;
{一般不要显示当前周期每笔金额,其指标值过大时,破坏其他稳定指标线可见性}
当前周期每笔金额:=当前周期每笔金额,colorgray,linethick2;
}
{/显示输出每笔金额}


{显示输出每笔换手}
{
//单位:每笔亿分之
{30.60分钟周期是否有差?}
{控盘度}
白金每笔换手:=比周期每笔换手,colorwhite;
蓝金每笔换手:=比比周期每笔换手,colorff9900;
黄金每笔换手:=比比比周期每笔换手,color00d7ff;
{一般不要显示当前周期每笔换手,其指标值过大时,破坏其他稳定指标线可见性}
当前周期每笔换手:=当前周期每笔换手,colorgray,linethick2;
}
{/显示输出每笔换手}

{价显示停牌周期}
现在日期:=currentdate;
此周期日期:=date;
上周期日期:=ref(date,1);
停止交易周期数:=datediff(上周期日期,此周期日期)-1;
停止交易星期数:=停止交易周期数/7;
停止交易整星期数:=floor(停止交易星期数);
超出周期数:=停止交易周期数-停止交易整星期数*7;{1-6}
周末休市日期数:=2*停止交易整星期数;
当前星期:=weekday;
当前为周末:=当前星期=6 or 当前星期=0;
超出休市数:=count(当前为周末,超出周期数);
休市周期数:=周末休市日期数+超出休市数;
停牌周期数:=停止交易周期数-休市周期数-2;
{我没搞明白，这里为什么减去二结果就正确了。。。。我自己写的代码自己都不明白。。。~~~~~~~~~~~}
停牌周期数小于十:=停牌周期数<10 and 停牌周期数>0;
停牌周期数大于等于十:=停牌周期数>=10;
停牌周期数字符串:= numtostr(停牌周期数,0);
drawtext(停牌周期数>0,当前周期价,'停牌'),align2,color8b8b7a;
drawtext(停牌周期数小于十,当前周期价,' 周期'),align1,color8b8b7a;
drawtext(停牌周期数大于等于十,当前周期价,'周期'),align1,color8b8b7a;
drawnumber(停牌周期数>0,当前周期价,停牌周期数,0),colorwhite;
{/价显示停牌周期}

{市值显示停牌周期}
{
现在日期:=currentdate;
此周期日期:=date;
上周期日期:=ref(date,1);
停止交易周期数:=datediff(上周期日期,此周期日期)-1;
停止交易星期数:=停止交易周期数/7;
停止交易整星期数:=floor(停止交易星期数);
超出周期数:=停止交易周期数-停止交易整星期数*7;{1-6}
周末休市日期数:=2*停止交易整星期数;
当前星期:=weekday;
当前为周末:=当前星期=6 or 当前星期=0;
超出休市数:=count(当前为周末,超出周期数);
休市周期数:=周末休市日期数+超出休市数;
停牌周期数:=停止交易周期数-休市周期数-2;
{我没搞明白，这里为什么减去二结果就正确了。。。。我自己写的代码自己都不明白。。。~~~~~~~~~~~}
停牌周期数小于十:=停牌周期数<10 and 停牌周期数>0;
停牌周期数大于等于十:=停牌周期数>=10;
停牌周期数字符串:= numtostr(停牌周期数,0);
drawtext(停牌周期数>0,当前周期市值,'停牌'),align2,color8b8b7a;
drawtext(停牌周期数小于十,当前周期市值,' 周期'),align1,color8b8b7a;
drawtext(停牌周期数大于等于十,当前周期市值,'周期'),align1,color8b8b7a;
drawnumber(停牌周期数>0,当前周期市值,停牌周期数,0),colorwhite;
}
{/市值显示停牌周期}

{财务数据}
换行:=' \n ';
{.显示财务数据更新日期}
更新日期:=finance( 0);
飞狐函数接口规范格式更新日期:=更新日期*100-19000000+30;
更新日期字符串:=numtostr(更新日期,0);
取更新日期年份:=strleft(更新日期字符串,4);
取更新日期月份:=strright(更新日期字符串,2);
更新日期年月字符串:=取更新日期年份+'年'+取更新日期月份+'月';
现即更新日期:=date=飞狐函数接口规范格式更新日期 or (ref(date,1)<飞狐函数接口规范格式更新日期 and date>飞狐函数接口规范格式更新日期);
更新日期字符串:='财务数据最后于'+更新日期年月字符串+'更新';
drawtext(现即更新日期,完全价,更新日期字符串),color8b658b;
{/.显示财务数据更新日期}


{.股本分布}
总股本:=finance( 1);//单位：百手 或万股
国家股本:=finance( 2);//单位：百手 或万股
b股股本:=finance( 5);//单位：百手 或万股
h股股本:=finance( 6);//单位：百手 或万股
a股股本:=finance( 7);//单位：百手 或万股
国有控股率:=国家股本/总股本*100;//单位:百分之一
a股流通率:=a股股本/总股本*100;//单位:百分之一
b股流通率:=b股股本/总股本*100;//单位:百分之一
h股流通率:=h股股本/总股本*100;//单位:百分之一
股本流通率:=(b股股本+h股股本+a股股本)/总股本*100;//单位:百分之一
//股本分布字符串:
国有控股率字符串:=if(国有控股率>1,' 国有控股率:'+numtostr(国有控股率,1)+'%'+换行,换行);
a股流通率字符串:='a股流通率:'+numtostr(a股流通率,1)+'%'+换行;
股本流通率字符串:=if((a股流通率+1)>股本流通率,'','股本流通率:'+numtostr(股本流通率,1)+'%'+换行);
b股流通率字符串:=if(b股流通率>1,'b股流通率:'+numtostr(b股流通率,1)+'%'+换行,'');
h股流通率字符串:=if(h股流通率>1,'h股流通率:'+numtostr(h股流通率,1)+'%'+换行,'');
//输出显示股本分布字符串:
drawtextex(1,1,3,123,国有控股率字符串+股本流通率字符串+a股流通率字符串+b股流通率字符串+h股流通率字符串),color3f85cd;
{/.股本分布.结束}

{.总资产状况}
总资产:=finance(10)/100000;//单位:亿元 {总资产大小}
资本公积金:=finance(17)/100000;//单位:亿元 {备用金,储备金,保留资金}
每股公积金:=finance(18);//单位:元每股 {等于 资本公积金/总股本}
公积金储备率:=资本公积金/总资产*100;//单位:百分之一 {抗风险能力,稳定能力?}
股东权益:=finance(19)/100000;//单位:亿元 {好像等于净资产 股东权益=总资产-负债=净资产}
净资产:=股东权益;{???}//单位:亿元
负债:=总资产-股东权益;//单位:亿元 {等于总资产-净资产}
每股收益:=finance(33);//单位:元每股 {总收益/总股本}
总收益:=每股收益*总股本/10000;//单位:亿元
股东权益比率:=finance(36);//单位:百分之一 {等于 净资产(=股东权益)/总资产*100}
股东权益比总资产:=股东权益/总资产*100;//单位:百分之一 {等于股东权益比率}
每股净资:=finance(34);//单位:元每股 {净资产/总的股本}
净资收益率:=finance(37);//单位:百分之一 {每股收益/每股净资产*100}
总资产收益率:=总收益/总资产*100;//单位:百分之一
股东总数:=finance(50);//单位:头..... `````````````````````{是全部股份的股东总数?而非流通股东总数?}
每股东资产:=总资产*10000/股东总数;//单位:万元每头.....~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
税后利润增长率:=finance(54);//单位:百分之一？
总资产收益率增长率:=总资产收益率*(100+税后利润增长率)/100;{这差不多对了吧,也许可能大概应该maybe,中华象形文字比那些字母丰富直观多了}
总资产增长率:=finance(56);//单位:百分之一？{总资产=上年总资产+上年总利润?}
{资本扩张速度:=(100+税后利润增长率)*(100+总资产增长率)/100;//单位:百分之一}{此行定义有误,理解有误,以后改....不好意思,当下就改了}
资本扩张速度:=(100+总资产收益率增长率)*(100+总资产增长率)/100;//单位:百分之一{此定义不对的话,请联系:blackgoldenboy@sogou.com}
//总资产状况字符串:
公积金储备率字符串:=' 公积金储备率:'+numtostr(公积金储备率,1)+'%'+换行;{公积金储备率越高,抗风险性越好,但同时减少了再投资的 资金,影响资本扩张.}{抗风险能力}
股东权益比率字符串:='股东权益比率:'+numtostr(股东权益比率,1)+'%'+换行;{股东权益(=净资产)比率越高,说明公司资产负债率越低,资 产可靠度越高.}{资产可靠度}
总资产收益率字符串:='总资产收益率:'+numtostr(总资产收益率,1)+'%'+换行;{总资产收益率越高,说明公司盈利能力越高,赚钱能力越 好}{盈利能力}
资本扩张速度字符串:=if(资本扩张速度<>100,'资本扩张速度:'+numtostr(资本扩张速度,1)+'%'+换行,'');{速度越快,表明公司成长速度 越快,对应公司市值也应该上涨最快}{资本扩张速度}
每股东资产字符串:=if(每股东资产<0.1,'','每股东资产:'+numtostr(每股东资产,1)+'万元'+换行);{每股东资产越多,说明???}{股东有钱度 }
//输出显示总资产状况:
drawtextex(1,1,3,295,公积金储备率字符串+股东权益比率字符串+总资产收益率字符串+资本扩张速度字符串+每股东资产字符串),color82ddee;
{本人独自一人进行量化分析与代码编写,甚感孤单,希望有人相伴}
{/.总资产状况}

{.总资产每总股状况}
每股公积金:=每股公积金;//单位:元每股
每股收益:=每股收益;//单位:元每股
每股净资:=每股净资;//单位:元每股 {等于每股股东权益}
每股东资产:=总资产*10000/股东总数;//单位:万元每头
每股资产:=总资产*10000/总股本;//单位:元每股{每总股本股股价}
每股资产字符串:='每总股本股总资产:'+numtostr(每股资产,1)+'元';
//显示输出总资产每总股状况
drawtextex(1,1,3,545,' '+更新日期字符串+'时'+每股资产字符串),color13458b;
drawtext(现即更新日期,完全价,换行+'当时的'+每股资产字符串),color8b658b;
{/.总资产每总股本状况}
{.a股市价状况}
a股市净率:=当前价/每股净资;
a股市总率:=当前价/每股资产;
a股市盈率:=当前价/每股收益;
//a股市值或市价状况字符串
a股市净率字符串:=' a股市净率:'+numtostr(a股市净率,1)+'倍'+换行;
a股市总率字符串:='a股市总率:'+numtostr(a股市总率,1)+'倍'+换行;
a股市盈率字符串:='a股市盈率:'+numtostr(a股市盈率,1)+'倍'+换行;
//输出显示a股市价状况:
drawtextex(1,1,3,615,a股市净率字符串+a股市总率字符串+a股市盈率字符串),color1e69d2;
{/.a股市价状况}
{.a股资产}
a股资产:=完全市值;//单位:亿元{a股完全换手总成交金额}
a股资产字符串:=' a股市值:'+numtostr(a股资产,1)+'亿元'+换行;
drawtextex(1,1,3,758,a股资产字符串),coloraddeff;
{/.a股资产}
{.a股板块资产状况}
{运算量巨大,运算卡机时间几近十数秒,另一个版本的占内存空间较大但可能运算时间较少的版本,测试未通过,为保证您的用户体验,现屏蔽此代码段}
{
{..末周期a股板块个股完全市值遍历累加和}
{请保证数据完整性及正确性}
a股板块板块字符串:='a股板块';
a股板块品种数量:=stkcount(a股板块板块字符串);
a股板块末周期累加市值:=0;
for n=1 to a股板块品种数量 do
begin
a股板块第n个品种代码:=stkfromblk(a股板块板块字符串,n);
a股板块第n个品种市值:=stkindi(a股板块第n个品种代码,'完全市值',0,dataperiod);
a股板块末周期累加市值:=a股板块末周期累加市值+a股板块第n个品种市值[datacount];
{去掉下标,可改编为动态a股板块总市值,但可能运算量极大,导致计算机假死.也可制作为横向统计方式(横向统计不需要此代码段,只需要对a股板块所有个股完全市值输出进行相等权重累加即可),每日更新,可大幅减少重复运算}
end;
无敌黑金boy的累加市值:=a股板块末周期累加市值;//单位:亿元
无敌黑金boy的累加市值字符串:='a股板块总市值:'+numtostr(无敌黑金boy的累加市值,1)+'亿元'+换行;
{/..末周期a股板块个股完全市值遍历累加和}
当前个股市值占a股板块权重:=完全市值/无敌黑金boy的累加市值*1000;
当前个股市值占a股板块权重字符串:='当前个股市值占a股板块权重:'+numtostr(当前个股市值占a股板块权重,1)+'‰'+换行;
//显示输出当前个股市值占a股板块权重(单位:千分之):
drawtextex(1,1,3,800,' '+无敌黑金boy的累加市值字符串+当前个股市值占a股板块权重字符串),colora1cfee;
{/.a股板块资产状况}
}
{/财务数据}


{黄金周期过小时 提示减小显示周期以精确计算及看盘}
{换手率高,筹码流动活跃,股价变动周期很小.需使用60分钟或其以下周期看盘及计算.盘中即时进行交易}
{如果您的计算机性能优良,建议您使用飞狐60分钟或其以下周期看盘,您选用的看盘周期越小,计算精度越高,但同时运算量更大.(推荐使用30分钟周期)}
{为保证本代码所需原始数据精细性,以提高计算精确性.请不要屏蔽此代码段.}
drawtextex(比比比周期<双反比,1,555,367,'◆◆◆请将看盘周期调整为60分钟或其以下周期◆◆◆\n \n以使代码获取并计算 更精细数据信 息 及 \n \n 更即时准确地观察盘面变化\n \n \n(如无五分钟数据,请下载安装)\n \n 推荐您使用30分钟周期'),colorcdfaff;
{/黄金周期过小时 提示减小显示周期以精确计算及看盘}



{画面可见性较差时,提示更改画面可见性}
{此段代码耗费处理器及中断资源巨大,已做屏蔽.如果需要,请自行打开屏蔽.warning:一般请不要打开此屏蔽.小心死机.}
{
{此代码段耗费处理器资源较大，，，但对初级用户且在30分钟周期以上看盘及计算时,建议不要屏蔽,,,,在十五分钟周期时运算量很大,,,
在五分钟周期运算时计算机几乎停止响应}
{包含有动态跟踪光标及画面可见性函数,循环运算量巨大.耗用大量处理器资源,在30分钟周期以下运行时,计算机对用户的响应明显停滞,
甚至造成假死.因此如果您经常使用30分钟周期以下看盘,或者您不需要此菜鸟提示,强烈推荐屏蔽此代码段}
//请选择是否关闭提示:
是否关闭提士:='否';{如需关闭提示,请填"是"}
if (strcmp(是否关闭提士,'是')=0)=0and 当前数据周期类型低三十分钟=0 then
begin
主图可见光标最初位置:=sysparam(2);//时间坐标
主图可见光标最后位置:=sysparam(3);//时间坐标
当前可见周期数:=主图可见光标最后位置-主图可见光标最初位置;
运算周期:=if(当前数据周期类型超日线=1,30,if(当前数据周期类型低六十分钟=1,200,128));
if (当前数据周期类型超日线 and 当前可见周期数<=运算周期) or (当前数据周期类型低六十分钟 and 当前可见周期数<=运算周期)then
begin
主图可见光标最高位置:=sysparam(4);//纵坐标
主图可见光标最低位置:=sysparam(5);//纵坐标
当前可见价差:=主图可见光标最高位置-主图可见光标最低位置;
当前可见价幅:=当前可见价差/主图可见光标最低位置*100;
价幅周期价幅小:=当前可见价幅<46;{可根据您的需要,更改此项参数}
更改k线显示提示:='◆◆◆当前画面股价变动可见性较差◆◆◆\n\n您可以: \n\n右键单击 纵坐标栏 点选 [仅随k线变动] 选项\n\n\n(如 不需要此提醒 请将源码中"{提示更改画面可见性}中的"是否关闭提士:="否"改为"是")';
drawtextex(价幅周期价幅小,1,167,212,更改k线显示提示),coloraddeff;
end;
end;
}
{/画面可见性较差时,提示更改画面可见性}

指标公式下载地址

上一指标公式：主图解盘主图公式下载 飞狐源码主图指标 源码

下一指标公式：真正的涨了再买-买了就涨公式下载 飞狐买了涨了指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文主图真金白银独一无二经典公式下载 飞狐无二指标 源码仅供学习研究。