以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  后台运行程序  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=55476)
--  作者：allanhoo
--  发布时间：2013/8/21 11:03:42
--  后台运行程序
VARIABLE:BASE2 = 0;

DEBUGOUT(\'BASE2 = %.2F\',BASE2); 


IF THOLDING2 = 0 THEN
BEGIN
   TBUY(CLOSE>OPEN,1,LMT,CLOSE,0,\'802825\');
   
   TBUYSHORT(OPEN > CLOSE,1,LMT,CLOSE,0,\'802825\');
   BASE2 = CLOSE;  
   DEBUGOUT(\'BASE2 = %.2F\',BASE2); 
 
END

为什么这段程序在后台逐K线运行，总是显示 BASE2 = 0？
--  作者：jinzhe
--  发布时间：2013/8/21 11:11:51
--  

1.后台不要用variable来记录全局变量，要用extgbdataset

2.BASE2 = CLOSE;这句是判断，不是赋值，赋值要加冒号BASE2 := CLOSE;
--  作者：allanhoo
--  发布时间：2013/8/21 11:21:36
--  
DEBUGOUT(\'BASE2 = %.2F\',extgbdata(\'BASE2\')); 


IF THOLDING2 = 0 THEN
BEGIN
   TBUY(CLOSE>OPEN,1,LMT,CLOSE,0,\'802825\');
   
   TBUYSHORT(OPEN > CLOSE,1,LMT,CLOSE,0,\'802825\');
   extgbdataset(\'BASE2\',CLOSE);  
   DEBUGOUT(\'BASE2 = %.2F\',extgbdata(\'BASE2\')); 
 
END

改成这段也一样！
--  作者：jinzhe
--  发布时间：2013/8/21 13:14:08
--  

.2F中的F要小写，照着函数说明中的写，不要乱改