以文本方式查看主题

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

--  作者:drliang680
--  发布时间:2016/3/10 21:41:38
--  后台程序化问题
你好!

刚从图表程序化转向后台程序化,照着金字塔示范程序,试着编了一个简单的后台程序,放入后台,监控窗口没反应,请老师帮忙看看。

ZH1:=\'XXXXXX\';
PZ1:=\'I05\';
PZ2:=\'RU05\';
PZ3:=\'RB05\';
PZ4:=\'CF09\';
PZ5:=\'C09\';
PZ6:=\'NI05\';
VARIABLE:=0;

//条件判断
KD:=XXX;
PD:=XXX;
KK:=XXX;
PK:=XXX;


//开仓和平仓
TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ1 );
TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ1);
TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ1 );
TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ1 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ2 );
TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ2);
TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ2 );
TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ2 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ3 );
TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ3);
TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ3 );
TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ3 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ4 );
TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ4);
TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ4 );
TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ4 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ5);
TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ5);
TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ5 );
TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ5 );

TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ6 );
TSELL(pd,TBUYHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ6);
TBUYSHORT(kk {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ6 );
TSELLSHORT(pk,TSELLHOLDINGEX( ZH1,PZ1 ,0 ),MKT,0,ZH1,PZ6 );

这样同事交易6个品种的简单程序,是否写的对?

谢谢!

--  作者:wenarm
--  发布时间:2016/3/10 22:33:39
--  
你上面的代码整体就是这个结构
ZH1:=\'5\';
PZ1:=\'ag00\';
VARIABLE:=0;//这个位置是想声明全局变量,还是定义普通变量?全局变量定义格式VARIABLE:X=1;普通变量定义,能和系统的关键字重名VARIABLE1:=0
KD:=1;
TBUY(kd ,1,LMT,CLOSE,0,ZH1,PZ1 );

语法上没有错误。使用debug函数调试输出看下你的条件是否成立。
红色部分是用的大括号,代表注释,这个不需要直接删除,影响代码阅读。
TBUY(kd {AND TBUYHOLDINGEX( ZH1,PZ1 ,0 )<10},1,LMT,CLOSE,0,ZH1,PZ1 );