variable全局变量的用法。
最好举例说明一下 谢谢
variable:a=0;
if h>a then a:=h;
记录最高价,把当前h和a对比,如果h比a大,就把h赋值给a
variable:a=0;
if h>a then a:=h;
有了上边的代码,意思就是a永远是最高值是吗????
关于全局变量:
(1)一种是在公式里的,每次执行都被初始化一次的,这里的每次执行指的是每次金字塔执行公式系统的运行,即从1周期到BARCOUNT的过程。
比如一个变量这样声明:
variable:maxprofit=0;
它只会在第一个周期被初始化赋值为0,其他周期均不会对此变量进行赋值,比如:
variable:maxprofit=0;
IF BARPOS = 2 THEN
MAXPROFIT := 10;
IF BARPOS = 10 THEN
MAXPROFIT := 30;
AA:MAXPROFIT;
通过AA的显示曲线,用户应该会明白全局变量的用法和赋值规律。
另外请注意:
对于最后一个周期(图表上看就是最新的那个周期)才起作用的函数,如果使用了全局变量进行控制,千万记得加上islastbar控制条件,比如下面例子:
variable:a=10;
debugout('a1=%.0f',a);
if a=10 then begin
debugout('a2=%.0f',a);
tbuy(1,1,mkt);
a:=6;
debugout('a3=%.0f',a);
end;
debugout('a4=%.0f',a);
上面这个例子将无法得到下单买入的目的,因为当程序运行后,在第一周期TBUY并不执行,因为不是最新的周期,而此时a即被赋值为6,那么当程序一遍遍扫描运行到最新周期后,IF语句检测到a=6就不执行买操作了,所以您永远都不会有下单触发。
上述公式将无法正常工作,是因为variable声明的变量是在整个计算周期内的全局变量,对于tbuy和debugout函数,他们都是在公式的最后的一个周期(最新周期的数据才能用于下单或者输入调试结果)才执行的函数,所以将导致最后一个周期到来时a实际已经等于6而不会去正确执行开仓语句。
解决办法是:if a=10 and islastbar then begin 这样加上最后周期判断,以避免a被过早赋新值,或者去掉 variable 变量声明,让a变为一个周期之内的变量即可。
(2)金字塔的另一种全局变量,可以保存数据到全局变量数据库中,具体参考 “EXTGBDATASET”和“ EXTGBDATA ”函数的调用,例如:
IF ISLASTBAR THEN
BEGIN
IF CURRENTTIME=090100 THEN
BEGIN
DATE1:=EXTGBDATA('THISOPEN');
IF DATE1 <> DATE THEN
BEGIN
SENDMAIL(1,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','开盘了');
EXTGBDATASET('THISOPEN',DATE);
END
END
IF CURRENTTIME=145000 THEN
BEGIN
DATE2:=EXTGBDATA('THISCLOSE');
IF DATE2 <> DATE THEN
BEGIN
SENDMAIL(1,'ABC@SINA.COM;XYZ@WEISTOCK.COM','警报','收盘了');
EXTGBDATASET('THISCLOSE',DATE);
END
END
END
本代码加全局变量数据库控制,出现警报后置今日的标志位,然后判断标志位控制当天在开盘和收盘时只发一次邮件预警。
如何手工设置EXTGBDATA全局变量初始化值
工具-》数据-》全局变量 ,然后手工设置数字初始值,另外,第一次使用的全局变量,系统会自动默认为0。