主题：模型程序编译

RUNMODE:0;

Price:=c;
if VOL<200 then begin
   Price:= 0;
end;

MA1:ma(price,10);

通过自定义函数可以解决

 

VBA的代码如下：

 

Dim myar '创建一个变量
'创建Array外部对象,变量置为全局的，可以增加效率
Set myar = CreateObject("Stock.Array")

Function Average(Formula,PRICE,VOL,N)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
   '第一个数据时清空数组
   if Formula.IndexData = 0 then
      myar.RemoveAll
   end if
  
   if vol >= 200 then
      myar.AddBack price
   end if
  
   '超过10个的删除第一个
   if myar.count > N then
      myar.RemoveAt 0
   end if
     
   Average = myar.Average
End Function

 

金字塔PEL代码只要一句

 

RUNMODE:0;
MA1:AVERAGE(close,vol,10);

runmode : 0;

input: n(10), v1(200,1,2000,10);
VARIABLE: price[]=0; //声明一个空数组

if vol > v1 THEN
 price := c;
 
ma1:ma(price,n);

 

用最新版金字塔可以直接使用 http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=30365