同花顺指标的练习草稿

/* 通达信和同花顺的接口很多不一致,
 * 有的功能暂时不会实现(估计也没法实现...), 只能把大致的主逻辑写一下
 * FINVALUE的功能释义参考了通达信客户端的参考文档
 */

/* 商誉数值:=FINVALUE(35)/100000000;{亿}
 * 我在同花顺里找不到相关的接口可用, 暂时给个指定值,
 * 到时找到直接替换掉即可, 好像有个公式 商誉=企业整体价格-企业整体价值
 * 我也没找到相关的价值函数...
 */

商誉数值 := 14; /* FINVALUE(35)/100000000 */

/* 净资产:=FINANCE(19)/100000000,NODRAW;{亿}
 * FINANCE(19) 是股东权益函数
 * 同花顺里有 GDQYHJ  股东权益合计
              SCGDQYHJ 市场股东权益合计
   两种函数可选, 我不太知道用哪个, 暂且用前者吧
 */
净资产 := GDQYHJ / 100000000;

/* 输出文本头雷区
 */
雷区:商誉数值/净资产*100,COLORWHITE,NODRAW;

/* 销售毛利率:=((FINANCE(20)-FINANCE(21))/FINANCE(20)*100);
 * 净利润比率:=(FINANCE(30)/FINANCE(20)*100);
 * 优质资产率:=((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19));
 *
 * (1) 销售毛利率:=((FINANCE(20)-FINANCE(21))/FINANCE(20)*100);
 *
 * 通达信向同花顺转换    FINANCE(20) 营业收入 -> ZYYWSR   主营业务收入
 * 通达信向同花顺转换    FINANCE(21) 营业成本 -> ZYYWCB   主营业务成本
 *
 * (2) 净利润比率:=(FINANCE(30)/FINANCE(20)*100);
 *
 * 通达信向同花顺转换    FINANCE(30) 净利润 -> JLR      净利润
 *
 * (3) 优质资产率:=((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19));
 *
 * 通达信向同花顺转换    FINANCE(19) 股东权益 -> GDQYHJ  股东权益合计
 * 通达信向同花顺转换    FINANCE(22) 应收帐款 -> YSZKJE   应收帐款净额
 * 通达信向同花顺转换    FINANCE(27) 存货 -> CH        存货
 */
 销售毛利率 := (ZYYWSR - ZYYWCB) / ZYYWSR * 100; /* (1) */
 净利润比率 := JLR / ZYYWSR * 100; /* (2) */
 优质资产率 := (GDQYHJ - YSZKJE - CH) / GDQYHJ; /* (3) */
 /*
 // 测试输出
 销售毛利率_:销售毛利率;
 净利润比率_:净利润比率;
 优质资产率_:优质资产率;
 */

/*
 * 现金负债比:=(FINANCE(25)/FINANCE(15));
 * 净利同增率:=FINANCE(43);
 * 净资收益率:=(FINANCE(33)/FINANCE(34)*100);
 * 主营利润率:=(FINANCE(23)/FINANCE(20)*100);
 * 主营业增长率:=FINANCE(44);
 * 每股净资产:=CONST(FINANCE(34));
 * 每股收益:=CONST(FINANCE(38));
 * 净利润增长率:=FINANCE(43);
 * 市销率:=CONST(FINANCE(1)*DYNAINFO(7)/FINANCE(20));
 * 每股未分配:=CONST(FINANCE(32));
 * 每股公积金:=CONST(FINANCE(18));
 *
 * (1): 现金负债比:=(FINANCE(25)/FINANCE(15));
 *
 * 通达信向同花顺转换    FINANCE(25) 经营现金流量 -> JYJE    经营活动产生的现金流
 * 通达信向同花顺转换    FINANCE(15) 流动负债 -> LDFZHJ   流动负债合计
 *
 * (2): 净利同增率:=FINANCE(43);
 * 通达信向同花顺转换    FINANCE(43) 利润同比% -> 没找到, 找到个计算公式, 还是缺条件
 *
 * (3): 净资收益率:=(FINANCE(33)/FINANCE(34)*100);
 * 通达信向同花顺转换    FINANCE(33) 每股收益 -> MGSY[X]        每股收益「新]
 * 通达信向同花顺转换    FINANCE(34) 每股净资产 -> MGJZC       每股净资产
 *
 * (4): 主营利润率:=(FINANCE(23)/FINANCE(20)*100);
 * 通达信向同花顺转换    FINANCE(23) 营业利润 -> LRZE     利润总额
 * 通达信向同花顺转换    FINANCE(20) 主营收入 -> ZYYWSR   主营业务收入
 *
 * (5): 主营业增长率:=FINANCE(44);
 * 通达信向同花顺转换    FINANCE(44) 收入同比 -> 没找到, 找到个计算公式, 还是缺条件

 * (6): 每股净资产:=CONST(FINANCE(34));
 * 通达信向同花顺转换    FINANCE(34) 每股净资产 -> MGJZC       每股净资产

 * (7): 每股收益:=CONST(FINANCE(38));
 * 通达信向同花顺转换    FINANCE(38) 每股收益 -> MGSY       每股收益

 * (8): 净利润增长率:=FINANCE(43); 这个跟 (2) 是一样的

 * (9): 市销率:=CONST(FINANCE(1)*DYNAINFO(7)/FINANCE(20));
 *
 * 通达信向同花顺转换    FINANCE(1) 总股本 -> ZGB        总股数
 * 通达信向同花顺转换    DYNAINFO(7) 能直接用不必转换
 * 通达信向同花顺转换    FINANCE(20) 主营收入 -> ZYYWSR   主营业务收入

 * (10): 每股未分配:=CONST(FINANCE(32));
 * 通达信向同花顺转换    FINANCE(32) 每股未分配利润 ->        WFPLR    未分配利润

 * (11): 每股公积金:=CONST(FINANCE(18));
 * 通达信向同花顺转换    FINANCE(18) 每股公积金 -> MGGJJ       每股公积金
*/
 现金负债比 := JYJE / LDFZHJ; /* (1) */
 净利同增率 := 666; /* FINANCE(43) */ /* (2) */
 净资收益率 := MGSY / MGJZC * 100;/* (3) */
 主营利润率 := LRZE / ZYYWSR * 100;/* (4) */
 主营业增长率 := 666; /* FINANCE(44) */ /* (5) */
 每股净资产 := MGJZC;/* (6) */
 每股收益 := MGSY;/* (7) */
 净利润增长率 := 净利同增率;/* (8) */
 市销率 := CONST (ZGB * DYNAINFO(7) / ZYYWSR);/* (9) */
 每股未分配 := WFPLR;/* (10) */
 每股公积金 := MGGJJ;/* (11) */
 /*
 // 测试输出
 现金负债比_ : 现金负债比;
 净利同增率_ : 净利同增率;
 净资收益率_ : 净资收益率;
 主营利润率_ : 主营利润率;
 主营业增长率_ : 主营业增长率;
 每股净资产_ : 每股净资产;
 每股收益_ : 每股收益;
 净利润增长率_ : 每股收益;
 市销率_ : 市销率;
 每股未分配_ : 每股未分配;
 每股公积金_ : 每股公积金;
 */

 /* 逻辑测试评估股票品质, 这段基本不要改, 就直接复制了*/
SY01 := 净资收益率 > 3;
SY02 := 净资收益率 > 0.01 AND 净资收益率 <= 3;
SY03 := 主营利润率 > 2;
SY04 := 主营利润率 > 0;
SY05 := 主营业增长率 > 1;
SY06 := 主营业增长率 > 0;
SY07 := 净利润增长率 > 2;
SY08 := 净利润增长率 > 0.2;
SY09 := 每股收益 > 0.01;
SY10 := 每股收益 > 0.001;
SY11 := 每股净资产 > 2;
SY12 := 每股净资产 > 0.01;
SY13 := 每股未分配 > 0.5;
SY14 := 每股未分配 > 0.001;
SY15 := 每股公积金 > 0.5;
SY16 := 每股公积金 > 0.002;
SY17 := 每股未分配 >= 2 AND 每股公积金 >= 2;
SY18 := 每股未分配 < 2 OR 每股公积金 < 2;

优秀 := SY01 AND SY03 AND SY05 AND SY07 AND SY09 AND SY11 AND SY13 AND SY15;
较好 := SY02 AND SY04 AND SY06 AND SY08 AND SY10 AND SY12 AND SY14 AND SY16;
一般 := NOT (优秀) AND NOT (较好);

 /* 画线框矩形, 跟通达信比 没法固定点画线 */

 /* 固定点输出文字, DRAWNUMBER_FIX貌似也没法用, 还好能配合TOSTRING+DRAWTEXT_FIX输出数字 */
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.02,0.03,0,'评估名称'), COLORYELLOW;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.02,0.27,0,' 基本数值'), COLORYELLOW;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.02,0.46,0,' 评估项目'), COLORWHITE;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.125,0.03,0,'净资收益率'), COLORYELLOW;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.125,0.27,0, TOSTRING(CONST(MGSY / MGJZC * 100), 8)), COLORYELLOW;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.125,0.46,0,'盈利能力'), COLORWHITE;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.307,0.03,0,'主营利润率'), COLORYELLOW;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.307,0.27,0, TOSTRING(CONST(LRZE / ZYYWSR * 100), 8)), COLORYELLOW;
DRAWTEXT_FIX (CURRBARSCOUNT = 1,0.307,0.46,0,'盈利能力'), COLORWHITE;