通达信大分割主图未加密选股指标公式源码

通达信大分割主图未加密选股指标公式源码

源码正文：

高点:=50{XG51};
低点:=30{XG51};
之幅度:=5{XG51};
高点A:=22{XG51};
低点A:=10{XG51};
精准计数周期:=240{XG51};
低1开2收3高4:=1{XG51};
基准点前N天:=0{XG51};
PP:=550{XG51};
F1:=1{XG51};
F2:=2{XG51};
N9:=120{XG51};
KP:=BArslAst(CURRBARSCOUNT=N9){XG51};
GDY:=CONST(IF(ISLASTBAR=1,HHV(H,KP),0)){XG51};
DDS:=CONST(IF(ISLASTBAR=1,LLV(L,KP),0)){XG51};
KJ:=GDY-DDS{XG51};
DRAWTEXT(CURRBARSCOUNT=N9/2-58,GDY-KJ/12,' 【风险区】--高抛避险'),COLOR555555{XG51};
DRAWTEXT(CURRBARSCOUNT=N9/2-58,GDY-KJ/3.5,' 【警示区】--逢高减仓'),COLOR555555{XG51};
DRAWTEXT(CURRBARSCOUNT=N9/2-58,GDY-KJ/2.23,' 【突破区】--主力拉升'),COLOR555555{XG51};
DRAWTEXT(CURRBARSCOUNT=N9/2-58,GDY-KJ/1.82,' 【拉升区】--强势畜锐'),COLOR555555{XG51};
DRAWTEXT(CURRBARSCOUNT=N9/2-58,DDS+KJ/3.5,' 【反弹中轨】--低买高休'),COLOR555555{XG51};
DRAWTEXT(CURRBARSCOUNT=N9/2-58,DDS+KJ/10,' 【低吸区】--大胆买入'),COLOR555555{XG51};
T1:=CONST(LLVBARS(LOW,10)){XG51};
T1HIGH:=CONST(REF(HIGH,T1)){XG51};
CCC:=CONST(CURRBARSCOUNT){XG51};
T2G:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T1 AND HIGH>T1HIGH)){XG51};
T2HIGH:=CONST(REF(HIGH,T2G)){XG51};
T3:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T2G AND HIGH>T2HIGH)){XG51};
T3HIGH:=CONST(REF(HIGH,T3)){XG51};
猎击:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK2,COLOR666666{XG51};
DRAWTEXT(ISLASTBAR, T3HIGH, '---------------猎击')LINETHICK1,COLOR666666{XG51};
bias3:=ma((CLOSE-MA(CLOSE,27))/MA(CLOSE,27),3)*100,COLORFF00FF,LINETHICK2{XG51};
操作区:=IF(BIAS3<0,BIAS3,0),COLORWHITE,LINETHICK3{XG51};
观望区:=IF(BIAS3>0,BIAS3,0),COLORCYAN,LINETHICK3{XG51};
VAR2K:=TROUGHBARS(3,15,1)<10{XG51};
VAR3K:=PEAKBARS(3,15,1)<10{XG51};
VAR4K:=IF(VAR2K=1,50,0){XG51};
VAR5K:=IF(VAR3K=1,50,0){XG51};
TJ1K:=观望区<REF(观望区,1) OR 观望区-REF(观望区,1)<REF(观望区,1)-REF(观望区,2){XG51};
TJ2K:=操作区>REF(操作区,1){XG51};
顶:=IF(TJ1K AND VAR5K=50,15,0),STICK{XG51};
底:=IF(TJ2K AND VAR4K=50,10,0),STICK,LINETHICK1,COLORWHITE{XG51};
STICKLINE(TJ1K AND VAR5K=50,HHV(H,10),HHV(H,10)-0.001,2,1),COLORLIBLUE{XG51};
STICKLINE(TJ2K AND VAR4K=50,LLV(L,10),LLV(L,10)+0.001,2,1),COLOR000099{XG51};
VAR31:=HHVBARS(zig(3, 19)>REF(ZIG(3,19),1)
AND REF(ZIG(3,19), 1)<REF(ZIG(3,19), 2),0){XG51};
DRAWTEXT(VAR31=1,H*0.98,'2天'),COLORCBCBC0{XG51};
DRAWTEXT(VAR31=2,L*0.98,'3天'),COLOR008888{XG51};
DRAWTEXT(VAR31=4,H*1.03,'5天'),COLOR008888{XG51};
DRAWTEXT(VAR31=7,L*0.98,'8天'),COLOR008888{XG51};
DRAWTEXT(VAR31=12,H*1.03,'13天'),COLOR008888{XG51};
DRAWTEXT(VAR31=20,L*0.98,'21天'),COLOR008888{XG51};
DRAWTEXT(VAR31=27,H*0.95,'28天'),COLORCBCBC0{XG51};
DRAWTEXT(VAR31=31,H*0.95,'32天'),COLORCBCBC0{XG51};
DRAWTEXT(VAR31=33,H*1.03,'34天'),COLOR008888{XG51};
DRAWTEXT(VAR31=49,H*0.96,'49天'),COLORCBCBC0{XG51};
DRAWTEXT(VAR31=54,L*0.98,'55天'),COLOR008888{XG51};
DRAWTEXT(VAR31=61,H*0.96,'61天'),COLORCBCBC0{XG51};
DRAWTEXT(VAR31=88,H*1.03,'89天'),COLOR008888{XG51};
DRAWTEXT(VAR31=143,L*0.98,'144天'),COLOR008888{XG51};
DRAWTEXT(VAR31=232,H*1.03,'233天'),COLOR008888{XG51};
DRAWTEXT(VAR31=376,L*0.98,'377天'),COLOR008888{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),COLORLIMAGENTA,LINETHICK2{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),COLORGREEN,LINETHICK2{XG51};
TJ1:=IF(Q_B<REF(Q_B,1) AND Q_B=Q_A,1,0){XG51};
DRAWICON(REF(TJ1,1)=0 AND TJ1>=1 AND cci<-40 ,L*0.995,36){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};
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};
必买:=(B01 AND B02);
DRAWICON(必买,L*0.985,38){XG51};
VAR2X:=TROUGHBARS(3,15,1)<10{XG51};
VAR3X:=PEAKBARS(3,15,1)<10{XG51};
VAR4X:=IF(VAR2X=1,50,0){XG51};
底部:=IF(VAR4X=50,10,0){XG51};
多头能量:=0{XG51};
买入:=IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,50,0){XG51};
DRAWTEXT(买入=50,L*0.996,'●'),COLORCBCBC0{XG51};
PL5:=IF(PERIOD>=7,ZIG(3,1),IF(PERIOD=3,ZIG(1,2),ZIG(1,2))){XG51};
PL10:=IF(PERIOD>=7,ZIG(3,30),IF(PERIOD=3,ZIG(1,10),ZIG(1,10))){XG51};
EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3){XG51};
EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3){XG51};
走强2:=BARSLAST(PL10<REF(PL10,1)){XG51};
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0){XG51};
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.99,'●'),COLORBLUE{XG51};
GD:=CONST(FINDHIGH(H,0,高点*10,1)){XG51};
DD:=CONST(FINDLOW(L,0,低点*10,1)){XG51};
GT:=CONST(BARSLAST(GD=H))+1{XG51};
DT:=CONST(BARSLAST(DD=L))+1{XG51};
SH:=CONST(IF(GT=1,H,REF(H,GT-1))){XG51};
SL:=CONST(IF(DT=1,L,REF(L,DT-1))){XG51};
CC:=IF(DT>GT,DT,GT){XG51};
CD:=INTPART(CC-(DT+GT)/2){XG51};
CG:=IF(高点>CD,CD/2,高点){XG51};
下跌周期:BARSLAST(GD=H),COLORRED,NODRAW{XG51};
下跌幅:IF(CURRBARSCOUNT<=GT,C/SH*100-100,DRAWNULL),NODRAW,COLORCYAN{XG51};
下跌均价:IF(CURRBARSCOUNT<=GT,SUM(AMOUNT,GT)/SUM(V,GT)/100,DRAWNULL),NODRAW,COLORBLACK{XG51};
跌换手%:IF(CURRBARSCOUNT<=GT,SUM(HSL.HSL,GT),DRAWNULL),COLORGREEN,NODRAW{XG51};
上涨周期:IF(CURRBARSCOUNT<=DT,BARSLAST(DD=L),DRAWNULL),COLORRED,NODRAW{XG51};
上涨幅:IF(CURRBARSCOUNT<=DT,C/SL*100-100,DRAWNULL),NODRAW,COLORWHITE{XG51};
上涨均价:IF(CURRBARSCOUNT<=DT,SUM(AMOUNT,DT)/SUM(V,DT)/100,DRAWNULL),NODRAW,COLORBLACK{XG51};
涨换手%:IF(CURRBARSCOUNT<=DT,SUM(HSL.HSL,DT),DRAWNULL),COLORMAGENTA,NODRAW{XG51};
星期:=VARCAT(VARCAT('(',IF(WEEkdAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五','')))))),')');
日期:=VARCAT('-',VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期)){XG51};
DRAwrECTREL(990,1,382,1,RGB(250,250,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.00,0,'100%'),COLOR00CCCC{XG51};
DRAWRECTREL(990,188,382,188,RGB(200,200,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.189,0,'80.9% 19.1%'),COLOR00CCCC{XG51};
DRAWRECTREL(990,375,382,375,RGB(200,100,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.376,0,'61.8% 38.2%'),COLOR0099CC{XG51};
DRAWRECTREL(990,491,382,491,RGB(50,50,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.492,0,'50.0% 50.0%'),COLOR008888{XG51};
DRAWRECTREL(990,607,382,607,RGB(200,100,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.608,0,'38.2% 61.8%'),COLOR0099CC{XG51};
DRAWRECTREL(990,794,382,794,RGB(200,200,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.795,0,'19.1% 80.9%'),COLOR00CCCC{XG51};
DRAWRECTREL(990,982,382,982,RGB(250,250,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.936,0,'BASE'),COLOR00CCCC{XG51};
DRAWRECTREL(990,232,382,232,RGB(100,100,0)){XG51};
DRAWRECTREL(990,144.6,382,144.6,RGB(100,100,0)){XG51};
DRAWRECTREL(990,750,382,750,RGB(100,100,0)){XG51};
DRAWRECTREL(990,839,382,839,RGB(100,100,0)){XG51};
DRAWRECTREL(990,234,382,234,RGB(200,200,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.233,0,'76.4% 23.6%%'),COLOR00CCCC{XG51};
DRAWRECTREL(990,752,382,752,RGB(200,200,0)){XG51};
DRAWTEXT_FIX(C>0,0.382,0.753,0,'23.6% 76.4%'),COLOR00CCCC{XG51};
GDA:=CONST(FINDHIGH(H,0,高点A*10,1)){XG51};
DDA:=CONST(FINDLOW(L,0,低点A*10,1)){XG51};
GTA:=CONST(BARSLAST(GDA=H))+1{XG51};
DTA:=CONST(BARSLAST(DDA=L))+1{XG51};
SHA:=CONST(IF(GTA=1,H,REF(H,GTA-1))){XG51};
SLA:=CONST(IF(DTA=1,L,REF(L,DTA-1))){XG51};
CCA:=IF(DTA>GTA,DTA,GTA){XG51};
CDA:=INTPART(CCA-(DTA+GTA)/2){XG51};
CGA:=IF(高点A>CDA,CDA/2,高点A){XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.03,STRCAT('一3% ',CON2STR(SHA-SHA*0.03,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.05,STRCAT('一5% ',CON2STR(SHA-SHA*0.05,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.08,STRCAT('一8% ',CON2STR(SHA-SHA*0.08,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.1,STRCAT('一10% ',CON2STR(SHA-SHA*0.1,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.13,STRCAT('一13% ',CON2STR(SHA-SHA*0.13,2))),COLOR994400{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.15,STRCAT('一15% ',CON2STR(SHA-SHA*0.15,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.18,STRCAT('一18% ',CON2STR(SHA-SHA*0.18,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.2,STRCAT('一20% ',CON2STR(SHA-SHA*0.2,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.25,STRCAT('一25% ',CON2STR(SHA-SHA*0.25,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.3,STRCAT('一30% ',CON2STR(SHA-SHA*0.3,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.4,STRCAT('一40% ',CON2STR(SHA-SHA*0.4,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.5,STRCAT('一50% ',CON2STR(SHA-SHA*0.5,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.6,STRCAT('一60% ',CON2STR(SHA-SHA*0.6,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.7,STRCAT('一70% ',CON2STR(SHA-SHA*0.7,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.8,STRCAT('一80% ',CON2STR(SHA-SHA*0.8,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=GTA,SHA-SHA*0.9,STRCAT('一90% ',CON2STR(SHA-SHA*0.9,2))),COLOR004500{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.03,STRCAT('一3% ',CON2STR(SLA*1.03,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.05,STRCAT('一5% ',CON2STR(SLA*1.05,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.08,STRCAT('一8% ',CON2STR(SLA*1.08,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.1,STRCAT('一10% ',CON2STR(SLA*1.1,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.13,STRCAT('一13% ',CON2STR(SLA*1.13,2))),COLOR994400{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.15,STRCAT('一15% ',CON2STR(SLA*1.15,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.18,STRCAT('一18% ',CON2STR(SLA*1.18,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.2,STRCAT('一20% ',CON2STR(SLA*1.2,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.25,STRCAT('一25% ',CON2STR(SLA*1.25,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.3,STRCAT('一30% ',CON2STR(SLA*1.3,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.4,STRCAT('一40% ',CON2STR(SLA*1.4,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.5,STRCAT('一50% ',CON2STR(SLA*1.5,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.6,STRCAT('一60% ',CON2STR(SLA*1.6,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.7,STRCAT('一70% ',CON2STR(SLA*1.7,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.8,STRCAT('一80% ',CON2STR(SLA*1.8,2))),COLOR444444{XG51};
DRAWTEXT(CURRBARSCOUNT=DTA,SLA*1.9,STRCAT('一90% ',CON2STR(SLA*1.9,2))),COLOR444444{XG51};
TC1:=IF(H=HHV(H,48),H,DRAWNULL){XG51};
TC2:=CONST(BARSLAST(TC1=H))+1{XG51};
UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1))){XG51};
BC1:=IF(L=LLV(L,48),L,DRAWNULL){XG51};
BC2:=CONST(BARSLAST(BC1=L))+1{XG51};
LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1))){XG51};
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER{XG51};
HP:=CURRBARSCOUNT<=TC2 AND H=UPPER{XG51};
AB1:=EMA(((2*C+H+L)/4-LLV(LOW,30))/
(HHV(HIGH,30)-LLV(LOW,30))*100,8);
BA1:=EMA(AB1,5);
上轨:=REFDATE(REF(HHV(MAX(C,O),96),5),DATE);
下轨:=REFDATE(REF(LLV(MIN(C,O),96),5),DATE){XG51};
中轨:=((上轨)+(下轨))/2;
YXHX:=DATE>=REF(DATE,BARSLAST(IF(BC2>TC2,LP,HP))){XG51};
上沿:IF(AB1>0 AND AB1-BA1<=0 AND YXHX,上轨,上轨),DOTLINE,COLOR555555{XG51};
中枢:IF(AB1>0 AND AB1-BA1<=0 AND YXHX,中轨,中轨),DOTLINE,COLOR555555{XG51};
下沿:IF(AB1>0 AND AB1-BA1<=0 AND YXHX,下轨,下轨),DOTLINE,COLOR555555{XG51};
HIGHN:=10{XG51};
LOWN:=10{XG51};
HIGHDISPLAY:=0{XG51};
LOWDISPLAY:=0{XG51};
ZGDISPLAY:=0{XG51};
MADISPLAY:=0{XG51};
AAA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1){XG51};
QY:=BacKSET(AAA,HIGHN+1){XG51};
CCCC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1){XG51};
Dddf:=BARSLAST(CCCC){XG51};
GDTS:=IF(CCCC,CURRBARSCOUNT,0){XG51};
DINGBU:=IF(DDDF,REF(H,DDDF),H){XG51};
DINGBUTS:=IF(DDDF,REF(GDTS,DDDF),GDTS){XG51};
GDCS1:=CONST(DINGBUTS){XG51};
DINGBUTS1:=REF(DINGBUTS,DDDF+1){XG51};
GDCS2:=CONST(DINGBUTS1){XG51};
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR996600,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLOR996600,POINTDOT{XG51};
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1){XG51};
QY1:=BACKSET(AA1,LOWN+1){XG51};
CC1D:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1){XG51};
DD1D:=BARSLAST(CC1D){XG51};
DDTS:=IF(CC1D,CURRBARSCOUNT,0){XG51};
DDTS1:=IF(DD1D,REF(DDTS,DD1D),DDTS){XG51};
DDCS1:=CONST(DDTS1){XG51};
DDTS2:=REF(DDTS1,DD1D+1){XG51};
DDCS2:=CONST(DDTS2){XG51};
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLOR996600,POINTDOT{XG51};
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLOR996600,POINTDOT{XG51};
前20内高:=HHV(C,20){XG51};
昨前高:CONST(REF(前20内高,2)),COLORBROWN,POINTDOT{X~G!5*1~C~N~{};

通达信量123未加密选股指标公式源码

源码正文：

DRAWGBK(C>0,RGB(0,9,2),RGB(0,95,0),0,'0',0){XG51};
量:V,volstICK{XG51};
PJJ:=dma((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9){XG51};
JJ:=REF(ema(PJJ,3),1){XG51};
QJJ:=(VOL / (((HIGH - LOW) * 2) - Abs((CLOSE - OPEN)))); XVL:=(IF((CLOSE > OPEN),(QJJ * (HIGH - LOW)),IF((CLOSE < OPEN),(QJJ * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2))) + IF((CLOSE > OPEN)
,(0 - (QJJ * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (QJJ * (HIGH - LOW))),(0 - (VOL / 2))))){XG51};
ZLL:=(VOL / CAPITAL){XG51};
HSL1:=IF((ZLL > 10),10,ZLL){XG51};
HSL:=((XVL / 20) / 1.15);
进攻流量:=(((HSL * 0.55) + (REF(HSL,1) * 0.33)) + (REF(HSL,2) * 0.22)){XG51};
GJJ:=Ema(进攻流量,8){XG51};
LLJX:=EMA(进攻流量,3){XG51};
动态天量:=CONST(IF(V=HHV(V,20),V,REF(V,BArslAST(V=HHV(V,20))))),COLOR00FF00,POINTDOT{XG51};
STICKLINE(((HSL * 0.4) >= 0),动态天量+((HSL * 0.4) +LLJX)*20,动态天量,3,0),COLORBLUE{XG51};
STICKLINE(((HSL * 0.4) < 0),动态天量+((HSL * 0.4) +LLJX)*20,动态天量,3,0),COLOR00FF00{XG51};
资金流入:=IF((HSL*0.4+LLJX)> 0,(HSL*0.4+LLJX),DRAWNULL),COLORWHITE{XG51};
资金流出:=IF((HSL*0.4+LLJX)< 0,(HSL*0.4+LLJX),DRAWNULL),COLOR00FF00{XG51};
资金收支:=(HSL*0.4+LLJX),LINETHICK0{XG51};
万元:=AMOUNT/10000,VOLSTICK,COLORFF00FF{XG51};
资金净收支:IF((HSL*0.4+LLJX)> 0,资金流入,资金流出),COLORRED,POINTDOT{XG51};
收支比例%:IF((HSL*0.4+LLJX)> 0,资金流入/万元*100,资金流出/万元*100),COLORBLUE{XG51};
连红天1:=BARSLASTCOUNT(资金净收支>0),,COLORA20FFD,NODRAW{XG51};
连红天2:=IF(连红天1=0,REF(连红天1,1),连红天1),,COLORA20FFD,NODRAW{XG51};
连红天3:=IF(连红天2=0,REF(连红天1,2),连红天2),,COLORA20FFD,NODRAW{XG51};
连红天4:=IF(连红天3=0,REF(连红天1,3),连红天3),,COLORA20FFD,NODRAW{XG51};
近期连红天:IF(连红天4=0,REF(连红天1,4),连红天4),,COLORBLUE,NODRAW;
三日资金:SUM(资金收支,3),COLORRED,NODRAW{XG51};
五日资金:SUM(资金收支,5),COLORFF00FF,NODRAW;
十日资金:SUM(资金收支,10),COLOR0000FF,NODRAW{XG51};
资金流量:=LLJX,LINETHICK0,COLOR0000FF{XG51};
STICKLINE((资金流量 > 0),动态天量+资金流量*20,动态天量,3,0),COLOR0000FF{XG51};
STICKLINE((资金流量 < 0),动态天量+资金流量*20,动态天量,3,0),COLOR008000{XG51};
N1:=10,100,34{XG51};
N2:=N1*1.05{XG51};
N3:=N1+3{XG51};
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)){XG51};
量能饱和度:IF(SAT> 1,1,SAT)*100,COLORLIGREEN,NODRAW{XG51};
中点:=REFDATE(HHV(V,100)/2,DATE){XG51};
STICKLINE(CURRBARSCOUNT=N1,中点*1.9,中点*1.5,100,1),COLOR00DDDD{XG51};
STICKLINE(CURRBARSCOUNT=N1,中点*1.88,中点*1.52,量能饱和度,0),COLOR0033FF{XG51};
STICKLINE(CURRBARSCOUNT=N1,中点*1.82,中点*1.58,量能饱和度,0),COLOR0077FF{XG51};
STICKLINE(CURRBARSCOUNT=N1,中点*1.76,中点*1.64,量能饱和度,0),COLOR0099FF{XG51};
STICKLINE(CURRBARSCOUNT=N1,中点*1.7,中点*1.7,量能饱和度,0),COLOR00ddfF{XG51};
DRAWTEXT(CURRBARSCOUNT=N3,中点*1.70,'量能饱和度'),COLOR000000{XG51};
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)){XG51};
买盘:IF(CLOSE> OPEN,VAR1*(HIGH-LOW),IF(CLOSE< OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORWHITE,POINTDOT{XG51};
卖盘:-IF(CLOSE> OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORGREEN,POINTDOT{XG51};
成交量比%:买盘/VOL*100,COLORRED,NODRAW;
万手:VOL/10000,LINETHICK0;
AA:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL);
预测:AA/10000;
BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主动买:=IF(CLOSE> OPEN,BB*(HIGH-LOW),IF(CLOSE< OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
主买:主动买/10000,COLORWHITE;
主动卖:=IF(CLOSE> OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN,0-BB*(HIGH-LOW),0-VOL/2));
主卖:-主动卖/10000,COLORCYAN;
差额:(主动买+主动卖)/10000;
STICKLINE(CLOSE= REF(CLOSE,1),0,VOL,3.5,0),COLORRED;
STICKLINE(CLOSE> REF(CLOSE,1),0,VOL,3.5,0),COLORWHITE;
STICKLINE(CLOSE< REF(CLOSE,1),0,VOL,3.5,0),COLORCYAN;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 3.5 , 0 ) , COLOR00FFFF {XG51};
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 3.2 , 0 ) , COLOR007777 ;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 2.7 , 0 ) , COLOR009999 ;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 2.1 , 0 ) , COLOR00BBBB ;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 1.5 , 0 ) , COLOR00ddeE ;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 0.9 , 0 ) , COLOR66FFFF ;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,AA,1 , 0.2 , 0 ) , COLORFFFFFF ;
STICKLINE(主动买>= 0,VOL,-主动卖,3.2,0),COLOR000033;
STICKLINE(主动买>= 0,VOL,-主动卖,2.7,0),COLOR000066;
STICKLINE(主动买>= 0,VOL,-主动卖,2.1,0),COLOR000099;
STICKLINE(主动买>= 0,VOL,-主动卖,1.5,0),COLOR0000CC;
STICKLINE(主动买>= 0,VOL,-主动卖,0.9,0),COLOR0000FF;
STICKLINE(主动买>= 0,VOL,-主动卖,0.2,0),COLORCC66FF;
STICKLINE(主动卖<= 0,0,-主动卖,3.2,0),COLOR990000;
STICKLINE(主动卖<= 0,0,-主动卖,2.7,0),COLORCC0000;
STICKLINE(主动卖<= 0,0,-主动卖,2.1,0),COLORFF4400;
STICKLINE(主动卖<= 0,0,-主动卖,1.5,0),COLORFF8800;
STICKLINE(主动卖<= 0,0,-主动卖,0.9,0),COLORFFCC00;
STICKLINE(主动卖<= 0,0,-主动卖,0.2,0),COLORGREEN;
持币:IF(SAR(10,2,20)>= H,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK1{XG51};
DRAWICON(持币> 0,持币,35 );
持股:IF(SAR(10,2,20)<= L,SAR(10,2,20),DRAWNULL),CIRCLEDOT,COLORWHITE,LINETHICK1{XG51};
DRAWICON(持股> 0,持股,34 ){XG51};
个股资金线:=MA(C,1)/MA(REF(C,18),18)*100{XG51};
资金生命线:=MA(FORCAST(个股资金线,20),6){XG51};
生命线:个股资金线> 资金生命线,COLOR000000,STICK,LINETHICK1{XG51};
DRAWICON(生命线>0,生命线,34){XG51};
五日: MA(V,5);
十五日: MA(V,15){XG51};
三十五日: MA(V,35)COLORYELLOW,LINETHICK2;
 {X?G^5-1?C?N?{};