通达信独家建仓未加密选股指标公式源码

源码正文：

N:=10{XG51};
F:=25{XG51};
VAR1:=HHV(HIGH,9)-LLV(LOW,9){XG51};
VAR2:=HHV(HIGH,9)-CLOSE{XG51};
VAR3:=CLOSE-LLV(LOW,9){XG51};
VAR4:=VAR2/VAR1*100-70{XG51};
VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
VAR6:=(HIGH+LOW+OPEN+CLOSE)/4{XG51};
VAR7:=SMA(VAR3/VAR1*100,3,1){XG51};
VAR8:=LLV(LOW,34){XG51};
VAR9:=Sma(VAR7,3,1)-SMA(VAR4,9,1){XG51};
VARA:=IF(VAR9>100,VAR9-100,0){XG51};
VARB:=HHV(HIGH,34){XG51};
VARC:=ema((VAR6-VAR8)/(VARB-VAR8)*100,13){XG51};
VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2){XG51};
VARE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(Abs(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25{XG51};
VARF:=MA(VARE,3){XG51};
VAR10:=REF(VARF,1){XG51};
生命线:EMA(VARD,N), COLORFFAA00{XG51};
VAR11:=(CLOSE-LLV(LOW,F))/(HHV(HIGH,F)-LLV(LOW,F))*100{XG51};
K:=SMA(VAR11,3,1){XG51};
D:=SMA(K,3,1){XG51};
红灯亮买: stICKLINE(crOSS(VARC,VARD) AND VARC>VARD AND VARC<18,36,0,1,0), COLORWHITE{XG51};
见红:IF(VARC>18,0,IF(CROSS(VARC,VARD) AND VARC>VARD AND VARC<18,37,0)),COLOR3355FF{XG51};
浪尖: STICKLINE(CROSS(VARD,VARC) AND VARC<VARD AND VARC>60,90,100,12,1),COLORYELLOW{XG51};
IF(VARC<79,100,IF(CROSS(VARD,VARC) AND VARD>79 AND VARC>79,70,100)),COLOR00FF00{XG51};
卖: STICKLINE(FILTER(CROSS(VARD,VARC),10) AND VARD>79 AND VARC>79,100,95,4,0),COLORCYAN{XG51};
STICKLINE(VARC-VARD>0,VARC,VARD,8,1),COLOR0000FF{XG51};
STICKLINE(VARC-VARD<0,VARC,VARD,8,0),COLOR00FF00{XG51};
KAR1:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
KAR2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100{XG51};
KAR3:=SMA(SMA(KAR2,3,1),3,1){XG51};
KAR4:=EMA(KAR3,5){XG51};
KAR5:=LLV(LOW,26){XG51};
KAR6:=HHV(HIGH,34){XG51};
KAR7:=EMA((CLOSE-KAR5)/(KAR6-KAR5)*4,4)*25{XG51};
KAR8:=100-KAR1{XG51};
KAR9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
KAR10:=SMA(KAR9,3,1){XG51};
KAR11:=SMA(KAR10,3,1){XG51};
KAR12:=EMA(3*KAR10-2*KAR11,3){XG51};
KAR13:=(-1)*(EMA(KAR8,1)-50)+50{XG51};
KAR14:=EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6){XG51};
底部:STICKLINE(CROSS(KAR4,10) AND KAR4>10,50,0,10,0),COLORBLUE{XG51};
建仓: IF((KAR7<10),18,0), COLORCC00FF{X_G_5~1_C_N_{};

源码正文：

dmadif:=ma(C,10)-MA(C,50){XG51};
DMAAMA:=MA(DMADIF,10){XG51};
DMAX:=DMADIF>DMAAMA{XG51};
P01:=DMAX{XG51};
dmiTR:=EXPMema(MAX(MAX(H-L,Abs(H-REF(C,1))),ABS(REF(C,1)-L)),14){XG51};
DMIHD:=H-REF(H,1){XG51};
DMILD:=REF(L,1)-L{XG51};
DMIDMP:=EXPMEMA(IFF(DMIHD>0 AND DMIHD>DMILD,DMIHD,0),14){XG51};
DMIDMM:=EXPMEMA(IFF(DMILD>0 AND DMILD>DMIHD,DMILD,0),14){XG51};
DMIpdi:=DMIDMP*100/DMITR{XG51};
DMImdi:=DMIDMM*100/DMITR{XG51};
DMIX:=DMIPDI>DMIMDI{XG51};
P02:=DMIX{XG51};
dpoDPO:=C-REF(MA(C,20),20/2+1){XG51};
DPOMADPO:=MA(DPODPO,6){XG51};
DPOX:=DPODPO>DPOMADPO{XG51};
P03:=DPOX{XG51};
emvvolUME:=MA(V,14)/V{XG51};
EMVMID:=100*(H+L-REF(H+L,1))/(H+L){XG51};
EMVEMV:=MA(EMVMID*EMVVOLUME*(H-L)/MA(H-L,14),14){XG51};
EMVMAEMV:=MA(EMVEMV,9){XG51};
EMVX:=EMVEMV>EMVMAEMV{XG51};
P04:=EMVX{XG51};
macddiF:=EMA(C,12)-EMA(C,26){XG51};
macddeA:=EMA(MACddiF,9){XG51};
MACDX:=MACDDIF>MACDDEA{XG51};
P05:=MACDX{XG51};
trixTR:=EMA(EMA(EMA(C,12),12),12){XG51};
TRIXTRIX:=(TRIXTR-REF(TRIXTR,1))/REF(TRIXTR,1)*100{XG51};
TRIxmaTRIX:=MA(TRIXTRIX,9){XG51};
TRIXX:=TRIXTRIX>TRIXMATRIX{XG51};
P06:=TRIXX{XG51};
WVADWVAD:=SUM((C-O)/(H-L)*V,24)/10000{XG51};
WVADMAWVAD:=MA(WVADWVAD,6){XG51};
WVADX:=WVADWVAD>WVADMAWVAD{XG51};
P07:=WVADX{XG51};
JSJS:=100*(C-REF(C,5))/(5*REF(C,5)){XG51};
JSMAJS1:=MA(JSJS,5){XG51};
JSX:=JSJS>JSMAJS1{XG51};
P08:=JSX{XG51};
CYEMAL:=MA(C,5){XG51};
CYEMAS:=MA(MA(C,20),5){XG51};
CYECYEL:=(CYEMAL-REF(CYEMAL,1))/REF(CYEMAL,1)*100{XG51};
CYECYES:=(CYEMAS-REF(CYEMAS,1))/REF(CYEMAS,1)*100{XG51};
CYEX:=CYECYEL>CYECYES{XG51};
P09:=CYEX{XG51};
JLHBVAR1:=(C-LLV(L,60))/(HHV(H,60)-LLV(L,60))*80{XG51};
JLHBB:=SMA(JLHBVAR1,7,1){XG51};
JLHBVAR2:=SMA(JLHBB,5,1){XG51};
JLHBX:=JLHBB>JLHBVAR2{XG51};
P10:=JLHBX{XG51};
cycJJJ:=IFF(DYnaINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3)){XG51};
CYCDDD:=(DYNAINFO(5)<0.01