老師，能幫忙移植個文華模型嗎　[金字塔]

?

MID:=MA(C,N);//計算中軌??????
TMP:=STD(C,M)*SDEV;//計算標準差
DISPTOP:REF(MID,P)+TMP;//平移BOLL通道上軌
DISPBOTTOM:REF(MID,P)-TMP;//平移BOLL通道下軌
//系統(tǒng)入場

if C>=DISPTOP then begin
?sellshort(HOLDING<0,1,MARKET);
?buy(HOLDING=0,1,MARKET);
end

if C>=DISPTOP then begin
?sell(HOLDING>0,1,MARKET);
?buyshort(HOLDING=0,1,MARKET);
end

if C<0.97*BKPRICE then begin
?sell(HOLDING>0,1,MARKET);
end

if C>1.03*SKPRICE then begin
?sellshort(HOLDING<0,1,MARKET);
end

?

?來源:程序化久久網(wǎng)（ www.tumamayizhan.com ）

?

MID:=MA(C,N);//計算中軌??????
TMP:=STD(C,M)*SDEV;//計算標準差
DISPTOP:REF(MID,P)+TMP;//平移BOLL通道上軌
DISPBOTTOM:REF(MID,P)-TMP;//平移BOLL通道下軌
//系統(tǒng)入場

if C>=DISPTOP then begin
?sellshort(HOLDING<0,1,MARKET);
?buy(HOLDING=0,1,MARKET);
end

if C>=DISPTOP then begin
?sell(HOLDING>0,1,MARKET);
?buyshort(HOLDING=0,1,MARKET);
end

if C<0.97*ENTERPRICE? and HOLDING>0 then begin
?sell(1,1,MARKET);
end

if C>1.03*ENTERPRICE and HOLDING<0 then begin
?sellshort(1,1,MARKET);
end