幫忙寫個簡單程序　[金字塔]

?

?來源: www.tumamayizhan.com

ma60:ma(close,60);

//下單條件
COND1:=CROSS(close,MA60);
COND2:=CROSS(MA60,close);

if cond1=1 then BEGIN
	SELLSHORT(HOLDING<0,1,MARKET);
	BUY(HOLDING=0,1,MARKET);
END

if cond2=1 then BEGIN
	SELL(HOLDING>0,1,MARKET);
	BUYSHORT(HOLDING=0,1,MARKET);
END

//多頭固定止盈空頭固定止損
dyks:=(ENTERPRICE-CLOSE)/MINDIFF>10;

//空頭固定止盈多頭固定止損
kyds:=(CLOSE-ENTERPRICE)/MINDIFF>10;


if dyks=1 then BEGIN
	SELL(HOLDING>0,HOLDING,MARKET);
	SELLSHORT(HOLDING<0,HOLDING,MARKET);
END

if kyds=1 then BEGIN
	SELL(HOLDING>0,HOLDING,MARKET);
	SELLSHORT(HOLDING<0,HOLDING,MARKET);
END

//移動止損
//求出持倉以來的最高價或最低價，通過與當(dāng)前價做比較，判斷資金回落的幅度
DTYDZS:=(HHV(H,ENTERBARS)-CLOSE)/MINDIFF>30;
KTYDZS:=(CLOSE-LLV(L,ENTERBARS))/MINDIFF>30;
SELL(DTYDZS,0,MARKET);
SELLSHORT(KTYDZS,0,MARKET);