查看完整版本: 请帮忙用循环语句写段公式，谢谢

请帮忙用循环语句写段公式，谢谢

第一个VARB的值是P，P是参数（先默认等于10，是首日的开盘价）
HS:=CLOSE/REF(CLOSE,1);
VARB 等于上一个VARB*HS
求VARB的指标线

p:=10;fc:=close;varb:=0;
varb[1]:=fc[1];
hs:=close/ref(close,1);
for i=2 to datacount do begin
varb[i]:=varb[i-1]*hs[i];
end;

output:varb;

[code]p:=10;fo:=open;varb:=0;
varb[1]:=fo[1];
hs:=close/ref(close,1);
for i=2 to datacount do begin
varb[i]:=varb[i-1]*hs[i];
end;

output:varb;[/code]

[[i] 本帖最后由 tom76 于 2008-3-12 09:36 编辑 [/i]]

谢谢你，好像有点问题，
我给改改公式的要求，大家能否再考虑一下，如下贴

[[i] 本帖最后由 kenning 于 2008-3-12 21:01 编辑 [/i]]

[quote]原帖由 [i]kenning[/i] 于 2008-3-11 20:34 发表 [url=http://bbs.fjfox.com/redirect.php?goto=findpost&pid=379140&ptid=43766][img]http://bbs.fjfox.com/images/common/back.gif[/img][/url]
第一个VARB的值是P，P是参数（先默认等于10，是首日的开盘价）
HS:=CLOSE/REF(CLOSE,1);
VARB 等于上一个VARB*HS
求VARB的指标线 [/quote]

我给改改公式的要求，tom76能否再考虑一下，上面的公式要求：VARB 等于上一个VARB*HS 改一改

指标线为VARB,
本周期的指标线VARB的值等于：CLOSE-上周期VARB 的差再乘以换手率，然后加 上周期VARB

[quote]原帖由 [i]kenning[/i] 于 2008-3-12 20:59 发表 [url=http://bbs.fjfox.com/redirect.php?goto=findpost&pid=379183&ptid=43766][img]http://bbs.fjfox.com/images/common/back.gif[/img][/url]


我给改改公式的要求，tom76能否再考虑一下，上面的公式要求：VARB 等于上一个VARB*HS 改一改

指标线为VARB,
本周期的指标线VARB的值等于：CLOSE-上周期VARB 的差再乘以换手率，然后加 上周期VARB [/quote][code]hs:=vol/capital*100; //换手率?
hs:=close/ref(close,1);
fo:=open;varb:=0;fc:=close;
idx:=2;
varb[idx-1]:=0;

for i=idx to datacount do begin
prev:=varb[i-1];
varb[i]:=(fc[i]-prev)*hs[i]+prev;
end;[/code]上面的代码可以用，但不全对
很抱歉~
偶把close/ref(close,1)代用为换手率，如果以vol/capital*100取值，
公式就无法正确输出了，似乎是capital（输出常数）这个函数的关系，
也许公式团的高手可以帮忙看看