主题：模型程序编译

为什么编译出来的结果是取值在0附近啊？

通过自定义函数可以解决

 

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);

v0:=callstock(stklabel,vtvol,DATATYPE);
nn:=barslast(v0>20);
v200:if(v0>20,c,ref(c,nn));
ma10:ma(v200,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