以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  这个哪里错了。  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=80829)

--  作者:qq代人发帖
--  发布时间:2015/7/13 8:42:55
--  这个哪里错了。
//中间变量
A:=VALUEWHEN(todaybar=1,high);
B:=VALUEWHEN(todaybar=1,low);
TDZS:=50;
GDZS:=30;
ZH1:\'1000\';
PZ1:\'IF00\';
//交易条件
开多条件:= CROSS(c,a)
开空条件:= CROSS(c,b)
 //交易系统
   TBUY(开多条件,1,LMT,CLOSE,0,ZH1,PZ1);
   TBUYSHORT (开空条件,1,LMT,CLOSE,0,ZH1,PZ1);
  //固定止损条件判断
  ZSCOND:TAVGENTERPRICEEX2(ZH1 ,PZ1 ,0)-DYNAINFO(  7)>=GDZS*MINDIFF;
  TSELL(ZSCOND,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ1);
  //将A赋值为1,表示当前有持仓
  IF TBUYHOLDINGEX( \'\',\'\' ,0 )>0 AND EXTGBDATA(\'a\' )=0 THEN BEGIN
  EXTGBDATASET( \'a\',1 );
  END
 
  //使A始终表示监控开始后的最高价
  IF DYNAINFO(  7)>EXTGBDATA(\'a\' ) and EXTGBDATA(\'a\' )>0 THEN BEGIN
  EXTGBDATASET( \'a\',DYNAINFO(  7));
  END
 
  //发现价格回落止损,并将A赋值为0表示移动止损动作完成
  IF EXTGBDATA(\'a\' )-DYNAINFO(  7)>zs*MINDIFF and EXTGBDATA(\'a\' )>0 THEN BEGIN
  TSELL(1,1,MKT );
  EXTGBDATASET( \'a\',0);
  END

--  作者:jinzhe
--  发布时间:2015/7/13 9:06:30
--  
这个是要实现什么目的?错在没有实现目的还是其他?