求助我是用金之塔的  能帮我改个TB 的程序我试下吗  下面是简单策略 多空分离 2套的策略  简单的价格上穿120日线开多 固定止损1% 下穿平仓   最好能也设置开仓播报语音功能

多策略：

VARIABLE:DCB=0;

VARIABLE:KCB=0;

MA1:MA(CLOSE,120);

C1S: =CALLSTOCK('',vtCLOSE,6,-1);

pVal: =C1S*0.01;

//开多

IF (HOLDING=0) AND C>MA1  THEN BEGIN //开仓

  BUY(1,1,MARKETR,C);

   DCB:=CLOSE;    //初始多单价

   SPEAK(1,'PTA，5分钟开多');

EXPLAIN(1,'PTA，5分钟开多',COLORMAGENTA);

END

//固定止损

IF HOLDING>0  AND (DCB-LOW)>=pVal THEN BEGIN    //初始多单止损条件

初始多单止损:SELL(1,0,MARKETR,C);

   DCB:=0;

   SPEAK(1,'PTA，5分钟多单固定止损');

EXPLAIN(1,'PTA，5分钟多单固定止损',COLORMAGENTA);

END

//总止损

IF  HOLDING > 0  AND C<MA1 AND C-DCB>=pVal THEN BEGIN

  多平1:SELL (1,0,MARKETR);//平仓  

   DCB:=0;

    SPEAK(1,'PTA，5分钟多单破线');

EXPLAIN(1,'PTA，5分钟多单破线',COLORMAGENTA);

END

空策略

VARIABLE:DCB=0;

VARIABLE:KCB=0;

MA1:MA(CLOSE,120);

C1S: =CALLSTOCK('',vtCLOSE,6,-1);

pVal: =C1S*0.01;

IF (HOLDING=0) AND C<MA1   THEN BEGIN //开仓

  BUYSHORT(1,1,MARKETR,C);

  KCB:=CLOSE;  

   SPEAK(1,'PTA，5分钟开空');

EXPLAIN(1,'PTA，5分钟开空',COLORMAGENTA);  

END

//固定止损

IF HOLDING<0  AND (HIGH-KCB)>=pVal THEN BEGIN    

初始空单止损:SELLSHORT(1,0,MARKETR,C);

   KCB:=0;

   SPEAK(1,'PTA，5分钟空单固定止损');

EXPLAIN(1,'PTA，5分钟空单固定止损',COLORMAGENTA);

END

//总止损

IF  HOLDING < 0  AND C>MA1 AND KCB-C>=pVal THEN BEGIN

  空平1:SELLSHORT (1,0,MARKETR);//平仓  

   KCB:=0;

   SPEAK(1,'PTA，5分钟空单破线');

EXPLAIN(1,'PTA，5分钟空单破线',COLORMAGENTA);

END