|
编程思路破译 所属板块赋值:字符串相加 市盈率赋值:字符串相加 市销率赋值:字符串相加 市净率赋值:字符串相加 净资收益率赋值:字符串相加 毛利率赋值:字符串相加 净利润率赋值:字符串相加 主营利润率赋值:字符串相加 未分利润赋值:字符串相加 公积金赋值:字符串相加 当前业绩赋值:字符串相加 现金流赋值:字符串相加 流动比率赋值:字符串相加 速动比率赋值:字符串相加 XA1赋值:(流动资产-流动负债)/总资产*1.2 XA2赋值:(未分配利润+资本公积金)/总资产*1.4 XA3赋值:营业利润/总资产*3.3 XA4赋值:股东权益(净资产)/流动负债*0.6 XA5赋值:营业收入/流动负债*0.999 Z值赋值:XA1+XA2+XA3+XA4+XA5 预警赋值:如果Z值<1.2,返回'重警',否则返回如果Z值>=1.2ANDZ值<2.6,返回'轻警',否则返回'无警' 财务预警赋值:字符串相加 优质资产率赋值:字符串相加 现金负债比赋值:字符串相加 流动债赋值:字符串相加 长期债赋值:字符串相加 财务分析赋值:字符串相加 平均成本赋值:字符串相加 主力成本赋值:字符串相加 重心赋值:字符串相加 压力Ⅰ赋值:字符串相加 支撑Ⅰ赋值:字符串相加 压力Ⅱ赋值:字符串相加 支撑Ⅱ赋值:字符串相加 套牢盘%赋值:字符串相加 获利盘%赋值:字符串相加 筹码分析赋值:字符串相加 当满足条件是否最后一个周期时,在横轴0纵轴0位置书写文字,画淡红色 当满足条件是否最后一个周期时,在横轴0纵轴0.12位置书写文字,COLORFFFFBF 当满足条件是否最后一个周期时,在横轴0.00纵轴0.18位置书写文字,COLORFFFFBF 当满足条件是否最后一个周期时,在横轴0.00纵轴0.24位置书写文字,COLORFF99FF 输出山还是山:收盘价的125日[1日权重]移动平均,画黄色 B1赋值:收盘价的1日简单移动平均 输出B2:B1的2日[1日权重]移动平均的2日[1日权重]移动平均的2日[1日权重]移动平均,画红色 输出SMA2:B2的2日简单移动平均,画青色 输出箱顶:58日内B2的2日简单移动平均的最高值,COLOR00AAFF 如果B2<SMA2,返回SMA2,否则返回无效数,COLORFFA93F,线宽为2 １０赋值:收盘价的10日指数移动平均 输出２５:收盘价的25日指数移动平均,画白色 输出４０:收盘价的40日指数移动平均,COLOR00AA00 输出８０:收盘价的80日指数移动平均,COLORFFFF00 输出１２５:收盘价的125日[1日权重]移动平均,画黄色 VAR1赋值:(100 - ((90 * (21日内最高价的最高值 - 收盘价)) / (21日内最高价的最高值 - 21日内最低价的最低值))) VAR3赋值:(100 - ((100*(6日内最高价的最高值-收盘价))/(6日内最高价的最高值-6日内最低价的最低值))的34日简单移动平均) 输出分水岭:收盘价的5日简单移动平均的430日[1日权重]移动平均,COLORB48F33,线宽为2 输出买:当满足条件VAR1上穿VAR3的VAR1日简单移动平均ANDB2>SMA2时,在(最低价*0.97)位置书写文字,画红色 当满足条件收盘价上穿１０ANDVAR3>1ANDB2>SMA2时,在最低价*0.99位置书写文字,画白色,线宽为2 当满足条件收盘价上穿２５ANDVAR3>1ANDB2>SMA2时,在最低价*0.99位置书写文字,画绿色,线宽为2 当满足条件收盘价上穿４０ANDVAR3>1ANDB2>SMA2时,在最低价*0.99位置书写文字,画红色,线宽为2 当满足条件收盘价上穿８０ANDVAR3>1ANDB2>SMA2时,在最低价*0.99位置书写文字,COLORCCFF66,线宽为2 当满足条件收盘价上穿１２５ANDVAR1>1时,在最低价*0.99位置书写文字,画黄色,线宽为2 当满足条件1时,在横轴0.65纵轴0.018位置书写文字,画黄色 当满足条件1时,在横轴0.7纵轴0.018位置书写数字,画黄色 当满足条件1时,在横轴0.76纵轴0.02位置书写文字,COLOR0080FF 当满足条件1时,在横轴0.81纵轴0.02位置书写数字,COLOR0080FF 当满足条件1时,在横轴0.86纵轴0.018位置书写文字,COLORFF00FF 当满足条件1时,在横轴0.95纵轴0.018位置书写数字,COLORFF00FF 程序源码 {板块} 所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT('【行业】',HYBLOCK),STRCAT('【地域】',DYBLOCK)),STRCAT('【概念】',GNBLOCK))); {业绩综合} 市盈率:=STRCAT('【市盈率】',CON2STR(C/FINANCE(33),2)); 市销率:=STRCAT('【市销率】',CON2STR(C/(FINANCE(20)/FINANCE(1)),2)); 市净率:=STRCAT('【市净率】',CON2STR(C/FINANCE(34),2)); 净资收益率:=STRCAT('【净资收益率】',CON2STR(FINANCE(33)/FINANCE(34)*100,2)); 毛利率:=STRCAT('【毛利率】',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)); 净利润率:=STRCAT('【净利润率】',CON2STR(FINANCE(30)/FINANCE(20)*100,2)); 主营利润率:=STRCAT('【主营利润率】',CON2STR(FINANCE(23)/FINANCE(20)*100,2)); 未分利润:=STRCAT(STRCAT('【未分利润】',CON2STR(FINANCE(32)/1,2)),'元/股'); 公积金:=STRCAT(STRCAT('【公积金】',CON2STR(FINANCE(18)/1,2)),'元/股'); 当前业绩:=STRCAT('【当前业绩】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市销率,市净率),净资收益率),毛利率),净利润率),主营利润率),未分利润),公积金)); {财务分折} 现金流:=STRCAT(STRCAT('【现金流】',CON2STR(FINANCE(25)/100000000,2)),'亿'); 流动比率:=STRCAT('【流动比率】',CON2STR(FINANCE(11)/FINANCE(15),2)); 速动比率:=STRCAT('【速动比率】',CON2STR((FINANCE(11)-FINANCE(27))/FINANCE(15),2)); XA1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2; XA2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}; XA3:=FINANCE(23)/FINANCE(10)*3.3; XA4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额} XA5:=FINANCE(20)/FINANCE(15)*0.999; Z值:=XA1+XA2+XA3+XA4+XA5; 预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警')); 财务预警:=STRCAT('【财务预警】',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,2)))); 优质资产率:=STRCAT('【优质资产率】',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准}; 现金负债比:=STRCAT('【现金负债比】',CON2STR(FINANCE(25)/FINANCE(15),2));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准}; 流动债:=STRCAT(STRCAT('【流动债】',CON2STR(FINANCE(15)/100000000,2)),'亿'); 长期债:=STRCAT(STRCAT('【长期债】',CON2STR(FINANCE(16)/100000000,2)),'亿'); 财务分析:=STRCAT('【财务分析】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(现金流,流动比率),速动比率),现金负债比),优质资产率),财务预警),流动债),长期债)); {盘面分析} 平均成本:=STRCAT('【平均成本】',CON2STR(COST(50),2)); 主力成本:=STRCAT('【主力成本】',CON2STR(COST(4),2)); 重心:=STRCAT('【重心】',CON2STR((H+L+C)/3,2)); 压力Ⅰ:=STRCAT('【压力Ⅰ】',CON2STR(2*(H+L+C)/3-LOW,2)); 支撑Ⅰ:=STRCAT('【支撑Ⅰ】',CON2STR(2*(H+L+C)/3-HIGH,2)); 压力Ⅱ:=STRCAT('【压力Ⅱ】',CON2STR((H+L+C)/3+(REF(HIGH,1)-REF(LOW,1)),2)); 支撑Ⅱ:=STRCAT('【支撑Ⅱ】',CON2STR((H+L+C)/3-(REF(HIGH,1)-REF(LOW,1)),2)); 套牢盘%:=STRCAT('【套牢盘%】',CON2STR((1-WINNER(C))*100,2)); 获利盘%:=STRCAT('【获利盘%】',CON2STR(100*WINNER(C),2)); 筹码分析:=STRCAT('【筹码分析】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(平均成本,主力成本),重心),压力Ⅰ),支撑Ⅰ),压力Ⅱ),支撑Ⅱ),套牢盘%),获利盘%)); DRAWTEXT_FIX(ISLASTBAR,0,0,0,所属板块),COLORLIRED; DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,财务分析),COLORFFFFBF;DRAWTEXT_FIX(ISLASTBAR,0.00,0.18,0,当前业绩),COLORFFFFBF; DRAWTEXT_FIX(ISLASTBAR,0.00,0.24,0,筹码分析),COLORFF99FF; 山还是山:SMA(C,125,1),COLORYELLOW; B1:=MA(C,1); B2:SMA(SMA(SMA(B1,2,1),2,1),2,1),COLORRED; SMA2:MA(B2,2),COLORCYAN; 箱顶:HHV(MA(B2,2),58),COLOR00AAFF; IF(B2<SMA2,SMA2,DRAWNULL),COLORFFA93F,LINETHICK2; １０:=EMA(CLOSE,10); ２５:EMA(CLOSE,25),COLORWHITE; ４０:EMA(CLOSE,40),COLOR00AA00; ８０:EMA(CLOSE,80),COLORFFFF00; １２５:SMA(C,125,1),COLORYELLOW; VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))); VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34)); 分水岭:SMA(MA(C,5),430,1),COLORB48F33,LINETHICK2; 买:DRAWTEXT(CROSS(VAR1,MA(VAR3,VAR1)) AND B2>SMA2,(LOW * 0.97),'←⊙买'),COLORRED; DRAWTEXT(CROSS(C,１０) AND VAR3>1 AND B2>SMA2,L*0.99,'←※'),COLORWHITE,LINETHICK2; DRAWTEXT(CROSS(C,２５) AND VAR3>1 AND B2>SMA2,L*0.99,'←◇'),COLORGREEN,LINETHICK2; DRAWTEXT(CROSS(C,４０) AND VAR3>1 AND B2>SMA2,L*0.99,'←□'),COLORRED,LINETHICK2; DRAWTEXT(CROSS(C,８０) AND VAR3>1 AND B2>SMA2,L*0.99,'←○'),COLORCCFF66,LINETHICK2; DRAWTEXT(CROSS(C,１２５) AND VAR1>1,L*0.99,'←△'),COLORYELLOW,LINETHICK2; {牛熊界:MA(CLOSE,49),LINETHICK2,COLORGRAY;}; {.财务板块} DRAWTEXT_FIX(1,0.65,0.018,0,'市盈率:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.7,0.018,0,CONST(DYNAINFO(39))),COLORYELLOW; DRAWTEXT_FIX(1,0.76,0.02,0,'市净率:'),COLOR0080FF; DRAWNUMBER_FIX(1,0.81,0.02,0,CONST(C/FINANCE(34))),COLOR0080FF; DRAWTEXT_FIX(1,0.86,0.018,0,'每股收益(元):'),COLORFF00FF; DRAWNUMBER_FIX(1,0.95,0.018,0,CONST(FINANCE(33))),COLORFF00FF; 该公式包含未来函数:WINNER 注： 馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。 发文不易，如获益，欢迎赞赏，赞赏必复！ |
|
|
