//声明参数
INPUT:N1(1,1,1000,2);
INPUT:N2(2,1,1000,4);
INPUT:KC(1,1,20,1);
INPUT:PC(1,1,20,1);
INPUT:DFY(1,0,20,1);
INPUT:KFY(1,0,20,1);
//准备需要计算的变量
A1:EMA(C,N1);
A2:EMA(C,N2);
//计算变量
COND1:=CROSS(A1,A2);
COND2:=CROSS(A2,A1);
//仓位管理
//平空反手开多
IF COND1 THEN BEGIN
SELLSHORT(1,PC,MARKET),ORDERQUEUE;
BUY(1,KC,MARKET),ORDERQUEUE; END
//平多反手开空
IF COND2 THEN BEGIN
SELL(1,PC,MARKET),ORDERQUEUE;
BUYSHORT(1,KC,MARKET),ORDERQUEUE;END
//邮件发送
SENDMAIL(REF(COND1,1),'hezongfei@sina.cn;726765156@qq.com','报警','大阳线'); //K线走完模式所以条件是REF(COND1,1)
SENDMAIL(REF(COND2,1),'hezongfei@sina.cn;726765156@qq.com','报警','大阴线'); //K线走完模式所以条件是REF(COND1 ,1)
// DEBUGFILE('D:\TEST.TXT','发送邮件',568);
加好友 
发短信
Post By：2013/8/14 11:06:10 [显示全部帖子]
