請老師幫助改為文化平臺使用，謝謝！

INPUT:LENGTH(20),PREV(4),ENTRYADD(10 POINTS);

VAR:HH(0),LL(0),NEWH(999),NEWL(999),Z(0),LEN(0),CD AYS(0),MP(0),
TSSELL(0),TSBUY(99999),LGO(FALSE),SGO(FALSE),
REBUY(99999),REBUYLIFE(0),RESELL(0),RESELLLIFE(0);
ARRAY:HI[40](0),LO[40](99999);

MP=MARKETPOSITION;

IF DATACOMPRESSION=1 THEN BEGIN

IF CURRENTBAR=1 THEN BEGIN
LEN=MINLIST(LENGTH,39);
IF LEN<1 THEN LEN=1;
END;
if D>D[1] then begin
for value1=LEN downto 1 begin
HI[value1]=HI[value1-1];
LO[value1]=LO[value1-1];
end;
end;
HI[0]=idhigh;
LO[0]=idlow;
IF D>D[1] THEN BEGIN
CDAYS=CDAYS 1;
NEWH=NEWH 1;
NEWL=NEWL 1;
LGO=TRUE;
SGO=TRUE;
REBUYLIFE=REBUYLIFE-1;
RESELLLIFE=RESELLLIFE-1;
HH=HI[LEN];LL=LO[LEN];
FOR Z=1 TO LEN-1 BEGIN
IF HI[Z]>HH THEN HH=HI[Z];
IF LO[Z]<LL THEN LL=LO[Z];
END;
IF HI[1]=HH THEN NEWH=1;
IF LO[1]=LL THEN NEWL=1;
END;

IF H>=TSBUY[1] THEN BEGIN
TSBUY=99999;
REBUY=TSBUY[1];
REBUYLIFE=2;
END;
IF (H>=REBUY[1] AND MP[1]=0) OR REBUYLIFE<=0 THEN BEGIN
REBUY=99999;
REBUYLIFE=0;
END;
IF REBUYLIFE>0 AND MP=0 AND MP[1]=0 THEN Buy("TS-ReBuy") Next Bar REBUY STOP;
IF L<=TSSELL[1] THEN BEGIN
TSSELL=0;
RESELL=TSSELL[1];
RESELLLIFE=2;
END;
IF (L<=RESELL[1] AND MP[1]=0) OR RESELLLIFE<=0 THEN BEGIN
RESELL=0;
RESELLLIFE=0;
END;
IF RESELLLIFE>0 AND MP=0 AND MP[1]=0 THEN Sell Short("TS-ReSell") Next Bar RESELL STOP;

IF CDAYS>LEN THEN BEGIN
IF HH>0 AND NEWH>=PREV AND IDHIGH>HH AND SGO THEN BEGIN
TSSELL=HH-ENTRYADD;
Sell Short("TS-Sell") Next Bar TSSELL STOP;
SGO=FALSE;
END;
IF LL>0 AND NEWL>=PREV AND IDLOW<LL AND LGO THEN BEGIN
TSBUY=LL ENTRYADD;
Buy("TS-Buy") Next Bar TSBUY STOP;
LGO=FALSE;
END;
END;
END;

Sell("Initial LX") Next Bar IDLOW STOP;
Buy to Cover("Initial SX") Next Bar IDHIGH STOP;

以上源碼思路：

   *今天市場創20天以來的新低；

   *前一個20天新低必須出現在至少4個交易日以前；（需要考慮barnumber時的情況）

    *在市場創20天以來新低以后，在前期低點以上5-10點放置停損買入單（當天有效）；

    博主按：這里必明確創新低多少距離才放停損買入單，否則創新低距離很小（比如一個最小波動點）就放置停損單的話，很容易被觸發。

   *如果買入停損成交，馬上放置在當天日低以下放置GTC止損賣單；

   *當頭寸開始獲利，使用追蹤停損Trail保護利潤，其中一些交易可能持續2-3小時，一些可能持續幾天；

    *如果當天或者第二天被止損，你可以在之前入場位置重新設置買入止損單（當天有效），這樣可以小幅增加勝算。

您好！

您模型中MARKETPOSITION、MINLIST、D函數并非系統函數，能否具體說明含義

由于模型中含有FOR循環語句，只能進行部分改寫；另外，請具體說明模型加載的周期。