开启左侧

陶博士分享的板块小金人图标 解答指数RPS三线翻红

[复制链接]
陶博士分享的小金人图标

小金人图标

小金人图标

小金人图标

小金人图标



图中B图标和小金人图标的显示方法如下(主图叠加的技术指标):
  1. BK5:=EXTDATA_USER(4,0);{5天的RPS}
  2. RPSBK5:=BK5/10;
  3. BK01:=IF(RPSBK5<=85,0,1);{RPSBK5大于85};
  4. BK10:=EXTDATA_USER(5,0);{10天的RPS}
  5. RPSBK10:=BK10/10;
  6. BK02:=IF(RPSBK10<=85,0,1);{RPSBK10大于85};
  7. BK15:=EXTDATA_USER(6,0);{15天的RPS}
  8. RPSBK15:=BK15/10;
  9. BK03:=IF(RPSBK15<=85,0,1);{RPSBK15大于85};
  10. BK20:=EXTDATA_USER(7,0);{20天的RPS}
  11. RPSBK20:=BK20/10;
  12. BK04:=IF(RPSBK20<=85,0,1);{RPSBK20大于85};
  13. BKAA1:=CLOSE/HHV(HIGH,250)>0.85;
  14. DRAWICON(BARSSINCEN((BK01 AND BK02 AND BK03 AND BKAA1),5)=0,LOW*0.97,7);{板块指数的三线翻红画图标7};
  15. DRAWICON(BARSSINCEN((BK01 AND BK02 AND BK04 AND BKAA1),5)=0,LOW*0.93,15);{板块指数的三线翻红画图标15};
  16. DRAWICON(BARSSINCEN((BK01 AND BK03 AND BK04 AND BKAA1),5)=0,LOW*0.97,7);{板块指数的三线翻红画图标7};
  17. DRAWICON(BARSSINCEN((BK02 AND BK03 AND BK04 AND BKAA1),5)=0,LOW*0.93,15);{板块指数的三线翻红画图标15};
复制代码

  这是今天的板块指数三线翻红的选股结果。
  口袋支点与这个板块指数三线翻红结合起来,也许会有意想不到的效果。
  如何结合?我就是简单地看看,今天的口袋支点的选股结果,是不是属于的板块指数三线翻红的指数。
  可惜我不会写这样的公式,只能用肉眼去观察。
  不知道有没有程序员朋友能够做到我说的这一点,用公式和函数,与某只所属的板块指数结合起来。

  1. FKD1011:=CALCSTOCKINDEX(HYZSCODE,'RPS板块',1);
  2. FKD1012:=CALCSTOCKINDEX(HYZSCODE,'RPS板块',2);
  3. FKD1013:=CALCSTOCKINDEX(HYZSCODE,'RPS板块',3);
  4. FKD1014:=CALCSTOCKINDEX(HYZSCODE,'RPS板块',4);
  5. FKD1021:=FKD1011>85 AND  FKD1012>85 AND FKD1013>85;
  6. FKD1022:=FKD1011>85 AND  FKD1012>85 AND FKD1014>85;
  7. FKD1023:=FKD1012>85 AND  FKD1013>85 AND FKD1014>85;
  8. FKD1024:=FKD1011>85 AND  FKD1013>85 AND FKD1014>85;
  9. KD10:=FKD1021 OR FKD1022 OR FKD1023 OR FKD1024;
  10. KDZDT8:=(KDZDT1 OR KDZDT2) AND KD10;
  11. DRAWICON(BARSSINCEN(KDZDT8,9)=0,LOW*0.95,23);{口袋支点画图标23:红十字};
复制代码
  我曾经笨笨地写过这样的语句,但只能对应所属行业,不能对应所属板块指数。我没有实际在公式中使用这样的语句。

  1. BK5:=EXTDATA_USER(4,0);{5天的RPS}
  2. RPSBK5:=BK5/10;
  3. BK01:=IF(RPSBK5<=85,0,1);{RPSBK5大于85};
  4. BK10:=EXTDATA_USER(5,0);{10天的RPS}
  5. RPSBK10:=BK10/10;
  6. BK02:=IF(RPSBK10<=85,0,1);{RPSBK10大于85};
  7. BK15:=EXTDATA_USER(6,0);{15天的RPS}
  8. RPSBK15:=BK15/10;
  9. BK03:=IF(RPSBK15<=85,0,1);{RPSBK15大于85};
  10. BK20:=EXTDATA_USER(7,0);{20天的RPS}
  11. RPSBK20:=BK20/10;
  12. BK04:=IF(RPSBK20<=85,0,1);{RPSBK20大于85};
  13. BKAA1:=CLOSE/HHV(HIGH,250)>0.85;
  14. BKH1:=BK01 AND BK02 AND BK03 AND BKAA1;
  15. BKH2:=BK01 AND BK02 AND BK04 AND BKAA1;
  16. BKH3:=BK02 AND BK03 AND BK04 AND BKAA1;
  17. BKH4:=BK01 AND BK03 AND BK04 AND BKAA1;
  18. BKH1 OR BKH2 OR BKH3 OR BKH4;
复制代码
  这个是板块指数三线翻红的选股公式,已经公布过不止一次了的。

  博士好,您11月2日的文章中科创50三线翻红是怎么设置出来的?是把科创50指数放到"板块指数RPS”中么,我弄了好久都不行
  陶博士2006(作者)
  把科创50指数放到"板块指数RPS”中,刷新扩展数据

两位高手分享的思路:
  Franco
  博士好,找到个股最强的板块可以用代码实现。思路是这样的:
  第1步,快捷键34数据导出中,选择板块导出,导出所有板块指数,在Excel中加工,生成个股与板块指数的对应关系,将内容存入通达信.901自定义数据管理的文件extern_user.txt中。


  RSP最强板块,第1步:
  写一个返回板块RSP的指标公式,C2RS,如下:
  BK5 :EXTDATA_USER(4,1)/10;{5 天的RPS}
  BK10:EXTDATA_USER(5,0)/10;{10天的RPS}
  BK15:EXTDATA_USER(6,0)/10;{15天的RPS}
  BK20:EXTDATA_USER(7,0)/10;{20天的RPS};
  第2步,写一个函数,主要用到,externvalue从自定义数据中取出对应板块指数的板块代码,再用calcstockindex通过板块代码取板块的Rps,再比较所有板块rps的大小,就可以找到rps最强的板块了。

  RSP最强板块,第2步:写一个返回最强板块RSP的指标公式,BKRS,如下:
  IR00:=0;IC00:=0;IB00:='';{初始化,IR、IC、IB分别为最强板块RPS、代码、名称}
  I:=0;{1,2,3,4分别为RPS5日、10日、15日、20日}
  BC01:=EXTERNVALUE(0,101);
  _RS01:=IFC(0=BC01,IR00,CALCSTOCKINDEX(CON2STR(BC01,0),'C2RS',I));
  RS01:=IF(DRAWNULL=_RS01,0,_RS01);
  IR01:=IF(RS01>IR00,RS01,IR00);I
  C01:=IF(RS01>IR00,BC01,IC00);
  IB01:=IF(RS01>IR00,EXTERNSTR(0,101),IB00);
  BC02:=EXTERNVALUE(0,102);
  _RS02:=IFC(0=BC02,IR01,CALCSTOCKINDEX(CON2STR(BC02,0),'C2RS',I));
  RS02:=IF(DRAWNULL=_RS02,0,_RS02);
  IR02:=IF(RS02>IR01,RS02,IR01);
  IC02:=IF(RS02>IR01,BC02,IC01);
  IB02:=IF(RS02>IR01,EXTERNSTR(0,102),IB01);
  BC03:=EXTERNVALUE(0,103);
  _RS03:=IFC(0=BC03,IR02,CALCSTOCKINDEX(CON2STR(BC03,0),'C2RS',I));
  RS03:=IF(DRAWNULL=_RS03,0,_RS03);
  IR03:=IF(RS03>IR02,RS03,IR02);
  IC03:=IF(RS03>IR02,BC03,IC02);
  IB03:=IF(RS03>IR02,EXTERNSTR(0,103),IB02);
  {由于贴子长度限制,省略了BC04...到BC21,迭代找RSP最大值,通达信不支持循环语句,只能勉强这样了}
  IR:IR03;{最强板块RPS,补齐BC04到BC21后,IR03该为IR21};
  IC:IC03;{最强板块代码,补齐BC04到BC21后,IC03该为IC21};
  IB:IC03;{最强板块名称,补齐BC04到BC21后,IB03该为IB21};



  杨东明
  集合自定义扩展数据,指定个股所属板块的示例代码:
  {获取自定义扩展数据1中,当前个股指定的板块代码}
  ECODE:=VAR2STR(EXTERNVALUE(0,1),0);
  {如果未指定板块代码,获取默认的行业代码}
  BCODE:=IF(STRLEN(ECODE)>1,ECODE,HYZSCODE);
  {主业务逻辑开始。利用辅助公式完成参数传递,获取公式的输出结果。}
  FKD1011:=CALCSTOCKINDEX(BCODE,'RPS板块',1);
  FKD1012:=CALCSTOCKINDEX(BCODE,'RPS板块',2);
  FKD1013:=CALCSTOCKINDEX(BCODE,'RPS板块',3);
  FKD1014:=CALCSTOCKINDEX(BCODE,'RPS板块',4);
  {业务逻辑判断}
  FKD1021:=FKD1011>85 AND  FKD1012>85 AND FKD1013>85;
  FKD1022:=FKD1011>85 AND  FKD1012>85 AND FKD1014>85;
  FKD1023:=FKD1012>85 AND  FKD1013>85 AND FKD1014>85;
  FKD1024:=FKD1011>85 AND  FKD1013>85 AND FKD1014>85;
  KD10:=FKD1021 OR FKD1022 OR FKD1023 OR FKD1024;
  KDZDT8:=(KDZDT1 OR KDZDT2) AND KD10;
  {结果显示}
  DRAWICON(BARSSINCEN(KDZDT8,9)=0,LOW*0.95,23);{口袋支点画图标23:红十字};

  杨东明
  陶博士,个股联动板块指数的功能,我自己也尝试过。因为通达信软件里面,个股对应的行业是一对一,而对应的板块是一对多的。所以系统没有办法通过函数直接获取板块代码。我这里是通过自定义数据扩展,增加一个手动维护的字段,根据需要设置个股所属板块代码。这样就可以在公式里查询板块RPS了。处理逻辑就是没有设置自定义板块代码的个股,就显示所属行业代码,否则显示指定的板块代码。后续应用方法就和您文章中的代码一样了。

网友分享心得:

  口袋支点只是解决选股的一个好工具,帮我们在股市中4000多只股票进一步缩小范围,选出来后最重要还是要你真正去了解公司的基本面,公司卖的什么产品或服务,至少需要看看最近几年持续发展如何,今年每个季度业绩情况,对后面发展前景的判断,你才敢于投资。跟做生意一样道理,不管是经营哪个行业都要先了解基本情况,生意的利润怎样,竞争激烈程度有多大,产品主要卖给哪些客户群体,或者跟朋友合伙你得知道对方的人品,所以投资公司最重要的一点不要买管理层信用不好的股票。然后做到资金分配合理,对目标公司了解比较深就仓位配置高一点,了解不够深但看好可以轻仓参与,买入股票之后就得用纪律严格控制自己,不随便做出买卖,一般情况在买入之前先做好策略,什么时候该买,什么情况应该卖出,最好用比记下来贴在电脑旁,时刻提醒自己尽量不要随意改变操作策略。用一套完善的系统来约束自己,做到知行合一亏损可以降到最低,运气好的话也许还能持续盈利呢。


回复

使用道具 举报

懒得打字嘛,点击快捷回复 【回复乱码 永久禁言】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关注0

粉丝15

帖子2971

发布主题
推荐素材更多+
广告位

QQ- Archiver-手机版-小黑屋-经典-圈子- 与你共享

Powered by ynjie.com Array© 2001-2013 ynjie.club  滇ICP备19007624号-1