算法:
(1)引力线=(N1日的收盘价简单平均+ N2日的收盘价简单平均+ N3日的收盘价简单平均+ N4日的收盘价简单平均)/4;
(2)引力线移动平均=M日的引力线的简单平均;
(3)Type=0,返回当前时间的引力线移动平均;
(4)Type=1,返回当前时间往前推共nDay个引力线移动平均序列。
nDay由系统参数PN_nDay()设置,默认值为180。
(5)与系统证券pn_stock()、系统时间pn_date()、系统周期pn_cycle()、复权方式pn_rate()、复权基准日pn_rateday()、执行点数PN_nDay()相关
范例:
//计算白云机场截止日2011年9月8日的引力线移动平均。
oV:=BackUpSystemParameters2();
setsysparam(pn_stock(),'SH600004');
setsysparam(pn_cycle(),cy_day());
setsysparam(pn_rate(),0);
setsysparam(pn_date(),inttodate(20110908));
N1:=3;
N2:=5;
N3:=10;
N4:=20;
M:=6;
v:=UDLma_f(N1,N2,N3,N4,M,0);
return v;
//结果:7.13
//计算白云机场截止2011年9月8日向前推共5天的引力线移动平均序列。
oV:=BackUpSystemParameters2();
setsysparam(pn_stock(),'SH600004');
setsysparam(pn_cycle(),cy_day());
setsysparam(pn_rate(),0);
setsysparam(pn_date(),inttodate(20110908));
setsysparam(pn_nday(),5);
N1:=3;
N2:=5;
N3:=10;
N4:=20;
M:=6;
v:=UDLma_f(N1,N2,N3,N4,M,1);
return v;
//结果: