后台移动止盈的范例

资深技术05

策略可以单独运行，也可以直接复制到现有策略中运行。本策略包含固定的止损，以及可设置阈值的回撤止盈.

注意：1.不支持锁仓情况下运行，如需锁仓运行，需调整代码中的全局变量名称以使得多空分开记录数据。
2.暂停程序运行会导致 程序的数据无法及时有效更新.例如暂停期间行情出现新高或者新低的情况。   

[PEL] 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91

input:移动止盈(60,-1,100,0.1);//设置为负值时候表示不启用 回撤止盈 input:阈值(4,-1,100,0.1);//设置为负值时候表示不启用阈值。这个阈值表示：至少盈利多少（百分比）后才能触发回撤止盈。如果参数设置为负，则表示无论盈利多少，回撤到指定百分比即平仓 input:固定止损(2,1,100,0.1);   //path是日志输出的所在目录 path:='c:\'&formulaname; //超全局变量的字符串 maxp_str:=stklabel&'_'&'max';//用来记录开盘 后最大盈利的价格 不区分多空,仅区分品种 dk_str:=stklabel&'_'&'dk';//用来记录持仓的方向   //移动止损模块部分，单边有效，不支持锁仓模式   //初始写值 if tbuyholdingex( '','' ,1)>0 and extgbdata(dk_str)<=0  then begin extgbdataset(maxp_str,tavgenterpriceex2('','',0)); extgbdataset(dk_str,1); end   if tsellholdingex( '','' ,1)>0 and extgbdata(dk_str)>=0 then begin extgbdataset(maxp_str,tavgenterpriceex2('','',1)); extgbdataset(dk_str,-1); end   //表示监控开始后的最高价 if dynainfo(  7)>extgbdata(maxp_str) and extgbdata(dk_str)>0 and tbuyholdingex( '','' ,1)>0  //多空的方向 then begin extgbdataset(maxp_str,dynainfo(  7)); debugfile(path&stklabel&'.txt',stklabel&'的最高价更新:%.2f',dynainfo(  7)); end   //表示监控开始后的最低价 if dynainfo(  7)<extgbdata(maxp_str) and extgbdata(dk_str)<0 and tsellholdingex( '','' ,1)>0 //多空的方向 then begin extgbdataset(maxp_str,dynainfo(  7)); debugfile(path&stklabel&'.txt',stklabel&'的最低价更新:%.2f',dynainfo(  7)); end   maxp:=extgbdata(maxp_str); 多最大盈利:=maxp-tavgenterpriceex2('','',0);//根据持仓期间最高价计算 空最大盈利:=tavgenterpriceex2('','',1)-maxp;//根据持仓期间最低价计算   //回撤止盈部分   if  移动止盈>0 then begin         if tbuyholdingex( '','' ,1)>0 and ((阈值>0 and maxp>=tavgenterpriceex2('','',0)*(1+(阈值/100))) or 阈值<0)  and (c-tavgenterpriceex2('','',0))<=(1-移动止盈/100)*多最大盈利 then begin debugfile(path&stklabel&'.txt',stklabel&'多回撤止盈',0); debugfile(path&stklabel&'.txt',stklabel&'最新价:%.2f',c); debugfile(path&stklabel&'.txt',stklabel&'持仓均价:%.2f',tavgenterpriceex2('','',0)); debugfile(path&stklabel&'.txt',stklabel&'最大盈利价格:%.2f',maxp); tsell(1,0,mkt),allowrepeat;        extgbdataset(maxp_str,0); extgbdataset(dk_str,0); end   if tsellholdingex( '','' ,1)>0 and ((阈值>0 and maxp<=tavgenterpriceex2('','',1)*(1-(阈值/100))) or 阈值<0) and  (tavgenterpriceex2('','',1)-c)<=(1-移动止盈/100)*空最大盈利 then begin debugfile(path&stklabel&'.txt',stklabel&'空回撤止盈',0); debugfile(path&stklabel&'.txt',stklabel&'最新价:%.2f',c); debugfile(path&stklabel&'.txt',stklabel&'持仓均价:%.2f',tavgenterpriceex2('','',1)); debugfile(path&stklabel&'.txt',stklabel&'最大盈利价格:%.2f',maxp);         tsellshort(1,0,mkt),allowrepeat;                 extgbdataset(maxp_str,0); extgbdataset(dk_str,0); end   end     //固定止损部分   if tbuyholdingex( '','' ,1)>0  and c<=tavgenterpriceex2('','',0)*(1-(固定止损/100)) then begin debugfile(path&stklabel&'.txt',stklabel&'多固定止损',0); debugfile(path&stklabel&'.txt',stklabel&'最新价:%.2f',c); debugfile(path&stklabel&'.txt',stklabel&'持仓均价:%.2f',tavgenterpriceex2('','',0)); tsell(1,0,mkt),allowrepeat;        extgbdataset(maxp_str,0); extgbdataset(dk_str,0); end   if tsellholdingex( '','' ,1)>0 and c>=tavgenterpriceex2('','',1)*(1+(固定止损/100)) then begin debugfile(path&stklabel&'.txt',stklabel&'空固定止损',0); debugfile(path&stklabel&'.txt',stklabel&'最新价:%.2f',c); debugfile(path&stklabel&'.txt',stklabel&'持仓均价:%.2f',tavgenterpriceex2('','',1)); tsellshort(1,0,mkt),allowrepeat;                 extgbdataset(maxp_str,0); extgbdataset(dk_str,0); end