效果图
公式经过测试过的
如有报错的原因可能是 没有设置RPS,没有下载专业财务数据等。
有问题可以私信我。
以下是更新过的通达信导出文件直接导入即可
链接:https://pan.baidu.com/s/1PQshJtPH0Yw-2-sxeWA9_Q?pwd=7m9t
提取码:7m9t
源代码
{来自微信公众号:趋势跟踪之道}
{DRAWRECTREL(0,0,378,348,RGB(36,36,36))NOFRAME;}
{基本资料}
FUNDS:=FINVALUE(254)/FINVALUE(246)*100;
PE:=C/FINANCE(33);
机构:=FINVALUE(246);
A:=BARSCOUNT(C)<251;
{B:=IPORPS.IPORPS250;
B1:=RPS.RPS250;
RS:=IF(A,B,B1);}
RS:=RPS.RPS250;
流通:=FINANCE(7)/100000000;
基金持股:=FINVALUE(255)/FINVALUE(239)*100;
北上持股:=GPJYVALUE(6,1,1)/10000;
涨跌量比50:=涨跌量比.RIO;
DRAWTEXT_FIX(1,0.44,0.02,0,'基金持股:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.49,0.02,0,STRCAT(VAR2STR(基金持股,1),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.44,0.06,0,'北上持股:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.49,0.06,0,STRCAT(VAR2STR(北上持股,1),' 万')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.44,0.10,0,'涨跌量比:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.49,0.10,0,STRCAT(VAR2STR(涨跌量比50,1),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.35,0.06,0,'RS:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.38,0.06,0,CON2STR(RS,0))COLORRED;
DRAWTEXT_FIX(1,0.35,0.02,0,'行业:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.38,0.02,0,HYBLOCK),COLORGRAY;
DRAWTEXT_FIX(1,0.35,0.10,0,'机构:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.38,0.10,0,CON2STR(机构,0))COLORLIBLUE;
DRAWTEXT_FIX(1,0.35,0.14,0,'P/E:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.38,0.14,0,CON2STR(PE,0))COLORLIBLUE;
DRAWTEXT_FIX(1,0.35,0.18,0,'FUNDS:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.39,0.18,0,STRCAT(VAR2STR(FUNDS,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.35,0.22,0,'流通:')COLORLIGREEN;
DRAWTEXT_FIX(1,0.38,0.22,0,STRCAT(VAR2STR(流通,1),' 亿')),COLORLIGRAY;
{财务(1)每股净利润EPS 和 EPS增长率}
EPS2020Q4:=FINONE(2,2020,1231);
EPS2021Q1:=FINONE(2,2021,0331);
EPS2021Q2:=FINONE(2,2021,0630);
EPS2021Q3:=FINONE(2,2021,0930);
EPS2021Q4:=FINONE(2,2021,1231);
EPS2022Q1:=FINONE(2,2022,0331);
EPS2022Q2:=FINONE(2,2022,0630);
EPS2022Q3:=FINONE(2,2022,0930);
EPS2022Q4:=FINONE(2,2022,1231);
EPS2023Q1:=FINONE(2,2023,0331);
EPS2023Q2:=FINONE(2,2023,0630);
EPS2023Q3:=FINONE(2,2023,0930);
EPS2023Q4:=FINONE(2,2023,1231);
EPS2017:=FINONE(2,2017,1231);
EPS2018:=FINONE(2,2018,1231);
EPS2019:=FINONE(2,2019,1231);
EPS2020:=FINONE(2,2020,1231);
EPS2021:=FINONE(2,2021,1231);
EPS2022:=FINONE(2,2022,1231);
EPS2023:=FINONE(2,2023,1231);
EPS2024:=FINONE(2,2024,1231);
EPS增长率2017:=FINONE(190,2017,1231);
EPS增长率2018:=FINONE(190,2018,1231);
EPS增长率2019:=FINONE(190,2019,1231);
EPS增长率2020:=FINONE(190,2020,1231);
EPS增长率2021:=FINONE(190,2021,1231);
EPS增长率2022:=FINONE(190,2022,1231);
EPS增长率2023:=FINONE(190,2023,1231);
EPS增长率2024:=FINONE(190,2024,1231);
EPS增长率2020Q4:=FINONE(190,2020,1231);
EPS增长率2023Q1:=FINONE(190,2023,0331);
EPS增长率2023Q2:=FINONE(190,2023,0630);
EPS增长率2023Q3:=FINONE(190,2023,0930);
EPS增长率2023Q4:=FINONE(190,2023,1231);
EPS增长率2022Q1:=FINONE(190,2022,0331);
EPS增长率2022Q2:=FINONE(190,2022,0630);
EPS增长率2022Q3:=FINONE(190,2022,0930);
EPS增长率2022Q4:=FINONE(190,2022,1231);
DRAWTEXT_FIX(1,0.00,0.02,0,'季度周期'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.00,0.07,0,'EPS'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.00,0.11,0,'EPS增长率'),COLORLIGREEN;
{年度EPS增长率}
DRAWTEXT_FIX(1,0.00,0.24,0,'2017'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.24,0,CON2STR(EPS2017,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.24,0,STRCAT(VAR2STR(EPS增长率2017,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.28,0,'2018'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.28,0,CON2STR(EPS2018,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.28,0,STRCAT(VAR2STR(EPS增长率2018,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.32,0,'2019'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.32,0,CON2STR(EPS2019,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.32,0,STRCAT(VAR2STR(EPS增长率2019,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.36,0,'2020'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.36,0,CON2STR(EPS2020,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.36,0,STRCAT(VAR2STR(EPS增长率2020,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.40,0,'2021'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.40,0,CON2STR(EPS2021,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.40,0,STRCAT(VAR2STR(EPS增长率2021,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.44,0,'2022'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.44,0,CON2STR(EPS2022,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.44,0,STRCAT(VAR2STR(EPS增长率2022,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.48,0,'2023'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.48,0,CON2STR(EPS2023,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.48,0,STRCAT(VAR2STR(EPS增长率2024,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.00,0.52,0,'2024'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.04,0.52,0,CON2STR(EPS2024,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.08,0.52,0,STRCAT(VAR2STR(EPS增长率2024,0),' %')),COLORLIGRAY;
{季度EPS增长率,来自微信公众号:趋势跟踪之道}
DRAWTEXT_FIX(1,0.05,0.02,0,'23Q1'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.05,0.07,0,CON2STR(EPS2023Q1,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.05,0.11,0,STRCAT(VAR2STR(EPS增长率2023Q1,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.09,0.02,0,'23Q2'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.09,0.07,0,CON2STR(EPS2023Q2,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.09,0.11,0,STRCAT(VAR2STR(EPS增长率2023Q2,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,0.02,0,'23Q3'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.13,0.07,0,CON2STR(EPS2023Q3,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,0.11,0,STRCAT(VAR2STR(EPS增长率2023Q3,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.17,0.02,0,'23Q4'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.17,0.07,0,CON2STR(EPS2023Q4,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.17,0.11,0,STRCAT(VAR2STR(EPS增长率2023Q4,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.21,0.02,0,'22Q1'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.21,0.07,0,CON2STR(EPS2022Q1,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.21,0.11,0,STRCAT(VAR2STR(EPS增长率2022Q1,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.02,0,'22Q2'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.25,0.07,0,CON2STR(EPS2022Q2,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.11,0,STRCAT(VAR2STR(EPS增长率2022Q2,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.28,0.02,0,'22Q3'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.28,0.07,0,CON2STR(EPS2022Q3,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.28,0.11,0,STRCAT(VAR2STR(EPS增长率2022Q3,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.31,0.02,0,'22Q4'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.31,0.07,0,CON2STR(EPS2022Q4,2)),COLORLIGRAY;
DRAWTEXT_FIX(1,0.31,0.11,0,STRCAT(VAR2STR(EPS增长率2022Q4,0),' %')),COLORLIGRAY;
{财务(2)销售收入增长率 来自微信公众号:趋势跟踪之道}
SALES2020Q4:=FINONE(183,2020,1231);
SALES2023Q1:=FINONE(183,2023,0331);
SALES2023Q2:=FINONE(183,2023,0630);
SALES2023Q3:=FINONE(183,2023,0930);
SALES2023Q4:=FINONE(183,2023,1231);
SALES2022Q1:=FINONE(183,2022,0331);
SALES2022Q2:=FINONE(183,2022,0630);
SALES2022Q3:=FINONE(183,2022,0930);
SALES2022Q4:=FINONE(183,2022,1231);
DRAWTEXT_FIX(1,0.00,0.19,0,'销售增长率'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.05,0.19,0,STRCAT(VAR2STR(SALES2023Q1,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.09,0.19,0,STRCAT(VAR2STR(SALES2023Q2,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,0.19,0,STRCAT(VAR2STR(SALES2023Q3,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.17,0.19,0,STRCAT(VAR2STR(SALES2023Q4,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.21,0.19,0,STRCAT(VAR2STR(SALES2022Q1,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.19,0,STRCAT(VAR2STR(SALES2022Q2,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.28,0.19,0,STRCAT(VAR2STR(SALES2022Q3,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.31,0.19,0,STRCAT(VAR2STR(SALES2022Q4,0),' %')),COLORLIGRAY;
{{财务(3)净利润增长率}
净利润2020Q4:=FINONE(184,2020,1231);
净利润2023Q1:=FINONE(184,2023,0331);
净利润2023Q2:=FINONE(184,2023,0630);
净利润2023Q3:=FINONE(184,2023,0930);
净利润2023Q4:=FINONE(184,2023,1231);
净利润2022Q1:=FINONE(184,2022,0331);
净利润2022Q2:=FINONE(184,2022,0630);
净利润2022Q3:=FINONE(184,2022,0930);
净利润2022Q4:=FINONE(184,2022,1231);
DRAWTEXT_FIX(1,0.00,0.15,0,'净利润同比'),COLORLIGREEN;
DRAWTEXT_FIX(1,0.05,0.15,0,STRCAT(VAR2STR(净利润2023Q1,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.09,0.15,0,STRCAT(VAR2STR(净利润2023Q2,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.13,0.15,0,STRCAT(VAR2STR(净利润2023Q3,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.17,0.15,0,STRCAT(VAR2STR(净利润2023Q4,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.21,0.15,0,STRCAT(VAR2STR(净利润2022Q1,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.25,0.15,0,STRCAT(VAR2STR(净利润2022Q2,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.28,0.15,0,STRCAT(VAR2STR(净利润2022Q3,0),' %')),COLORLIGRAY;
DRAWTEXT_FIX(1,0.31,0.15,0,STRCAT(VAR2STR(净利润2022Q4,0),' %')),COLORLIGRAY;
{调整幅度%来自微信公众号:趋势跟踪之道}
ZG:=CONST(HHV(H,200));{最高}
SJ:=HHVBARS(H,200)+1;{高低时间差}
ZD:=CONST(LLV(L,SJ));{最低}
DZ:=ZD/ZG;{低/高}
DF:=DZ*100-100;{跌幅}
DRAWNUMBER(L=ZD,ZD,DF),COLORYELLOW;
RED:=DF,NODRAW,COLORRED;
GREEN:=DF,NODRAW,COLORGREEN;
调整幅度%:IF(DF<=-30,RED,GREEN);
{净利润断层};
高开缺口 := LOW>REF(HIGH,1);
当前日期 := DATE+19000000-20000000;
SV := -1;
EV := IF(WEEKDAY=1,3,2);
{业绩预告}
预告下限 :=FINVALUE(285);
预告上限 :=FINVALUE(286);
预告净利润均值% : (预告上限+预告下限)/2,COLORYELLOW,NODRAW;
预告日期 := FINVALUE(313);
预告日期差 := (当前日期-预告日期>SV) AND (当前日期-预告日期<EV);
预告断层 := (预告净利润均值%>0) AND 高开缺口 AND 预告日期差;
{业绩快报}
快报净利润 :=FINVALUE(287);
快报日期 := FINVALUE(315);
快报日期差 := (当前日期-快报日期>SV) AND (当前日期-快报日期<EV);
快报断层 := (快报净利润>0) AND 高开缺口 AND 快报日期差;
{财报}
财报净利润 :=FINVALUE(95);
EPSRATE := FINVALUE(184);
财报日期 :=FINVALUE(314);
财报日期差 := (当前日期-财报日期>SV) AND (当前日期-财报日期<EV);
财报断层 := 财报净利润 > 0 AND EPSRATE > 0 AND 高开缺口 AND 财报日期差;
报告期 := FINONE(0,0,0) - INTPART(FINONE(0,0,0)/10000)*10000;
{指定日期1}
指定日期 := IF(报告期=331,1201,IF(报告期=630,301,IF(报告期=930,601,301)));
{指定日期业绩预告}
指预告下限 := FINONE(285,0,指定日期);
指预告上限 := FINONE(286,0,指定日期);
指预告中值 := (指预告上限+指预告下限)/2;
指预告日期 := FINONE(313,0,指定日期);
指预告日期差 := (当前日期-指预告日期>SV) AND (当前日期-指预告日期<EV);
指预告断层 := (指预告中值>0) AND 高开缺口 AND 指预告日期差;
{指定日期业绩快报来自微信公众号:趋势跟踪之道}
指快报净利润 := FINONE(287,0,指定日期);
指快报日期 := FINONE(315,0,指定日期);
指快报日期差 := (当前日期-指快报日期>SV) AND (当前日期-指快报日期<EV);
指快报断层 := (指快报净利润>0) AND 高开缺口 AND 指快报日期差;
{指定日期财报}
指财报净利润 := FINONE(95,0,指定日期);
指EPSRATE := FINONE(184,0,指定日期);
指财报日期 := FINONE(314,0,指定日期);
指财报日期差 := (当前日期-指财报日期>SV) AND (当前日期-指财报日期<EV);
指财报断层 := 指财报净利润 > 0 AND 指EPSRATE > 0 AND 高开缺口 AND 指财报日期差;
{指定日期2}
指定日期2 := IF(报告期=331, 301, IF(报告期=630, 601, IF(报告期=930, 901, 1201)));
{指定日期业绩预告2}
指预告下限2 := FINONE(285,0,指定日期2);
指预告上限2 := FINONE(286,0,指定日期2);
指预告中值2 := (指预告上限2+指预告下限2)/2;
指预告日期2 := FINONE(313,0,指定日期2);
指预告日期差2 := (当前日期-指预告日期2>SV) AND (当前日期-指预告日期2<EV);
指预告断层2 := (指预告中值2>0) AND 高开缺口 AND 指预告日期差2;
{指定日期业绩快报2}
指快报净利润2 := FINONE(287,0,指定日期2);
指快报日期2 := FINONE(315,0,指定日期2);
指快报日期差2 := (当前日期-指快报日期2>SV) AND (当前日期-指快报日期2<EV);
指快报断层2 := (指快报净利润2>0) AND 高开缺口 AND 指快报日期差2;
{指定日期财报}
指财报净利润2 := FINONE(95,0,指定日期2);
指EPSRATE2 := FINONE(184,0,指定日期2);
指财报日期2 := FINONE(314,0,指定日期2);
指财报日期差2 := (当前日期-指财报日期2>SV) AND (当前日期-指财报日期2<EV);
指财报断层2 := 指财报净利润2 > 0 AND 指EPSRATE2 > 0 AND 高开缺口 AND 指财报日期差2;
净利润断层:=预告断层 OR 快报断层 OR 财报断层 OR 指预告断层 OR 指快报断层 OR 指财报断层 OR 指预告断层2 OR 指快报断层2 OR 指财报断层2;
DRAWICON(BARSSINCEN(净利润断层,3)=0,L,5);{画笑脸};
历史更新文章
本篇文章来源于微信公众号:趋势跟踪之道