以下内容为程序代码:

1 runmode:0;
2
3 input:debug(1,0,1,1);
4
5 pathfile:=\'c:\\tradelog.csv\';
6
7 enterhour:=ref(hour,enterbars);
8 enterminute:=ref(minute,enterbars);
9
10 commission:=selfdata(\'commission\');
11
12 if holding＞0 then begin
13     lots:=holding;
14     
15     if debug=1 then begin
16         debugcontent:=numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\',\'+stkname+\',\'+
17                     numtostr(enterhour,0)+\':\'+numtostr(enterminute,0)+\',\'+numtostr(enterprice,0)+\',Buy,\'+
18                     numtostr(hour,0)+\':\'+numtostr(minute,0)+\',\'+numtostr(exitprice,0)+\',\'+
19                     numtostr(exitprice-enterprice,0)+\',\'+numtostr(2*commission,0)+\',\'+numtostr(lots,0)+\',\'+
20                     numtostr(numprofit(1),0)+\',\'+numtostr(asset,2);    
21         debugfile2(pathfile,debugcontent,0,0);                
22     end
23 end
24
25 if holding＜0 then begin
26     lots:=holding;
27     if debug=1 then begin
28         debugstring:=numtostr(year,0)+\'-\'+numtostr(month,0)+\'-\'+numtostr(day,0)+\',\'+stkname+\',\'+
29                     numtostr(enterhour,0)+\':\'+numtostr(enterminute,0)+\',\'+numtostr(enterprice,0)+\',Sell,\'+
30                     numtostr(hour,0)+\':\'+numtostr(minute,0)+\',\'+numtostr(exitprice,0)+\',\'+
31                     numtostr(enterprice-exitprice,0)+\',\'+numtostr(2*commission,0)+\',\'+numtostr(lots,0)+\',\'+
32                     numtostr(numprofit(1),0)+\',\'+numtostr(asset,2);    
33         debugfile2(pathfile,debugcontent,0,0);                
34     end
35 end