通达信K线微积分律主图未加密选股指标公式源码

源码正文：

DRAWGBK(C>0,RGB(0,20,100),RGB(80,80,80),0,'12',0){XG51};
NG:=12;MG:=26{XG51};
BG:=BARSCOUNT(OPEN)+1{XG51};
TH:=BG<=2{XG51};
MIDR:=SQRT(NG*MG){XG51};
dif:=((ema(C,NG)-Ema(C,MG))/EMA(C,MIDR)){XG51};
JD:=MIDR*EMA(1+DIF,MIDR){XG51};

Q:=IF(BG<=JD,BG,JD){XG51};
MA_S:=EMA(C,Q){XG51};
CQ:=LN(Abs(C)+1){XG51};
SD:=SQRT(EMA((C-MA_S)*(C-MA_S)*CQ/MA(CQ,Q),Q)){XG51};
顶线:=IF(TH,H*1.03,MA_S+2*SD)COLORYELLOW{XG51};
强线:=IF(TH,(3*H+L)/4,MA_S+SD){XG51};
中线:=MA_S,LINETHICK1{XG51};
弱线:=IF(TH,(3*L+H)/4,MA_S-SD){XG51};
底线:=IF(TH,L*0.98,MA_S-2*SD)COLORGREEN{XG51};
DRAWBAND(中线,RGB(188,143,123 ),顶线,RGB(168,103,103)){XG51};
DRAWBAND(中线,RGB(61,89,171 ),底线,RGB(34,139,34)){XG51};
DRAWBAND(强线,RGB(130,85,100 ),中线,RGB(90,100,90)){XG51};
DRAWBAND(弱线,RGB(180,185,100 ),中线,RGB(80,120,80)){XG51};
DRAWKLINE(HIGH,OPEN,LOW,CLOSE){XG51};
动态周期:Q,NODRAW{XG51};
SHORT:=12;LONG:=26;MID:=9;M2:=3;KG:=1;M1:=3{XG51};
DFC:=C-REF(C,1){XG51};
WJXS:=(LONG-SHORT)/2{XG51};
JGL_JF:=WJXS*EMA(DFC,SHORT){XG51};
DIF_JIP:=EMA(JGL_JF,LONG),COLOR1188FF,LINETHICK2{XG51};
DEA_GEM:=EMA(DIF_JIP,MID),COLORCYAN,LINETHICK2{XG51};
K_DF_J:=SMA(JGL_JF,M1,1),COLORFEDCBA{XG51};
D_DF_G:=SMA(K_DF_J,M2,1),COLOR13F8F9{XG51};
J_DF_L:=2.5*K_DF_J-1.5*D_DF_G,COLORF813F9{XG51};
RF:=REF(J_DF_L,1)COLORWHITE{XG51};
N:=18;S:=26;P5:=12;M5:=9{XG51};
A2:=EMA(CLOSE,S){XG51};
T:=EMA(CLOSE,P5){XG51};
B:=EMA(A2,M5){XG51};
T1:=EMA(T,M5){XG51};
DEA:=EMA(T-(T1-T),2),COLORBLUE,LINETHICK1{XG51};
DIFF:=DEA-EMA(((A2-B)-(T-T1)),1)*6,COLORWHITE,LINETHICK1{XG51};
DF_J:=SMA(JGL_JF,M1,1),COLORFEDCBA{XG51};
DF_G:=SMA(K_DF_J,M2,1),COLOR13F8F9{XG51};
DF_L:2.5*DF_J-1.5*DF_G,COLORF813F9{XG51};
RF1:=REF(DIFF,1),DOTLINE,COLORGREEN{XG51};
N1:=SQRT(SHORT*LONG){XG51};
NN:=IF(N1<9,9,N1){XG51};
BZC:=stD(DFC,NN){XG51};
A:=PERIOD;KKH:=DRAWNULL{XG51};
TJ1:=(A<1 OR A>6 AND A!=9){XG51};
TJ2:=(A<2 OR A>6 AND A!=9){XG51};
TJ3:=(A<3 OR A>7 AND A!=9){XG51};
TJ4:=(A<4 OR A=8){XG51};
TJ5:=(A<5 OR A=8){XG51};
N2:=IF(A=5,10,IF(A=6,2,IF(A=9,3,IF(A=4,40,IF(A=3,80,IF(A=2,160,KKH)))))){XG51};
H10:=IF(TJ1,KKH,IF(CAPITAL,HHV(EMA(H+C,3)/2,N2)*0.933,HHV(EMA(H+C,3)/2,N2)*0.983)){XG51};
L10H:=IF(TJ1,KKH,IF(CAPITAL,LLV(EMA(L+C,3)/2,N2)*1.067,LLV(EMA(L+C,3)/2,N2)*1.017)){XG51};
盈亏平衡:IF(TJ1,KKH,(H10+L10H)/2),COLORRED,LINETHICK2{XG51};
U:=IF(KG=1,K_DF_J+2*BZC,MA(C,25600)),COLORFE9813,crOSSDOT,LINETHICK2{XG51};
倍量:=U>=2*REF(U,1) AND REF(U,1)<=REF(U,2) AND C>REF(C,1){XG51};
DRAWTEXT(倍量>=1 AND U >= REF(U,1),L,'∠多'),COLORBLUE{XG51};
STICKLINE(J_DF_L>RF,O,C,1.5,0),COLORRED{XG51};
STICKLINE(J_DF_L<RF,O,C,1.8,0),COLOR338833{XG51};
STICKLINE(C>RF1 AND C>DEA,CLOSE,OPEN,3,0),,COLOR000099{XG51};
STICKLINE(C>RF1 AND C>DEA,CLOSE,OPEN,2.2,0),COLOR0000CC{XG51};
STICKLINE(C>RF1 AND C>DEA,CLOSE,OPEN,0.15,0),COLORCC66FF{XG51};
STICKLINE(C<DEA,OPEN,(CLOSE+OPEN)/2,3,0),COLORFF7700{XG51};
STICKLINE(C<DEA,OPEN,(CLOSE+OPEN)/2,2.2,0),COLORFF9900{XG51};
STICKLINE(C<DEA,OPEN,(CLOSE+OPEN)/2,0.15,0),COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.62,0.95,0,'见凌见双布林与K线微积分修改版: '),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.85,0.97,0,'整理或变盘 '),COLOR338833{XG51};
DRAWTEXT_FIX(1,0.85,0.93,0,'小涨或可持'),COLORRED{XG51};
DRAWTEXT_FIX(1,0.78,0.97,0,'上青 下 跌'),COLORGREEN{XG51};
DRAWTEXT_FIX(1,0.78,0.93,0,'全红 上 涨'),COLORWHITE{XG51};
DRAWICON(CROSS(DIFF,RF1),L,1){XG51};
DRAWICON(CROSS(RF1,DIFF),H,2){XG51};
C2:=REF(C,1),NODRAW{XG51};
涨停:=REF(C,1)*1.1-C<0.01 AND H=C,NODRAW{XG51};
STICKLINE(涨停,OPEN,CLOSE,0001,0),COLORBLUE{XG51};
STICKLINE(涨停,H,L,0,0),COLORWHITE{XG51};
跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2) AND L=C,1,0),NODRAW{XG51};
STICKLINE(跌停,OPEN,CLOSE,1,0),COLORYELLOW{XG51};
{XG51};
M10:=((EMA(C,12)-EMA(C,26))/EMA(C,12)+1)*34,NODRAW{XG51};
DIF0:=MA(((EMA(C,12)-EMA(C,26))/EMA(C,12)+1)*C,M10){XG51};
MH0:EMA("kdj.K"(9,3,3)/100+"kdj.D"(9,3,3)/100,34)*34,NODRAW{XG51};
M_A0:=SUM(C,MH0)/SUM(1,MH0){XG51};
{XG51};
CQ0:=ABS(C){XG51};
SD10:=SQRT(SUM((C-M_A0)*(C-M_A0)*CQ0/SUM(CQ0,MH0),MH0)){XG51};
SD20:=SQRT(SUM((C-M_A0)*(C-M_A0)*CQ0,MH0)/SUM(CQ0,MH0)){XG51};
SD0:=(SD10+SD20)/2{XG51};
顶线0:M_A0+2*SD0,COLORCYAN,DOTLINE{XG51};
强线0:M_A0+SD0,COLORRED,DOTLINE{XG51};
中线0:M_A0,LINETHICK2,COLORCYAN{XG51};
弱线0:M_A0-SD0,COLORRED,DOTLINE{XG51};
底线0:M_A0-2*SD0,COLORCYAN,DOTLINE{XG51};
DRAWNUMBER(ISLASTBAR,顶线0,顶线0),COLORBLUE{XG51};
DRAWNUMBER(ISLASTBAR,强线0,强线0),COLOR00FF00{XG51};
DRAWNUMBER(ISLASTBAR,中线0,中线0),COLORFFFF00{XG51};
DRAWNUMBER(ISLASTBAR,弱线0,弱线0),COLORRED{XG51};
DRAWNUMBER(ISLASTBAR,底线0,底线0),COLOR0099FF{XG51};
DEAF:EMA(T-(T1-T),2),COLORBLUE,LINETHICK2{XG51};
REF(J_DF_L,1)COLORWHITE{XG51};
NJ:=0.99{XG51};
DIFJ:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEAJ:=EMA(DIFJ,9){XG51};
macdJ:=(DIFJ-DEAJ)*2{XG51};
G:=CONST(IF(CURRBARSCOUNT<=81,HHV(H,BArslAST(CURRBARSCOUNT=81)),0)){XG51};
D:=CONST(IF(CURRBARSCOUNT<=81,LLV(L,BARSLAST(CURRBARSCOUNT=81)),0)){XG51};
STICKLINE(DATE!=REF(DATE,1) AND PERIOD<5,G,D,0,-1)COLORRED{XG51};
金叉:=REFX(CROSS(DIFJ,DEAJ),1){XG51};
DRAWICON(金叉>0,L,11){XG51};
DRAWICON(金叉>0,L,5){XG51};
中:MA_S,COLORLIMAGENTA,LINETHICK2{X?G*5_1?C?N?{};

源码正文：

Var1:=AMOUNT/vol/100{XG51};
Var2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7{XG51};
Var3:=SUM(AMOUNT,13)/Var1/100{XG51};
Var4:=dma(Var2,VOL/Var3){XG51};
Var5:=(CLOSE-Var4)/Var4*100{XG51};
Var6:=IF(HHV(Var5,8)<12 AND LLV(Var5,8)>4,1,0){XG51};
Var7:=IF(HHV(Var5,7)<12 AND LLV(Var5,7)>4,1,0){XG51};
Var8:=IF(HHV(Var5,6)<12 AND LLV(Var5,6)>4,1,0){XG51};
Var9:=IF(HHV(Var5,5)<12 AND LLV(Var5,5)>4,1,0){XG51};
VarA:=IF(HHV(Var5,4)<12 AND LLV(Var5,4)>4,1,0){XG51};
VarB:=IF(HHV(Var5,3)<12 AND LLV(Var5,3)>4,1,0){XG51};
VarC:=IF(HHV(Var5,2)<12 AND LLV(Var5,2)>4,1,0){XG51};
VarD:=IF(Var5<12 AND Var5>4,1,0){XG51};
VarE:=IF(Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC OR VarD,1,0){XG51};
VarE=1{X-G-5_1-C-N-{};