-- 作者:FireScript
-- 发布时间:2018/1/30 13:55:37
--
代码样例如下,处理思路按照:
1.开仓按照五日金叉10日均线,平仓条件是五日死叉十日均线
2.止盈止损以持仓均价和最新价的价差计算。
3.添加了简易的debugfile语句,在触发开平仓条件的时候进行了输出。
input:ss1(1,1,100,1),ss2(1,1,100,1);//开平手数,可进行调整。 ma5:ma(c,5);//5日均线 ma10:ma(c,10);//十日均线
buycond:cross(ma5,ma10);//开仓条件 sellcond:cross(ma10,ma5) and TBUYHOLDINGEX( \'\',\'\' ,0 )>0;//当有可用昨持时才平仓
if buycond then begin tbuy(buycond,ss1,mkt); DEBUGFILE(\'D:\\record.txt\',STKLABEL+\':触发开仓\',1) ;//添加了简易的debug语句,将记录输出到了指定目录的文本文件下 end
if sellcond then begin tsell(sellcond,ss2,mkt); DEBUGFILE(\'D:\\record.txt\',STKLABEL+\':触发平仓\',1); end
zycond:DYNAINFO( 7)-TAVGENTERPRICEEX(\'\' ,\'\' )>=20*MINDIFF and TAVGENTERPRICEEX(\'\' ,\'\' )<>0 and TBUYHOLDINGEX( \'\',\'\' ,0 )>0 ;//止盈条件 if ZYCOND then begin TSELL(ZYCOND,TBUYHOLDINGEX( \'\',\'\' ,0 ),MKT,0,\'\',\'\'); DEBUGFILE(\'D:\\record.txt\',STKLABEL+\':触发止盈\',1); end
zscond:TAVGENTERPRICEEX(\'\' ,\'\' )-DYNAINFO( 7)>=10*MINDIFF and TAVGENTERPRICEEX(\'\' ,\'\' )<>0 and TBUYHOLDINGEX( \'\',\'\' ,0 )>0;//止损条件 if zscond then begin TSELL(ZSCOND,TBUYHOLDINGEX( \'\',\'\' ,0 ),MKT,0,\'\',\'\'); DEBUGFILE(\'D:\\record.txt\',STKLABEL+\':触发止损\',1); end
|