BsByWR
简述
WR买入条件选股,WR上穿(即突破)v。与系统证券pn_stock()、系统时间pn_date()和系统周期pn_cycle()有关。调用时需注意设置系统参数。
BsByWR(N:Integer;v:Integer):Bool
名称 | 类型 | 说明 |
---|
N | Integer | 整数,统计天数 |
v | Integer | 常数,wr穿越的基线 |
返回 | Bool | 布尔值,0表示没有上穿,1表示上穿 |
WR = (N日最高的最高价-收盘价)/(最高的最高价-最低的最低价)*100。
//计算白云机场截止2011年9月13日的WR买入条件选股情况。
oV:=BackUpSystemParameters();
setsysparam(pn_stock(),'SH600004');
setsysparam(pn_date(),inttodate(20110913));
setsysparam(pn_cycle(),cy_day());
N:=6;
v:=20;
a:=BsByWR(N,v);
RestoreSystemParameters(oV);
return a;
//结果:0