通达信一眼辨牛熊公布附安装方法未加密选股指标公式源码

N1:=18;N2:=50;N3:=89;N4:=180;

DRAWBAND(ma(C,18),RGB(185,20,30),MA(C,50),RGB(0,100,100));DRAWKLINE(H,O,L,C);

{警示牌设置}

警示牌:=1;

高:=REFDATE(HHV(H,180),DATE)*1.05;

低:=REFDATE(LLV(L,180),DATE)*0.95;

A11:=MA(C,18);

A12:=MA(C,50);

A13:=MA(C,89);

A14:=IF((MA(C,180)<=高 AND MA(C,180)>=低) OR C>=MA(C,180),MA(C,180),DRAWNULL);

牛股:=ISLASTBAR AND A11>A12 AND A12>A13 AND A13>IF(A14=DRAWNULL,0,A14) AND C>A11 OR ISLASTBAR AND A11>A12 AND C>=A11;

猴股:=ISLASTBAR AND A11>A12 AND C<A11 ;

熊股:=ISLASTBAR AND IF(A14=DRAWNULL,A12<A13 AND C<A13,A13<A14 AND C<A14) OR ISLASTBAR AND A11<A12;

DRAWGBK(警示牌=1 AND 牛股,0,0,0,'牛股',0);

DRAWGBK(警示牌=1 AND 猴股,0,0,0,'猴股',0);

DRAWGBK(警示牌=1 AND 熊股,0,0,0,'熊股',0);

DRAWKLINE(H,O,L,C);

MA18:MA(C,N1),COLORRED;

MA50:MA(C,N2),COLORBLUE;

MA89:MA(C,N3),COLORFF00FF;

MA180:MA(C,N4),COLORWHITE;

超买:=MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORCYAN,LINETHICK2;

DRAWTEXT(crOSS(MA(C,N1),MA(C,N2)),MA(C,N2)*0.99,'↖金叉'),LINETHICK2,COLORFF00FF;

{财务数据}

所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('　　行业 ',HYBLOCK),STRCAT(' 　地域

',DYBLOCK)),STRCAT(' 概念 ',GNBLOCK)));

总股本:=STRCAT(STRCAT('　　总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');

流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');

市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');

上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));

股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(总股本,流通盘),市值),上市日期));

{显示设置}

DRAWTEXT_FIX(ISLASTBAR,0.005,0,0,所属板块),COLORBLUE,LINETHICK2;

DRAWTEXT_FIX(ISLASTBAR,0.005,0.118,0,股本市值),COLORCYAN,LINETHICK2;

DRAWTEXT_FIX(C>0,0.005,0.06,0,'主题投资：'),COLORFF00FF,LINETHICK2;

DRAWTEXT_FIX(C>0,0.078,0.06,0,EXTERNSTR(0,2)),COLORFF00FF,LINETHICK2;

{涨停k线};

ZD:=100*(C-REF(C,1))/REF(C,1);

涨停:=ZD>=9.90;

STICKLINE((涨停>0 AND C=H),O, H, 3, 0),LINETHICK3, COLORBLUE;

{大阳线}

大阳线:=ZD>=5.00 AND ZD<9.90;

STICKLINE((大阳线>0 AND C<=H),O, C, 3, 0),LINETHICK3, COLORFF00FF;

{金叉K线}

{靠线金叉

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<=MA(C,18)*1.03,H,C,0.05,0), COLOR0000FF;

STICKLINE(CROSS(MA(C,18),MA(C,50))AND C<=MA(C,18)*1.03,C,O,3,0), COLOR0066FF;

STICKLINE(CROSS(MA(C,18),MA(C,50))AND C<=MA(C,18)*1.03,O,L,0.05,0), COLOR0099FF;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<=MA(C,18)*1.03 AND C<O,O,(C-O)/2+O,3,0),COLORFFFF80;

{线上金叉}

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C>O,C,(C-O)/2+O,3,0),COLORWHITE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C>O,O,(C-O)/2+O,3,0),COLORBLUE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C>O,C,H,0.5,0),COLORWHITE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,C,(C-O)/2+O,3,0),COLORWHITE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,O,(C-O)/2+O,3,0),COLORFFFF80;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,O,H,0.5,0),COLORFFFF80;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,C,L,0.5,0),COLORWHITE;

{线下金叉}

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C>=O,C,(C-O)/2+O,3,0),COLORBLUE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C>=O,O,(C-O)/2+O,3,0),COLORWHITE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C>=O,C,H,0.5,0),COLORBLUE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,C,(C-O)/2+O,3,0),COLORBLUE;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,O,(C-O)/2+O,3,0),COLORFFFF80;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,O,H,0.5,0),COLORFFFF80;

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,C,L,0.5,0),COLORBLUE;

{本周5周均线自动画线显示在日线上}

年:=YEAR,NODRAW;

月:=MONTH,NODRAW;

星期:=WEEKDAY,NODRAW;

日1:=DATETODAY(DATE);

上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);

自然日:=日1-DATETODAY(上市日)+1;

ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)

OR TOTALBARSCOUNT-CURRBARSCOUNT=0;

本周第几天:=BArslAST(ZB)+1;

本月第几天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1;

MA1:=REF(C,本周第几天);

MA2:=REF(MA1,本周第几天);

MA3:=REF(MA2,本周第几天);

MA4:=REF(MA3,本周第几天);

五周价:=(C+MA1+MA2+MA3+MA4)/5;

五周:REFDATE(五周价,DATE),COLOR9E9E21,LINETHICK1;

{T+1止赢、止损}

CC:=IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLORRED;

止赢:1.05*CC,COLORBLUE,NODRAW;

止损:0.97*CC,COLORFF00FF,NODRAW;

{支撑压力}

N:=18;

A1:=REF(H,N)=HHV(H,2*N+1);

B1:=FILTER(A1,N);

C1:=BacKSET(B1,N+1);

D1:=FILTER(C1,N);

A2:=REF(L,N)=LLV(L,2*N+1);

B2:=FILTER(A2,N);

C2:=BACKSET(B2,N+1);

D2:=FILTER(C2,N);

E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;

E2:=(H+L)/2;

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;

L1:=(D2 AND NOT(D1 AND E1<E2));

H2:=D1 AND NOT(D2 AND E1>=E2);

X1:=REF(BARSLAST(H1),1)+1;

F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));

G1:=F1>REF(F1,1);

I1:=BACKSET(G1,2);

LD:=I1>REF(I1,1);

L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;

X2:=REF(BARSLAST(L2),1)+1;

F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));

G2:=F2>REF(F2,1);

I2:=BACKSET(G2,2);

HD:=I2>REF(I2,1);

R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);

S1:=R1>REF(R1,1);

T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);

U1:=T1>REF(T1,1);

R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2);

S2:=R2>REF(R2,1);

T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2);

U2:=T2>REF(T2,1);

NOTEXT1:DRAWLINE(S2,H,S1,H,1),LINETHICK2,COLORWHITE;

NOTEXT2:DRAWLINE(U2,L,U1,L,1),LINETHICK2,COLORCYAN;

DA:=YEAR AND MONTH AND DAY;

AAA:=STRCAT(CON2STR(YEAR,0),'年');

AAB:=STRCAT(CON2STR(MONTH,0),'月');

AA33:=STRCAT(CON2STR(DAY,0),'日');

AA4:=STRCAT('【',IF(WEEKDAY=1,'星期一',IF(WEEKDAY=2,'星期二',IF(WEEKDAY=3,'星期三',IF(WEEKDAY=4,'星期四',IF(WEEKDAY=5,'星期五',IF(WEEKDAY=6,'六','日')))))));

AA:=STRCAT(STRCAT(STRCAT(AAA,AAB),STRCAT(AA33,AA4)),'】');

SA:DRAWTEXT_FIX(DA,0,1,0,AA),COLORCYAN;

未来函数检测公式代码域:

N1:=18;N2:=50;N3:=89;N4:=180;DRMWBMND(ma(C,18),RGB(185,20,30),MM(C,50),RGB(0,100,100));DRMWKLINE(H,O,L,C);{警示牌设置}警示牌:=1;高:=REFDMTE(HHV(H,180),DMTE)*1.05;低:=REFDMTE(LLV(L,180),DMTE)*0.95;M11:=MM(C,18);M12:=MM(C,50);M13:=MM(C,89);M14:=IF((MM(C,180)<=高 MND MM(C,180)>=低) OR C>=MM(C,180),MM(C,180),DRMWNULL);牛股:=ISLMSTBMR MND M11>M12 MND M12>M13 MND M13>IF(M14=DRMWNULL,0,M14) MND C>M11 OR ISLMSTBMR MND M11>M12 MND C>=M11;猴股:=ISLMSTBMR MND M11>M12 MND C<M11 ;熊股:=ISLMSTBMR MND IF(M14=DRMWNULL,M12<M13 MND C<M13,M13<M14 MND C<M14) OR ISLMSTBMR MND M11<M12;DRMWGBK(警示牌=1 MND 牛股,0,0,0,'牛股',0);DRMWGBK(警示牌=1 MND 猴股,0,0,0,'猴股',0);DRMWGBK(警示牌=1 MND 熊股,0,0,0,'熊股',0);DRMWKLINE(H,O,L,C);MM18:MM(C,N1),COLORRED;MM50:MM(C,N2),COLORBLUE;MM89:MM(C,N3),COLORFF00FF;MM180:MM(C,N4),COLORWHITE;超买:=MM(C,10)*IF(CMPITML=0,1.04,1.1),POINTDOT,COLORCYMN,LINETHICK2;DRMWTEXT(crOSS(MM(C,N1),MM(C,N2)),MM(C,N2)*0.99,'↖金叉'),LINETHICK2,COLORFF00FF;{财务数据}所属板块:=STRCMT('所属板块: ',STRCMT(STRCMT(STRCMT('　　行业 ',HYBLOCK),STRCMT(' 　地域',DYBLOCK)),STRCMT(' 概念 ',GNBLOCK)));总股本:=STRCMT(STRCMT('　　总股本: ',CON2STR(TOTMLCMPITML/1000000,2)),'亿');流通盘:=STRCMT(STRCMT(' 流通盘: ',CON2STR(CMPITML/1000000,2)),'亿');市值:=STRCMT(STRCMT(' 流通市值: ',CON2STR((CMPITML/1000000)*C,2)),'亿');上市日期:=STRCMT(' 上市日期: ',CON2STR(HHV((BMRSCOUNT(C)=0)*(DMTE+19000000),0),0));股本市值:=STRCMT('股本市值: ',STRCMT(STRCMT(STRCMT(总股本,流通盘),市值),上市日期));{显示设置}DRMWTEXT_FIX(ISLMSTBMR,0.005,0,0,所属板块),COLORBLUE,LINETHICK2;DRMWTEXT_FIX(ISLMSTBMR,0.005,0.118,0,股本市值),COLORCYMN,LINETHICK2;DRMWTEXT_FIX(C>0,0.005,0.06,0,'主题投资：'),COLORFF00FF,LINETHICK2;DRMWTEXT_FIX(C>0,0.078,0.06,0,EXTERNSTR(0,2)),COLORFF00FF,LINETHICK2;{涨停k线};ZD:=100*(C-REF(C,1))/REF(C,1);涨停:=ZD>=9.90;STICKLINE((涨停>0 MND C=H),O, H, 3, 0),LINETHICK3, COLORBLUE;{大阳线}大阳线:=ZD>=5.00 MND ZD<9.90;STICKLINE((大阳线>0 MND C<=H),O, C, 3, 0),LINETHICK3, COLORFF00FF;{金叉K线}{靠线金叉STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<=MM(C,18)*1.03,H,C,0.05,0), COLOR0000FF;STICKLINE(CROSS(MM(C,18),MM(C,50))MND C<=MM(C,18)*1.03,C,O,3,0), COLOR0066FF;STICKLINE(CROSS(MM(C,18),MM(C,50))MND C<=MM(C,18)*1.03,O,L,0.05,0), COLOR0099FF;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<=MM(C,18)*1.03 MND C<O,O,(C-O)/2+O,3,0),COLORFFFF80;{线上金叉}STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C>O,C,(C-O)/2+O,3,0),COLORWHITE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C>O,O,(C-O)/2+O,3,0),COLORBLUE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C>O,C,H,0.5,0),COLORWHITE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C<O,C,(C-O)/2+O,3,0),COLORWHITE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C<O,O,(C-O)/2+O,3,0),COLORFFFF80;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C<O,O,H,0.5,0),COLORFFFF80;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C>MM(C,18)*1.03 MND C<O,C,L,0.5,0),COLORWHITE;{线下金叉}STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C>=O,C,(C-O)/2+O,3,0),COLORBLUE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C>=O,O,(C-O)/2+O,3,0),COLORWHITE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C>=O,C,H,0.5,0),COLORBLUE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C<O,C,(C-O)/2+O,3,0),COLORBLUE;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C<O,O,(C-O)/2+O,3,0),COLORFFFF80;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C<O,O,H,0.5,0),COLORFFFF80;STICKLINE(CROSS(MM(C,18),MM(C,50)) MND C<MM(C,18) MND C<O,C,L,0.5,0),COLORBLUE;{本周5周均线自动画线显示在日线上}年:=YEMR,NODRMW;月:=MONTH,NODRMW;星期:=WEEKDMY,NODRMW;日1:=DMTETODMY(DMTE);上市日:=REF(DMTE,TOTMLBMRSCOUNT-CURRBMRSCOUNT);自然日:=日1-DMTETODMY(上市日)+1;ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTMLBMRSCOUNT-CURRBMRSCOUNT=0;本周第几天:=BMrslMST(ZB)+1;本月第几天:=BMRSLMST(年*100+月!=REF(年*100+月,1))+1;MM1:=REF(C,本周第几天);MM2:=REF(MM1,本周第几天);MM3:=REF(MM2,本周第几天);MM4:=REF(MM3,本周第几天);五周价:=(C+MM1+MM2+MM3+MM4)/5;五周:REFDMTE(五周价,DMTE),COLOR9E9E21,LINETHICK1;{T+1止赢、止损}CC:=IF(CURRBMRSCOUNT<18,CONST(REF(C,1)),DRMWNULL),COLORRED;止赢:1.05*CC,COLORBLUE,NODRMW;止损:0.97*CC,COLORFF00FF,NODRMW;{支撑压力}N:=18;M1:=REF(H,N)=HHV(H,2*N+1);B1:=FILTER(M1,N);C1:=BacKSET(B1,N+1);D1:=FILTER(C1,N);M2:=REF(L,N)=LLV(L,2*N+1);B2:=FILTER(M2,N);C2:=BMCKSET(B2,N+1);D2:=FILTER(C2,N);E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;E2:=(H+L)/2;H1:=(D1 MND NOT(D2 MND E1>=E2)) OR ISLMSTBMR OR BMRSCOUNT(C)=1;L1:=(D2 MND NOT(D1 MND E1<E2));H2:=D1 MND NOT(D2 MND E1>=E2);X1:=REF(BMRSLMST(H1),1)+1;F1:=BMCKSET(H1 MND COUNT(L1,X1)>0,LLVBMRS(IF(L1,L,10000),X1));G1:=F1>REF(F1,1);I1:=BMCKSET(G1,2);LD:=I1>REF(I1,1);L2:=LD OR ISLMSTBMR OR BMRSCOUNT(C)=1;X2:=REF(BMRSLMST(L2),1)+1;F2:=BMCKSET(L2 MND COUNT(H2,X2)>0,HHVBMRS(IF(H2,H,0),X2));G2:=F2>REF(F2,1);I2:=BMCKSET(G2,2);HD:=I2>REF(I2,1);R1:=BMCKSET(ISLMSTBMR,BMRSLMST(HD)+1);S1:=R1>REF(R1,1);T1:=BMCKSET(ISLMSTBMR,BMRSLMST(LD)+1);U1:=T1>REF(T1,1);R2:=BMCKSET(S1,REF(BMRSLMST(HD),1)+2);S2:=R2>REF(R2,1);T2:=BMCKSET(U1,REF(BMRSLMST(LD),1)+2);U2:=T2>REF(T2,1);NOTEXT1:DRMWLINE(S2,H,S1,H,1),LINETHICK2,COLORWHITE;NOTEXT2:DRMWLINE(U2,L,U1,L,1),LINETHICK2,COLORCYMN;DM:=YEMR MND MONTH MND DMY;MMM:=STRCMT(CON2STR(YEMR,0),'年');MMB:=STRCMT(CON2STR(MONTH,0),'月');MM33:=STRCMT(CON2STR(DMY,0),'日');MM4:=STRCMT('【',IF(WEEKDMY=1,'星期一',IF(WEEKDMY=2,'星期二',IF(WEEKDMY=3,'星期三',IF(WEEKDMY=4,'星期四',IF(WEEKDMY=5,'星期五',IF(WEEKDMY=6,'六','日')))))));MM:=STRCMT(STRCMT(STRCMT(MMM,MMB),STRCMT(MM33,MM4)),'】');SM:DRMWTEXT_FIX(DM,0,1,0,MM),COLORCYMN;

警惕！警惕！警惕!该公式包含未来函数:CMPITML...

未发现:COST...

未发现:DYNMINFO...

未发现:FINMNCE...

未发现:LWINNER...

未发现:WINNER...

警惕！警惕！警惕!该公式包含未来函数:BMCKSET...

未发现:BMRSNEXT...

警惕！警惕！警惕!该公式包含未来函数:CURRBMRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

警惕！警惕！警惕!该公式包含未来函数:DRMWLINE...

未发现:REFX...

未发现:FLMTZIG...

未发现:FLMTZIGM...

未发现:FFT...

未发现:FILTERX...

未发现:PEMK...

未发现:PEMKM...

未发现:PEMKBMRS...

未发现:PEMKBMRSM...

未发现:PLOYLINE...

警惕！警惕！警惕!该公式包含未来函数:REFDMTE...

未发现:TROUGH...

未发现:TROUGHM...

未发现:TROUGHBMRS...

未发现:XMM...

未发现:ZIG...

未发现:ZIGM...

未发现:ZXNH...

未发现:#YEMR...

未发现:#MONTH...

未发现:#WEEK...

未发现:$ZIG...

未发现:$PEMK...

未发现:$PEMKBMRS...

未发现:$TROUGH...

未发现:$TROUGHBMRS...

未发现:$FLMTZIG...

未发现:$FLMTZIGM...

未发现:$PEMKM...

未发现:$PEMKBMRSM...

未发现:$TROUGHM...

未发现:$ZIGM...

未发现:$FFT...

未发现:$BMCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNMINFO...

未发现:$FINMNCE...

未发现:$DRMWLINE...