[MC源码] 显示进出场与止损盈的策略程式码

1. Input:N1(120),N2(3),N3(5),riskratio(0.2),atrlength(14);
   
2. var:top(0),bot(0),mp(0),inicap(1000000),totalamt(0),lots(0),stoploss(0),stopearn(0),exetripoint(0),entrATR(0),trailatr(0),trail(False),closehl(0),initrail(0);
   
3. 
   
4. totalamt =inicap + (netprofit {+ openpositionprofit});
   
5. 
   
6. if AvgTrueRange(atrlength) <> 0 then lots = ((totalamt/100)*riskratio)/(AvgTrueRange(atrlength)*bigpointvalue);
   
7. 
   
8. mp = marketposition;
   
9. 
   
10. top = Highest(high,N1);
    
11. bot = Lowest(low,N1);
    
12. 
    
13. if mp = 0 then begin  //entry model
    
14.   if Close > top[1] then buy("buylong") lots shares next bar at market;
    
15.   if Close < bot[1] then sellshort("sellshort") lots shares next bar at market;
    
16. end;
    
17. 
    
18. if marketposition <> 0 and barssinceentry = 0 then begin
    
19.      entrATR = AvgTrueRange(atrlength);
    
20.      exetripoint = Close;
    
21.      trail = False;
    
22.      if marketposition =1 then
    
23.        value1 = text_new(date,time,low - 100,"entry price:"+numtostr(entryprice,0)+ "Atr:"+numtostr(entrATR,0) + "stoploss:" + NumToStr(entryprice - 3*entratr,0))
    
24.      else if marketposition =-1 then
    
25.        value1 = text_new(date,time,high + 100,"entry price:"+numtostr(entryprice,0)+ "Atr:"+numtostr(entrATR,0) + "stoploss:" + NumToStr(entryprice + 3*entratr,0));
    
26. end;
    
27. 
    
28. //long order
    
29. if marketposition = 1 and barssinceentry > 0 then begin
    
30. 
    
31.    if Close > exetripoint then begin
    
32.       exetripoint = Close;
    
33.       trailatr = AvgTrueRange(atrlength);
    
34.     end;
    
35.             
    
36.    if exetripoint > entryprice + 2*entrATR then begin //tril start
    
37.       value2 = text_new(date,time,high + 30,"top:"+numtostr(exetripoint,0)+"Atr:"+numtostr(trailatr,0)+"stopearn:"+NumToStr(exetripoint - N3*trailatr,0));  
    
38.       value3 = tl_new(date[1],time[1],exetripoint[1],date,time,exetripoint);
    
39.    end;
    
40.    
    
41.    sell("L-stopearn") all shares next bar at exetripoint - N3*trailatr stop;
    
42.    sell("L-stoploss") all shares next bar at entryprice - N2*entratr stop;  
    
43. end;  
    
44. 
    
45. //short order
    
46. if marketposition = -1 and barssinceentry> 0 then begin
    
47. 
    
48.   if Close < exetripoint then begin
    
49.      exetripoint = Close;
    
50.      trailatr = AvgTrueRange(atrlength);
    
51.   end;
    
52.      
    
53.    if exetripoint < entryprice - 2*entrATR then begin
    
54.        value2 = text_new(date,time,low - 30,"bot:"+numtostr(exetripoint,0)+"Atr:"+numtostr(trailatr,0)+"stopearn:"+NumToStr(exetripoint + N3*trailatr,0));  
    
55.        value3 = tl_new(date[1],time[1],exetripoint[1],date,time,exetripoint);
    
56.    end;
    
57. 
    
58.   buytocover("S-stopearn") all shares next bar at exetripoint + N3*trailatr stop;
    
59.   buytocover("S-stoploss") all shares next bar at entryprice + N2*entratr stop;
    
60. end;

复制代码