决策主力股票论坛|今日股市行情大盘分析查询

 找回密码
 立即/注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

搜索
上证指数 2561.61 +15.28 +0.60% 香港恒生 25462.260 +17.201 +0.07% 日经225 22833.94 +284.70 +1.26% 韩国综合 2169.83 +24.71 +1.15%
道琼斯 25720.87 -77.55 -0.30% 纳斯达克 7623.70 -21.79 -0.29% 英国富时 7044.55 -14.85 -0.21% 德国DAX 11722.74 -53.81 -0.46%
人民币 6.9275 +0.0155 +0.22% 原油 69.70 -3.0868% NYMEX原油 黄金 1226.9 -0.3331% COMEX黄金全球股市行情 2018年10月18日02时15分
查看: 6379|回复: 0

[通达信] 通达信精品布林主图指标公式

[复制链接]
发表于 2018-10-5 14:02:48 | 显示全部楼层 |阅读模式

  1. N:=20;
  2. DRAWGBK(CURRBARSCOUNT=1, RGB(110,108,108),RGB(88,30,0),0,'',0);
  3. BOLL:MA(CLOSE,N),COLORGREEN,LINETHICK2;
  4. IF(BOLL>REF(BOLL,1),BOLL,DRAWNULL),COLORRED,LINETHICK2;
  5. UPPER:BOLL+2*STD(CLOSE,N),COLORCYAN;
  6. LOWER:BOLL-2*STD(CLOSE,N),COLOR0088FF;
  7. {量能平台}
  8. N1:=30;
  9. T1:=CONST(HHVBARS(V,N1));
  10. T0:IF(CURRBARSCOUNT=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)=REF(C,1);
  11. A:=(3*C+L+O+H)/6;
  12. VAR4:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
  13. 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
  14. +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
  15. MTM:=C-REF(C,1);
  16. DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
  17. CB:=EMA(VAR4,13);
  18. {红}
  19. STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),COLOR0000FF;
  20. STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF;
  21. {蓝}
  22. STICKLINE(CLOSE50,2) AND CROSS(MA(DX,2),DX);
  23. DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,'卖'),COLORGREEN;
  24. 买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX=REF(MA18,3) AND CROSS(CLOSE,MA18);
  25. DRAWTEXT(跟,LOW*0.96,'跟'),COLORCC66FF;
  26. JRH:=HHV(C,2);
  27. JRL:=LLV(C,2);
  28. VAR01:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
  29. VAR02:=(REF(VAR01,1) AND CLOSE=REF(CLOSE,2));
  30. VAR03:=(REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  31. VAR05:=(REF(VAR04,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  32. VAR07:=(REF(VAR06,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  33. VAR09:=(REF(VAR08,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  34. VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  35. VARD:=(CLOSE=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  36. VAR010:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  37. VAR012:=(REF(VAR011,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  38. VAR014:=(REF(VAR013,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  39. VAR016:=(REF(VAR015,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,2));
  40. VAR018:=(REF(VAR017,1) AND CLOSE>=REF(CLOSE,1) AND CLOSEO;
  41. XG:=TJ1 AND TJ2 AND TJ3;
  42. DRAWTEXT(XG,REF(C,2),'-------------------'),COLORRED;
  43. 上涨家数:INDEXADV,COLOR0080FF,NODRAW;
  44. 下跌家数:INDEXDEC,COLORGREEN,NODRAW;
  45. 自动C:=INDEXC;
  46. 自动O:=INDEXO;
  47. 自动H:=INDEXH;
  48. 自动L:=INDEXL;
  49. 大盘低:=CONST(LLV(自动L,120));
  50. 大盘高:=CONST(HHV(自动H,120));
  51. 大盘差:=大盘高-大盘低;
  52. 当前低:=CONST(LLV(L,120));
  53. 当前高:=CONST(HHV(H,120));
  54. 当前差:=当前高-当前低;
  55. 比:=当前差*1.2/大盘差;
  56. 变C:=当前低+(自动C-大盘低)*比;
  57. 变H:=当前低+(自动H-大盘低)*比;
  58. 变L:=当前低+(自动L-大盘低)*比;
  59. 变O:=当前低+(自动O-大盘低)*比;
  60. STICKLINE(CURRBARSCOUNT=变O,变H,变L,0,0),COLORMAGENTA;
  61. STICKLINE(CURRBARSCOUNT=变O,变O,变C,2,0),COLORMAGENTA;
  62. DRAWKLINE(H,O,L,C);
  63. DRAWTEXT_FIX(1,0.00,0,0,'所属行业:')COLORCYAN;
  64. DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK),COLORWHITE;
  65. DRAWTEXT_FIX(1,0.14,0,0,'所属地区:')COLORCYAN;
  66. DRAWTEXT_FIX(1,0.20,0,0,DYBLOCK),COLORWHITE;
  67. ;
  68. DRAWTEXT_FIX(1,0.00,0.05,0,'主营业务:')COLORCYAN;
  69. DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,3)),COLORRED;
  70. ;
  71. DRAWTEXT_FIX(1,0.00,0.15,0,'莸利比例:'),COLORYELLOW;
  72. DRAWNUMBER_FIX(1,0.06,0.15,0,CONST(WINNER(C )*100)),COLORWHITE;
  73. DRAWTEXT_FIX(1,0.22,0.15,0,'市值:'),COLORYELLOW;
  74. DRAWNUMBER_FIX(1,0.26,0.15,0,FINANCE(40)/100000000),COLORWHITE;
  75. DRAWTEXT_FIX (1,0.31,0.15,0,'公积金(股):'),COLORYELLOW;
  76. DRAWNUMBER_FIX(1,0.38,0.15,0,FINANCE(18)),COLORWHITE;
  77. DRAWTEXT_FIX (1,0.43,0.15,0,'收益:'),COLORYELLOW;
  78. DRAWNUMBER_FIX(1,0.47,0.15,0,FINANCE(33)),COLORWHITE;
  79. VAR111:=ZIG(3,13);
  80. STICKLINE((REF(VAR111,2) REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)LOW+0.01,20,0);
  81. 必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORGREEN,LINETHICK1;
  82. QQ:=必卖=80;
  83. B03:=((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)=1.1;
  84. V7:=BACKSET(V6,3);
  85. 大涨:=(V7 AND COUNT(V7,3)=1);
  86. 总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
  87. 流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
  88. 全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
  89. 市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
  90. 上市日期:=STRCAT(' 上市天数: ',CON2STR(FINANCE(42),0));
  91. 股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
  92. {}
  93. 市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
  94. 市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
  95. 市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
  96. 净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
  97. 毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
  98. 净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
  99. 主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
  100. 利润同比:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2));
  101. 收入同比:=STRCAT(' 收入同比: ',CON2STR(FINANCE(44),2));
  102. 当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率), 利润同比), 收入同比));
  103. {}
  104. X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
  105. X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
  106. X3:=FINANCE(23)/FINANCE(10)*3.3;
  107. X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
  108. X5:=FINANCE(20)/FINANCE(15)*0.999;
  109. Z值:=X1+X2+X3+X4+X5;
  110. 预警:=IF(Z值=1.2 AND Z值<2.6,'轻警','无警'));
  111. 财务预警:=STRCAT('财务预警: ',STRCAT(预警,STRCAT('-Z值: ',CON2STR(Z值,3))));
  112. 优质资产率:=STRCAT(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};
  113. 现金负债比:=STRCAT(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额,理论上越大越好但不同行业有不同标准};
  114. 财务系数:=STRCAT('风险系数: ',STRCAT(STRCAT(财务预警,优质资产率),现金负债比));
  115. {}
  116. DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLORCYAN;
  117. DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLORLIMAGENTA;
  118. DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORYELLOW;
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即/注册

本版积分规则




手机版|今日股市行情|决策主力股票论坛 ( 鄂ICP备15023833号-1)点击这里给我发消息 鄂公网安备 42062502000040号

GMT+8, 2018-10-18 02:15

Powered by 今日股市

© 2001-2017 http://jue-ce.com/

快速回复 返回顶部 返回列表