M1:=102; M2:=7; N:=120;
AAA:=MA((2*CLOSE+HIGH+LOW)/4,5);
 通道1:AAA*M1/100;
 通道2:AAA*(200-M1)/100;
 CCC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
 DDD:=DMA(CLOSE,CCC);
 通道3:(1+M2/100)*DDD;
 通道4:(1-M2/100)*DDD;
 {BBI}
 漲:IF(MA(BBI,1)>REF(MA(BBI,1),1),MA(BBI,1),DRAWNULL),COLORRED,LINETHICK2;
 平:IF(MA(BBI,1)=REF(MA(BBI,1),1),MA(BBI,1),DRAWNULL),COLOR00FFFF,LINETHICK3;
 跌:IF(MA(BBI,1)<REF(MA(BBI,1),1),MA(BBI,1),DRAWNULL),COLORGREEN,LINETHICK2;

 

K:=BARSLAST(CURRBARSCOUNT=N);
 GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));
 DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));
 KJ:=GD-DD;
 GD4:=IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL);
 平衡:IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
壓力:IF(CURRBARSCOUNT<=N,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
支撐:IF(CURRBARSCOUNT<=N,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
 高:IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLOR00FFFF,POINTDOT;
 低:IF(CURRBARSCOUNT<=N,DD,DRAWNULL),COLOR00FF00,POINTDOT;
 低漲:IF(CURRBARSCOUNT<=N, (C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;
 天數(shù):BARSLAST(L=DD),COLORCYAN,NODRAW;
 MCST:DMA((AMOUNT/(VOL*100)),VOL/CAPITAL),COLORWHITE,POINTDOT,LINETHICK4;
 {以下設(shè)置主圖顯示方式}
 STICKLINE(CURRBARSCOUNT=N,GD,DD,0,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=N/2,GD,DD,0,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT<=N,平衡,平衡,3,-1),COLORWHITE;
 STICKLINE(CURRBARSCOUNT<=N/2,壓力,壓力,3,-1),COLORRED;
 STICKLINE(CURRBARSCOUNT<=N/2,支撐,支撐,3,-1),COLORGREEN;
 {彩色K線}
 TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
 TYX4:=MA((C+L+O+H)/4,13);
 TYX5:=EMA((C+L+O+H)/4,21);
 {空心紅}
 STICKLINE(C<TYX5 AND C>O,H,L,0,0),COLORRED;
 STICKLINE(C<TYX5 AND C>O,C,O,3,1),COLORRED;
 {深綠}
 STICKLINE(C<TYX5 AND C<O,H,L,0,0),COLOR007700;
 STICKLINE(C<TYX5 AND C<O,C,O,3,0),COLOR005500;
 STICKLINE(C<TYX5 AND C<O,C,O,2,0),COLOR006600;
 STICKLINE(C<TYX5 AND C<O,C,O,1,0),COLOR007700;
 {藍(lán)}
 STICKLINE(C>TYX5 AND C<O,H,L,0,0),COLORFFDD44;
 STICKLINE(C>TYX5 AND C<O,C,O,3,0 ),COLORFF7700;
 STICKLINE(C>TYX5 AND C<O,C,O,2,0 ),COLORFFAA22;
 STICKLINE(C>TYX5 AND C<O,C,O,1 ,0 ),COLORFFDD44;
 {黃}
 STICKLINE(C>TYX5 AND C>O,H,L,0,0 ),COLOR00EEFF;
 STICKLINE(C>TYX5 AND C>O,C,O,3,0 ),COLOR00AAFF;
 STICKLINE(C>TYX5 AND C>O,C,O,2,0 ),COLOR00CCFF;
 STICKLINE(C>TYX5 AND C>O,C,O,1,0 ),COLOR00EEFF;
 {粉紅}
 STICKLINE(C>TYX4 AND C>O,H,L,0,0),COLORFF66AA;
 STICKLINE(C>TYX4 AND C>O,C,O,3,0 ),COLORFF11FF;
 STICKLINE(C>TYX4 AND C>O,C,O,2,0 ),COLORFF44FF;
 STICKLINE(C>TYX4 AND C>O,C,O,1,0 ),COLORFF66FF;
 {亮灰}
 STICKLINE(C>TYX4 AND C<O,H,L,0,0),COLOR999999;
 STICKLINE(C>TYX4 AND C<O,C,O,3,0),COLOR555555;
 STICKLINE(C>TYX4 AND C<O,C,O,2,0),COLOR777777;
 STICKLINE(C>TYX4 AND C<O,C,O,1,0),COLOR999999;
 {深紅}
 STICKLINE(C>TYX3 AND C>O,H,L,0,0),COLOR0000DD;
 STICKLINE(C>TYX3 AND C>O,C,O,3,0),COLOR000099;
 STICKLINE(C>TYX3 AND C>O,C,O,2,0),COLOR0000BB;
 STICKLINE(C>TYX3 AND C>O,C,O,1,0),COLOR0000DD;
 {漲跌停K線}
 STICKLINE((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,1,0),COLORYELLOW;
 STICKLINE((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,1,0),COLORWHITE;
 {突破}
 STICKLINE(REF(COUNT(C<TYX3,5)=5,1) AND C>TYX3 AND C>O,C,O,1,0),COLOR00CCFF;