压力支撑，增加背景红进绿出和解盘功能 通达信主图，源码分享

跟通常的支撑压力公式相比，增加背景红进绿出和解盘功能

出现绿色背景柱就出来 出现红色背景柱就观察买进

{压力支撑}

买线:=EMA(C,1);

卖线:=EMA(SLOPE(C,10)*10+C,20);

STICKLINE(买线>=卖线,REFDATE(HHV(H,0),DATE),REFDATE(LLV(L,0),DATE),6,0),COLOR3333CC;

STICKLINE(买线<卖线,REFDATE(HHV(H,0),DATE),REFDATE(LLV(L,0),DATE),6,0),COLOR008B00;

DRAWKLINE(H,O,L,C);{波段淡红青K线}

STICKLINE(买线>=卖线,C,O,3,0),COLOR000045;

STICKLINE(买线>=卖线,C,O,2,0),COLOR000085;

STICKLINE(买线>=卖线,C,O,1,0),COLOR0000C5;

STICKLINE(买线>=卖线,C,O,0.3,0),COLOR0000E5;

STICKLINE(买线>=卖线,L,H,0,0),COLOR0000FF;

STICKLINE(买线<卖线,L,H,0,0 ),COLORFFFF00;

STICKLINE(买线<卖线,C,O,3.1,0 ),COLOR000000;

STICKLINE(买线<卖线,C,O,2.1,0 ),COLOR6A6A00;

STICKLINE(买线<卖线,C,O,1.5,0 ),COLORDDDD00;

STICKLINE(买线<卖线,C,O,0.3,0),COLORFFFF00;

DRAWICON(CROSS(买线,卖线),L,42);

DRAWICON(CROSS(卖线,买线),H,43);

XG1:=C/REF(C,1)>1.05;

STICKLINE(XG1,L,H,0,0),COLOR0088EE;

STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR000000;

STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR0088DD;

STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR00AAFF;

STICKLINE(XG1,CLOSE,OPEN,0.3,0),COLOR00FFFF;

均价:=(3*C+H+L+O)/6;

VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+

4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;

VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;

SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)

AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;

SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;

SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)

AND CLOSE>VAR2 AND CLOSE<VAR1;

SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1)

AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1)

AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);

SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;

XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1)

AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);

XD2:=VAR1=VAR2 AND CLOSE>VAR1;

SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));

量能饱和度:=IF(SAT>1,1,SAT)*100;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ1,0.8,0.05,0,'调整结束短线介入'),COLORFFFFFF;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ2,0.8,0.05,0,'上升通道走势良好'),COLORFFFFFF;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ3,0.8,0.05,0,'股价偏离注意调整'),COLORFFFFFF;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ4,0.8,0.05,0,'上升通道调整洗盘'),COLORFFFFFF;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ5,0.8,0.05,0,'转向特征注意离场'),COLOR00FFFF;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ6,0.8,0.05,0,'通道改变坚决离场'),COLORFFFF00;

DRAWTEXT_FIX(BARSTATUS=2 AND XD1,0.8,0.05,0,'下跌通道只宜观望'),COLORFFFF00;

DRAWTEXT_FIX(BARSTATUS=2 AND XD2,0.8,0.05,0,'短期底部准备进入'),COLORYELLOW;

RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;

K24:=SMA(RSV24,3,1);

D24:=SMA(K24,3,1);

J24:=3*K24-2*D24;

压力位:IF(CROSS(J24,J),H,REF(H,BARSLAST(CROSS(J24,J)))),DOTLINE,COLORRED;

支撑位:IF(CROSS(J,J24),L,REF(L,BARSLAST(CROSS(J,J24)))),DOTLINE,COLOR77AAFF;

HH:=CONST(HHV(C,0));

LL:=CONST(LLV(C,0));

HL:=HH-LL;

顶:HH,NODRAW;

DRAWICON(C=HH,HH,45);

DRAWICON(C=LL,LL,44);

{前期机构:=STRCAT(STRCAT('前期 机构(家): ',CON2STR(FINONE(246,0,331),0)),STRCAT(' 持股数(股): ',CON2STR(FINONE(247,0,331),0)));

本期机构:=STRCAT(STRCAT('本期 机构(家): ',CON2STR(FINONE(246,0,0),0)),STRCAT(' 持股数(股): ',CON2STR(FINONE(247,0,0),0)));

DRAWTEXT_FIX(ISLASTBAR,0,0,0,前期机构),COLORFFFFFF;

DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,本期机构),COLORFFFFFF;

前期股东:=STRCAT('前期 十大流东股东持股 合计 : ',CON2STR(FINONE(264,0,331),0));

本期股东:=STRCAT('本期 十大流东股东持股 合计: ',CON2STR(FINONE(264,0,0),0));

DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,前期股东),COLORYELLOW;