牛市区白T进，紫T出；熊市区白低吸，紫清出。

 经测试，指标紫色信号含未来函数，信号会漂移，可根据红色波段做为信号补充。
熊市区:MA((2*L+C)/3,20),COLORGREEN,NODRAW;
牛市区:MA((H+2*C)/3,20),COLORRED,NODRAW;

买入:=CROSS(C,牛市区);
STICKLINE(C>熊市区 AND C STICKLINE(C>熊市区 AND C 卖出:=CROSS(熊市区,C);
STICKLINE(C<牛市区 AND C<熊市区 AND C>O,O,C,2.5,1),COLORCYAN;
STICKLINE(C<牛市区 AND C<熊市区 AND C<=O,C,O,3,0),COLORCYAN;
STICKLINE(C<牛市区 AND C<熊市区 AND C<=O,H,L,0,0),COLORCYAN;
STICKLINE(C<牛市区 AND C<熊市区 AND C>O,C,H,0,1),COLORCYAN;
STICKLINE(C<熊市区,牛市区,熊市区,1,0),COLORGREEN;
STICKLINE(C<牛市区 AND C<熊市区 AND C>O,O,L,0,1),COLORGREEN;
STICKLINE(C>牛市区,熊市区,牛市区,1,0),COLORRED;

M36:MA(C,36),COLORGREEN,LINETHICK0;
上扬M36:=M36>=REF(M36,1);
下降M36:=M36 M36上:IF(上扬M36,M36,DRAWNULL),COLORRED,DOTLINE;
M36下:IF(下降M36,M36,DRAWNULL),COLORGREEN,DOTLINE;

DRAWTEXT_FIX(1.0,0.760,0.06,0,'牛市区白T进，紫T出；熊市区白低吸，紫清出')COLORWHITE;

VAR27:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-VAR27,0),5,1)/SMA(ABS(CLOSE-VAR27),6,1)*100;
VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);