input:n1(5,1,100,1),n2(20,1,100,1),report(0,0,1,1);
//需要生成报告时，将参数report设为1
variable:rz1=1;
if barpos()=1 then
begin
if report=1 then
debugfile2(\'C:\\Documents and Settings\\Administrator\\桌面\\month.txt\',FORMULANAME()&\' \'&stklabel&\' 月度汇总报告 测试日期:%0.f\',currentdate+19000000,0);
rz1:=asset();
end;

//一个均线交叉的系统作为例子
ma1:=ma(c,n1);
ma2:=ma(c,n2);
t1:=time>=091500 and time<=144500;
t2:=time>=151000;
sell(holding>0 and (ma1<ma2 or t2),1,thisclose);
sellshort(holding<0 and (ma1>ma2 or t2),1,thisclose);
buy(holding=0 and ma1>ma2 and t1,1,thisclose);
buyshort(holding=0 and ma1<ma2 and t1,1,thisclose);

//生成月统计
rz2:=ref(ASSET(),1) ;
rd:=ref(date,1);
 if barpos<>1 and (month<>ref(month,1) or islastbar) then
 begin
 if report=1 then debugfile2(\'C:\\Documents and Settings\\Administrator\\桌面\\month.txt\',numtostr((rd+19000000)/100,0)&\'收益: %0.f \',rz2-rz1,0);
    rz1:=rz2;
 end;