账号设置

密码修改

退出登录
股海首页| 金钻指标 | 股海博客| 指标公式|看盘软件|股票数据|数据题材|工具应用|期货基金|指标战法|股海宝贝|炒股知识|资讯消息|VIP之家|
飞狐公式|通达信公式|大智慧公式|同花顺公式|东方财富通公式|大智慧股票池|通达信股票池|公式帮助|博易大师公式|益盟操盘手公式|文华财经公式|金字塔公式|
当前位置：→ 股海网 → 大智慧公式 → 正文

  • 新版大智慧【板块分析 】完美版

  • 相关简介：★完美就完美在作为个股的附副隋时都能了解主要行业板块的情况★ 明天是非交易日不能建立自定指敖数，所以今升级。 保留原有的说明： 很高兴看见老杨回来和朋友们携手并肩，共同迎接美好的每一天。 特献上新版大智慧【板块分析】表示祝贺。 板块指数当天数据和K线图(历史数据)不配套是分析家变大智慧后一直成在 的毛病,自己又无法纠正。这里想到的办法用自定指数解决此问题。 这里只谈指数的建立、注意事项和公式的用法。分析就靠大家体验啦！ 一，〈自定指数〉只用板块中〈行业板块〉从AA01到AA32顺序建立，一个不

  • 文章来源：择股网作者：股海网发布时间：2009-06-03浏览次数：下载次数：48

★完美就完美在作为个股的附副隋时都能了解主要行业板块的情况★

明天是非交易日不能建立自定指敖数，所以今升级。

保留原有的说明：

很高兴看见老杨回来和朋友们携手并肩，共同迎接美好的每一天。

特献上新版大智慧【板块分析】表示祝贺。

板块指数当天数据和K线图(历史数据)不配套是分析家变大智慧后一直成在

的毛病,自己又无法纠正。这里想到的办法用自定指数解决此问题。

这里只谈指数的建立、注意事项和公式的用法。分析就靠大家体验啦！

一，〈自定指数〉只用板块中〈行业板块〉从AA01到AA32顺序建立，一个不

    能错，一个也不能少。首先请除原有自定指数(若有只能建立在AA32后面)

    用从板块批量新建指数方法建立行业板块中32个数。(整个过程不会超过

    十分钟)。

二，〈自定指数〉只有在有交易日建立。假日不要刷新指数，更不能收盘。

    (当然，有什么错误从新建立也花不了多少时间)。

三，公式用在指数，也可用在个股，不同的地方：在指数中均线和靠右边

   的风向标自动显示当前主图的风向标和均线。个股则用参数K调整你需

   要的板块。参数P为1时显示参数对照表。(看后要归零)。

四，风向标是以10日均线为基准的。有时当日指数是涨，当日的涨跌幅反

  反而向下(即当日指数与10日均线距离减少，也说明涨速减慢。)

=========================================================

 

C/C++ Code复制内容到剪贴板
  1. {<辅助002> 引用公式}   
  2. C1:CLOSE;   
  3. O1:OPEN;   
  4. H1:HIGH;   
  5. L1:LOW;   
  6. C2:REF(C1,1);   
  7. A2:REF(AMOUNT,1);   
  8. ===========================================      
  9.   
  10.   
  11. {板块分析    DZH2}   
  12. input:RN(10,1,100),K(31,1,32),P(0,0,1)  ;   
  13. IF K=1  then     BKM:='保险';   
  14. IF K=2  then     BKM:='电力';   
  15. IF K=3  then     BKM:='电力设备';   
  16. IF K=4  then     BKM:='电器';   
  17. IF K=5  then     BKM:='电子信息';   
  18. IF K=6  then     BKM:='房地产';   
  19. IF K=7  then     BKM:='纺织服装';   
  20. IF K=8  then     BKM:='钢铁';   
  21. IF K=9  then     BKM:='工程建筑';   
  22. IF K=10  then     BKM:='供水供气';   
  23. IF K=11  then     BKM:='化工化纤';   
  24. IF K=12  then     BKM:='机械';   
  25. IF K=13  then     BKM:='计算机';   
  26. IF K=14  then     BKM:='建材';   
  27. IF K=15  then     BKM:='交通设施';   
  28. IF K=16  then     BKM:='教育传媒';   
  29. IF K=17  then     BKM:='旅游酒店';   
  30. IF K=18  then     BKM:='煤炭石油';   
  31. IF K=19  then     BKM:='酿酒食品';   
  32. IF K=20  then     BKM:='农林牧渔';   
  33. IF K=21  then     BKM:='其它行业';   
  34. IF K=22  then     BKM:='汽车类';   
  35. IF K=23  then     BKM:='券商';   
  36. IF K=24  then     BKM:='商业连锁';   
  37. IF K=25  then     BKM:='通信';   
  38. IF K=26  then     BKM:='外贸';   
  39. IF K=27  then     BKM:='医药';   
  40. IF K=28  then     BKM:='仪电仪表';   
  41. IF K=29  then     BKM:='银行类';   
  42. IF K=30  then     BKM:='有色金属';   
  43. IF K=31  then     BKM:='运输物流';   
  44. IF K=32  then     BKM:='造纸印刷';   
  45.   
  46. R1:=STKINDI('AA01','辅助002.C1');   
  47. R2:=STKINDI('AA02','辅助002.C1');   
  48. R3:=STKINDI('AA03','辅助002.C1');   
  49. R4:=STKINDI('AA04','辅助002.C1');   
  50. R5:=STKINDI('AA05','辅助002.C1');   
  51. R6:=STKINDI('AA06','辅助002.C1');   
  52. R7:=STKINDI('AA07','辅助002.C1');   
  53. R8:=STKINDI('AA08','辅助002.C1');   
  54. R9:=STKINDI('AA09','辅助002.C1');   
  55. R10:=STKINDI('AA10','辅助002.C1');   
  56. R11:=STKINDI('AA11','辅助002.C1');   
  57. R12:=STKINDI('AA12','辅助002.C1');   
  58. R13:=STKINDI('AA13','辅助002.C1');   
  59. R14:=STKINDI('AA14','辅助002.C1');   
  60. R15:=STKINDI('AA15','辅助002.C1');   
  61. R16:=STKINDI('AA16','辅助002.C1');   
  62. R17:=STKINDI('AA17','辅助002.C1');   
  63. R18:=STKINDI('AA18','辅助002.C1');   
  64. R19:=STKINDI('AA19','辅助002.C1');   
  65. R20:=STKINDI('AA20','辅助002.C1');   
  66. R21:=STKINDI('AA21','辅助002.C1');   
  67. R22:=STKINDI('AA22','辅助002.C1');   
  68. R23:=STKINDI('AA23','辅助002.C1');   
  69. R24:=STKINDI('AA24','辅助002.C1');   
  70. R25:=STKINDI('AA25','辅助002.C1');   
  71. R26:=STKINDI('AA26','辅助002.C1');   
  72. R27:=STKINDI('AA27','辅助002.C1');   
  73. R28:=STKINDI('AA28','辅助002.C1');   
  74. R29:=STKINDI('AA29','辅助002.C1');   
  75. R30:=STKINDI('AA30','辅助002.C1');   
  76. R31:=STKINDI('AA31','辅助002.C1');   
  77. R32:=STKINDI('AA32','辅助002.C1');   
  78.   
  79. RR1:=(R1-REF(R1,1))/REF(R1,1)*100;   
  80. RR2:=(R2-REF(R2,1))/REF(R2,1)*100;   
  81. RR3:=(R3-REF(R3,1))/REF(R3,1)*100;   
  82. RR4:=(R4-REF(R4,1))/REF(R4,1)*100;   
  83. RR5:=(R5-REF(R5,1))/REF(R5,1)*100;   
  84. RR6:=(R6-REF(R6,1))/REF(R6,1)*100;   
  85. RR7:=(R7-REF(R7,1))/REF(R7,1)*100;   
  86. RR8:=(R8-REF(R8,1))/REF(R8,1)*100;   
  87. RR9:=(R9-REF(R9,1))/REF(R9,1)*100;   
  88. RR10:=(R10-REF(R10,1))/REF(R10,1)*100;   
  89. RR11:=(R11-REF(R11,1))/REF(R11,1)*100;   
  90. RR12:=(R12-REF(R12,1))/REF(R12,1)*100;   
  91. RR13:=(R13-REF(R13,1))/REF(R13,1)*100;   
  92. RR14:=(R14-REF(R14,1))/REF(R14,1)*100;   
  93. RR15:=(R15-REF(R15,1))/REF(R15,1)*100;   
  94. RR16:=(R16-REF(R16,1))/REF(R16,1)*100;   
  95.   
  96. RR17:=(R17-REF(R17,1))/REF(R17,1)*100;   
  97. RR18:=(R18-REF(R18,1))/REF(R18,1)*100;   
  98. RR19:=(R19-REF(R19,1))/REF(R19,1)*100;   
  99. RR20:=(R20-REF(R20,1))/REF(R20,1)*100;   
  100. RR21:=(R21-REF(R21,1))/REF(R21,1)*100;   
  101. RR22:=(R22-REF(R22,1))/REF(R22,1)*100;   
  102. RR23:=(R23-REF(R23,1))/REF(R23,1)*100;   
  103. RR24:=(R24-REF(R24,1))/REF(R24,1)*100;   
  104. RR25:=(R25-REF(R25,1))/REF(R25,1)*100;   
  105. RR26:=(R26-REF(R26,1))/REF(R26,1)*100;   
  106. RR27:=(R27-REF(R27,1))/REF(R27,1)*100;   
  107. RR28:=(R28-REF(R28,1))/REF(R28,1)*100;   
  108. RR29:=(R29-REF(R29,1))/REF(R29,1)*100;   
  109. RR30:=(R30-REF(R30,1))/REF(R30,1)*100;   
  110. RR31:=(R31-REF(R31,1))/REF(R31,1)*100;   
  111. RR32:=(R32-REF(R32,1))/REF(R32,1)*100;   
  112. RR32:=(R32-REF(R32,1))/REF(R32,1)*100;   
  113.   
  114. AR1:MAX(RR1,RR2,RR3,RR4,RR5,RR6,RR7,RR8,RR9,RR10,RR11,RR12,RR13,RR14,RR15,RR16),LINETHICK0;   
  115. AR2:MAX(RR17,RR18,RR19,RR20,RR21,RR22,RR23,RR24,RR25,RR26,RR27,RR28,RR29,RR30,RR31,RR32),LINETHICK0;   
  116. ARR:=MAX(AR1,AR2);   
  117. SR1:MIN(RR1,RR2,RR3,RR4,RR5,RR6,RR7,RR8,RR9,RR10,RR11,RR12,RR13,RR14,RR15,RR16),LINETHICK0;   
  118. SR2:MIN(RR17,RR18,RR19,RR20,RR21,RR22,RR23,RR24,RR25,RR26,RR27,RR28,RR29,RR30,RR31,RR32),LINETHICK0;   
  119. SRR:=MIN(SR1,SR2);   
  120. RX:=NUMTOSTR(K+100 );   
  121. KX:=STRRIGHT(RX,2);   
  122. KKX:='AA'+KX;   
  123. AKX:=STKINDI(KKX,'辅助002.C1');   
  124. ARX:=IF(CATEGORY=0,(C-REF(C,1))/REF(C,1)*100,(AKX-REF(AKX,1))/REF(AKX,1)*100);   
  125. if BARSTATUS=2 then begin;   
  126. if RR2>=0 then T2:='↑'; ELSE T2:='↓';   
  127. if RR5>=0 then T5:='↑'; ELSE T5:='↓';   
  128. if RR6>=0  then T6:='↑'; ELSE T6:='↓';   
  129. if RR8>=0  then T8:='↑'; ELSE T8:='↓';   
  130. if RR9>=0  then T9:='↑'; ELSE T9:='↓';   
  131. if RR12>=0  then T12:='↑'; ELSE T12:='↓';   
  132. if RR14>=0  then T14:='↑'; ELSE T14:='↓';   
  133. if RR18>=0  then T18:='↑'; ELSE T18:='↓';   
  134. if RR20>=0  then T20:='↑'; ELSE T20:='↓';   
  135. if RR22>=0  then T22:='↑'; ELSE T22:='↓';   
  136. if RR25>=0  then T25:='↑'; ELSE T25:='↓';   
  137. if RR27>=0  then  T27:='↑'; ELSE T27:='↓';   
  138. if RR29>=0  then T29:='↑'; ELSE T29:='↓';   
  139. if RR30>=0  then T30:='↑'; ELSE T30:='↓';   
  140. if ARX>=0  then TX:='↑';ELSE TX:='↓';   
  141. END;   
  142. BK1:=IF(ARR=RR1,1,IF(ARR=RR2,2,IF(ARR=RR3,3,IF(ARR=RR4,4,IF(ARR=RR5,5,IF(ARR=RR6,6   
  143. ,IF(ARR=RR7,7,IF(ARR=RR8,8,IF(ARR=RR9,9,IF(ARR=RR10,10,IF(ARR=RR11,11,IF(ARR=RR12,12   
  144. ,IF(ARR=RR13,13,IF(ARR=RR14,14,IF(ARR=RR15,15,IF(ARR=RR16,16,0))))))))))))))));   
  145. BK2:=IF(ARR=RR17,17,IF(ARR=RR18,18,IF(ARR=RR19,19,IF(ARR=RR20,20,IF(ARR=RR21,21,IF(ARR=RR22,22   
  146. ,IF(ARR=RR23,23,IF(ARR=RR24,24,IF(ARR=RR25,25,IF(ARR=RR26,26,IF(ARR=RR27,27   
  147. ,IF(ARR=RR28,28,IF(ARR=RR29,29,IF(ARR=RR30,30,IF(ARR=RR31,31,IF(ARR=RR32,32   
  148. ,0))))))))))))))));   
  149. SK1:=IF(SRR=RR1,1,IF(SRR=RR2,2,IF(SRR=RR3,3,IF(SRR=RR4,4,IF(SRR=RR5,5,IF(SRR=RR6,6   
  150. ,IF(SRR=RR7,7,IF(SRR=RR8,8,IF(SRR=RR9,9,IF(SRR=RR10,10,IF(SRR=RR11,11,IF(SRR=RR12,12   
  151. ,IF(SRR=RR13,13,IF(SRR=RR14,14,IF(SRR=RR15,15,IF(SRR=RR16,16,0))))))))))))))));   
  152. SK2:=IF(SRR=RR17,17,IF(SRR=RR18,18,IF(SRR=RR19,19,IF(SRR=RR20,20,IF(SRR=RR21,21,IF(SRR=RR22,22   
  153. ,IF(SRR=RR23,23,IF(SRR=RR24,24,IF(SRR=RR25,25,IF(SRR=RR26,26,IF(SRR=RR27,27   
  154. ,IF(SRR=RR28,28,IF(SRR=RR29,29,IF(SRR=RR30,30,IF(SRR=RR31,31,IF(SRR=RR32,32   
  155. ,0))))))))))))))));   
  156.   
  157. BBK1:=MAX(BK2,BK1);   
  158. BBK:=IF(BARSTATUS=2,BBK1,0);   
  159. BKK1:=NUMTOSTR(BBK+100 );   
  160. BKK:=STRRIGHT(BKK1,2);   
  161. BKKK:='AA'+BKK;   
  162. SBK1:=MAX(SK2,SK1);   
  163. SBK:=IF(BARSTATUS=2,SBK1,0);   
  164. SKK1:=NUMTOSTR(SBK+100 );   
  165. SKK:=STRRIGHT(SKK1,2);   
  166. SKKK:='AA'+SKK;   
  167. IF BBK=1  then     BBKM:='保险';   
  168. IF BBK=2  then     BBKM:='电力';   
  169. IF BBK=3  then     BBKM:='电力设备';   
  170. IF BBK=4  then     BBKM:='电器';   
  171. IF BBK=5  then     BBKM:='电子信息';   
  172. IF BBK=6  then     BBKM:='房地产';   
  173. IF BBK=7  then     BBKM:='纺织服装';   
  174. IF BBK=8  then     BBKM:='钢铁';   
  175. IF BBK=9  then     BBKM:='工程建筑';   
  176. IF BBK=10  then     BBKM:='供水供气';   
  177. IF BBK=11  then     BBKM:='化工化纤';   
  178. IF BBK=12  then     BBKM:='机械';   
  179. IF BBK=13  then     BBKM:='计算机';   
  180. IF BBK=14  then     BBKM:='建材';   
  181. IF BBK=15  then     BBKM:='交通设施';   
  182. IF BBK=16  then     BBKM:='教育传媒';   
  183. IF BBK=17  then     BBKM:='旅游酒店';   
  184. IF BBK=18  then     BBKM:='煤炭石油';   
  185. IF BBK=19  then     BBKM:='酿酒食品';   
  186. IF BBK=20  then     BBKM:='农林牧渔';   
  187. IF BBK=21  then     BBKM:='其它行业';   
  188. IF BBK=22  then     BBKM:='汽车类';   
  189. IF BBK=23  then     BBKM:='券商';   
  190. IF BBK=24  then     BBKM:='商业连锁';   
  191. IF BBK=25  then     BBKM:='通信';   
  192. IF BBK=26  then     BBKM:='外贸';   
  193. IF BBK=27  then     BBKM:='医药';   
  194. IF BBK=28  then     BBKM:='仪电仪表';   
  195. IF BBK=29  then     BBKM:='银行类';   
  196. IF BBK=30  then     BBKM:='有色金属';   
  197. IF BBK=31  then     BBKM:='运输物流';   
  198. IF BBK=32  then     BBKM:='造纸印刷';   
  199.   
  200. IF SBK=1  then     SBKM:='保险';   
  201. IF SBK=2  then     SBKM:='电力';   
  202. IF SBK=3  then     SBKM:='电力设备';   
  203. IF SBK=4  then     SBKM:='电器';   
  204. IF SBK=5  then     SBKM:='电子信息';   
  205. IF SBK=6  then     SBKM:='房地产';   
  206. IF SBK=7  then     SBKM:='纺织服装';   
  207. IF SBK=8  then     SBKM:='钢铁';   
  208. IF SBK=9  then     SBKM:='工程建筑';   
  209. IF SBK=10  then     SBKM:='供水供气';   
  210. IF SBK=11  then     SBKM:='化工化纤';   
  211. IF SBK=12  then     SBKM:='机械';   
  212. IF SBK=13  then     SBKM:='计算机';   
  213. IF SBK=14  then     SBKM:='建材';   
  214. IF SBK=15  then     SBKM:='交通设施';   
  215. IF SBK=16  then     SBKM:='教育传媒';   
  216. IF SBK=17  then     SBKM:='旅游酒店';   
  217. IF SBK=18  then     SBKM:='煤炭石油';   
  218. IF SBK=19  then     SBKM:='酿酒食品';   
  219. IF SBK=20  then     SBKM:='农林牧渔';   
  220. IF SBK=21  then     SBKM:='其它行业';   
  221. IF SBK=22  then     SBKM:='汽车类';   
  222. IF SBK=23  then     SBKM:='券商';   
  223. IF SBK=24  then     SBKM:='商业连锁';   
  224. IF SBK=25  then     SBKM:='通信';   
  225. IF SBK=26  then     SBKM:='外贸';   
  226. IF SBK=27  then     SBKM:='医药';   
  227. IF SBK=28  then     SBKM:='仪电仪表';   
  228. IF SBK=29  then     SBKM:='银行类';   
  229. IF SBK=30  then     SBKM:='有色金属';   
  230. IF SBK=31  then     SBKM:='运输物流';   
  231. IF SBK=32  then     SBKM:='造纸印刷';   
  232.   
  233. VAR1:=STKINDI('AA02','辅助002.C1');   
  234. VAR2:=STKINDI('AA05','辅助002.C1');   
  235. VAR3:=STKINDI('AA06','辅助002.C1');   
  236. VAR4:=STKINDI('AA08','辅助002.C1');   
  237. VAR5:=STKINDI('AA09','辅助002.C1');   
  238. VAR6:=STKINDI('AA12','辅助002.C1');   
  239. VAR7:=STKINDI('AA14','辅助002.C1');   
  240. VAR8:=STKINDI('AA18','辅助002.C1');   
  241. VAR9:=STKINDI('AA20','辅助002.C1');   
  242. VAR10:=STKINDI('AA22','辅助002.C1');   
  243. VAR11:=STKINDI('AA25','辅助002.C1');   
  244. VAR12:=STKINDI('AA27','辅助002.C1');   
  245. VAR13:=STKINDI('AA29','辅助002.C1');   
  246. VAR14:=STKINDI('AA30','辅助002.C1');   
  247. KK1:=NUMTOSTR(K+100 );   
  248. KK:=STRRIGHT(KK1,2);   
  249. KKK:='AA'+KK;   
  250. VAR15A:=STKINDI(KKK,'辅助002.C1');   
  251. VAR15B:=C;   
  252. VAR15:=IF(CATEGORY=0,VAR15B,VAR15A);   
  253. TA:=(VAR15-REF(VAR15,1))/REF(VAR15,1)*100;   
  254. var100:='K板块=:'+'1保险'+'    2 电力'+'     3电设'+'     4电器'+'     5电息'+'     6房地'  
  255. +'     7纺织'+'     8钢铁'+'     9工程'+'     10供水'+'    11化工';   
  256.   
  257. var101:='12机械'+'       13计算'+'       14建材'+'      15交通'+'       16教育'  
  258. +'       17旅游'+'      18煤炭'+'      19酿酒'+'    20农牧'+'      21其它';   
  259.   
  260. var102:='22汽车'+'     23券商'+'     24商业'+'     25通信'+'     26外贸'+'     27医药'+'     28仪电'  
  261. +'     29银行'+'     30有色'+'     31运输'+'     32造纸';   
  262. 电力:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10;   
  263. 电息:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10;   
  264. 房地:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10;   
  265. 钢铁:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10;   
  266. 工程:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10;   
  267. 机械:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10;   
  268. 建材:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10;   
  269. 煤炭:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10;   
  270. 农牧:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10;   
  271. 汽车:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10;   
  272. 通信:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10;   
  273. 医药:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10;   
  274. 银行:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10;   
  275. 有色:=SUM((VAR14/REF(VAR14,1)-1)*100,0)*10;    
  276. 运输:SUM((VAR15/REF(VAR15,1)-1)*100,0)*10,LINETHICK2,COLOR0000FF;   
  277. MA3:MA(运输,3);   
  278. MA10:MA(运输,10);   
  279. MA20:MA(运输,20);   
  280. DRAWTEXT(BARSTATUS=2 AND C<200,运输,BKM),COLOR0000FF;   
  281. DRAWTEXT(BARSTATUS=2 AND C>200,运输,STKNAME),COLOR0000FF;    
  282. VAR16:=MA(电力,RN);   
  283. VAR17:=MA(电息,RN);   
  284. VAR18:=MA(房地,RN);   
  285. VAR19:=MA(钢铁,RN);   
  286. VAR20:=MA(工程,RN);   
  287. VAR21:=MA(机械,RN);   
  288. VAR22:=MA(建材,RN);   
  289. VAR23:=MA(煤炭,RN);   
  290. VAR24:=MA(农牧,RN);   
  291. VAR25:=MA(汽车,RN);   
  292. VAR26:=MA(通信,RN);   
  293. VAR27:=MA(医药,RN);   
  294. VAR28:=MA(银行,RN);   
  295. VAR29:=MA(有色,RN);   
  296. VAR30:=MA(运输,RN);   
  297.   
  298. 电力A:=(电力-VAR16);   
  299. 电力D:=REF(电力A,1);   
  300. 电力C:=(电力A-电力D);   
  301. 电息A:=(电息-VAR17);   
  302. 电息D:=REF(电息A,1);   
  303. 电息C:=(电息A-电息D);   
  304. 房地A:=(房地-VAR18);   
  305. 房地D:=REF(房地A,1);   
  306. 房地C:=(房地A-房地D);   
  307. 钢铁A:=(钢铁-VAR19);   
  308. 钢铁D:=REF(钢铁A,1);   
  309. 钢铁C:=(钢铁A-钢铁D);   
  310. 工程A:=(工程-VAR20);   
  311. 工程D:=REF(工程A,1);   
  312. 工程C:=(工程A-工程D);   
  313. 机械A:=(机械-VAR21);   
  314. 机械D:=REF(机械A,1);   
  315. 机械C:=(机械A-机械D);   
  316. 建材A:=(建材-VAR22);   
  317. 建材D:=REF(建材A,1);   
  318. 建材C:=(建材A-建材D);   
  319. 煤炭A:=(煤炭-VAR23);   
  320. 煤炭D:=REF(煤炭A,1);   
  321. 煤炭C:=(煤炭A-煤炭D);   
  322. 农牧A:=(农牧-VAR24);   
  323. 农牧D:=REF(农牧A,1);   
  324. 农牧C:=(农牧A-农牧D);   
  325. 汽车A:=(汽车-VAR25);   
  326. 汽车D:=REF(汽车A,1);   
  327. 汽车C:=(汽车A-汽车D);   
  328. 通信A:=(通信-VAR26);   
  329. 通信D:=REF(通信A,1);   
  330. 通信C:=(通信A-通信D);   
  331. 医药A:=(医药-VAR27);   
  332. 医药D:=REF(医药A,1);   
  333. 医药C:=(医药A-医药D);   
  334. 银行A:=(银行-VAR28);   
  335. 银行D:=REF(银行A,1);   
  336. 银行C:=(银行A-银行D);   
  337. 有色A:=(有色-VAR29);   
  338. 有色D:=REF(有色A,1);   
  339. 有色C:=(有色A-有色D);   
  340. 运输A:=(运输-VAR30);   
  341. 运输D:=REF(运输A,1);   
  342. 运输C:=(运输A-运输D);   
  343. DRAWRECTREL(45,500-电力C*5,75,500,RGB(55,55,55));   
  344. DRAWRECTREL(50,500-电力A*5,70,500,RGB(255,255,0));   
  345. DRAWRECTREL(55,500-电力D*5,65,500,RGB(255,0,0));   
  346. DRAWRECTREL(95,500-电息C*5,125,500,RGB(55,55,55));   
  347. DRAWRECTREL(100,500-电息A*5,120,500,RGB(255,255,0));   
  348. DRAWRECTREL(105,500-电息D*5,115,500,RGB(255,0,0));   
  349. DRAWRECTREL(145,500-房地C*5,175,500,RGB(55,55,55));   
  350. DRAWRECTREL(150,500-房地A*5,170,500,RGB(255,255,0));   
  351. DRAWRECTREL(155,500-房地D*5,165,500,RGB(255,0,0));   
  352. DRAWRECTREL(195,500-钢铁C*5,225,500,RGB(55,55,55));   
  353. DRAWRECTREL(200,500-钢铁A*5,220,500,RGB(255,255,0));   
  354. DRAWRECTREL(205,500-钢铁D*5,215,500,RGB(255,0,0));   
  355. DRAWRECTREL(245,500-工程C*5,275,500,RGB(55,55,55));   
  356. DRAWRECTREL(250,500-工程A*5,270,500,RGB(255,255,0));   
  357. DRAWRECTREL(255,500-工程D*5,265,500,RGB(255,0,0));   
  358. DRAWRECTREL(295,500-机械C*5,325,500,RGB(55,55,55));   
  359. DRAWRECTREL(300,500-机械A*5,320,500,RGB(255,255,0));   
  360. DRAWRECTREL(305,500-机械D*5,315,500,RGB(255,0,0));   
  361. DRAWRECTREL(345,500-建材C*5,375,500,RGB(55,55,55));   
  362. DRAWRECTREL(350,500-建材A*5,370,500,RGB(255,255,0));   
  363. DRAWRECTREL(355,500-建材D*5,365,500,RGB(255,0,0));   
  364. DRAWRECTREL(395,500-煤炭C*5,425,500,RGB(55,55,55));   
  365. DRAWRECTREL(400,500-煤炭A*5,420,500,RGB(255,255,0));   
  366. DRAWRECTREL(405,500-煤炭D*5,415,500,RGB(255,0,0));   
  367. DRAWRECTREL(445,500-农牧C*5,475,500,RGB(55,55,55));   
  368. DRAWRECTREL(450,500-农牧A*5,470,500,RGB(255,255,0));   
  369. DRAWRECTREL(455,500-农牧D*5,465,500,RGB(255,0,0));   
  370. DRAWRECTREL(495,500-汽车C*5,525,500,RGB(55,55,55));   
  371. DRAWRECTREL(500,500-汽车A*5,520,500,RGB(255,255,0));   
  372. DRAWRECTREL(505,500-汽车D*5,515,500,RGB(255,0,0));   
  373. DRAWRECTREL(545,500-通信C*5,575,500,RGB(55,55,55));   
  374. DRAWRECTREL(550,500-通信A*5,570,500,RGB(255,255,0));   
  375. DRAWRECTREL(555,500-通信D*5,565,500,RGB(255,0,0));   
  376. DRAWRECTREL(595,500-医药C*5,625,500,RGB(55,55,55));   
  377. DRAWRECTREL(600,500-医药A*5,620,500,RGB(255,255,0));   
  378. DRAWRECTREL(605,500-医药D*5,615,500,RGB(255,0,0));   
  379. DRAWRECTREL(645,500-银行C*5,675,500,RGB(55,55,55));   
  380. DRAWRECTREL(650,500-银行A*5,670,500,RGB(255,255,0));   
  381. DRAWRECTREL(655,500-银行D*5,665,500,RGB(255,0,0));   
  382. DRAWRECTREL(695,500-有色C*5,725,500,RGB(55,55,55));   
  383. DRAWRECTREL(700,500-有色A*5,720,500,RGB(255,255,0));   
  384. DRAWRECTREL(705,500-有色D*5,715,500,RGB(255,0,0));   
  385. DRAWRECTREL(745,500-运输C*5,775,500,RGB(55,55,55));   
  386. DRAWRECTREL(750,500-运输A*5,770,500,RGB(255,255,0));   
  387. DRAWRECTREL(755,500-运输D*5,765,500,RGB(255,0,0));   
  388.   
  389.   
  390.   
  391. DRAWTEXTREL(45,900,'电力'),COLOR00FFFF;   
  392. DRAWTEXTREL(95,900,'电息'),COLOR00FFFF;   
  393. DRAWTEXTREL(145,900,'房地'),COLOR00FFFF;   
  394. DRAWTEXTREL(195,900,'钢铁'),COLOR00FFFF;   
  395. DRAWTEXTREL(245,900,'工程'),COLOR00FFFF;   
  396. DRAWTEXTREL(295,900,'机械'),COLOR00FFFF;   
  397. DRAWTEXTREL(345,900,'建材'),COLOR00FFFF;   
  398. DRAWTEXTREL(395,900,'煤炭'),COLOR00FFFF;   
  399. DRAWTEXTREL(445,900,'农牧'),COLOR00FFFF;   
  400. DRAWTEXTREL(495,900,'汽车'),COLOR00FFFF;   
  401. DRAWTEXTREL(545,900,'通信'),COLOR00FFFF;   
  402. DRAWTEXTREL(595,900,'医药'),COLOR00FFFF;   
  403. DRAWTEXTREL(645,900,'银行'),COLOR00FFFF;   
  404. DRAWTEXTREL(695,900,'有色'),COLOR00FFFF;   
  405.   
  406. if CATEGORY=0 then    
  407. DRAWTEXTREL(745,900,STKNAME),COLOR0000FF;   
  408. ELSE   
  409. DRAWTEXTREL(745,900,BKM);   
  410.   
  411. DRAWTEXTREL(45,800,'AA02'+T2),COLOR00FFFF;   
  412. DRAWTEXTREL(95,800,'AA05'+T5),COLOR00FFFF;   
  413. DRAWTEXTREL(145,800,'AA06'+T6),COLOR00FFFF;   
  414. DRAWTEXTREL(195,800,'AA08'+T8),COLOR00FFFF;   
  415. DRAWTEXTREL(245,800,'AA09'+T9),COLOR00FFFF;   
  416. DRAWTEXTREL(295,800,'AA12'+T12),COLOR00FFFF;   
  417. DRAWTEXTREL(345,800,'AA14'+T14),COLOR00FFFF;   
  418. DRAWTEXTREL(395,800,'AA18'+T18),COLOR00FFFF;   
  419. DRAWTEXTREL(445,800,'AA20'+T20),COLOR00FFFF;   
  420. DRAWTEXTREL(495,800,'AA22'+T22),COLOR00FFFF;   
  421. DRAWTEXTREL(545,800,'A25'+T25),COLOR00FFFF;   
  422. DRAWTEXTREL(595,800,'AA27'+T27),COLOR00FFFF;   
  423. DRAWTEXTREL(645,800,'AA29'+T29),COLOR00FFFF;   
  424. DRAWTEXTREL(695,800,'AA30'+T30),COLOR00FFFF;   
  425.   
  426. if CATEGORY=0 then    
  427. DRAWTEXTREL(745,800,STKLABEL+TX),COLOR0000FF;   
  428. ELSE   
  429. DRAWTEXTREL(745,800,KKK+TX);   
  430.   
  431. IF P=1 then  begin   
  432. DRAWRECTREL(00,20,950,850,RGB(50,50,50));   
  433. DRAWTEXTREL(400,400,'参数对照表'),LINETHICK4,ColorFF00FF;   
  434. DRAWTEXTREL(20,30,var100),ColorFFFFFF;   
  435. DRAWTEXTREL(20,230,var101),ColorFFFFFF;   
  436. DRAWTEXTREL(20,700,var102),ColorFFFFFF;   
  437. END;   
  438.   
  439. DRAWTEXTREL(800,800,'   领跌:'+SKKK+' '+SBKM),ColorFFFF00;   
  440. DRAWTEXTREL(800,900,'   领涨:'+BKKK+' '+BBKM),ColorFFFFFF;   
  441.     

 

下载链接：( 说明：股海资源如需解压密码的请输入本站域名：www.guhai.com.cn请仔细输入！）
下载源码下载 （免费下载）
上一篇：每日资金净流入的排序指标  下一篇：小散必备指标-金兰分笔
☞股海网提供公式解密、改选股服务 联系点击查看详情（有偿服务,非诚勿扰）...
☞股海网公式指标安装帮助说明，新手必读，好好学习天天向上！...
☞股海网注册、登录、下载问题说明，如遇问题请查阅。...
　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

新版大智慧【板块分析 】完美版

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

现在就去充值积分 加入VIP可下载100以下的所有资源
上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2009-06-03
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传，股海网没有对文件进行验证，不能保证下载资源的准确性、安全性和完整性，也不保证下载资源能正常安装和使用，且下载后扣除的积分无法退还，除非您充分理解并完全接受本声明，否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利，其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用，不得用于商业或者非法用途，如有侵犯您的版权， 请参看 《股海网侵权处理流程》《股海网免责声明条款》。
点击下载无反应时，更换主流浏览器重新登录操作，如360浏览器、Edge浏览器、谷歌浏览器，个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件，扣除积分无法退还！
√ 我已阅读所有条款规定， 请点我同意 所有条款内容！我自愿下载！ ←
提示：如下载失败，请点关闭刷新此页面或提交问题反馈给管理员→
关闭
栏目导航

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269　湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.