: | : | :期货程序化 | :期货程序化研究 | :期货量化学习 | :期货量化 |
返回列表 发帖

大智慧超牛全屏指标公式源码（明日阻力支撑位）[大智慧公式]

龙听

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2738937 
威望
1319465 布 
龙e币
1419472 刀 
注册时间
2009-12-3 
最后登录
2024-5-23 

Medal No.1
1# 跳转到 » 倒序看帖
打印
tT
发表于 2018-12-24 14:46 | 只看该作者

大智慧超牛全屏指标公式源码（明日阻力支撑位）[大智慧公式]

  1. 大智慧超牛全屏指标公式源码

  3. {K线+KDJ主图}
  4. gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
  5. 明日阻力:=l+(gj-l)+(c-l);
  6. 明日支撑:=l+(c-gj);
  7. 明日阻力:=l+(gj-l)+(c-l);
  8. 明日支撑:=l+(c-gj);
  9. 今日阻力:=ref(明日阻力 , 1);
  10. 今日支撑:=ref(明日支撑 , 1);
  11. STICKLINE(DISPSTATUS=2and c>=今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
  12. STICKLINE(DISPSTATUS=2and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
  13. STICKLINE(DISPSTATUS=2and c>=今日支撑,今日支撑,今日支撑,30,0),Color00FF00;
  14. STICKLINE(DISPSTATUS=2and c<今日支撑,今日支撑,今日支撑,30,0),Color00FF00;
  15. DRAWTEXTREL(600,10,'------------------------------------'),ColorFFFFFF;
  16. IF BARSTATUS=2 and c>=今日支撑 THEN
  17. DRAWTEXTREL(600,40,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FF00;
  18. IF BARSTATUS=2 and c<今日支撑 THEN
  19. DRAWTEXTREL(600,40,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),ColorFF0000;
  20. IF BARSTATUS=2 and c>=今日阻力 THEN
  21. DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;
  22. IF BARSTATUS=2 and c<今日阻力 THEN
  23. DRAWTEXTREL(600,80,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;
  24. IF BARSTATUS=2 and c>=明日支撑 THEN
  25. DRAWTEXTREL(750,40,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )),Color00FF00;
  26. IF BARSTATUS=2 and c<明日阻力 THEN
  27. DRAWTEXTREL(750,80,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FF00;
  28. DRAWTEXTREL(600,110,'------------------------------------'),ColorFFFFFF;
  29. IF BARSTATUS=2 and v>ref(v,1) and MA(v,5)>ref(MA(v,5),1) THEN
  30. DRAWTEXTREL(600,150,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;
  31. IF BARSTATUS=2 and v<ref(v,1) and MA(v,5)>ref(MA(v,5),1) THEN
  32. DRAWTEXTREL(600,150,'今日成交量小于昨日，但有放大迹象'),Color8285FF;
  33. IF BARSTATUS=2 and v>ref(v,1)and MA(v,5)<ref(MA(v,5),1) THEN
  34. DRAWTEXTREL(600,150,'今日成交量大于昨日, 但有缩小迹象'),Color8285FF;
  35. IF BARSTATUS=2 and v<ref(v,1)and MA(v,5)<ref(MA(v,5),1) THEN
  36. DRAWTEXTREL(600,150,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;

  38. DRAWGBK(c>=0),Color2B5516;平衡:EMA(C,20),CIRCLEDOT,COLORwhite;
  39. STICKLINE((CLOSE >平衡),平衡,平衡,1,0),LINETHICK6,color0000ff;
  40. STICKLINE((平衡 > CLOSE),平衡,平衡,1,0),LINETHICK6,colorff6600;

  42. DRAWGBKLAST(v>1,STRIP(RGB(0,0,205),RGB(60,179,113),0));
  43. DRAWTEXTREL(350,35,''+STKLABEL+' '+STKNAME),LINETHICK4,COLORyelLOW;
  44. DRAWTEXTABS(2,10,'现价:'+CLOSE),LINETHICK3,COLOR0000ff;
  45. DRAWTEXTABS(95,10,'涨幅:'+NUMTOSTRN(DYNAINFO(14)*100,2){(c-ref(c,1))/ref(c,1)*100}+'%'),LINETHICK3,COLOR0000ff;

  47. DRAWTEXTABS(2,40,IFS(DYNAINFO(51)>DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLOR0000FF;
  48. DRAWTEXTABS(2,40,IFS(DYNAINFO(51)=DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLORFFFFFF;
  49. DRAWTEXTABS(2,40,IFS(DYNAINFO(51)<DYNAINFO(3),'卖五:'+NUMTOSTRN(DYNAINFO(51),2),'')),LINETHICK3,COLOR00FF00;
  50. DRAWTEXTABS(95,45,''+DYNAINFO(50)),COLORffffff;
  51. DRAWTEXTABS(2,60,IFS(DYNAINFO(44)>DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLOR0000FF;
  52. DRAWTEXTABS(2,60,IFS(DYNAINFO(44)=DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLORFFFFFF;
  53. DRAWTEXTABS(2,60,IFS(DYNAINFO(44)<DYNAINFO(3),'卖四:'+NUMTOSTRN(DYNAINFO(44),2),'')),LINETHICK3,COLOR00FF00;
  54. DRAWTEXTABS(95,65,''+DYNAINFO(43)),COLORffffff;
  55. DRAWTEXTABS(2,80,IFS(DYNAINFO(36)>DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLOR0000FF;
  56. DRAWTEXTABS(2,80,IFS(DYNAINFO(36)=DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLORFFFFFF;
  57. DRAWTEXTABS(2,80,IFS(DYNAINFO(36)<DYNAINFO(3),'卖三:'+NUMTOSTRN(DYNAINFO(36),2),'')),LINETHICK3,COLOR00FF00;
  58. DRAWTEXTABS(95,85,''+DYNAINFO(33)),COLORffffff;
  59. DRAWTEXTABS(2,100,IFS(DYNAINFO(35)>DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLOR0000FF;
  60. DRAWTEXTABS(2,100,IFS(DYNAINFO(35)=DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLORFFFFFF;
  61. DRAWTEXTABS(2,100,IFS(DYNAINFO(35)<DYNAINFO(3),'卖二:'+NUMTOSTRN(DYNAINFO(35),2),'')),LINETHICK3,COLOR00FF00;
  62. DRAWTEXTABS(95,105,''+DYNAINFO(32)),COLORffffff;
  63. DRAWTEXTABS(2,120,IFS(DYNAINFO(34)>DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLOR0000FF;
  64. DRAWTEXTABS(2,120,IFS(DYNAINFO(34)=DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLORFFFFFF;
  65. DRAWTEXTABS(2,120,IFS(DYNAINFO(34)<DYNAINFO(3),'卖一:'+NUMTOSTRN(DYNAINFO(34),2),'')),LINETHICK3,COLOR00FF00;
  66. DRAWTEXTABS(95,125,''+DYNAINFO(31)),COLORffffff;
  67. DRAWTEXTABS(2,130,'---------------'),LINETHICK3,COLOR00ff00;
  68. DRAWTEXTABS(2,140,IFS(DYNAINFO(28)>DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLOR0000FF;
  69. DRAWTEXTABS(2,140,IFS(DYNAINFO(28)=DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLORFFFFFF;
  70. DRAWTEXTABS(2,140,IFS(DYNAINFO(28)<DYNAINFO(3),'买一:'+NUMTOSTRN(DYNAINFO(28),2),'')),LINETHICK3,COLOR00FF00;
  71. DRAWTEXTABS(95,145,''+DYNAINFO(25)),COLORffffff; {本文来至程序化交易网 cxh99.com}
  72. DRAWTEXTABS(2,160,IFS(DYNAINFO(29)>DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLOR0000FF;
  73. DRAWTEXTABS(2,160,IFS(DYNAINFO(29)=DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLORFFFFFF;
  74. DRAWTEXTABS(2,160,IFS(DYNAINFO(29)<DYNAINFO(3),'买二:'+NUMTOSTRN(DYNAINFO(29),2),'')),LINETHICK3,COLOR00FF00;
  75. DRAWTEXTABS(95,165,''+DYNAINFO(26)),COLORffffff;
  76. DRAWTEXTABS(2,180,IFS(DYNAINFO(30)>DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLOR0000FF;
  77. DRAWTEXTABS(2,180,IFS(DYNAINFO(30)=DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLORFFFFFF;
  78. DRAWTEXTABS(2,180,IFS(DYNAINFO(30)<DYNAINFO(3),'买三:'+NUMTOSTRN(DYNAINFO(30),2),'')),LINETHICK3,COLOR00FF00;
  79. DRAWTEXTABS(95,185,''+DYNAINFO(27)),COLORffffff;
  80. DRAWTEXTABS(2,200,IFS(DYNAINFO(42)>DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLOR0000FF;
  81. DRAWTEXTABS(2,200,IFS(DYNAINFO(42)=DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLORFFFFFF;
  82. DRAWTEXTABS(2,200,IFS(DYNAINFO(42)<DYNAINFO(3),'买四:'+NUMTOSTRN(DYNAINFO(42),2),'')),LINETHICK3,COLOR00FF00;
  83. DRAWTEXTABS(95,205,''+DYNAINFO(41)),COLORffffff;
  84. DRAWTEXTABS(2,220,IFS(DYNAINFO(49)>DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR0000FF;
  85. DRAWTEXTABS(2,220,IFS(DYNAINFO(49)=DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLORFFFFFF;
  86. DRAWTEXTABS(2,220,IFS(DYNAINFO(49)<DYNAINFO(3),'买五:'+NUMTOSTRN(DYNAINFO(49),2),'')),LINETHICK3,COLOR00FF00;
  87. DRAWTEXTABS(95,225,''+DYNAINFO(48)),COLORffffff;

  89. 上轨:(SMA(HIGH,21,2) * 1.092),POINTDOT,colorFFFFFF;
  90. 中轨道:(SMA(HIGH,21,2) * 1.017),POINTDOT,colorFFFFFF;
  91. 下轨道:(SMA(LOW,21,2) * 0.969),POINTDOT,color00FFFF;

  93. WCW:=BARSLAST(WEEKDAY>ref(WEEKDAY,1));{周}
  94. CAW:=IF(WCW>0,LLV(C,WCW),LLV(C,WEEKDAY));{周}
  95. 周涨幅:=(C/CAW-1)*100;
  96. WCM:=BARSLAST(MONTH>ref(MONTH,1));{月}
  97. CAM:=IF(WCM>0,LLV(C,WCM),LLV(C,MONTH));{月}
  98. 月涨幅:=(C/CAM-1)*100;
  99. WCY:=BARSLAST(YEAR>ref(YEAR,1));{年}
  100. CAY:=IF(WCY>0,LLV(C,WCY),LLV(C,YEAR));{年}
  101. 年涨幅:=(C/CAY-1)*100;
  102. DRAWFLAGTEXT(周涨幅,LOW*0.95,'周涨幅:'+NUMTOSTRN(周涨幅,2)+'%');
  103. DRAWFLAGTEXT(月涨幅,LOW*0.95,'月涨幅:'+NUMTOSTRN(月涨幅,2)+'%');
  104. DRAWFLAGTEXT(年涨幅,LOW*0.95,'年涨幅:'+NUMTOSTRN(年涨幅,2)+'%');

  106. JJ:=(OPEN+LOW+HIGH+CLOSE*2)/5;
  107. JJ2:=MA(JJ,2);
  108. V2:=MA(VOL,2);
  109. D:sMA((JJ*VOL+JJ2*V2)/(VOL+V2),3,1),LINETHICK2,colorMAgenta;
  110. K:6*D-5*sMA(JJ2,3,1),COLORyelLOW;
  111. J:5*K-4*D,colorgreen;
  112. 买入:=ref(J,1)<ref(D ,1) and J>=D;
  113. DRAWICON(买入,J*1,1);
  114. partline(J,J>=ref(J,1),RGB(255,0,0),J<ref(J,1),RGB(0,250,0)),LINETHICK3;

  116. a:="LTFunc5@FORLT2";{计算BS点}
  117. s1:="LTFunc5@LT_S1";{s1=0,向下; s1=1,向上}
  118. hs:="LTFunc5@LT_HS";{短线买入机会}
  119. ls:="LTFunc5@LT_LS";{短线卖出机会}
  120. p1:="LTFunc5@LT_P1";{p1=1,显示BS,p1上穿0线,B点 ; p1下穿1线,S点}
  121. upp:="LTFunc5@LT_UPP";{明日B点预测} {文章来至程序化交易网 cxh99.com}
  122. udd:="LTFunc5@LT_UDD";{明日S点预测}
  123. drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
  124. drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
  125. drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
  126. drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;

  128. {K线+MACD副图}
  129. DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),colorred;
  130. DEA : EMA(DIFF,9),colorgreen;
  131. MACD :4*(DIFF-DEA), COLORSTICK;
  132. D1:=EMA(C,3)-EMA(C,8);
  133. D3:=EMA(H,3)-EMA(H,8);
  134. D4:=EMA(L,3)-EMA(L,8);
  135. DRAWICON(cross(d1,diff) and diff<-0.05 ,d4,9);
  136. DRAWICON(cross(diff,d1) and diff>0.1 ,d3,10);
  137. Var1:=ref(MA(C,20),10);
  138. 开:=O-Var1;
  139. 高:=H-Var1;
  140. 低:=L-Var1;
  141. 收:=C-Var1;
  142. MID:=MA(C,20);
  143. UPPER:=MID+2*STD(C,20);
  144. LOWER:=MID-2*STD(C,20);
  145. V1:=(C-LOWER)/(UPPER-LOWER)*100;
  146. V2:=V1-EMA(V1,5);
  147. K1:=SUM(LLV(V2,4),4)/4;
  148. V3:=EMA(V2,64)*10;
  149. V4:=EMA(0.4*V2*(-1),3);
  150. V5:=-1*EMA(V2,39)*10;
  151. A:=V3>10;
  152. B:=V2>V4;
  153. D:=V5>10;
  154. E:=V3<=10 OR V2<=V4 OR V5<=10;
  155. STICKLINE(C,0,0,6,0),coloryelLOW;
  156. STICKLINE(收>=开 AND E,高,低,0,0), COLORred;
  157. STICKLINE(收>=开 AND E,收,开,8,0) ,COLORred;
  158. STICKLINE(收< 开 AND E,高,低,0,0) ,COLORgreen;
  159. STICKLINE(收< 开 AND E,收,开,8,0) ,COLORgreen;
  160. STICKLINE(开> 收 AND A,低,高,0,0),COLORYELLOW;
  161. STICKLINE(开> 收 AND A,收,开,8,0),COLORYELLOW;
  162. STICKLINE(开<=收 AND A,低,高,0,0),COLORYELLOW;
  163. STICKLINE(开<=收 AND A,收,开,8,1),COLORYELLOW;
  164. STICKLINE(开> 收 AND B,低,高,0,0),COLORRED;
  165. STICKLINE(开> 收 AND B,收,开,8,0),COLORRED;
  166. STICKLINE(开<=收 AND B,低,高,0,0),COLORRED;
  167. STICKLINE(开<=收 AND B,收,开,8,1),COLORRED;
  168. STICKLINE(开> 收 AND D,低,高,0,0),COLORGREEN;
  169. STICKLINE(开> 收 AND D,收,开,8,0),COLORGREEN;
  170. STICKLINE(开<=收 AND D,低,高,0,0),COLORGREEN;
  171. STICKLINE(开<=收 AND D,收,开,8,1),COLORGREEN;
  172. KS:=(C-SMA(C,13,1))/SMA(C,13,1)*(-100); {内容来至程序化交易网 CXH99.COM}
  173. RKS:=ref(KS,1);
  174. MLS:=RKS/KS>1.23 AND RKS>13 AND C/ref(C,1)>1.03;
  175. 超跌:STICKLINE(KS>13,高,低,0,1),colorwhite,LINETHICK2;
  176. 反弹:STICKLINE(MLS=1,高,低,0,1),colorMAgenta,LINETHICK2;
  177. STICKLINE(KS>13,开,收,8,1),colorwhite,LINETHICK2;
  178. STICKLINE(MLS=1,开,收,8,1),colorMAgenta,LINETHICK2;
  179. 开盘价:c,LINETHICK0,precis2,coloryelLOW;
  180. 最高价:h,LINETHICK0,precis2,colorred;
  181. 最低价:L,LINETHICK0,precis2,colorcyan;
  182. 即时价:c,LINETHICK0,precis2,colorgreen;
  183. DRAWTEXTABS(10,5,'所属板块：'+BKNAME),COLOR00FF00,LINETHICK1;
  184. DRAWGBK(DATE>900101,STRIP(RGB(18,160,0),RGB(25,8,0),0));

  186. {星期显示}
  187. yy1:=WEEKDAY;
  188. IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,'■星期五■'),LINETHICK2,Color191970;end;
  189. IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,'■星期四■'),LINETHICK2,ColorEEE8AA;end;
  190. IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,'■星期三■'),LINETHICK2,ColorBA55D3;end;
  191. IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,'■星期二■'),LINETHICK2,Color0000CD;end;
  192. IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,'■星期一■'),LINETHICK2,ColorADFF2F;end;
  193. IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,'■星期六■'),LINETHICK2,Color00008B;end;
  194. IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,'■星期日■'),LINETHICK2,ColorFF0000;end;
复制代码

收藏 分享
论坛官方微信、群（期货热点、量化探讨、开户与绑定实盘）
 
期货论坛 - 版权/免责声明   1.本站发布源码(包括函数、指标、策略等)均属开放源码，用意在于让使用者学习程序化语法撰写，使用者可以任意修改语法內容并调整参数。仅限用于个人学习使用，请勿转载、滥用，严禁私自连接实盘账户交易。
  2.本站发布资讯(包括文章、视频、历史记录、教材、评论、资讯、交易方案等)均系转载自网络主流媒体，内容仅为作者当日个人观点，本网转载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。本网不对该类信息或数据做任何保证。不对您构成任何投资建议，不能依靠信息而取代自身独立判断，不对因使用本篇文章所诉信息或观点等导致的损失承担任何责任。
  3.本站发布资源(包括书籍、杂志、文档、软件等)均从互联网搜索而来，仅供个人免费交流学习，不可用作商业用途，本站不对显示的内容承担任何责任。请在下载后24小时内删除。如果喜欢，请购买正版，谢谢合作！
  4.龙听期货论坛原创文章属本网版权作品，转载须注明来源“龙听期货论坛”，违者本网将保留追究其相关法律责任的权力。本论坛除发布原创文章外，亦致力于优秀财经文章的交流分享，部分文章推送时若未能及时与原作者取得联系并涉及版权问题时，请及时联系删除。联系方式：http://www.qhlt.cn/thread-262-1-1.html
如何访问权限为100/255贴子：/thread-37840-1-1.html；注册后仍无法回复：/thread-23-1-1.html；微信/QQ群：/thread-262-1-1.html；网盘链接失效解决办法：/thread-93307-1-1.html

龙听

Rank: 9Rank: 9Rank: 9

UID
2 
积分
2738937 
威望
1319465 布 
龙e币
1419472 刀 
注册时间
2009-12-3 
最后登录
2024-5-23 

Medal No.1
2#
发表于 2018-12-24 14:46 | 只看该作者
微信截图_20181224144317.png
如何访问权限为100/255贴子：/thread-37840-1-1.html；注册后仍无法回复：/thread-23-1-1.html；微信/QQ群：/thread-262-1-1.html；网盘链接失效解决办法：/thread-93307-1-1.html

TOP

返回列表