真金白银）独一无二
{黑色零线}
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/完全量;
比比周期量大于零:=比比