通达信智能四色谱主图选股指标公式源码

通达信智能四色谱主图选股指标公式源码

源码正文：

ma1:=ema(C,12){XG51};
MA2:=EMA(C,50){XG51};
MA3:=EMA(C,34){XG51};
MA4:=EMA(C,7){XG51};
MA5:=EMA(C,20){XG51};
MA6:=EMA(C,10){XG51};
difF:=EMA(CLOSE,30)-EMA(CLOSE,120){XG51};
DEA:=EMA(DIFF,9){XG51};
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF{XG51};
DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF{XG51};
DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF{XG51};
M1:MA(CLOSE,5),COLORWHITE,LINETHICK0{XG51};
M2:EMA(CLOSE,12),COLORWHITE,LINETHICK0{XG51};
M3:EMA(CLOSE,50),COLORWHITE,LINETHICK0{XG51};
X:=BArslAst(REF(crOSS(C,MA(C,120)),1)) AND CROSS(MA(C,20),MA(C,120)){XG51};
IF(M3<REF(M3,1),M3,DRAWNULL),COLORCYAN,LINETHICK{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,H ,L-0.01 ,0 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2.5 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORWHITE{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2.5 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2.5 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C>=MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORBLUE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2.5 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C>=MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORWHITE{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,3 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2.5 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORCYAN{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2.5 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORBLUE{XG51};
STICKLINE(C<MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORBLUE{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,H ,L-0.008 ,0 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2.5 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,2 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,1 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF>=DEA ,O ,C ,0 ,0 ),COLORWHITE{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,H ,L-0.008 ,0 ,0 ),COLORLIMAGENTA{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2.5 ,0 ),COLORLIMAGENTA{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,2 ,0 ),COLORLIMAGENTA{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,1 ,0 ),COLORLIMAGENTA{XG51};
STICKLINE(C>=MA1 AND C<MA2 AND DIFF<DEA ,O ,C ,0 ,0 ),COLORLIMAGENTA{XG51};
volUME:=MA(VOL,1)/VOL{XG51};
MID:=100*(HIGH+LOW-REF(HIGH+LOW,1))/(HIGH+LOW){XG51};
emv:=MA(MID*VOLUME*(HIGH-LOW)/MA(HIGH-LOW,9),9){XG51};
EMVA:=MA(EMV,14){XG51};
BB:=EMV-EMVA{XG51};
bias :=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100{XG51};
BIASMA :=MA(BIAS,6){XG51};
CC:=BIAS-BIASMA{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
DD:=(K+D+J)/3{XG51};
KK:=J-DD{XG51};
DIFF2:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA2:=EMA(DIFF2,9){XG51};
SS:=DIFF2-DEA2{XG51};
AA:=MA(BB+CC+KK+SS,1)*0.01{XG51};
MID1:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
牛线:=(20*MID1+19*REF(MID1,1)+18*REF(MID1,2)+17*REF(MID1,3)+16*REF(MID1,4)+15*REF(MID1,5)+14*REF(MID1,6)+13*REF(MID1,7)+12*REF(MID1,8)+11*REF(MID1,9)+10*REF(MID1,10)+9*REF(MID1,11)+8*REF(MID1,12)+7*REF(MID1,13)+6*REF(MID1,14)+5*REF(MID1,15)+4*REF(MID1,16)+3*REF(MID1,17)+2*REF(MID1,18)+REF(MID1,20))/210,COLORCYAN{XG51};
马线:=MA(牛线,3),COLORLIMAGENTA{XG51};
GB:=(C-牛线){XG51};
换手:=V*100/CAPITAL{XG51};
主:=MA(换手,5){XG51};
大:=MA(换手,12){XG51};
中:=MA(换手,34){XG51};
散:=MA(换手,55){XG51};
均:=(主+大+中+散)/4{XG51};
GBB:=(主-散){XG51};
GB1:=GB+GBB{XG51};
成交量:=V,COLORRED,LINETHICK0{XG51};
Q:=EMA(V,5){XG51};
Q1:=EMA(V,50){XG51};
obv:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0){XG51};
OBV1:=EMA(OBV,5){XG51};
OBV2:=EMA(OBV,50){XG51};
W:=(Q-Q1)*0.00001{XG51};
W1:=(OBV1-OBV2)*0.000001{XG51};
W2:=W+W1{XG51};
E:=MAX(MA(C,45),MA(C,90)){XG51};
FF:=MIN(MA(C,45),MA(C,90)){XG51};
C1:=10000*CLOSE/INDEXC{XG51};
O1:=10000*OPEN/INDEXO{XG51};
H1:=10000*HIGH/INDEXH{XG51};
L1:=10000*LOW/INDEXL{XG51};
LL:=IF(L1<C1 AND L1<O1,L1,MIN(C1,O1)){XG51};
HH:=IF(H1>C1 AND H1>O1,H1,MAX(C1,O1)){XG51};
A:=EMA(C1,5){XG51};
B:=EMA(C1,12){XG51};
D3:=EMA(C1,30){XG51};
XX:=EMA(C1,35){XG51};
F:=EMA(C1,7){XG51};
均量:=(A+B+D)/3{XG51};
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL){XG51};
OBV11:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0){XG51};
MaoBV:=MA(OBV11,30){XG51};
MTR:=EMA(EMA(EMA(CLOSE,12),12),12){XG51};
trix:=(MTR-REF(MTR,1))/REF(MTR,1)*100{XG51};
MATRIX:=MA(TRIX,9) {XG51};
MIDA:=CLOSE-MIN(REF(CLOSE,1),LOW){XG51};
MIDB:=IF(CLOSE<REF(CLOSE,1),CLOSE-MAX(REF(CLOSE,1),HIGH),0){XG51};
WAD:=SUM(IF(CLOSE>REF(CLOSE,1),MIDA,MIDB),0){XG51};
MAWAD:=MA(WAD,30){XG51};
JB:=(OBV11-MAOBV)*0.000001+(A-XX){XG51};
机构:=A-XX{XG51};
J3:=MAX(MA(C,30),MA(C,60)){XG51};
K3:=MIN(MA(C,30),MA(C,60)){XG51};
MID11:=(3*CLOSE+LOW+OPEN+HIGH)/6{XG51};
dkx:=(20*MID11+19*REF(MID11,1)+18*REF(MID11,2)+17*REF(MID11,3)+
16*REF(MID11,4)+15*REF(MID11,5)+14*REF(MID11,6)+
13*REF(MID11,7)+12*REF(MID11,8)+11*REF(MID11,9)+
10*REF(MID11,10)+9*REF(MID11,11)+8*REF(MID11,12)+
7*REF(MID11,13)+6*REF(MID11,14)+5*REF(MID11,15)+
4*REF(MID11,16)+3*REF(MID11,17)+2*REF(MID11,18)+REF(MID11,20))/210{XG51};
MADKX:=MA(DKX,5){XG51};
MDD:=(DKX-MADKX)*1.2{XG51};
V1:=(C*2+H+L)/4*10{XG51};
V2:=EMA(V1,6)-EMA(V1,55);
V3:=EMA(V2,6);
V4:=2*(V2-V3)*5.5;
V5:=(V2-V3)*0.06{XG51};
V6:=MDD+V5{XG51};
BQIUV:=(GB1){XG51};
BQIUSV:=(W2){XG51};
WWV:=(A-XX){XG51};
XEV:=(V6){XG51};
SH:=CROSS(BQIUV,0){XG51};
YZ:=CROSS(BQIUSV,0){XG51};
JG:=CROSS(WWV,0){XG51};
ZL:=CROSS(XEV,0){XG51};
EXP1:=EMA(C,5){XG51};
EXP2:=EMA(C,8){XG51};
EXP3:=EMA(C,12){XG51};
EXP4:=EMA(C,17){XG51};
EXP5:=EMA(C,21){XG51};
EXP6:=EMA(C,50){XG51};
EXP7:=EMA(C,250){XG51};
A321:=CROSS(C,EXP1){XG51};
A1:=CROSS(C,EXP2){XG51};
A2:=CROSS(C,EXP3){XG51};
A3:=CROSS(C,EXP4){XG51};
A4:=CROSS(C,EXP5){XG51};
A5:=CROSS(C,EXP6){XG51};
A6:=CROSS(C,EXP7){XG51};
M:=A321 AND A1 AND A2 AND A3 AND A4 AND A5 AND A6{XG51};
买:=SH AND BQIUSV>=0 AND WWV>=0 AND XEV>=0 OR YZ AND BQIUV>=0 AND WWV>=0 AND XEV>=0 OR JG AND BQIUSV>=0 AND BQIUV>=0 AND XEV>=0 OR ZL AND BQIUSV>=0 AND WWV>=0 AND BQIUV>=0{XG51};
MMM:=M AND 买{XG51};
STICKLINE(MMM ,C ,O ,3 ,0 ),COLORWHITE{XG51};
STICKLINE(MMM ,C ,O ,2 ,0 ),COLORRED{XG51};
STICKLINE(MMM ,C ,O ,1 ,0 ),COLORBLUE{XG51};
STICKLINE(MMM ,C ,O ,0 ,0 ),COLORCYAN{XG51};
DRAWTEXT(CROSS(AA,0),L*0.95,' '),LINETHICK3,COLORWHITE{XG51};
DRAWTEXT(CROSS(0,AA),H*1.02,' '),LINETHICK3,COLORCYAN{XG51};
涨停:=IF((C-REF(C,1))/REF(C,1)>0.097,1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORLIMAGENTA{XG51};
HHJSJDA:=(3*CLOSE+OPEN+LOW+HIGH)/6{XG51};
HHJSJDB:(20*HHJSJDA+18*REF(HHJSJDA,1)+18*REF(HHJSJDA,2)+17*REF(HHJSJDA,3)+16*REF(HHJSJDA,4)+15*REF(HHJSJDA,5)+14*REF(HHJSJDA,6)
+13*REF(HHJSJDA,7)+12*REF(HHJSJDA,8)+11*REF(HHJSJDA,9)+10*REF(HHJSJDA,10)+9*REF(HHJSJDA,11)+8*REF(HHJSJDA,12)
+7*REF(HHJSJDA,13)+6*REF(HHJSJDA,14)+5*REF(HHJSJDA,15)+4*REF(HHJSJDA,16)+3*REF(HHJSJDA,17)+2*REF(HHJSJDA,18)+
REF(HHJSJDA,20))/210,COLORBLUE{XG51};
HHJSJDC:MA(HHJSJDB,5),COLORWHITE{X=G-5!1=C=N={};