金字塔2.934测试版发布,欢迎大家积极下载测试 - 金字塔软件问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

范例3：

想达到的效果是：计算每一笔成交量大于200的成交价的10（个单位）的平均值。

意思如下：Input:N(10),V1(200); 定义参数，10和成交量200.

variables:Price(0),MA1(0); 定义变量，价格和平均价。

if Ticks>=V1 then begin

Price=Close;
end; 表示条件当成交量>=200时，取收盘价为变量中的价格。

MA1=Average(price,N); 表示变量的含义，即求价格的10日平均值。

plot1(MA1,"MA"); 表示画线函数。把这个结果用线表示出来。

以上是MC的代码，在旧版金字塔中只能通过VBA自定义函数来协助解决

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

[此贴子已经被作者于2012-11-3 23:55:11编辑过]

主题：金字塔2.934测试版发布,欢迎大家积极下载测试