进出理想进出 【通达信主图源码贴图】

中秋特编辑：进出理想进出 【通达信主图源码贴图】

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;