通达信轨道整合主图选股指标公式源码

通达信轨道整合主图选股指标公式源码

源码正文：

KLC:=REF(C,1);
Krsi:=SMA(maX(C-KLC,0),6,1)/SMA(Abs(C-KLC),6,1)*100;
KRSV1:=MA(100*ema((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)),2),2){XG51};
KRSV2:=(C-LLV(L,25))/(HHV(H,25)-LLV(L,25))*100{XG51};
K0:=EMA(SLOPE(C,5)*20+C,34){XG51};
K1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
K2:=SMA(K1,3,1);
K3:=100*((EMA((H+L)/2,3)-LLV(EMA((H+L)/2,5),30)-(EMA(H,20)-
EMA(L,20)))/(LLV(EMA((H+L)/2,5),30)-(EMA(H,20)-EMA(L,20)))){XG51};
K4:=IF(EMA(C,2)>K0 AND K3>0,EMA(C,3),LLV(EMA((H+L)/2,5),30)){XG51};
K5:=IF(EMA(C,2)>K0 AND K3>0,LLV(EMA((H+L)/2,5),30),EMA(C,5)){XG51};
K6:=SMA(C,6.5,1){XG51};
K7:=SMA(C,14.5,1){XG51};
K8:=SMA(C,3,1){XG51};
K9:=SMA(C,8,1){XG51};
KA:=(2*C+H+L)/4{XG51};
KB:=MA(KA,5){XG51};
KC:=LLV((C+L)/2,21){XG51};
KC1:=LLV((C+L)/2,0){XG51};
kd:=HHV(KA,30)*1.01{XG51};
KE:=KB>=REF(KB,1){XG51};
KF:=MAX(MAX(K6,K9),K7){XG51};
KG:=MIN(MIN(K6,K9),K7){XG51};
KH:=EMA((KA-KC)/(KD-KC)*100,7);
KJ:=EMA(0.667*REF(KH,1)+0.333*KH,5);
KK:=1000*KB/K7<=1015 AND 1000*KB/K7>=975;
KL:=1000*K9/K7<=1020 AND K9/K7>=980;
KM:=1000*K6/K7<=1015 AND K6/K7>=985{XG51};
KN:=MA(C,89)-MA(C,10)/3;
KP:=SMA(KRSV2,3,1){XG51};
KQ:=SMA(KP,3,1){XG51};
KR:=3*KP-2*KQ{XG51};
KS:=(2*C+H+L)/3{XG51};
KT:=EMA(EMA(EMA(KS,4),4),4){XG51};
KU:=(KT-REF(KT,1))/REF(KT,1)*100{XG51};
KV:=MA(KU,3)+0.03{XG51};
KW:=MA(KU,1){XG51};
KX:=(C>O AND KF<C AND O<KG AND KE AND L>KC AND K8>K7 AND KR<90 AND crOSS(K8,KB)) OR
(C>O AND K6>K9 AND K9>K7 AND C>MA(C,K7) AND KB>=REF(C,KB) AND CROSS(K8,KB) AND
L>KC AND KR<90){XG51};
KY:=(CROSS(K8,KB) AND K8<K7 AND K8<K9 AND K8<K6 AND C>KC) OR
(IF(C<KN AND vol/240>MA(VOL,5)/240 AND C>REF(C,1)*1.08
AND C<MA(C,13)*1.3,1,0)){XG51};
KZ:=(CROSS(K8,KB) AND KK AND KL AND KM) OR
(CROSS(K8,K6) AND K8>KB) OR (CROSS(KW,KV)) OR
(IF(COUNT(C<REF(C,1),13)/13>6/10 AND COUNT(KH>KJ,6) AND
REF(L,5)=LLV(L,120) AND REF(C>=O,4) AND REF(C>O,3) AND REF(C>O,2) AND
REF(O>C,1) AND O>REF(C,1),1,0)){XG51};
KI:=(COUNT(KD=REF(KD,1),3)=3 AND H>KD) OR
(REF(KD,2)<REF(KD,1) AND REF(KD,1)=KD AND REF(H,1)>KD){XG51};
KO:=(CROSS(82,KRSI) AND C<K8) OR (CROSS(KV,KW) AND KR>65) OR KI{XG51};
K20:=V*(O+C+H+L)/4{XG51};
K21:=IF(V>0,K20/V,(O+C+H+L)/4){XG51};
K22:=(K21-LLV(K21,3))/(HHV(K21,3)-LLV(K21,3)){XG51};
K23:=SMA(K22,13,1){XG51};
K24:=SMA(K23,13,1){XG51};
K25:=3*K23-2*K24{XG51};
K26:=2*K25-0.5{XG51};
K27:=K21*(1-(K26-K24)/40){XG51};
K28:=CROSS(K21,K27) AND C/REF(C,1)<1.03 AND DYNAINFO(23)>=3000{XG51};
K29:=FILTER(K28,10){XG51};
K2A:=MA(C,80)-MA(C,13)/3{XG51};
K2B:=MA((C-K2A)/K2A,2){XG51};
K2C:=MA(K2B,2){XG51};
K2D:=REF(K2B,2)=LLV(K2B,20) AND REF(K2B,2)<0.071 AND REF(K2B,2)<REF(K2B,1) AND
NOT(REF(L,1)>REF(H,2) AND L>REF(H,1)) AND C>REF(C,1){XG51};
K2E:=CROSS(K2B,K2C) AND K2B<0.5{XG51};
K2F:=KRSV1>REF(KRSV1,1){XG51};
K2G:=KRSV1<=REF(KRSV1,1){XG51};
K2H:=C>O AND KB>K6 AND K6>K9 AND K9>K7 AND CROSS(K8,KB) AND L>KC AND KR<90{XG51};
K2I:=EMA(V*KA,21)/EMA(V,21){XG51};
K2J:=K2I-1.5*stD(K2I,34){XG51};
K2K:=K2I+2.0*STD(K2I,34){XG51};
K2L:=IF(C>=K2K OR H>=K2K,K2I+2*STD(K2I,55),DRAWNULL){XG51};
K2M:=COUNT(C<=K2J OR L<=K2J,3)>=2{XG51};
K2N:=C>=K2K OR H>=K2K OR ((C>K2L OR K2K>K2L) AND NOT(K2L=DRAWNULL)){XG51};
箱顶:MA(KD,1),COLOR00FFFF{XG51};
箱底:MA(KC,1),COLOR22FF22{XG51};
黄金线:(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4,COLOREAEAAE{XG51};
中轨2:=EMA(C,250){XG51};
上轨2:中轨2+ 2*STD(C,250), COLORCYAN,DOTLINE{XG51};
下轨2:=中轨2- 2*STD(C,250) COLORWHITE, LINETHICK2{XG51};
中轨:=EMA(C,120){XG51};
上轨:中轨+ 2*STD(C,120),COLORWHITE,DOTLINE{XG51};
下轨:=中轨- 2*STD(C,120) COLORCYAN, LINETHICK2{XG51};
MA6:EXPMEMA(CLOSE,34),COLORFF1CAE{XG51};
平线:COST(50),COLORWHITE,LINETHICK2{XG51};
平上轨:COST(50)*1.18,COLORLIMAGENTA,LINETHICK2{XG51};
AMV0:=VOL*(O+C+H+L)/4{XG51};
势:=EMA(AMV0,21)/EMA(VOL,21);
压:=6*HHV(势,2)-5*势{XG51};
托:2*势-压,COLORLIMAGENTA{XG51};
MA5:EMA(C,5),COLORRED{XG51};
上沿:MA((HIGH * 1.124),60),DOTLINE,COLOR7FFF00{XG51};
下沿:MA((LOW * 0.88),60),LINETHICK2,COLOR808080{XG51};
成本:(MA(CLOSE,60)+MA(CLOSE,70)+MA(CLOSE,90)+MA(CLOSE,108))/4,,COLORWHITE,LINETHICK2{XG51};
N1LL:=13{XG51};
VAR2A:=CLOSE*VOL{XG51};
VAR3A:=EMA((expma(VAR2A,3)/EXPMA(VOL,3)+EXPMA(VAR2A,6)/EXPMA(VOL,6)+EXPMA(VAR2A,12)/EXPMA(VOL,12)+EXPMA(VAR2A,24)/EXPMA(VOL,24))/4,N1LL){XG51};
SUP:=1.06*VAR3A,COLORRED,DOTLINE{XG51};
SDN:VAR3A*0.94,COLORFF2400,DOTLINE{XG51};
V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
V2:=(1-7/100)*(dma(CLOSE,V1)){XG51};
V3:=(1+7/100)*(DMA(CLOSE,V1)){XG51};
V5:=MA((LOW+HIGH+CLOSE)/3,5){XG51};
支撑:REFDATE(V2,DATE),POINTDOT,LINETHICK4,COLORCC66FF{XG51};
阻力:REFDATE(V3,DATE),POINTDOT,LINETHICK4,COLORFF0033{XG51};
AJ1:=(COST(85)+COST(15))/2;AJ2:=(COST(75)+COST(25))/2;AJ3:=(COST(65)+COST(35))/2;AJ4:=(COST(55)+COST(45))/2;AJ5:=(COST(95)+COST(5))/2;AJ6:=(COST(99.99)-COST(0.01)*0.5)/2{XG51};
AJ:=(AJ1+AJ2+AJ3+AJ4+AJ5+AJ6)/6{XG51};
BJ1:=(COST(90)+COST(10))/2;BJ2:=(COST(80)+COST(20))/2;BJ3:=(COST(70)+COST(30))/2;BJ4:=(COST(60)+COST(40))/2;BJ5:=(COST(50));BJ6:=(COST(99.99)+COST(0.01)*0.5)/2{XG51};
BJ:=(BJ1+BJ2+BJ3+BJ4+BJ5+BJ6)/6{XG51};
成本1:EMA((AJ+BJ)/2,1),COLORRED,COLORFFC0FF,LINETHICK2{XG51};
B11:=MA(C,1){XG51};
B12:=SMA(SMA(SMA(B11,2,1),2,1),2,1){XG51};
箱顶2:HHV(MA(B12,2),58),COLOR00AAFF,LINETHICK2{XG51};
TJ3:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01{XG51};
STICKLINE(TJ3,OPEN,CLOSE,1.5,0),COLORBLUE{XG51};
K11:=SUMBARS(TJ3,1){XG51};
STICKLINE(K11,REF(C,K11-1),REF(C,K11-1),10,0),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR ,0.065,0.01,1,DYBLOCK),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR ,0.065,0.01,0,HYBLOCK),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.065,0.20,1,'主营利润率:'){XG51};
DRAWNUMBER_FIX(ISLASTBAR,0.065,0.20,0,FINANCE(21)/FINANCE(20)*100){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.24,0.08,1,'每股净资产:'){XG51};
DRAWNUMBER_FIX(ISLASTBAR,0.24,0.08,0,FINANCE(34)){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.24,0.14,1,'每股收益/年:'){XG51};
DRAWNUMBER_FIX(ISLASTBAR,0.24,0.14,0,FINANCE(33)){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.24,0.2,1,'每股未分配利润:'){XG51};
DRAWNUMBER_FIX(ISLASTBAR,0.24,0.2,0,FINANCE(32)){XG51};
P1:=5{XG51};
PH:=TROUGHBARS(2,P1,1){XG51};
LL:=HHV(H,PH){XG51};
TJ11:= LL=HIGH AND LL<REF(LL,1){XG51};
TS:=SUMBARS(TJ11,2){XG51};
TJ2:=PEAKBARS(2,P1,1)=1 AND TS>=PH{XG51};
PL:=BArslAST(TJ2){XG51};
___支撑:=IF(BARSLAST(TJ11),
REF(LOW,BARSLAST(TJ11)),DRAWNULL),COLOREA91B5{XG51};
___压力:IF(BARSLAST(TJ2),REF(HIGH,PL),DRAWNULL),COLOR7FFF00{XG51};
dif:=EMA(DCLOSE,12)-EMA(DCLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
AAA:=(DIF-DEA)*2*60{XG51};
起爆:=CROSS(AAA-REF(AAA,1),15),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(起爆,L*0.99,'↖暴涨'),COLORBLUE,LINETHICK2{X~G!5-1~C~N~{};