通达信乖离率逃顶未加密选股指标公式源码

通达信乖离率逃顶未加密选股指标公式源码

源码正文：

XA_1:=(CLOSE+LOW+HIGH)/3{XG51};
XA_2:=SUM((XA_1-REF(LOW,1)-(HIGH-XA_1))*vol/100000/(HIGH-LOW),0){XG51};
XA_3:=ema(XA_2,1){XG51};
XA_4:=XA_3{XG51};
XA_5:=ma(XA_3,12){XG51};
XA_6:=MA(XA_3,26){XG51};
散游乖离率:(XA_4-XA_5)/XA_5*100,NODRAW{XG51};
游机乖离率:(XA_5-XA_6)/XA_6*100,NODRAW{XG51};
stICKLINE(散游乖离率>0,0,散游乖离率,3,0),COLORWHITE{XG51};
STICKLINE(散游乖离率<0,0,散游乖离率,3,0),COLORCYAN{XG51};
STICKLINE(游机乖离率>0,0,游机乖离率,2,1),COLORBLUE{XG51};
STICKLINE(游机乖离率<0,0,游机乖离率,2,1),COLORYELLOW{XG51};
DRAWICON(BETWEEN(散游乖离率,0.1,(-0.1))>0,0,5){X_G+5!1_C_N_{};

通达信财报评分未加密选股指标公式源码

源码正文：

TEXT1:='毛 利 率-------是公司获利能力的最基本指标，代表公司降低成本的能力，也是竞争力的体现，越高越好；'{XG51};
TEXT11:='营业利润率：-------代表本业收入占获利的比重，越高且保持一定水平，就可以放心持股（存股）；'{XG51};
TEXT2:='净 利 率------公司盈亏占营收的比例，代表公司最终获利的能力；但净利是本业与副业的获利总和，需分清主次'{XG51};
TEXT3:='净资产收益率：------反应公司为股东创造获利的能力，数值越高代表创造获利的能力越好，对投资人的保证程度越高；'{XG51};
TEXT4:='资产负债比率：------除金融业外，一般公司负债比例越高，利息负担压力会越大，越高越要谨慎对待；'{XG51};
TEXT5:='流动资产/总资产：------流动资产指一年内可变现的资产，是企业经营的能量，越低企业越无法经营，会使运营压力提高；'{XG51};
TEXT6:='存货周转率：------数值上升，说明存货消化很快，存货管控能力强，数值低代表积压滞销，存在风险；'{XG51};
TEXT7:='应收帐款周转率：------数值越高，现金回收的速度越快，过高要注是否有伙同假销货、做假帐；'{XG51};
TEXT8:='经营现金流净额：------是企业取得净收益主要交易和事项的金额，数值应该为正，且越大越好；'{XG51};
TEXT9:='投资现金流净额：------公司买卖非流动资产的现金流量，数值为负，代表公司可能正在扩大版图；'{XG51};
TEXT99:='筹资现金流净额；------公司与股东、债权人之间的现金流量，如果为正，表明公司正在向股东/债权人要钱；'{XG51};
TEXT10:=''{XG51};
TEXT101:=''{XG51};
TEXTA1:=''{XG51};
TEXTA2:=''{XG51};
TEXTA3:=''{XG51};
MN:=1{XG51};
TEXTA:=IF(MN=1,TEXT1,IF(MN=2,TEXT8,'')){XG51};
TEXTB:=IF(MN=1,TEXT11,IF(MN=2,TEXT9,'')){XG51};
TEXTC:=IF(MN=1,TEXT2,IF(MN=2,TEXT99,'')){XG51};
TEXTD:=IF(MN=1,TEXT3,IF(MN=2,TEXT10,'')){XG51};
TEXTE:=IF(MN=1,TEXT4,IF(MN=2,TEXT101,'')){XG51};
TEXTF:=IF(MN=1,TEXT5,IF(MN=2,TEXTA1,'')){XG51};
TEXTG:=IF(MN=1,TEXT6,IF(MN=2,TEXTA2,'')){XG51};
TEXTH:=IF(MN=1,TEXT7,IF(MN=2,TEXTA3,'')){XG51};
NN:=0.05{XG51};
MM:=0.02{XG51};
OO:=0.02{XG51};
DRAWTEXT_FIX(ISLAstBAR,0.005,(MM+NN*0),0,TEXTA),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*1),0,TEXTB),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+2*NN),0,TEXTC),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+3*NN),0,TEXTD),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*4),0,TEXTE),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+NN*5),0,TEXTF),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+6*NN),0,TEXTG),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.005,(MM+7*NN),0,TEXTH),COLORBLUE{XG51};
MO:=0.06{XG51};
MP:=0.450{XG51};
MQ:=0.005{XG51};
DRAwrECTREL(10,425,715,820,RGB(1,1,1));
DRAWRECTREL(10,558,715,558.3,RGB(20,90,200));
DRAWRECTREL(95,493,715,493.3,RGB(20,90,200));
DRAWRECTREL(400,425,400.3,820,RGB(20,90,200));
DRAWRECTREL(95,425,95.3,820,RGB(20,90,200));
YEAR3:=YEAR{XG51};
YEAR2:=IF(MONTH<4,YEAR3-1,YEAR3){XG51};
YEAR1:=YEAR2-1{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.225+MQ,(MP),0,STRCAT(CON2STR(YEAR2,0),'年')),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.525+MQ,(MP),0,STRCAT(CON2STR(YEAR1,0),'年')),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.035+MQ,(MP),0,'季报'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.035+MQ,(MP+MO*1),0,'分析'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.10+MQ,(MP+MO*1),0,'主营收入(亿)'),COLORLImaGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.21+MQ,(MP+MO*1),0,'净利润(亿)'),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.31+MQ,(MP+MO*1),0,'毛利率(%)'),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.41+MQ,(MP+MO*1),0,'主营收入(亿)'),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.52+MQ,(MP+MO*1),0,'净利润(亿)'),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.61+MQ,(MP+MO*1),0,'毛利率(%)'),COLORMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+MO*2),0,'一季报'),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+MO*3),0,'二季报'),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+4*MO),0,'三季报'),COLORCYAN{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03+MQ,(MP+5*MO),0,'四季报'),COLORCYAN{XG51};
MR:=0.125{XG51};
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+MO*2),0,CON2STR(FINONE(74,YEAR2,0331)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+MO*3),0,CON2STR(FINONE(74,YEAR2,0630)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MR,(MP+4*MO),0,CON2STR(FINONE(74,YEAR2,0930)/100000000,2)),COLORBLUE{XG51};
MS:=0.23{XG51};
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+MO*2),0,CON2STR(FINONE(96,YEAR2,0331)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+MO*3),0,CON2STR(FINONE(96,YEAR2,0630)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MS,(MP+4*MO),0,CON2STR(FINONE(96,YEAR2,0930)/100000000,2)),COLORBLUE{XG51};
MT:=0.325{XG51};
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+MO*2),0,CON2STR(FINONE(202,YEAR2,0331),2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+MO*3),0,CON2STR(FINONE(202,YEAR2,0630),2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MT,(MP+4*MO),0,CON2STR(FINONE(202,YEAR2,0930),2)),COLORBLUE{XG51};
MU:=0.425{XG51};
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+MO*2),0,CON2STR(FINONE(74,YEAR1,0331)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+MO*3),0,CON2STR(FINONE(74,YEAR1,0630)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+4*MO),0,CON2STR(FINONE(74,YEAR1,0930)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MU,(MP+5*MO),0,CON2STR(FINONE(74,YEAR1,1231)/100000000,2)),COLORBLUE{XG51};
MV:=0.535{XG51};
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+MO*2),0,CON2STR(FINONE(96,YEAR1,0331)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+MO*3),0,CON2STR(FINONE(96,YEAR1,0630)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+4*MO),0,CON2STR(FINONE(96,YEAR1,0930)/100000000,2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MV,(MP+5*MO),0,CON2STR(FINONE(96,YEAR1,1231)/100000000,2)),COLORBLUE{XG51};
MW:=0.63{XG51};
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+MO*2),0,CON2STR(FINONE(202,YEAR1,0331),2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+MO*3),0,CON2STR(FINONE(202,YEAR1,0630),2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+4*MO),0,CON2STR(FINONE(202,YEAR1,0930),2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,MW,(MP+5*MO),0,CON2STR(FINONE(202,YEAR1,1231),2)),COLORBLUE{XG51};
DRAWRECTREL(15,830,985,830.2,RGB(0,90,90));
DRAWRECTREL(15,909,985,909.2,RGB(0,90,90));
DRAWRECTREL(15,984,985,984.2,RGB(0,90,90));
DRAWRECTREL(246,830,246.2,985,RGB(0,90,90));
DRAWRECTREL(495,830,495.2,985,RGB(0,90,90));
DRAWRECTREL(746,830,746.2,985,RGB(0,90,90));
DRAWTEXT_FIX(ISLASTBAR,0.03,(MM+15*NN+4*OO),0,'所属板块：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.262,(MM+15*NN+4*OO),0,'营业利润率(季)：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.525,(MM+15*NN+4*OO),0,'主营收入同比(季)：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.775,(MM+15*NN+4*OO),0,'大中小盘：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,(MM+16*NN+5*OO+0.01),0,'上市日期：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.262,(MM+16*NN+5*OO+0.01),0,'净资产收益率ROE(季)：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.525,(MM+16*NN+5*OO+0.01),0,'净 利 润 同 比(季)：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.775,(MM+16*NN+5*OO+0.01),0,'流通市值：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.12,(MM+15*NN+4*OO),0,HYBLOCK),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.418,(MM+15*NN+4*OO),0,STRCAT(CON2STR(FINVALUE(194),2),' %')),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.66,(MM+15*NN+4*OO),0,STRCAT(CON2STR(FINANCE(44),2),' %')),COLORBLUE{XG51};
PP1:=FINANCE(40)/100000000{XG51};
PZDX:=IF(PP1>200,'大盘股',IF(PP1<=50,'小盘股','中盘股')){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.87,(MM+15*NN+4*OO),0,PZDX),COLORBLUE{XG51};
SS1:=FINANCE(42){XG51};
SS2:=DATETODAY(CONST(DATE)){XG51};
SS3:=SS2-SS1{XG51};
RQ1:=DAYTODATE(SS3)+19000000{XG51};
XDATE:=CON2STR(RQ1,0){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.12,(MM+16*NN+5*OO+0.01),0,XDATE),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.418,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINVALUE(197),2),' %')),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.66,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINANCE(43),2),' %')),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.87,(MM+16*NN+5*OO+0.01),0,STRCAT(CON2STR(FINANCE(40)/100000000,2),' 亿元')),COLORBLUE{XG51};
GD1:=0.725{XG51};
GD2:=0.080{XG51};
GD3:=0.048{XG51};
GD4:=0.01{XG51};
GD5:=0.890{XG51};
GD6:=0.820{XG51};
DRAWRECTREL(720,70,995,820,RGB(1,1,1));
DRAWRECTREL(720,315,995,315.4,RGB(20,90,250));
DRAWRECTREL(720,420,995,420.4,RGB(20,90,250));
DRAWRECTREL(875,420,875.3,820,RGB(20,90,250));
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*5+GD4,0,'机构总家数：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*6+GD4,0,'机构总持股：'),COLORWHITE{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2,0,STRCAT('股 东 总 人 数： ',STRCAT(CON2STR(FINVALUE(242),0),' 户'))),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3,0,STRCAT('十 大 股 东 持 股： ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' %'))),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*2,0,STRCAT('十大 流通 股东 持股： ',STRCAT(CON2STR(FINVALUE(244)/FINVALUE(238)*100,2),' %'))),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*3,0,STRCAT('第 一 大 股 东 持 股： ',STRCAT(CON2STR(FINVALUE(243)/FINVALUE(238)*100,2),' %'))),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*4,0,STRCAT('第一大流通股东持股： ',STRCAT(CON2STR(FINVALUE(265)/FINVALUE(238)*100,2),' %'))),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD5,GD2+GD3*5+GD4,0,STRCAT(CON2STR(FINVALUE(246),0),' 户')),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD5,GD2+GD3*6+GD4,0,STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %')),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*7+GD4,0,STRCAT('QFII机构数： ',STRCAT(CON2STR(FINVALUE(248),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*8+GD4,0,STRCAT('券商机构数： ',STRCAT(CON2STR(FINVALUE(250),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*9+GD4,0,STRCAT('保险机构数： ',STRCAT(CON2STR(FINVALUE(252),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*10+GD4,0,STRCAT('基金机构数： ',STRCAT(CON2STR(FINVALUE(254),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*11+GD4,0,STRCAT('社保机构数： ',STRCAT(CON2STR(FINVALUE(256),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*12+GD4,0,STRCAT('私募机构数： ',STRCAT(CON2STR(FINVALUE(258),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*13+GD4,0,STRCAT('财务机构数： ',STRCAT(CON2STR(FINVALUE(260),0),' 家'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD1,GD2+GD3*14+GD4,0,STRCAT('年金机构数： ',STRCAT(CON2STR(FINVALUE(262),0),' 家'))),COLORRED{XG51};
GD8:=0.885{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*7+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(249)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*8+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(251)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*9+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(253)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*10+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(255)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*11+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(257)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*12+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(259)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*13+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(261)/FINVALUE(239)*100,2),' %'))),COLORRED{XG51};
DRAWTEXT_FIX(ISLASTBAR,GD8,GD2+GD3*14+GD4,0,STRCAT('持股：',STRCAT(CON2STR(FINVALUE(263)/FINVALUE(239)*100,2),' %'))),COLORRED{X?G_5!1?C?N?{};