通达信春牛图主图未加密选股指标公式源码

通达信春牛图主图未加密选股指标公式源码

源码正文：

N:=20{XG51};
M:=32{XG51};
P1:=80{XG51};
P2:=100{XG51};
Q1:=5{XG51};
Q2:=10{XG51};
Q3:=20{XG51};
Q4:=30{XG51};
A1:=C>REF(C,4){XG51};
A2:=BArslAstCOUNT(A1){XG51};
A3:=REF(A2,1)=8 AND A2>REF(A2,1){XG51};
A4:=REF(BETWEEN(A2,5,8),1) AND A2<REF(A2,1){XG51};
A5:=ISLASTBAR AND BETWEEN(A2,6,8){XG51};
A6:=(BacKSET(A3>0,9) OR BACKSET(A4>0,A2+1)*0 OR BACKSET(A5>0,A2))*A2{XG51};
DRAWTEXT(A6>0,H+H*0.02,VAR2STR(A6,0)),COLORFF00FF{XG51};
DRAWTEXT(A2=9,H+H*0.02,'9'),COLOR00FF00{XG51};
B1:=C<REF(C,4){XG51};
B2:=BARSLASTCOUNT(B1){XG51};
B3:=REF(B2,1)=8 AND B2>REF(B2,1){XG51};
B4:=REF(BETWEEN(B2,5,8),1) AND B2<REF(B2,1){XG51};
B5:=ISLASTBAR AND BETWEEN(B2,6,8){XG51};
B6:=(BACKSET(B3>0,9) OR BACKSET(B4>0,B2+1)*0 OR BACKSET(B5>0,B2))*B2{XG51};
DRAWTEXT(B6>0,L-L*0.02,VAR2STR(B6,0)),COLOR00FF00{XG51};
DRAWTEXT(B2=9,L-L*0.02,'9'),COLORFF00FF{XG51};
DRAWTEXT_FIX(1,0.02,0.115,0,'所属行业地域概念：'),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.13,0.115,0,HYBLOCK),COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.18,0.115,0,DYBLOCK),COLORFF00FF{XG51};
DRAWTEXT_FIX(1,0.23,0.115,0,GNBLOCK),COLOR0088FF{XG51};
DRAWTEXT_FIX(1,0.02,0.17,0,'所属风格板块：'),COLOR00FFAA{XG51};
DRAWTEXT_FIX(1,0.10,0.17,0,FGBLOCK),COLOR00FFFF;{XG51};
ZLCM:=ema(WINNER(CLOSE)*70,3){XG51};
SHCM:=Ema((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3){XG51};
ZZLKP:=ZLCM/(ZLCM+SHCM)*100{XG51};
控盘系数%:=INTPART(ZZLKP),NODRAW{XG51};
高度控盘:=crOSS(控盘系数%,50){XG51};
DRAWTEXT_FIX(1,0.02,0.23,0,STRCAT('控盘系数%：',CON2STR(控盘系数%,2))),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.07,0.23,0,EXTERNSTR(0,2))COLORFF00FF{XG51};
DRAWTEXT_FIX(1,0.15,0.23,0,'筹码峰:')COLORRED{XG51};
DRAWNUMBER_FIX(1,0.21,0.23,0,WINNER(C)*100)COLORRED{XG51};
VAR1:=(C+H+O+L)/4{XG51};
WUJIA:=(3*CLOSE+OPEN+LOW+HIGH)/6{XG51};
金牛:(20*WUJIA+19*REF(WUJIA,1)+18*REF(WUJIA,2)+17*REF(WUJIA,3)+16*REF(WUJIA,4)+15*REF(WUJIA,5)+14*REF(WUJIA,6)
+13*REF(WUJIA,7)+12*REF(WUJIA,8)+11*REF(WUJIA,9)+10*REF(WUJIA,10)+9*REF(WUJIA,11)+8*REF(WUJIA,12)
+7*REF(WUJIA,13)+6*REF(WUJIA,14)+5*REF(WUJIA,15)+4*REF(WUJIA,16)+3*REF(WUJIA,17)+2*REF(WUJIA,18)+
REF(WUJIA,20))/210,COLORBLUE, LINETHICK2{XG51};
LIXIN:=EMA(金牛,2){XG51};
IF( 金牛>LIXIN,金牛,DRAWNULL), COLORWHITE, LINETHICK2{XG51};
MA5:MA(CLOSE,Q1){XG51};
MA10:MA(CLOSE,Q2),NODRAW{XG51};
MA20:MA(CLOSE,Q3),NODRAW{XG51};
MA60:MA(CLOSE,Q4),COLORRED,NODRAW{XG51};
Y1:=(C+L+H)/3{XG51};
Y2:=EMA(Y1,6){XG51};
Y3:=EMA(Y2,5){XG51};
DRAWICON(CROSS(Y2,Y3),L*0.98,7),NODRAW{XG51};
XG:CROSS(Y2,Y3),NODRAW{XG51};
DRAWICON(CROSS(Y3,Y2),H*1.02,8),NODRAW{XG51};
MAA5:MA(C,5),COLORFF00FF,LINETHICK0{XG51};
MAA10:=MA(C,10){XG51};
MAA30:MA(C,30),COLORWHITE,LINETHICK0{XG51};
KS:IF(MAA10>MAA30,MAA10,MAA30),COLORYELLOW,LINETHICK0{XG51};
AA3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
AA4:=SMA(AA3,3,1){XG51};
AA5:=SMA(AA4,3,1){XG51};
AA6:=3*AA4-2*AA5{XG51};
AA7:=C-REF(C,1){XG51};
AA8:=100*EMA(EMA(AA7,6),6)/EMA(EMA(Abs(AA7),6),6){XG51};
买:=LLV(AA8,2)=LLV(AA8,7) AND COUNT(AA8<0,2) AND CROSS(AA8,MA(AA8,2)){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖买'),COLORBLUE{XG51};
STICKLINE(买,OPEN,CLOSE,2,0),COLORBLUE{X*G?5.1*C*N*{};

通达信专抓主升主图未加密选股指标公式源码

源码正文：

dif:=ema(C,2){XG51};
DEA:=Ema(SLOPE(C,30)*5+C,20);
HHJSJDA:(3*CLOSE+OPEN+LOW+HIGH)/6,LINETHICK0{XG51};
HHJSJDB:(19*HHJSJDA+19*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,20)+REF(HHJSJDA,19))/210,COLORBLUE{XG51};
HHJSJDC:MA(HHJSJDB,5),COLORWHITE{XG51};
DRAWICON(crOSS(DIF,DEA),L-0.03,1){XG51};
DRAWICON(CROSS(DEA,DIF),H+0.03,2){XG51};
stICKLINE(DIF>=DEA AND CLOSE>OPEN,LOW,HIGH,0,1),COLORWHITE{XG51};
STICKLINE(DIF>=DEA AND CLOSE<OPEN,LOW,HIGH,0,1),COLORWHITE{XG51};
STICKLINE(DIF>=DEA AND CLOSE>OPEN,CLOSE,OPEN,2,1),COLORWHITE{XG51};
STICKLINE(DIF>=DEA AND CLOSE<OPEN,CLOSE,OPEN,2,0),COLORWHITE{XG51};
STICKLINE(DIF<DEA AND CLOSE<OPEN,LOW,HIGH,0,1),COLORGREEN{XG51};
STICKLINE(DIF<DEA AND CLOSE>OPEN,LOW,HIGH,0,1),COLORGREEN{XG51};
STICKLINE(DIF<DEA AND CLOSE<OPEN,CLOSE,OPEN,2,0),COLORGREEN{XG51};
STICKLINE(DIF<DEA AND CLOSE>OPEN,CLOSE,OPEN,2,1),COLORGREEN{X^G_5_1^C^N^{};