通达信泣血抄底未加密选股指标公式源码

源码正文：

AA4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100{XG51};
AA5:=SMA(AA4,13,8){XG51};
走势:CEILING(Sma(AA5,13,8)),COLORWHITE,LINETHICK1{XG51};
N1:=7{XG51};
VAR1:=REF(C,1){XG51};
VAR2:=SMA(MAX(C-VAR1,0),N1,1)/SMA(Abs(C-VAR1),N1,1)*1000{XG51};
VAR3:=DRAWLINE(VAR2>=HHV(VAR2,N1),VAR2,VAR2<=LLV(VAR2,N1),VAR2,1){XG51};
VAR4:=VAR2=VAR3{XG51};
VAR5:=VAR2<REF(VAR2,1){XG51};
PD1:=VAR4 AND VAR5{XG51};
Q_3:=crOSS(ema(C,19),EMA(C,7)){XG51};
Q_4:=CROSS(EMA(C,7),EMA(C,19)){XG51};
Z1:=L=LLV(L,BArslAst(Q_3)+1){XG51};
Z2:=LLV(L,BARSLAST(Q_3)+1){XG51};
Z3:=H=HHV(H,BARSLAST(Q_4)+1){XG51};
Z4:=HHV(H,BARSLAST(Q_4)+1){XG51};
Q_A:=DRAWLINE(Z1,Z2,Z3,Z4,0){XG51};
Y1:=H=HHV(H,BARSLAST(Q_4)+1){XG51};
Y2:=HHV(H,BARSLAST(Q_4)+1){XG51};
Y3:=L=LLV(L,BARSLAST(Q_3)+1){XG51};
Y4:=LLV(L,BARSLAST(Q_3)+1){XG51};
Q_B:=DRAWLINE(Y1,Y2,Y3,Y4,0){XG51};
TJ:=IF(Q_B<REF(Q_B,1) AND Q_B=Q_A,1,0){XG51};
JDMD:=REF(TJ,1)=0 AND TJ>=1{XG51};
PD11:=PD1 AND JDMD{XG51};
PD7:=IF(PD1,SUM(JDMD,3),0){XG51};
PD8:=IF(PD7>0,0,1){XG51};
PD9:=PD1 AND PD8{XG51};
PD3:=IF(JDMD,SUM(PD1,3),0){XG51};
PD4:=IF(PD3>0,0,1){XG51};
PD5:=JDMD AND PD4{XG51};
PD6:=FILTER(IF(PD11,1,PD9 OR PD5),2){XG51};
底现抄底:PD6,NODRAW,COLOR7777FF{XG51};
STICKLINE(PD6,走势,走势+45,3.15,0),COLOR1111FF{XG51};
STICKLINE(PD6,走势,走势+45,2.45,0),COLOR3333FF{XG51};
STICKLINE(PD6,走势,走势+45,1.75,0),COLOR5555FF{XG51};
STICKLINE(PD6,走势,走势+45,1.05,0),COLOR7777FF{XG51};
STICKLINE(PD6,走势,走势+45,0.35,0),COLOR9999FF{XG51};
PD2:=IF(REF(PD6,1)=1 AND C>=REF(L,1),1,0){XG51};
PD10:=FILTER(PD2,2){XG51};
底成买进:PD2,NODRAW,COLOR00CC00{XG51};
STICKLINE(PD2,走势,走势+45,3.2,0),COLOR004400{XG51};
STICKLINE(PD2,走势,走势+45,2.7,0),COLOR006600{XG51};
STICKLINE(PD2,走势,走势+45,2.1,0),COLOR008800{XG51};
STICKLINE(PD2,走势,走势+45,1.5,0),COLOR00AA00{XG51};
STICKLINE(PD2,走势,走势+45,0.9,0),COLOR00CC00{XG51};
STICKLINE(PD2,走势,走势+45,0.3,0),COLOR00EE00{XG51};
大底:IF(JDMD=1,1,DRAWNULL),COLORBLUE{XG51};
小底:IF(JDMD=0 AND (PD9 OR PD5),1,DRAWNULL),COLORYELLOW{XG51};
STICKLINE(JDMD,走势,走势+45,0,0),COLORBLUE{XG51};
STICKLINE(JDMD=0 AND (PD9 OR PD5),走势,走势+45,0,0),COLORYELLOW{XG51};
上升趋势更有效:DRAWNULL,COLORBLUE{XG51};
下跌趋势要小心:DRAWNULL,COLORRED{X_G_5~1_C_N_{};

源码正文：

参:=1;日:=1;起点:=75;均分:=起点/140;CURR:=CURRBARSCOUNT;
总股本:=IF(C>=1000,ma(V,5)*100,CAPITAL); 基数:=总股本/5000000{XG51};
基准股:=总股本*0.1{XG51};
kdCM:=IF(参=1,CONst(100*WINNER(C)),100*WINNER(REF(C,日)));
SHTL:=IF(参=1,CONST(100*(1-WINNER(C))),100*(1-WINNER(REF(C,日))));
DDCM:=IF(参=1,CONST(ema(100*WINNER(C),13)),EMA(100*WINNER(REF(C,日)),13));
券基:=DDCM*总股本*0.003+KDCM*总股本*0.004;
普通:=SHTL*总股本*0.008;
法人:=Abs(总股本-券基-普通);
虚拟总:=券基+普通+法人;
券基户数:=INTPART(ABS(DDCM)*基数*0.008);
法人户数:=INTPART(ABS(KDCM)*基数*0.02);
普通户数:=INTPART(SHTL*20*基数);
总户数:=券基户数+法人户数+普通户数;
STICKLINE(CURR=起点-ROUND(62*均分),10.5,20*(普通/虚拟总)+11,10,0),COLOR00FF00;
STICKLINE(CURR=起点-ROUND(55*均分),10.5,20*(法人/虚拟总)+11,10,0),COLOR00FFFF;
STICKLINE(CURR=起点-ROUND(47*均分),10.5,20*(券基/虚拟总)+11,10,0),COLOR0000FF;
%普通:=普通/虚拟总*10{XG51};
%法人:=法人/虚拟总*10{XG51};
%券基:=券基/虚拟总*10{XG51};
STICKLINE(CURR=起点-ROUND(62*均分),10.2,10-SUM(ABS(%普通-REF(%普通,1)),3),10,1),COLORFFFFFF;
STICKLINE(CURR=起点-ROUND(55*均分),10.2,10-SUM(ABS(%法人-REF(%法人,1)),3),10,1),COLOR00FFFF;
STICKLINE(CURR=起点-ROUND(47*均分),10.2,10-SUM(ABS(%券基-REF(%券基,1)),3),10,1),COLORFFFF00;
分类1:=IF(CURR=起点-ROUND(62*均分),'普通',IF(CURR=起点-ROUND(55*均分),'法人',
IF(CURR=起点-ROUND(47*均分),'券基',DRAWNULL))){XG51};
DRAWTEXT(CURR=起点-ROUND(62*均分) OR CURR=起点-ROUND(55*均分) OR CURR=起点-ROUND(47*均分),6,分类1),COLOR8E0000;
特大:=MAX(DDCM,0)*总股本*0.009,NODRAW;
大户:=KDCM*总股本*0.003+DDCM*总股本*0.001;
散户:=SHTL*总股本*0.008;
中户:=ABS(总股本-特大-大户-散户);
ZZ:=特大+大户+散户+中户;
STICKLINE(CURR=起点-ROUND(36*均分),10.5,20*(散户/ZZ)+11,10,0),COLOR00FF00;
STICKLINE(CURR=起点-ROUND(29*均分),10.5,20*(中户/ZZ)+11,10,0),COLORFF18A4;
STICKLINE(CURR=起点-ROUND(22*均分),10.5,20*(大户/ZZ)+11,10,0),COLOR00FFFF;
STICKLINE(CURR=起点-ROUND(15*均分),10.5,20*(特大/ZZ)+11,10,0),COLOR0000FF;
%散户:=散户/ZZ*10{XG51};
%中户:=中户/ZZ*10{XG51};
%大户:=大户/ZZ*10{XG51};
%特大:=特大/ZZ*10{XG51};
STICKLINE(CURR=起点-ROUND(36*均分),10.2,10-SUM(ABS(%散户-REF(%散户,1)),3),10,1),COLOR0000FF;
STICKLINE(CURR=起点-ROUND(29*均分),10.2,10-SUM(ABS(%中户-REF(%中户,1)),3),10,1),COLOR9732F6;
STICKLINE(CURR=起点-ROUND(22*均分),10.2,10-SUM(ABS(%大户-REF(%大户,1)),3),10,1),COLORFF0000;
STICKLINE(CURR=起点-ROUND(15*均分),10.2,10-SUM(ABS(%特大-REF(%特大,1)),3),10,1),COLOR880088;
分类2:=IF(CURR=起点-ROUND(35*均分),'普户',IF(CURR=起点-ROUND(28*均分),'中户',
IF(CURR=起点-ROUND(20*均分),'大户',IF(CURR=起点-ROUND(13*均分),'特大',DRAWNULL)))){XG51};
DRAWTEXT(CURR=起点-ROUND(35*均分) OR CURR=起点-ROUND(28*均分) OR
CURR=起点-ROUND(20*均分) OR CURR=起点-ROUND(13*均分),6,分类2),COLOREE0000;
A1K:=SHTL*总股本*0.008+基准股*0.5+DDCM*总股本*0.001;
A1W:=SHTL*总股本*0.004+基准股*0.7+DDCM*总股本*0.002;
A5W:=SHTL*总股本*0.002+基准股*0.9+DDCM*总股本*0.002;
A10W:=基准股*0.15+KDCM*总股本*0.0002;
A50W:=基准股*0.3+KDCM*总股本*0.0001;
A100W:=基准股*0.1+KDCM*总股本*0.0001;
A500W:=DDCM*总股本*0.01+KDCM*总股本*0.0001;
A1000W:=DDCM*总股本*0.02+KDCM*总股本*0.0002;
A1000WP:=DDCM*总股本*0.05;
总价:=A1K+A1W+A5W+A10W+A50W+A100W+A500W+A1000W+A1000WP;
STICKLINE(CURR=起点-ROUND(74*均分),10.5,20*(A1000WP/总价)+11,10,0),COLOR0000FF;
STICKLINE(CURR=起点-ROUND(82*均分),10.5,20*(A1000W/总价)+11,10,0),COLOR9732F6;
STICKLINE(CURR=起点-ROUND(90*均分),10.5,20*(A500W/总价)+11,10,0),COLORFF0000;
STICKLINE(CURR=起点-ROUND(98*均分),10.5,20*(A100W/总价)+11,10,0),COLOR880088;
STICKLINE(CURR=起点-ROUND(106*均分),10.5,20*(A50W/总价)+11,10,0),COLORFFFF00;
STICKLINE(CURR=起点-ROUND(112*均分),10.5,20*(A10W/总价)+11,10,0),COLOR00FF00;
STICKLINE(CURR=起点-ROUND(120*均分),10.5,20*(A5W/总价)+11,10,0),COLOR00FFFF;
STICKLINE(CURR=起点-ROUND(129*均分),10.5,20*(A1W/总价)+11,10,0),COLOR18A4FF;
STICKLINE(CURR=起点-ROUND(137*均分),10.5,20*(A1K/总价)+11,10,0),COLORFFFFFF;
DRAWNUMBER(CURR=起点-ROUND(72*均分),20*(A1000WP/总价)+13,(A1000WP/总价)*100),COLORFFFFFF;
DRAWNUMBER(CURR=起点-ROUND(80*均分),20*(A1000W/总价)+13,(A1000W/总价)*100),COLOR18A4FF;
DRAWNUMBER(CURR=起点-ROUND(88*均分),20*(A500W/总价)+13,(A500W/总价)*100),COLOR00FFFF;
DRAWNUMBER(CURR=起点-ROUND(96*均分),20*(A100W/总价)+13,(A100W/总价)*100),COLORFFFF00;
DRAWNUMBER(CURR=起点-ROUND(104*均分),20*(A50W/总价)+13,(A50W/总价)*100),COLOR880088;
DRAWNUMBER(CURR=起点-ROUND(110*均分),20*(A10W/总价)+13,(A10W/总价)*100),COLOR00FF00;
DRAWNUMBER(CURR=起点-ROUND(118*均分),20*(A5W/总价)+13,(A5W/总价)*100),COLORFF0000;
DRAWNUMBER(CURR=起点-ROUND(127*均分),20*(A1W/总价)+13,(A1W/总价)*100),COLOR9732F6;
DRAWNUMBER(CURR=起点-ROUND(135*均分),20*(A1K/总价)+13,(A1K/总价)*100),COLOR0000FF;
%A1K:=A1K/总价*10{XG51};
%A1W:=A1W/总价*10{XG51};
%A5W:=A5W/总价*10{XG51};
%A10W:=A10W/总价*10{XG51};
%A50W:=A50W/总价*10{XG51};
%A100W:=A100W/总价*10{XG51};
%A500W:=A500W/总价*10{XG51};
%A1000W:=A1000W/总价*10{XG51};
%A1000WP:=A1000WP/总价*10{XG51};
STICKLINE(CURR=起点-ROUND(74*均分),10.2,10-ABS(%A1000WP-REF(%A1000WP,1)),10,1),COLORFFFFFF;
STICKLINE(CURR=起点-ROUND(82*均分),10.2,10-ABS(%A1000W-REF(%A1000W,1)),10,1),COLOR18A4FF;
STICKLINE(CURR=起点-ROUND(90*均分),10.2,10-ABS(%A500W-REF(%A500W,1)),10,1),COLOR00FFFF;
STICKLINE(CURR=起点-ROUND(98*均分),10.2,10-ABS(%A100W-REF(%A100W,1)),10,1),COLORFFFF00;
STICKLINE(CURR=起点-ROUND(106*均分),10.2,10-ABS(%A50W-REF(%A50W,1)),10,1),COLOR00FF00;
STICKLINE(CURR=起点-ROUND(112*均分),10.2,10-ABS(%A10W-REF(%A10W,1)),10,1),COLOR880088;
STICKLINE(CURR=起点-ROUND(120*均分),10.2,10-ABS(%A5W-REF(%A5W,1)),10,1),COLORFF0000;
STICKLINE(CURR=起点-ROUND(129*均分),10.2,10-ABS(%A1W-REF(%A1W,1)),10,1),COLOR9732F6;
STICKLINE(CURR=起点-ROUND(137*均分),10.2,10-ABS(%A1K-REF(%A1K,1)),10,1),COLOR0000FF;
分类3:=IF(CURR=起点-ROUND(72*均分),'1000万以上',IF(CURR=起点-ROUND(90*均分),'500万',
IF(CURR=起点-ROUND(106*均分),'50万',IF(CURR=起点-ROUND(120*均分),'5万',
IF(CURR=起点-ROUND(135*均分),'0.1万',DRAWNULL))))){XG51};
DRAWTEXT(CURR=起点-ROUND(72*均分) OR CURR=起点-ROUND(90*均分) OR
CURR=起点-ROUND(106*均分) OR CURR=起点-ROUND(120*均分) OR CURR=起点-ROUND(135*均分),5,分类3),COLOR0000FF;
分类4:=IF(CURR=起点-ROUND(82*均分),'1000万',IF(CURR=起点-ROUND(98*均分),'100万',
IF(CURR=起点-ROUND(112*均分),'10万',IF(CURR=起点-ROUND(127*均分),'1万',DRAWNULL)))){XG51};
DRAWTEXT(CURR=起点-ROUND(82*均分) OR CURR=起点-ROUND(98*均分) OR
CURR=起点-ROUND(112*均分) OR CURR=起点-ROUND(127*均分) OR CURR=起点-ROUND(135*均分),7,分类4),COLOR0000FF;
DRAWTEXT(CURR=起点-ROUND(5*均分),MAX(20*(散户/ZZ),20*(A1000WP/总价))+8,'持仓：'),COLORFFFFFF;
STICKLINE(CURR=起点-ROUND(5*均分) OR CURR=起点-ROUND(42*均分) OR CURR=起点-ROUND(68*均分),MAX(20*(散户/ZZ),20*(A1000WP/总价))+11,5,0,-1),COLORFFFFFF{XG51};
DRAWICON(CURR=IF(参=2,日,DRAWNULL),MAX(20*(散户/ZZ),20*(A1000WP/总价))+11,11);
DRAWTEXT((CURR=起点-ROUND(5*均分)+2) OR (CURR=起点-ROUND(5*均分)),IF(CURR=起点-ROUND(5*均分),7,11),IF(CURR=起点-ROUND(5*均分),'分类：','今昨比差：')),COLORFFFFFF;
0{X+G.5?1+C+N+{};