求助 實(shí)現(xiàn)編程　[金字塔]

具體計(jì)算方法在附件里  請(qǐng)老師幫忙編個(gè)程序

INPUT:N(22,1,100,1),M(2.58,1,100);//兩個(gè)參數(shù)可以自行修改
M09:=CALLSTOCK('DQM09',VTCLOSE);//豆粕
Y09:=CALLSTOCK('DQY09',VTCLOSE);//豆油

L1:=Y09/M09;
L2:=MA(L1,N)+M*STD(L1,N);
L3:=MA(L1,N)-M*STD(L1,N);

IF CROSS(L2,L1) THEN BEGIN
 TBUY(TBUYHOLDINGEX('','DQM09',0)=0,3,MKT,0,0,'','DQM09');
 TBUYSHORT(TSELLHOLDINGEX('','DQY09',0)=0,1,MKT,0,0,'','DQY09');
END

IF CROSS(L3,L1) THEN BEGIN
 TSELL(TBUYHOLDINGEX('','DQM09',0)>0,3,MKT,0,0,'','DQM09');
 TSELLSHORT(TSELLHOLDINGEX('','DQY09',0)>0,1,MKT,0,0,'','DQY09');
END

IF CROSS(L1,L2) THEN BEGIN
 TBUY(TBUYHOLDINGEX('','DQY09',0)=0,1,MKT,0,0,'','DQY09');
 TBUYSHORT(TSELLHOLDINGEX('','DQM09',0)=0,3,MKT,0,0,'','DQM09');
END

IF CROSS(L1,L3) THEN BEGIN
 TSELL(TBUYHOLDINGEX('','DQY09',0)>0,1,MKT,0,0,'','DQY09');
 TBUYSHORT(TSELLHOLDINGEX('','DQM09',0)>0,3,MKT,0,0,'','DQM09');
END