DIFF := EMA(CLOSE,80) - EMA(CLOSE,240);
DEA  := EMA(DIFF,30);
macd_M15:= 2*(DIFF-DEA);

RSV:=(CLOSE-LLV(LOW,120))/(HHV(HIGH,120)-LLV(LOW,120))*100;
K:=SMA(RSV,70,1);
D:=SMA(K,120,1);

MA60：=STKINDI(STKLABEL,\'MA(C,60)\',0,24,4 );

MACD_H4:=stkindi(stklabel,\'MACD(30,6,4)\',0,24,4);

C1：=CALLSTOCK(stklabel,vtclose,24,4);

 MA1：=MA(C,60),COLORRED;

 
T:= ABS(L-MA1)<=12*mindiff;

S:= ABS(MA1-H)<=12*mindiff;

x:=3;//建仓手数
w:=2;
//and MACD8>0
duo:=T  and MACD_H4>0  and macd_m15>0 and k>d   and REF(c1,1)>ma60    and cross(macd1,0) ;//AND  MA60>MA144

kong:=S  and MACD_H4<0  and macd_m15<0 and k<d   and REF(c1,1)<ma60  and cross(0,macd1);//AND MA60<MA144
//and MACD8<0

if duo then tbuy(TBUYHOLDINGEX(\'\',\'fg01\',1)=0,x,MKT);

if duo and C-TENTERPRICE>=w*MINDIFF and TBUYHOLDINGEX(\'\',\'fg01\',1)=x then Tbuy(1=0,x,MKT);

if duo and C-TENTERPRICE>=w*MINDIFF and TBUYHOLDINGEX(\'\',\'fg01\',1)=2*x then Tbuy(1,x,MKT);

if kong then Tbuyshort(TSELLHOLDINGEX(\'\',\'FG01\',1)=0,x,MKT);

if kong  and  TENTERPRICE-C>=w*MINDIFF and abs(TSELLHOLDINGEX(\'\',\'FG01\',1))=x  then  Tbuyshort(1,x,MKT);

if kong  and  TENTERPRICE-C>=w*MINDIFF and abs(TSELLHOLDINGEX(\'\',\'FG01\',1))=2*x then  Tbuyshort(1,x,MKT);

if TOPENPROFIT<=-1000 then begin

Tsell(1,0,MKT);
Tsellshort(1,0,MKT);
end
 
 
 if TOPENPROFIT>=4000 then begin

Tsell(1,0,MKT);
Tsellshort(1,0,MKT);
end
 

 //
 if  MACD_H4<0 or macd_m15<0 OR C1<MA60  and TBUYHOLDINGEX(\'\',\'FG01\',1)>0 then Tsell(1,0,MKT);//平多