通达信金牛启动主图选股指标公式源码

通达信金牛启动主图选股指标公式源码

源码正文：

趋势:ema(Ema(C,4),4),COLORBLUE{XG51};
月K:="kdj.K#MONTH"{XG51};
月D:="kdJ.D#MONTH"{XG51};
周K:="KDJ.K#WEEK"{XG51};
周D:="KDJ.D#WEEK"{XG51};
日K:="KD.K"{XG51};
日D:="KD.D"{XG51};
日金叉:=IF(crOSS(日K,日D),15,0){XG51};
周金叉:=IF(CROSS(周K,周D),25,0){XG51};
月金叉:=IF(CROSS(月K,月D),35,0){XG51};
日周月:=IF(日金叉=15 AND 周金叉=25 AND 月金叉=35,1,0){XG51};
日周月赚:=日周月=1{XG51};
日周:=IF(日金叉=15 AND 周金叉=25,2,0){XG51};
日周赚:=日周=2{XG51};
周月:=IF(周金叉=25 AND 月金叉=35,3,0){XG51};
日月:=IF(日金叉=15 AND 月金叉=35,4,0){XG51};
日月赚:=日月=4{XG51};
周月赚:=周月=3{XG51};
DRAWTEXT(日周月赚,趋势*0.96,'↖LSP大牛'),COLORWHITE{XG51};
DRAWTEXT(周月赚,趋势*0.97,'↖LSP金牛'),COLORFF00FF{XG51};
DRAWTEXT(日月赚,趋势*0.98,'↖LSP牛牛'),COLORBLUE{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.97,'↖金牛启动'),COLORBLUE,LINETHICK2{XG51};
AA:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4{XG51};
BB:=EMA(AA,2){XG51};
TP:=(CROSS(AA,BB) OR CROSS(C,AA)) AND C>=EMA(C,55){XG51};
CC:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DD:=EMA(CC,9){XG51};
主升启动:=TP AND CROSS(CC,DD) AND (DD<=-0.07)*CC{XG51};
DRAWICON(主升启动,L*0.996,1){XG51};
DRAWTEXT(主升启动,L,'↖LSP牛'){XG51};
VAR1:=(C+H+O+L)/4{XG51};
MA1:=MA(VAR1,3){XG51};
MAA5:MA(C,5),COLORWHITE,LINETHICK1{XG51};
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100{XG51};
A4:=SMA(A3,3,1){XG51};
A5:=SMA(A4,3,1){XG51};
A6:=3*A4-2*A5{XG51};
A7:=C-REF(C,1){XG51};
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(Abs(A7),6),6){XG51};
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),vol*C,0),0){XG51};
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0){XG51};
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0){XG51};
BB1:=0{XG51};
B1万元:=DVOL*DCLOSE/100{XG51};
B1差:=B1万元-REF(B1万元,1){XG51};
B2万元:=DVOL*DCLOSE/100{XG51};
B2比:=B2万元/REF(B2万元,1){XG51};
净流入万元:=(AAA2-AAA3-0.5*AAA4){XG51};
PM:=MA(净流入万元,1){XG51};
PMA:=PM/REF(PM,1)>1{XG51};
PMB:=REF(PMA,1)<1 AND PMA{XG51};
密码:(EMA(MA(B1万元,2),2))/100000,COLORBLUE,NODRAW{XG51};
二日比:=密码/REF(密码,1){XG51};
Z1:=stRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,STRCAT(Z3,GNBLOCK)),COLORBLUE;

{X!G!5+1!C!N!{}