主题：[求助]金字塔如何用自编循环实现乘积函数功能

看了半天不知道你的描述是什么，可否把思路理清楚了，描述清楚后别人才好给你解答

你的意思主要是想实现SUM的功能，只不过不是相加而是相乘是吧？

//序列模式下

runmode:1;
a:=barpos;
b:=1;
for i=1 to UBOUND(a) do
b:= b * a[i];
cc:b;

 

由于乘积的数字巨大，最后是没法显示结果的，早就计算溢出，建议整个计算过程在F8的单步跟踪上看看效果

看来你是在逐K线模式下跑的，给你个例子

 

runmode:0;
a:=barpos;
n:=4; //计算4周期的乘积
b:=1;

if barpos >= n then
BEGIN
for i=barpos downto barpos-n+1 do
b:= b * a[i]; //计算序列变量A最近4周期的乘积
cc:b;
end;

 

在逐K线模式，连FOR都不用去用

 

runmode:0;

VARIABLE:b=1;
a:=ref(c,1);

if barpos >= 2 then
BEGIN
b:= b * (c / a);
end;

cc:b; //得到乘积结果