通达信 压力点（源码主图贴图）

以下是通达信 压力点（源码主图贴图）

{压力点}

AQ:=O#WEEK;B:=C#WEEK;

AAQ:=H#WEEK;BB:=L#WEEK;

STICKLINE(B>=AQ,AAQ,BB,4,0),COLOR600060;

STICKLINE(B<AQ,AAQ,BB,4,0),COLORLICYAN;

DRAWKLINE(H,O,L,C);

圣灵石1:=((HIGH+LOW+CLOSE)/3-MA((HIGH+LOW+CLOSE)/3,14))/(0.015*AVEDEV((HIGH+LOW+CLOSE)/3,14)),COLORRED,LINETHICK0;

圣灵石2:=IF(REF(圣灵石1,1)<-99 AND 圣灵石1 >-98,1,0);

圣灵石3:=IF(REF(圣灵石2,1)=1 AND 圣灵石1>-50,1,0);

圣灵石4:=IF(REF(圣灵石2,2)=1 AND 圣灵石1>-50 AND REF(圣灵石1,1)>-50,1,0);

圣灵石5:=IF(REF(圣灵石2,3)=1 AND 圣灵石1>-50 AND REF(圣灵石1,1)>-50,1,0);

圣灵石6:=IF(REF(圣灵石2,4)=1 AND 圣灵石1>-50 AND REF(圣灵石1,1)>-50 AND REF(圣灵石1,2)>-50,1,0);

STICKLINE(圣灵石3,L*0.99,L*0.97,3,0),LINETHICK1,COLORRED;

STICKLINE(圣灵石4,L*0.99,L*0.97,3,0),LINETHICK1,COLORRED;

STICKLINE(圣灵石4,L*0.99,L*0.97,1,0),LINETHICK1,COLORYELLOW;

STICKLINE(圣灵石5,L*0.99,L*0.97,3,0),LINETHICK1,COLORRED;

STICKLINE(圣灵石6,L*0.99,L*0.97,3,0),LINETHICK1,COLORRED;

STICKLINE(圣灵石6,L*0.99,L*0.97,1,0),LINETHICK1,COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=60,LLV(L,3)*1.1,'====【进出理想进出】===='),COLORGREEN;

AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/

(HHV(HIGH,30)-LLV(LOW,30))*100,8);

BA:=EMA(AB,5);

A1{高}:=REFDATE(REF(HHV(H,96),5),DATE);

B1{低}:=REFDATE(REF(LLV(L,96),5),DATE);

DY{中}:=((A1)+(B1))/2;

箱顶:IF(AB>0 AND AB-BA<=0,A1,A1),LINETHICK3,COLOR00FF00;

箱腰:IF(AB>0 AND AB-BA<=0,DY,DY),LINETHICK3,COLOR00FF00;

箱低:IF(AB>0 AND AB-BA<=0,B1,B1),LINETHICK3,COLOR00FF00;

高1:IF(AB>0 AND AB-BA>0,A1,DRAWNULL),LINETHICK3,COLORRED;

中1:IF(AB>0 AND AB-BA>0,DY,DRAWNULL),LINETHICK3,COLORRED;

低1:IF(AB>0 AND AB-BA>0,B1,DRAWNULL),LINETHICK3,COLORRED;

持仓:IF(CLOSE>=SAR(4,2,20),SAR(4,2,20),

DRAWNULL),CIRCLEDOT,COLORRED,{COLOR9955FF};

空仓:IF(CLOSE<=SAR(4,2,20),SAR(4,2,20),

DRAWNULL),CIRCLEDOT,COLORGREEN,{COLORDDFF00};

X1:=(C+L+H)/3;

BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;

EMA8:=EMA(C,8);

DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),

EMA8,'∠45'),COLORWHITE;

STICKLINE(C>=COST(50)AND C<=COST(58)AND C>O,O,C,5,0),COLORRED;

STICKLINE(C>=COST(97)AND C<=COST(100)AND C>O,O,C,5,0),COLORWHITE;

DRAWTEXT(C>=COST(97)AND C<=COST(100) AND C>O,C,'-->97%'),COLORRED;

DRAWTEXT(C>=COST(50)AND C<=COST(58) AND C>O,C,'--50%'),COLORYELLOW;

BIAS1:=(C-MA(C,6))/MA(C,6)*100;

BIAS2:=(C-MA(C,12))/MA(C,12)*100;

BIAS3:=(C-MA(C,24))/MA(C,24)*100;

BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6;

乖离:=MA(BIAS,3);

DRAWTEXT(CROSS(BIAS,乖离)  AND 乖离<-9,C,'---------BIAS底买'),COLORWHITE;

DRAWTEXT(CROSS(BIAS,乖离)  AND 乖离>3,C,'---------BIAS顶'),COLORWHITE;

VAR1:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04;

VAR2:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;

VAR3:=VAR1 AND VAR2;

DRAWTEXT(VAR3,LOW,'★ '),COLORYELLOW , ;

极品底:=IF((MA(C,5)-C)/C>0.04 AND (MA(C,10)-MA(C,5))/MA(C,5)>0.04,50,0),COLORWHITE;

DRAWTEXT(极品底=50,LOW,'★ ');

DRAWTEXT(LLV(VOL,13)=VOL AND C>=REF(C,1),O,'缩量'),COLORYELLOW;

AA0:=SUMBARS(VOL,CAPITAL);

DRAWTEXT(IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA0)/3),L,'地量'),COLORMAGENTA;

LC1:=REF(CLOSE,1);

RSI:=((SMA(MAX((CLOSE - LC1),0),3,1) / SMA(ABS((CLOSE - LC1)),3,1)) * 100);

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORA6E500;

DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背离'),COLOR1880FF;