通达信精品布林主图选股指标公式源码

通达信精品布林主图选股指标公式源码

源码正文：

N:=20{XG51};
DRAWGBK(CURRBARSCOUNT=1, RGB(110,108,108),RGB(88,30,0),0,'',0){XG51};
boll:ma(CLOSE,N),COLORCYAN,LINETHICK2{XG51};
IF(BOLL>REF(BOLL,1),BOLL,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
UPPER:BOLL+2*stD(CLOSE,N),COLORGREEN{XG51};
LOWER:BOLL-2*STD(CLOSE,N),COLOR0088FF{XG51};
N1:=30{XG51};
T1:=CONST(HHVBARS(V,N1)){XG51};
T0:IF(CURRBARSCOUNT<=N1+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),LINETHICK3{XG51};
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT{XG51};
DRAWTEXT(ISLASTBAR,T0,'　量能平台'){XG51};
STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,100,0),COLORRED,LINETHICK3{XG51};
DRAWNUMBER(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95),LINETHICK3{XG51};
止损点:=(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95),LINETHICK3{XG51};
DRAWTEXT(ISLASTBAR ,止损点,' 止损点'),LINETHICK3{XG51};
TY:=C{XG51};
A1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(A1,10); C1:=BacKSET(B1,10+1); HD:=FILTER(C1,10){XG51};
A2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(A2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10){XG51};
前期高位:REF(C,BArslAST(HD)),COLOR00FF00,POINTDOT{XG51};
STICKLINE(C,前期高位,前期高位,8,0),COLORBLUE{XG51};
MA18:=MA(C,18){XG51};
VAR1:=C=HHV(C,4) AND REF(C,1)=LLV(C,4){XG51};
VAR2:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2){XG51};
VAR3:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1){XG51};
A:=(3*C+L+O+H)/6{XG51};
VAR4:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*ema(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6){XG51};
CB:=EMA(VAR4,13){XG51};
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),COLOR0000FF{XG51};
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLORFF9900{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLORFFCC00{XG51};
STICKLINE(VAR1,C,(O+C)/2,3,0),COLORFF11FF{XG51};
STICKLINE(VAR1,C,(O+C)/2,0.5,0),COLORFFddfF{XG51};
STICKLINE(VAR2,C,(O+C)/2,3,0),COLOR999999{XG51};
STICKLINE(VAR2,C,(O+C)/2,0.5,0),COLORFFBBFF{XG51};
STICKLINE(VAR3,O,(O+C)/2,3,0),COLOR00BB00{XG51};
STICKLINE(VAR3,O,(O+C)/2,0.5,0),COLOR00FF00{XG51};
卖:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND crOSS(MA(DX,2),DX){XG51};
DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,'卖'),COLORCYAN{XG51};
买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'买'),COLORWHITE{XG51};
加仓:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10{XG51};
DRAWTEXT(FILTER((CROSS(加仓,0) OR CROSS(CLOSE,CB)) AND 买=1,3),LOW-0.03,'加'),COLORRED{XG51};
跟:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18){XG51};
DRAWTEXT(跟,LOW*0.96,'跟'),COLORCC66FF{XG51};
JRH:=HHV(C,2){XG51};
JRL:=LLV(C,2){XG51};
VAR01:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2)){XG51};
VAR02:=(REF(VAR01,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR03:=(REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR04:=(REF(VAR03,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR05:=(REF(VAR04,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR06:=(REF(VAR05,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR07:=(REF(VAR06,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR08:=(REF(VAR07,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR09:=(REF(VAR08,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARA:=(REF(VAR09,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR010:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR011:=(REF(VAR010,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR012:=(REF(VAR011,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR013:=(REF(VAR012,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR014:=(REF(VAR013,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR015:=(REF(VAR014,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR016:=(REF(VAR015,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR017:=(REF(VAR016,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2)){XG51};
VAR018:=(REF(VAR017,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2)){XG51};
VAR019:=((REF(VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,1)) AND VAR01){XG51};
VAR1A:=((REF(VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,1)) AND VARD){XG51};
红色持股:=VAR01 OR VAR02 OR VAR03 OR VAR04 OR VAR05 OR VAR06 OR VAR07 OR VAR08 OR VAR09 OR VARA OR VARB OR VARC,COLOR0000FF,NODRAW{XG51};
离场:=IF(红色持股,JRL,DRAWNULL){XG51};
明离场价:=离场,COLORFF99FF,NODRAW{XG51};
青色观望:=VARD OR VARE OR VARF OR VAR010 OR VAR011 OR VAR012 OR VAR013 OR VAR014 OR VAR015 OR VAR016 OR VAR017 OR VAR018,COLORFFFF00,NODRAW{XG51};
进:=IF(青色观望,JRH,DRAWNULL){XG51};
今离场价:REF(离场,1),COLOR0000FF,NODRAW{XG51};
明进场价:=进,COLOR33AACC,NODRAW{XG51};
今进场价:REF(明进场价,1),COLORCYAN,NODRAW{XG51};
TJ1:=L< REF(L,1) OR REF(L,1)<REF(L,2){XG51};
TJ2:=REF(C,1)<REF(O,1){XG51};
TJ3:=C>O{XG51};
XG:=TJ1 AND TJ2 AND TJ3{XG51};
DRAWTEXT(XG,REF(C,2),'-------------------'),COLORWHITE{XG51};
上涨家数:INDEXADV,COLOR0080FF,NODRAW{XG51};
下跌家数:INDEXDEC,COLORCYAN,NODRAW{XG51};
自动C:=INDEXC{XG51};
自动O:=INDEXO{XG51};
自动H:=INDEXH{XG51};
自动L:=INDEXL{XG51};
大盘低:=CONST(LLV(自动L,120)){XG51};
大盘高:=CONST(HHV(自动H,120)){XG51};
大盘差:=大盘高-大盘低{XG51};
当前低:=CONST(LLV(L,120)){XG51};
当前高:=CONST(HHV(H,120)){XG51};
当前差:=当前高-当前低{XG51};
比:=当前差*1.2/大盘差{XG51};
变C:=当前低+(自动C-大盘低)*比{XG51};
变H:=当前低+(自动H-大盘低)*比{XG51};
变L:=当前低+(自动L-大盘低)*比{XG51};
变O:=当前低+(自动O-大盘低)*比{XG51};
STICKLINE(CURRBARSCOUNT<10 AND 变C<变O,变H,变L,0,0),COLORCYAN{XG51};
STICKLINE(CURRBARSCOUNT<10 AND 变C>=变O,变H,变L,0,0),COLORLIMAGENTA{XG51};
STICKLINE(CURRBARSCOUNT<10 AND 变C<变O,变O,变C,2,0),COLORCYAN{XG51};
STICKLINE(CURRBARSCOUNT<10 AND 变C>=变O,变O,变C,2,0),COLORLIMAGENTA{XG51};
DRAWKLINE(H,O,L,C){XG51};
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK),COLORRED{XG51};
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.20,0,0,DYBLOCK),COLORRED{XG51};
{XG51};
DRAWTEXT_FIX(1,0.00,0.05,0,'主营业务：')COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,3)),COLORWHITE{XG51};
{XG51};
DRAWTEXT_FIX(1,0.00,0.15,0,'莸利比例:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.06,0.15,0,CONST(WINNER(C )*100)),COLORRED{XG51};
DRAWTEXT_FIX(1,0.22,0.15,0,'市值:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.26,0.15,0,FINANCE(40)/100000000),COLORRED{XG51};
DRAWTEXT_FIX (1,0.31,0.15,0,'公积金(股):'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.38,0.15,0,FINANCE(18)),COLORRED{XG51};
DRAWTEXT_FIX (1,0.43,0.15,0,'收益:'),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.47,0.15,0,FINANCE(33)),COLORRED{XG51};
VAR111:=zig(3,13){XG51};
STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,3,0),COLOR66FF00{XG51};
DRAWTEXT_FIX(STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,5,0),0.00,0.11,0,''),COLOR00FF00,LINETHICK1{XG51};
dif:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2{XG51};
VAR113:=HHV(HIGH,60){XG51};
VAR114:=LLV(LOW,30){XG51};
VAR115:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100{XG51};
VAR116:=(VAR113+VAR114+VAR115)/3{XG51};
VAR117:=EMA(VAR116,5){XG51};
K01:=EMA(VAR117,5)*2, COLORFF00FF{XG51};
D01:=EMA(K01,5), COLORRED{XG51};
J01:=K01*3-D01*2, COLORBLUE{XG51};
ENTERLONG:=CROSS(K01,D01){XG51};
EXITLONG:=CROSS(D01,K01){XG51};
B01:=(DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))
AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),L*0.98,1))*D01*2/3{XG51};
B02:=IF(TROUGHBARS(3,15,1)=1 AND HIGH>LOW+0.01,20,0){XG51};
必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORCYAN,LINETHICK1{XG51};
QQ:=必卖=80{XG51};
B03:=((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3))){XG51};
V1:=EMA(CLOSE,60)-EMA(CLOSE,300){XG51};
V2:=EMA(V1,300){XG51};
V3:=(CLOSE-(LOW,8))/((HIGH,8)-LLV(LOW,8))*100{XG51};
V4:=SMA(V3,2,1),NODRAW{XG51};
V5:=SMA(V4,2,1),NODRAW{XG51};
V6:=CLOSE/REF(CLOSE,3)>=1.1{XG51};
V7:=BACKSET(V6,3){XG51};
大涨:=(V7 AND COUNT(V7,3)=1){XG51};
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿'){XG51};
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿'){XG51};
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2)){XG51};
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿'){XG51};
上市日期:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0)){XG51};
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期)){XG51};
市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2)){XG51};
市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2)){XG51};
市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2)){XG51};
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2)){XG51};
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)){XG51};
净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2)){XG51};
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2)){XG51};
利润同比:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2)){XG51};
收入同比:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2)){XG51};
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率), 利润同比), 收入同比)){XG51};
X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2{XG51};
X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{XG51};
X3:=FINANCE(23)/FINANCE(10)*3.3{XG51};
X4:=FINANCE(19)/FINANCE(15)*0.6{XG51};
X5:=FINANCE(20)/FINANCE(15)*0.999{XG51};
Z值:=X1+X2+X3+X4+X5{XG51};
预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警')){XG51};
财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3)))){XG51};
优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{XG51};
现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{XG51};
财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比)){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLORGREEN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORBLUE{X_G~5-1_C_N_{};