这里是大智慧2用的,原贴是飞狐的,请参看
http://www.55188.com/viewthread.php?tid=2057389&page=1#pid40152037
在此谢谢唉98610提供的思路thx thx thx
DZH2原码如下
{原文:
http://www.55188.com/viewthread.php?tid=2057389
请高手做一个关于换手率的公式,是副图的,换手率的数值希望能以柱状表示,
并配有5日线与10日线,形式就跟成交量的vol指标差不多,另外,当换手率由小变大到10%,
可以出现一个预警信号,若这时成交量是前一天的2倍以上,则出现一个"黑马"的信号!谢谢了! }
aa:=v;
bb:=CAPITAL;{有人说这个[流通盘大小]是未来函数}
换手:=aa*100/bb;
今日换手:换手,VOLSTICK;
STICKLINE(换手>10 and 换手>ref(换手,1),换手,换手*0.7,7,0),COLORYELLOW;
DRAWFLAGTEXT(换手>ref(换手,1)*2,换手*0.8,'黑马 '),ALIGN0,COLORWHITE;{移动光标可找到显示"黑马"}
STICKLINE(换手>ref(换手,1)*2,换手,换手*0.85,7,0),COLORff0000;
ma5:ma(换手,5);
ma10:ma(换手,10);
感谢大庆老杨老师和千钧一发老师,
以下是以飞狐为基础的优化版
成交:vol,COLORFFFF00,LINETHICK0;
bb:=CAPITAL;//有人说这个[流通盘大小]是未来函数
换手:=成交*100/bb,LINETHICK0;
今日换手%:换手,LINETHICK0;
hs:=求和(成交量,0)/流通盘大小,LINETHICK0;
换手次数:=向下舍入(hs)LINETHICK0;
bbb:=条件函数(换手次数>0,换手次数,0);
bbb2:=条件函数(bbb-向前引用(bbb,1)>0,bbb,0);
距上次完全换手天:上一次条件成立位置(bbb2),LINETHICK0,COLORGREEN;
平均换手天:向下舍入((数据位置-距上次完全换手天)/换手次数),COLORCYAN,LINETHICK0;
a2:=成交/capital*100;
a3:=a2>3 and a2<=5;
a4:=a2>5 and a2<=7;
a5:=a2>7 and a2<=10;
a6:=a2>10;
stickline(a2<3 and C>O,0,a2,6,0),color555500;
stickline(a2<3 and C>O,0,a2,5,0),color777700;
stickline(a2<3 and C>O,0,a2,4,0),color999900;
stickline(a2<3 and C>O,0,a2,3,0),colorbbbb00;
stickline(a2<3 and C>O,0,a2,2,0),colordddd00;
stickline(a2<3 and C>O,0,a2,1,0),colorFFFF00;
stickline(a2<3 and C<O,0,a2,6,0),color005500;
stickline(a2<3 and C<O,0,a2,5,0),color007700;
stickline(a2<3 and C<O,0,a2,4,0),color009900;
stickline(a2<3 and C<O,0,a2,3,0),color00bb00;
stickline(a2<3 and C<O,0,a2,2,0),color00dd00;
stickline(a2<3 and C<O,0,a2,1,0),color00FF00;
stickline(a3,0,a2,6,0),COLOR553300;
stickline(a3,0,a2,5,0),COLOR774400;
stickline(a3,0,a2,4,0),COLOR995500;
stickline(a3,0,a2,3,0),COLORbb6600;
stickline(a3,0,a2,2,0),COLORdd7700;
换手积极:stickline(a3,0,a2,1,0),COLORFF8800;
stickline(a4,0,a2,6,0),COLOR5555;
stickline(a4,0,a2,5,0),COLOR7777;
stickline(a4,0,a2,4,0),COLOR9999;
stickline(a4,0,a2,3,0),COLORbbbb;
stickline(a4,0,a2,2,0),COLORdddd;
换手活跃:stickline(a4,0,a2,1,0),COLORYELLOW;
stickline(a5,0,a2,6,0),COLOR5500;
stickline(a5,0,a2,5,0),COLOR7700;
stickline(a5,0,a2,4,0),COLOR9900;
stickline(a5,0,a2,3,0),COLORbb00;
stickline(a5,0,a2,2,0),COLORdd00;
换手频繁:stickline(a5,0,a2,1,0),COLORGREEN;
stickline(a6,0,a2,6,0),color000055;
stickline(a6,0,a2,5,0),color000077;
stickline(a6,0,a2,4,0),color000099;
stickline(a6,0,a2,3,0),color0000bb;
stickline(a6,0,a2,2,0),color0000dd;
巨幅换手:stickline(a6,0,a2,1,0),color0000FF;
bbb3:=数字转化为字符串(向前引用(bbb,距上次完全换手天),0);
显示文字(bbb2,a2,'次换手'),COLORffff,ALIGN1,PXUP100;
DRAWNUMBER(bbb2,a2,换手次数,0),colorffff,ALIGN2,PXUP100;
DRAWTEXT(换手>ref(换手,1)*2,换手*0.8,'黑\n \n马'),ALIGN0,COLORWHITE;
ma5:ma(换手,5);
ma10:ma(换手,10);
[
本帖最后由 一发千钧 于 2008-5-12 20:33 编辑 ]