当前位置:→ 公式网 > 大智慧公式 > 正文  公式解密、改选股等业务 联系点击查看详情...

以下是黄金分割 (带压力阻力齐全主图!配图!源码)(无源码的请下载附件导入)

 

C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
  1. input:K(1,1,3);               
  2. T:=BARSLAST(DISPSTATUS=1)+1;   
  3. A:=DISPSTATUS=2;HH:=HHV(H, T);LL:=LLV(L, T);HL:=HH-LL;wH:=HHVBARS(H, T);wL:=LLVBARS(L, T);   
  4. KK:=wH-wL;mHL:=HH-HL*0.5;   
  5. if K=1 then begin   
  6. HL191:=(HH-LL)*0.191;HL382:=(HH-LL)*0.382;HL618:=(HH-LL)*0.618;HL809:=(HH-LL)*0.809;   
  7. if KK<0 then begin   
  8. a1:=HH-HL191;a2:=HH-HL382;a3:=HH-HL618;a4:=HH-HL809;   
  9. end else begin   
  10. a1:=LL+HL191;a2:=LL+HL382;a3:=LL+HL618;a4:=LL+HL809;   
  11. end end   
  12. if k=1 then begin   
  13. HL125:=(HH-LL)*0.125;HL250:=(HH-LL)*0.25;HL375:=(HH-LL)*0.375;HL625:=(HH-LL)*0.625;HL750:=(HH-LL)*0.75;HL875:=(HH-LL)*0.875;   
  14. if kk<0 then begin   
  15. b1:=HH-HL125;b2:=HH-HL250;b3:=HH-HL375;b4:=HH-HL625;b5:=HH-HL750;b6:=HH-HL875;   
  16. end else begin   
  17. b1:=LL+HL125;b2:=LL+HL250;b3:=LL+HL375;b4:=LL+HL625;b5:=LL+HL750;b6:=LL+HL875;   
  18. end end      
  19. DRAWTEXT(A and K<>3,HH, '最高价:'+HH),ALIGN2,ColorFF00FF;   
  20. DRAWTEXT(A and K<>3,LL, '最低价:'+ll),ALIGN2,VALIGN2,Color00FF00;   
  21. DRAWTEXT(A and K<>3,mHL,'50%:'+mHL),ALIGN2,ColorFF8000;   
  22. DRAWTEXT(A and K=1, a1, '0.191:'+NUMTOSTRN(a1,2)),ALIGN2,Color4080FF;   
  23. DRAWTEXT(A and K=1, a2, '0.382:'+NUMTOSTRN(a2,2)),ALIGN2,Color4080FF;   
  24. DRAWTEXT(A and K=1, a3, '0.618:'+NUMTOSTRN(a3,2)),ALIGN2,Color4080FF;   
  25. DRAWTEXT(A and K=1, a4, '0.809:'+NUMTOSTRN(a4,2)),ALIGN2,Color4080FF;   
  26. DRAWTEXT(A and K=1, b1, '1/8:'+NUMTOSTRN(b1,2)),ALIGN2,ColorC0C0C0;   
  27. DRAWTEXT(A and K=1, b2, '1/4:'+NUMTOSTRN(b2,2)),ALIGN2,ColorC0C0C0;   
  28. DRAWTEXT(A and K=1, b5, '3/4:'+NUMTOSTRN(b5,2)),ALIGN2,ColorC0C0C0;   
  29. DRAWTEXT(A and K=1, b6, '7/8:'+NUMTOSTRN(b6,2)),ALIGN2,ColorC0C0C0;   
  30. DRAWTEXT(A and K<>3,HH, ' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄'),ALIGN2,colorred,linethick7;   
  31. DRAWTEXT(A and K<>3,LL, ' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄'),ALIGN2,colorred,linethick7;   
  32. DRAWTEXT(A and K<>3,mHL,' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄'),ALIGN2,ColorFF8000,linethick7;   
  33. DRAWTEXT(A and K=1, a1, '﹊﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊  ﹊ ﹊ ﹊﹊'),ALIGN2,color208FFF,linethick0;   
  34. DRAWTEXT(A and K=1, a2, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊'),ALIGN2,color208FFF,linethick0;   
  35. DRAWTEXT(A and K=1, a3, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊﹊'),ALIGN2,color208FFF,linethick0;   
  36. DRAWTEXT(A and K=1, a4, '﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊﹊﹊'),ALIGN2,color208FFF,linethick0;   
  37. DRAWTEXT(A and K=1, b1, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;   
  38. DRAWTEXT(A and K=1, b2, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;   
  39. DRAWTEXT(A and K=1, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;   
  40. DRAWTEXT(A and K=1, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,ColorC0C0C0;   
  41. 市场成本:DMA(AMOUNT/V/100,V/CAPITAL),Color0080FF,LINETHICK1;   
  42. DRAWICON(CROSS(C,市场成本),L,1),ALIGN1;   
  43. PT:= REF(HIGH,1)-REF(LOW,1);   
  44. 重心:=(HIGH + LOW + CLOSE)/3;   
  45. 压力Ⅰ:=2*重心-LOW;压力Ⅱ:= 重心 + PT;   
  46. 支撑Ⅰ:=2*重心-HIGH;支撑Ⅱ:= 重心 - PT;   
  47. DRAWTEXTABS(50,68,'  重心:'+重心),Color208FFF;   
  48. DRAWTEXTABS(20,87,'   支  撑'),Color00FF00;   
  49. DRAWTEXTABS(20,104,'   '+支撑Ⅰ),Color00FF00;   
  50. DRAWTEXTABS(20,122,'   '+支撑Ⅱ),Color00FF00;   
  51. DRAWTEXTABS(25,87,'           压  力'),ColorFF00FF;   
  52. DRAWTEXTABS(25,104,'           '+压力Ⅰ),ColorFF00FF;   
  53. DRAWTEXTABS(25,122,'           '+压力Ⅱ),ColorFF00FF;   
  54. DRAWTEXTABS(25,65,'│'),Color00FFFF;   
  55. DRAWTEXTABS(25,77,'│'),Color00FFFF;   
  56. DRAWTEXTABS(25,89,'│'),Color00FFFF;   
  57. DRAWTEXTABS(25,101,'│'),Color00FFFF;   
  58. DRAWTEXTABS(25,113,'│'),Color00FFFF;   
  59. DRAWTEXTABS(25,125,'│'),Color00FFFF;   
  60. DRAWTEXTABS(170,65,'│'),Color00FFFF;   
  61. DRAWTEXTABS(170,77,'│'),Color00FFFF;   
  62. DRAWTEXTABS(170,89,'│'),Color00FFFF;   
  63. DRAWTEXTABS(170,101,'│'),Color00FFFF;   
  64. DRAWTEXTABS(170,113,'│'),Color00FFFF;   
  65. DRAWTEXTABS(170,125,'│'),Color00FFFF;   
  66. DRAWTEXTABS(96,85,'│'),Color00FFFF;   
  67. DRAWTEXTABS(96,89,'│'),Color00FFFF;   
  68. DRAWTEXTABS(96,101,'│'),Color00FFFF;   
  69. DRAWTEXTABS(96,113,'│'),Color00FFFF;   
  70. DRAWTEXTABS(96,125,'│'),Color00FFFF;   
  71. DRAWTEXTABS(30,60,'──────────'),Color00FFFF;   
  72. DRAWTEXTABS(30,80,'──────────'),Color00FFFF;   
  73. DRAWTEXTABS(30,97,'──────────'),Color00FFFF;   
  74. DRAWTEXTABS(30,114,'──────────'),Color00FFFF;   
  75. DRAWTEXTABS(30,131,'──────────'),Color00FFFF;   
  76. G:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);   
  77. X:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);   
  78. ED:=barslast(G);   
  79. EF:=barslast(X);   
  80. DRAWTEXTREL(25,410,'买入:'+NUMTOSTR(ED) +'天'+'  卖出:'+NUMTOSTR(EF) +'天'   ),colorFfff00;   
  81. {K线优化}   
  82. STICKLINE(close>=open,open,close,8,1),colorred;   
  83. STICKLINE(open>close,close,open,8,0 ),ColorFFFF00;   
  84. STICKLINE(close>=open,close,HIGH,0.5 ,0 ),colorred;   
  85. STICKLINE(close>=open,open,low,0.5 ,0),colorred;   
  86. STICKLINE(open>close,close,low,0.5 ,0 ),ColorFFFF00;   
  87. STICKLINE(open>close,open,HIGH,0.5 ,0 ),ColorFFFF00;   
  88. C2:=REF(C,1);   
  89. 涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);   
  90. STICKLINE(涨停,OPEN,CLOSE,8,0),Color00FFFF;   
  91. 跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);   
  92. STICKLINE(跌停,OPEN,CLOSE,8,0),ColorFF8000;   
  93. {粉兰色K线};   
  94. F:=100*(C-REF(C,1))/REF(C,1);   
  95. 今小昨:=IF(C<REF(O,1) AND f<0,1,0);   
  96. p1:=今小昨;   
  97. 今小前:=IF(C<REF(O,2) AND f<0,1,0);   
  98. p2:=今小前;   
  99. stickline(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,open,CLOSE,6,0),COLORMAGENTA;   
  100. stickline(P1=1 AND REF(P1,1)=0 AND P2=1  AND REF(P2,1)=0,open,CLOSE,3,0),COLORBLUE;   
  101. DRAWTEXT(G,L*0.997,'△'),ALIGN1,VALIGN0,Color00FF00;   
  102. DRAWTEXT(G,L,' ̄'),ALIGN1,VALIGN0,Color00ff00;   
  103. DRAWTEXT(X,H*1.002,'▽'),ALIGN1,VALIGN2,ColorFF00FF;   
  104. DRAWTEXT(X,H,' ̄'),ALIGN1,VALIGN0,ColorFF00FF;   
  105. DRAWTEXTREL(130,25,'所属板块:'+BKNAME),COLORFFFFFF;   
  106. 今市上涨家数:=INDEXADV;   
  107. 平盘家数:=DYNAINFO(68);   
  108. 今市下跌家数:=INDEXDEC;   

黄金分割 (带压力阻力齐全主图!配图!源码)



关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - RSS订阅 - TOP
湘ICP备09016573号-3 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © 铭网科技,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识