变异布林 通达信主图指标 源码 贴图

N:=2;M:=30;
MA(H,M) * (1 + 13 / 100) * 1.0382,LINETHICK1,COLORFF7F00;
MA(H,M) * (1 + 13 / 100),LINETHICK1,COLORFF7F00;
VAR22:=IF(((YEAR) >= (2039)) AND ((MONTH) > 3),0,1);VAR33:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4 + ((1.88) * (STD((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4,9))) * (VAR22);
急拉涨停线:=((MA(VAR33,12)) * (1.06)) * (VAR22),LINETHICK2,COLORCYAN ;
VAR55:=(EMA(H,10)) * (1 + 5 / (100));
VAR6:=C * V;
VAR7:=EMA(((EMA(VAR6,3)) / (EMA(V,3)) + (EMA(VAR6,6)) / (EMA(V,6)) + (EMA(VAR6,12)) / (EMA(V,12)) + (EMA(VAR6,24)) / (EMA(V,24))) / 4,13);
VAR8:=(1.06) * (VAR7);VAR9:=(L / ((H + REF(C,1) + O) / 3)) * C+0.01;{WWW.GPXIAZAI.COM}
急拉:DRAWICON(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND C/REF(C,1)>1.099 AND (C+0.01 >= (急拉涨停线)),L,26);{==========开口捉妖多彩K线========}
DRAWTEXT(((CROSS(VAR9,VAR8)) AND (C > (VAR55))) AND C/REF(C,1)>1.099 AND (C+0.01 >= (急拉涨停线)),L*0.97,'牛'),COLORYELLOW;

M2:=(EMA(C,2)+EMA(C,3))/2,COLORBROWN,DOTLINE;
M5:=(EMA(C,5)+EMA(C,6))/2;
M12:=EMA(C,12);
BSBL:=M12+2*STD(M12,6),COLORWHITE,DOTLINE;
M26:=EMA(C,26);
CSBL:=M26+2*STD(M26,13),COLORMAGENTA,DOTLINE;
M56:=EMA(C,56);
DSBL:=M56+2*STD(M56,28),COLORYELLOW,DOTLINE;
M120:=EMA(C,120);
ESBL:=M120+2*STD(M120,60),COLORLIBLUE,DOTLINE;
EXBL:=M120-2*STD(M120,60),COLORLIGREEN,DOTLINE;
M256:=EMA(C,256);
FSBL:=M256+2*STD(M256,256/2),COLORRED,DOTLINE;
JD:=INTPART(ABS(ATAN((M2/REF(M2,1)+M5/REF(M5,1)+M12/REF(M12,1)+M26/REF(M26,1)
+M56/REF(M56,1)+M120/REF(M120,1)+M256/REF(M256,1)-7)/7*100)*180/3.14));
QZ:=IF(JD<=1,1,JD);
JDX:EMA(M56,QZ),COLORLIMAGENTA,LINETHICK2;
IF(M2<JDX,JDX,DRAWNULL),COLORLICYAN,LINETHICK2;

{九转序列}
AB1:=C>REF(C,4);
AB2:=BARSLASTCOUNT(AB1);
AB3:=REF(AB2,1)=8 AND AB2>REF(AB2,1);
AB4:=REF(BETWEEN(AB2,5,8),1) AND AB2<REF(AB2,1);
AB5:=ISLASTBAR AND BETWEEN(AB2,6,8);
AB6:=(BACKSET(AB3>0,9) OR BACKSET(AB4>0,AB2+1)*0 OR BACKSET(AB5>0,AB2))*AB2;
DRAWTEXT(AB6>0,H+H*0.02,VAR2STR(AB6,0)),COLORFF00FF{COLOR00FFFF};
DRAWTEXT(AB2=9,H+H*0.02,'9'),COLOR00FF00;
B1:=C<REF(C,4);
B2:=BARSLASTCOUNT(B1);
B3:=REF(B2,1)=8 AND B2>REF(B2,1);
B4:=REF(BETWEEN(B2,5,8),1) AND B2<REF(B2,1);
B5:=ISLASTBAR AND BETWEEN(B2,6,8);
B6:=(BACKSET(B3>0,9) OR BACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2;
DRAWTEXT(B6>0,L-L*0.02,VAR2STR(B6,0)),COLOR00FF00{COLORFFFFFF};
DRAWTEXT(B2=9,L-L*0.02,'9'),COLORFF00FF;

{小虚线}
NS:=8;
AA:=REF(H,NS)=HHV(H,2*NS+1);
AA1:=REF(L,NS)=LLV(L,2*NS+1);
QY:=BACKSET(AA,NS+1);
QY1:=BACKSET(AA1,NS+1);
CC:=FILTER(QY,NS) AND H=HHV(H,NS+1);
CC1:=FILTER(QY1,NS) AND L=LLV(L,NS+1);
DDD:=BARSLAST(CC);
DD2:=BARSLAST(CC1);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DDTS1:=IF(DD2,REF(DDTS,DD2),DDTS);
GDCS1:=CONST(DINGBUTS);
DDCS1:=CONST(DDTS1);
GDCS13:=CONST(REF(HIGH,GDCS1-1));
DDCS13:=CONST(REF(L,DDCS1-1));
DINGBUTS1:=REF(DINGBUTS,DDD+1);
DDTS2:=REF(DDTS1,DD2+1);
GDCS2:=CONST(DINGBUTS1);
DDCS2:=CONST(DDTS2);GDCS23:=CONST(REF(HIGH,DINGBUTS1-1));
DDCS23:=CONST(REF(L,DDTS2-1));
XG1:=BACKSET(ISLASTBAR,GDCS1);
XD1:=BACKSET(ISLASTBAR,DDCS1);
XG2:=BACKSET(ISLASTBAR,DINGBUTS1);
XD2:=BACKSET(ISLASTBAR,DDTS2);

STICKLINE(XG2,GDCS23,GDCS23,2,0),COLORWHITE;
STICKLINE(XG1,GDCS13,GDCS13,2,0),COLORYELLOW;
STICKLINE(XD2,DDCS23,DDCS23,2,0),COLORGRAY;
STICKLINE(XD1,DDCS13,DDCS13,2,0),COLORCYAN;

STICKLINE(C/REF(C,1)>=1.096 AND H=C,O,C,1.5,0),COLORRED;

VAR4:=EMA(CLOSE,24);
底:EMA(VAR4*80/100,5),COLORGREEN,LINETHICK1;
去除ST:=NOT(NAMELIKE('S') OR NAMELIKE('*')),NODRAW ;
TJ1:=(REF(底,1)>REF(C,1) AND C>底 AND C>REF(C,1)*1.02 ) ,NODRAW;
TJ:=FILTER(TJ1,3) ,NODRAW;
DRAWICON(TJ1,L*0.98,44);

{抛物线}
抛物线:SAR(4,2,20)COLORRED,LINETHICK1,DOTLINE;

操:=MA(C,5);
神秘线:HHV(操,13)DOTLINE,COLORFFB9CC;

L1:=IF((REF(C,1)-REF(C,2))/REF(C,2)>0.07,1,0);
L2:=IF(C>REF(C,1),1,0);
L3:=IF(H>O AND O>C AND C>L,1,0);
L4:=(REF(VOL,0)-REF(VOL,1))/ REF(VOL,1)*100>30;
L5:=CAPITAL<20000000;
L6:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
假阴线:=IF(L1+L2+L3+L4=4,1,0) AND L5 AND L6>REF(L6,1) AND L4 AND FILTER(REF(C,1)<L AND C>=L AND VOL>=REF(VOL,1),1);DRAWICON(FILTER(L2>=75 AND CROSS(90,L2) AND L3>L4>COST(95)<(COST(99)-COST(1))/20*0.7,25),L*0.97,9);

STICKLINE(假阴线,OPEN,CLOSE,3,0),COLOR8000FF;
DRAWICON(假阴线,L*0.94,9);

RC1:=REF(C,1);
CS:=IF(C>=1,10000,100000);
C涨停10:=1.10*RC1-49/CS;{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
C跌停10:=0.90*RC1+51/CS;
C跌停5 :=0.95*RC1+51/CS;
ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);

STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORWHITE;{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLOR00AA00;{跌停后回升}
大阳线:=C>O AND (C>=C涨停5 OR C>(1.05*O-51/CS) ) OR (C>1000 AND C>RC1*1.024);
STICKLINE(大阳线,OPEN,CLOSE,1,0),COLOR0000AA;
大阴线:=C<O AND (C<=C跌停5 OR C<(0.95*O+49/CS) ) OR (C>1000 AND C<RC1*0.976);
STICKLINE(大阴线,OPEN,CLOSE,1,0),COLOR2F4F2F;
STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORFF00FF;
STICKLINE(跌停,OPEN,CLOSE,2.5,0),COLORGREEN;
假阴:=C<O AND C>REF(C,1);
STICKLINE(假阴,O,C,0.5,0),COLORRED;{假阴柱};
假阳:=C>O AND C<REF(C,1);
STICKLINE(假阳,O,C,0.5,0),COLORGREEN;{假阳柱};
半分位:=(O+C)/2;
昨半分位:=REF(半分位,1);
STICKLINE(CURRBARSCOUNT<=1,昨半分位,昨半分位,12,0),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.18,0.06,1,'昨半分位'),LINETHICK5,COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.22,0.06,1,昨半分位);

{最佳买点}{WWW.GPXIAZAI.COM}
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖买'),COLORYELLOW;
STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;