牛市区白T进，紫T出；熊市区白低吸，紫清出。
经测试，指标紫色信号含未来函数，信号会漂移，可根据红色波段做为信号补充。
熊市区:MA((2*L+C)/3,20),COLORGREEN,NODRAW;
牛市区:MA((H+2*C)/3,20),COLORRED,NODRAW;
买入:=CROSS(C,牛市区);
STICKLINE(C>熊市区 AND C<O,O,H,0,1),COLORRED;
STICKLINE(C>熊市区 AND C<O,C,L,0,1),COLORRED;
卖出:=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<REF(M36,1);
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);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
VARH:=(C+L+H)/3;
VARL:=EMA(VARH,6);
VARG:=EMA(VARL,5);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
AA:=SMA(VARF,3,1);
VAR1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VAR2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VAR1,H,L,3,0),COLORMAGENTA,LINETHICK6;{高位品绿色}
STICKLINE(VAR1,H,L,3,0),COLORMAGENTA,LINETHICK6;{高位品绿色}
STICKLINE(VAR1,H,L,3,0),COLORMAGENTA,LINETHICK6;{高位品绿色}
STICKLINE(VAR2,H,L,3,0),COLORWHITE,LINETHICK5;{底位白色}
STICKLINE(VAR2,H,L,3,0),COLORWHITE,LINETHICK5;{底位白色};
