VARIABLE:dayCount=1,PositionCount=1,SellSign=0;
VARIABLE:EntAndExitSign=1,EntPoint=0,ExitPoint=0;
VARIABLE:N=0;

MA1:MA(C,3);
MA3:MA(C,15);

M:=MA(TR,25);
BUYHHV:=HHV(H,25);
SELLLLV:=LLV(L,15);

ss:n,linethick0;

IF BARPOS>=25 THEN BEGIN
IF BARPOS=25 THEN
N:=M;
IF DayCount=6 OR BARPOS=25THEN BEGIN
N:=(19*N+TR)/25;
DayCount:=2;
END
DayCount:=DayCount+1;
EntPoint:=ENTERBARS+1;
IF EntPoint=EntAndExitSign THEN BEGIN

PositionCount:=PositionCount+1;
SellSign:=True;

END
IF PositionCount=1 THEN BEGIN
HOW:=CASH(0)*0.01/N;
开1:BUY(H>=BUYHHV,HOW,MARKET);
END
IF PositionCount=2 THEN BEGIN
HOW:=CASH(0)*0.01/N;
开2:BUY(H>=ENTERPRICE+0.5*N,HOW,MARKET);
END
IF PositionCount=3 THEN BEGIN
HOW:=CASH(0)*0.01/N;
开3:BUY(H>=ENTERPRICE+0.5*N,HOW,MARKET);
END
IF PositionCount=4 THEN BEGIN
HOW:=CASH(0)*0.01/N;
开4:BUY(H>=ENTERPRICE+0.5*N,HOW,MARKET);
END
IF SellSign=True THEN BEGIN
    ExitPoint:=EXITBARS+1;
    IF ExitPoint=EntAndExitSign THEN BEGIN  
       PositionCount:=1;
       SellSign:=False;
    END
    IF ENTERPRICE-2*N then SELL(L<=SELLLLV,100%,MARKET); 
    ELSE
    SELL(L<=ENTERPRICE-2*N,100%,MARKET); 
    END
END;

http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=246&skin=0

请参考该帖

老师麻烦修改为不管在什么周期都可以使用的谢谢