四区K线 通达信 （源码、主图、贴图）

理想四区K线源码：
A:=EMA(C,2);
B:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(A>=B,REFDATE(HHV(H,100),DATE),H*1.01,5,0),COLOR000055;
STICKLINE(A<B,REFDATE(HHV(H,100),DATE),H*1.01,5,0),COLOR663300;
突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
基准:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1));
STICKLINE(A1X>=0,基准,突破,5,0),COLOR000099;
STICKLINE(A1X<0,基准,突破,5,0),COLOR00CC66;
AA:=CROSS(A1X,0),LINETHICK0;
BB:=CROSS(0,A1X),LINETHICK0;
N1:=60;
K:=BARSLAST(CURRBARSCOUNT=N1);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));
DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));
KJ:=GD-DD;
平衡:=IF(CURRBARSCOUNT<=N1,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;
压力:=IF(CURRBARSCOUNT<=N1,GD-KJ*0.191,DRAWNULL),COLORFF00FF,NODRAW;
支撑:=IF(CURRBARSCOUNT<=N1,DD+KJ*0.191,DRAWNULL),COLOR00FF00,NODRAW;
STICKLINE(CURRBARSCOUNT=N1,GD,DD,0,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=N1/2,GD,DD,0,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=1,GD,DD,0,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT<=N1,平衡,平衡,3,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT<=N1/2,压力,压力,3,-1),COLORRED;
STICKLINE(CURRBARSCOUNT<=N1/2,支撑,支撑,3,-1),COLORGREEN;
DRAWKLINE(H,O,L,C);
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR9:=MA(TR1,22);
止损线: HHV(H-3*ATR9,22),COLORWHITE,DOTLINE;
DRAWTEXT(ISLASTBAR,止损线,'止损线'),COLORWHITE;
VAR81:=((((CLOSE * 2) + HIGH) + LOW) / 4);
SK:=(EMA(VAR81,13) - EMA(VAR81,73));
SD:=EMA(SK,2);
DRAWICON(AA,基准*0.98,11);
DRAWICON(BB,基准*1.015,10);
DRAWTEXT(((((CROSS(SK,SD) AND (SK < (0 - 0.04))) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) >= 0.03)) OR (CROSS(SK,SD) AND (SK <= (0 - 0.14)))) OR ((CROSS(SK,SD) AND (SK <= 0.05)) AND (((VOL / MA(VOL,5)) > 2) OR ((CLOSE / REF(CLOSE,1)) > 0.035)))),(LOW * 0.99),'短线'),COLORRED;
STICKLINE(((((CROSS(SK,SD) AND (SK < (0 - 0.04))) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) >= 0.03)) OR (CROSS(SK,SD) AND (SK <= (0 - 0.14)))) OR ((CROSS(SK,SD) AND (SK <= 0.05)) AND (((VOL / MA(VOL,5)) > 2) OR ((CLOSE / REF(CLOSE,1)) > 0.035)))),HIGH,LOW,0.5,0),COLORRED;
STICKLINE(((((CROSS(SK,SD) AND (SK < (0 - 0.04))) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) >= 0.03)) OR (CROSS(SK,SD) AND (SK <= (0 - 0.14)))) OR ((CROSS(SK,SD) AND (SK <= 0.05)) AND (((VOL / MA(VOL,5)) > 2) OR ((CLOSE / REF(CLOSE,1)) > 0.035)))),OPEN,CLOSE,3.5,1),COLORRED,LINETHICK2;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买1:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
卖1:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
DRAWTEXT(FILTER(买1=1,5),LOW*0.99, '▲'),COLORRED;