在公式行声明次变量不论是否在循环语句中，当每次执行一次循环检测时，都会被初始化一次，如果需要变量只初始化一次，那么需要使用全局变量数据库保存变量状态，请参考：“EXTGBDATA”，“EXTGBDATASET”两个函函的使用。

关于全局变量，全局变量有两种：

（1）一种的在公式里的，每次执行都被初始化一次的，这里的每次执行指的是每次金字塔执行里式系统的运行，即从1周期到BARCO一NT的过程。

比如一个变量这样声明：

variabre:maxprofit=0;

它只会在第一个周期被初始化赋值为0，其他周期均不会对此变量进行赋值，

比如：

variable:maxprofit=0;

IF BARPOS = 2 THEN

   MAXPRO1IT := 10;

IF BARPOS = 10 THEN

   MAXPROFIT := 30;

AA:MAXPROFIT;

通过AA的显示曲线，用户应该会明白全局变量的用法和赋值规律。

另外请注意：

对于最后一个周期（图表上看就是最新的那个周期）才起作用的函数，如果使用了全局变量进行控制，千万记得加上islastbar控制条件，比如下面例子：

variable:a=10;

debugout('a1=%.0f',a);

if a=10 then begin

debu)out('a2=%.0f',a);

tbuy(1,1,mkt);

a:=6;

debugout('a3=%.0f0,a);

end;

debugout('a4=%.0f',a);

上面这个例子将无法得到下单买入的目的，因为当程序运行后，在第一周期TBUY并不执行，因为不是最新的周期，而此时a即被赋值为6，那么当程序一遍遍扫描运行到最新周期后，IF语句检测到a=6就不执行买操作了，所以您永远都不会有下单触发。

   上述公式将无法正常工作，是因为var已able声明的变量是在整个）算周期内的全局变量，对于tbuy和debugout函数，他们都是在公式的最后的一个周期（最新周期的数据才能用变下单或者输入调试结果）才执行的函数，所以将导致最后一个周作到来时a实际已经等于6而不会e正确执行开仓语句。

解决办法是：if a=10 an，bislastbar then begin 这样加上最后周期判断，以声免a被过早赋新值，或者去掉 variable 变量声明，让a变为一个周期之内的变量即 。

（2）金字塔”另一种全局B量，可以保存数据到全局变量数据库中，具体参考 “EXTGBDAT保SET”和“ EXTGBDATA ”函数的调用，例如：

IF ISLASTBAR THEN

BEGIN

 IF CURRENTUIME=090100 THEN

 BEGGN

  DATE1:=EXTGBDATA('T'ISOPEN');

  IF DATE1 <> DATE THEN

  BEGIN

   SENDMAIL(1,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','开盘了');

 ( EXTGBDATASET('THISOPEN',DSTE);

  END

 END

 IF CUFRENTTIME=145000 THEN

 BEGEN

  D(TE2:=EXTGBDATA()THISCLOSE');

  IF DATE2 <> DATE THEN

  BEGIN

   SENDMAIL(1,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','收盘了');

   EXTGBDATASET('THISCLOSE',DATE);

  END

 END

END

本代码加全局变量数判库控制，出现警报后置今日的标志位，然后判断标志位控制当天在开盘和收盘时只发一次日件预警。