通达信启动进场优化主图选股指标公式源码

通达信启动进场优化主图选股指标公式源码

源码正文：

ema3:=Ema(C,3),COLORRED,LINETHICK1{XG51};
EMA13:=EMA(C,13),COLORBLUE{XG51};
EMA21:EMA(C,21),COLORRED,LINETHICK1{XG51};
EMA55:=EMA(C,55),COLORCYAN{XG51};
AR1:=EMA21>EMA13 AND EMA13>EMA3{XG51};
AR2:=BArslAst((C-EMA3)/EMA3*100<-6){XG51};
AR3:=EMA3>=REF(EMA3,2){XG51};
AR4:=COUNT(crOSS(C,EMA3),AR2)=1{XG51};
AR5:=AR1 AND AR2 AND AR3 AND AR4{XG51};
AR6:=AR5 AND FILTER(AR5,10){XG51};
DRAWTEXT(AR6,L-0.09,'启动'),COLORBLUE{XG51};
STICKLINE(AR6,H,L,0.5,1),COLORBLUE{XG51};
BR1:=COUNT(BETWEEN((C-REF(C,1))/REF(C,1)*100,0,5) ,5)=5{XG51};
BR2:=Abs((EMA3-EMA13)+(EMA13-EMA21))/C<0.2{XG51};
BR3:=C>EMA21 AND (REF(C,1)<REF(EMA21,1) OR REF(C,2)<REF(EMA21,2) OR REF(C,3)<REF(EMA21,3) OR REF(C,4)<REF(EMA21,4) OR REF
(C,5)<REF(EMA21,5)){XG51};
BR4:=BR1 AND BR2 AND BR3{XG51};

CR1:=(C-REF(C,1))/REF(C,1)*100>0.5{XG51};
CR2:=V>MA(V,5)*0.6{XG51};
CR3:=COUNT(CROSS(EMA3,EMA21),3)=1{XG51};
CR4:=ABS(EMA13-EMA21)/EMA21<0.03{XG51};
CR5:=EMA21<=EMA55 AND EMA21>=REF(EMA21,1){XG51};
CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND CR5,2){XG51};

DR1:=EMA3>EMA13 AND EMA13<EMA21{XG51};
DR2:=BARSLAST(CROSS(C,EMA21) ){XG51};
DR3:=H=HHV(H,DR2){XG51};
DR4:=BARSLAST(DR3){XG51};
DR5:=COUNT(O>C AND C<REF(C,1) AND C>EMA21 AND BETWEEN((C-EMA21)/EMA21,0,0.02),DR4)=1{XG51};
DR6:=C>REF(C,1) {XG51};
DR7:= DR1 AND DR5 AND DR6 {XG51};
DR8:=DR7 AND FILTER(DR7 ,10){XG51};
FR:=BARSLAST(REF(CROSS(EMA13,EMA3),1)) AND CROSS(EMA3,EMA13){XG51};

GR1:=BARSLAST(BETWEEN("bias.BIAS2"(6,3,24),0,5) ){XG51};
GR2:=EMA3>EMA13 AND EMA13>EMA21 AND EMA3>REF(EMA3,1){XG51};
GR3:=COUNT("BIAS.BIAS2"(6,3,24)>10 AND H=HHV(H,GR1),GR1){XG51};
GR4:=H=HHV(H,GR1){XG51};
GR5:="macd.MacD"(12,26,9)<REF("MACD.MACD"(12,26,9),1){XG51};
GR6:=GR2 AND GR3 AND GR4{XG51};
GR7:=GR2 AND GR3 AND GR4 AND GR5{XG51};
DRAWTEXT(GR6 AND GR7,H+0.3,'见逃顶'),COLOR00FF00{XG51};
STICKLINE(GR6 AND GR7,H,H+0.09,4,0),COLOR00FF00{XG51};
HR2:=EMA3>=REF(EMA3,3) AND EMA13>=REF(EMA13,1) AND EMA21>=REF(EMA21,1) AND CROSS(C,EMA3) AND CROSS(C,EMA13) AND CROSS
(C,EMA21){XG51};
DRAWTEXT(HR2 AND FILTER(HR2,10),L-0.09,'进场！ '),COLORFFC8FF{XG51};
STICKLINE(HR2 AND FILTER(HR2,10),H,L,0.5,1),COLORFFC8FF{XG51};
{XG51};
MA1:=MA(CLOSE,34),COLORYELLOW{XG51};
K1:=(C+H+L)/3{XG51};
D1:=MA(K1,4){XG51};
高:=REF(HHV(H,80),1){XG51};
低:=REF(LLV(L,80),1){XG51};
顶点:REFDATE(高,DATE),COLORCYAN,LINETHICK1{XG51};
低点:REFDATE(低,DATE),COLORWHITE,LINETHICK1{XG51};
AA05:=MA(C,5),LINETHICK2,COLOR00CCFF{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
IF(BB05>30 AND AA05>REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
{XG51};
Z1:=STRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.4,0.04,0,EXTERNSTR(0,3)),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.4,0.07,0,EXTERNSTR(0,6)),COLORLIGREEN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.4,0.1,0,EXTERNSTR(0,12)),COLORLIBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.35,0.08,0,FGBLOCK),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.4,0.13,0,EXTERNSTR(0,1)),COLORBLUE{XG51};
总额:=AMOUNT{XG51};
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L)){XG51};
买%:=买/AMOUNT*100{XG51};
流入:=AMOUNT*买%/10000000000{XG51};
流出:=AMOUNT/100000000-流入{XG51};
净流:=流入-流出{XG51};
净流3:=SUM(流入-流出,3){XG51};
净流5:=SUM(流入-流出,5){XG51};
净流10:=SUM(流入-流出,10){XG51};
总额10:=SUM(AMOUNT,10){XG51};
画:=CONST(FINDHIGH(总额10,0,190,1)){XG51};
DRAWTEXT_FIX(CURRBARSCOUNT=30,0.08,0.08,0,'净流亿（135）：'),COLOR0099FF{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=25,0.17,0.08,0,CONST(净流)),COLORWHITE{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=19,0.22,0.08,0,CONST(净流3)),COLORBLUE{XG51};
DRAWNUMBER_FIX(CURRBARSCOUNT=13,0.26,0.08,0,CONST(净流5)), COLORFF00FF{XG51};
量比:V/REF(V,1)COLORBLUE NODRAW{XG51};
所属地域:DRAWTEXT_FIX(1,0.005,0.05,0,DYBLOCK),COLORRED{XG51};
所属行业:DRAWTEXT_FIX(1,0.005,0.1,0,HYBLOCK),COLORRED{XG51};
所属概念:DRAWTEXT_FIX(1,0.005,0.15,0,GNBLOCK),COLORRED{XG51};
SSTS:=STRCAT(STRCAT('上市：',CON2STR(FINANCE(42)/1,0)),'天'){XG51};
LTSZ:=STRCAT(STRCAT('流通市值：',CON2STR(FINANCE(40)/100000000,0)),'亿'){XG51};
YSTB:=STRCAT(STRCAT('营收同比：',CON2STR(FINANCE(44)/1,2)),'%'){XG51};
LRTB:=STRCAT(STRCAT('利润同比：',CON2STR(FINANCE(43)/1,2)),'%'){XG51};
DRAWTEXT_FIX(1,0.005,0,0,SSTS),COLORRED{XG51};
DRAWTEXT_FIX(1,0.085,0,0,LTSZ),COLORRED{XG51};
DRAWTEXT_FIX(1,0.185,0,0,YSTB),COLORRED{XG51};
DRAWTEXT_FIX(1,0.285,0,0,LRTB),COLORRED{XG51};
净资收益率:=(FINANCE(33)/FINANCE(34)*100){XG51};
主营利润率:=(FINANCE(23)/FINANCE(20)*100){XG51};
主营业增长率:=FINANCE(44){XG51};
每股净资产:=CONST(FINANCE(34)){XG51};
每股收益:=CONST(FINANCE(38)){XG51};
净利润增长率:=FINANCE(43){XG51};
市销率:=CONST(FINANCE(1)*DYNAINFO(7)/FINANCE(20)){XG51};
现金负债比:=(FINANCE(25)/FINANCE(15)){XG51};
每股未分配:=CONST(FINANCE(32)){XG51};
每股公积金:=CONST(FINANCE(18)){XG51};
SY01:=净资收益率>3{XG51};
SY02:=净资收益率>0.01 AND 净资收益率<=3{XG51};
SY03:=主营利润率>2{XG51};
SY04:=主营利润率>0{XG51};
SY05:=主营业增长率>1{XG51};
SY06:=主营业增长率>0{XG51};
SY07:=净利润增长率>2{XG51};
SY08:=净利润增长率>0.2{XG51};
SY09:=每股收益>0.01{XG51};
SY10:= 每股收益>0.001{XG51};
SY11:=每股净资产>2{XG51};
SY12:=每股净资产>0.01{XG51};
SY13:=每股未分配>0.5{XG51};
SY14:=每股未分配>0.001{XG51};
SY15:=每股公积金>0.5{XG51};
SY16:=每股公积金>0.002{XG51};
SY17:=每股未分配>=2 AND 每股公积金>=2{XG51};
SY18:=每股未分配<2 OR 每股公积金<2{XG51};
优秀:=SY01 AND SY03 AND SY05 AND SY07 AND SY09 AND SY11
AND SY13 AND SY15{XG51};
较好:=SY02 AND SY04 AND SY06 AND SY08 AND SY10 AND SY12
AND SY14 AND SY16{XG51};
一般:=NOT(优秀) AND NOT(较好){XG51};
DRAWTEXT_FIX(优秀 AND 较好=0,0.45,0,0,'综合评估基本面：优秀！'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(较好,0.45,0,0,'综合评估基本面：较好！'),COLORWHITE{XG51};
DRAWTEXT_FIX(一般,0.45,0,0,'综合评估基本面：一般！'),COLORCYAN{XG51};
DRAWTEXT_FIX(SY17,0.65,0,0,'是否具备高送转潜力：是！'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(SY18,0.65,0,0,'是否具备高送转潜力：否！'),COLORCYAN{XG51};
AA1:=SUM(IF(CLOSE>REF(CLOSE,1),vol/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-
VOL/CAPITAL*100,0)),0){XG51};
成交额:=V*C/100,NODRAW{XG51};
AA2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0){XG51};
AA6:=((AA2+AA3)+AA4)+AA5{XG51};
DD1:=1{XG51};
AAA1:=STRCAT(STRCAT('机构持有',CON2STR((100*AA2)/AA6,0)),'%'){XG51};
AAA2:=STRCAT(STRCAT('散户持有',CON2STR((100*AA3)/AA6,0)),'%'){XG51};
DRAWTEXT_FIX(DD1=1,0.9,0.9,0,AAA1),COLORWHITE{XG51};
DRAWTEXT_FIX(DD1=1,0.9,0.99,0,AAA2),COLORCYAN{X^G?5~1^C^N^{};