logo
搜索
我的图书馆

发文章

发文工具

其他工具

留言交流
搜索
分享

江恩系列指标公式（主图副图皆有）

 elept 2012-05-04

  • 江恩系列指标公式（主图副图皆有）

  • 时间：2009-12-02 点击： 103 关键字：

股票资料网提供的：江恩系列指标公式（主图副图皆有）源码如下：

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. input:K(1,1,3);                    
  2. T := BARSLAST(DISPSTATUS=1)+1;       
  3. A := DISPSTATUS=2;       
  4. HH := HHV(H, T);       
  5. LL := LLV(L, T);       
  6. HL := HH-LL;       
  7. wH := HHVBARS(H, T);       
  8. wL := LLVBARS(L, T);       
  9. KK := wH-wL;       
  10. mHL := HH-HL*0.5;       
  11. if K=1 then begin       
  12.   HL191 := (HH-LL)*0.191;       
  13.   HL382 := (HH-LL)*0.382;       
  14.   HL618 := (HH-LL)*0.618;       
  15.   HL809 := (HH-LL)*0.809;       
  16.   if KK<0 then begin       
  17.     a1 := HH-HL191;       
  18.     a2 := HH-HL382;       
  19.     a3 := HH-HL618;       
  20.     a4 := HH-HL809;       
  21.   end else begin       
  22.     a1 := LL+HL191;       
  23.     a2 := LL+HL382;       
  24.     a3 := LL+HL618;       
  25.     a4 := LL+HL809;       
  26.   end       
  27. end       
  28. if k=1 then begin       
  29.   HL125 := (HH-LL)*0.125;       
  30.   HL250 := (HH-LL)*0.25;       
  31.   HL375 := (HH-LL)*0.375;       
  32.   HL625 := (HH-LL)*0.625;       
  33.   HL750 := (HH-LL)*0.75;       
  34.   HL875 := (HH-LL)*0.875;       
  35.   if kk<0 then begin       
  36.     b1 := HH-HL125;       
  37.     b2 := HH-HL250;       
  38.     b3 := HH-HL375;       
  39.     b4 := HH-HL625;       
  40.     b5 := HH-HL750;       
  41.     b6 := HH-HL875;       
  42.   end else begin       
  43.     b1 := LL+HL125;       
  44.     b2 := LL+HL250;       
  45.     b3 := LL+HL375;       
  46.     b4 := LL+HL625;       
  47.     b5 := LL+HL750;       
  48.     b6 := LL+HL875;       
  49.   end       
  50. end           
  51. DRAWTEXT(A and K<>3,HH, '  最高价：'+HH),ALIGN2,color00ffff;       
  52. DRAWTEXT(A and K<>3,LL, '  最低价：'+ll),ALIGN2,VALIGN2,color00ffff;       
  53. DRAWTEXT(A and K<>3,mHL,'  中间价：'+mHL),ALIGN2,color00ffff;       
  54. {DRAWTEXT(A and K=1, a1, '  0.191：'+NUMTOSTRN(a1,2)),ALIGN2,color00ffff;       
  55. DRAWTEXT(A and K=1, a2, '  0.382：'+NUMTOSTRN(a2,2)),ALIGN0,color00ffff;       
  56. DRAWTEXT(A and K=1, a3, '  0.618：'+NUMTOSTRN(a3,2)),ALIGN0,color00ffff;       
  57. DRAWTEXT(A and K=1, a4, '  0.809：'+NUMTOSTRN(a4,2)),ALIGN2,color00ffff;}       
  58. DRAWTEXT(A and K=1, b1, '  1/8：'+NUMTOSTRN(b1,2)),ALIGN2,color00ffff;       
  59. DRAWTEXT(A and K=1, b2, '  1/4：'+NUMTOSTRN(b2,2)),ALIGN2,color00ffff;       
  60. DRAWTEXT(A and K=1, b3, ' 3/8：'+NUMTOSTRN(b3,2)),ALIGN2,color00ffff;       
  61. DRAWTEXT(A and K=1, b4, ' 5/8：'+NUMTOSTRN(b4,2)),ALIGN2,color00ffff;       
  62. DRAWTEXT(A and K=1, b5, '  3/4：'+NUMTOSTRN(b5,2)),ALIGN2,color00ffff;       
  63. DRAWTEXT(A and K=1, b6, '  7/8：'+NUMTOSTRN(b6,2)),ALIGN2,color00ffff;       
  64. DRAWTEXT(A and K<>3,HH, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  65. DRAWTEXT(A and K<>3,LL, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  66. DRAWTEXT(A and K<>3,mHL,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  67. {DRAWTEXT(A and K=1, a1, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;       
  68. DRAWTEXT(A and K=1, a2, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;       
  69. DRAWTEXT(A and K=1, a3, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;       
  70. DRAWTEXT(A and K=1, a4, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0;}       
  71. DRAWTEXT(A and K<>3, b1, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  72. DRAWTEXT(A and K<>3, b2, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  73. DRAWTEXT(A and K<>3, b3, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  74. DRAWTEXT(A and K<>3, b4, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  75. DRAWTEXT(A and K<>3, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  76. DRAWTEXT(A and K<>3, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;       
  77.       
  78. DRAWTEXTABS(50,20,'所属板块：'+BKNAME),Color00FF00;       
  79.       
  80.       
  81. {};     

 

 

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. 板块   
  2. gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);    
  3. 明日阻力:=l+(gj-l)+(c-l);    
  4. 明日支撑:=l+(c-gj);    
  5. 明日阻力:=l+(gj-l)+(c-l);    
  6. 明日支撑:=l+(c-gj);    
  7. 今日阻力:=REF(明日阻力 , 1);    
  8. 今日支撑:=REF(明日支撑 , 1);    
  9.   
  10. 当前股价或指数:=C;   
  11.   
  12. IF BARSTATUS=2 and c<今日支撑 THEN      
  13. DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数 ,2 )),Color00FF05;   
  14. IF BARSTATUS=2 and c>=今日支撑 THEN      
  15. DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数 ,2 )),COLORMAGENTA;   
  16. IF BARSTATUS=2 and c>=今日阻力 THEN      
  17. DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数 ,2 )),COLORRED;   
  18. IF BARSTATUS=2 and c>=今日支撑 THEN      
  19. DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FFFF;    
  20. IF BARSTATUS=2 and c<今日支撑 THEN      
  21. DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FFFF;    
  22. IF BARSTATUS=2 and c>=今日阻力 THEN      
  23. DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FFFF;    
  24. IF BARSTATUS=2 and c<今日阻力 THEN      
  25. DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FFFF;    
  26. IF BARSTATUS=2 and c>=明日支撑 THEN      
  27. DRAWTEXTABS(600,105,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )),Color00FFFF;    
  28. IF BARSTATUS=2 and c<明日阻力 THEN      
  29. DRAWTEXTABS(600,85,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF;    
  30. IF BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN    
  31. DRAWTEXTABS(600,5,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;    
  32. IF BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN    
  33. DRAWTEXTABS(600,5,'今日成交量小于昨日，但有放大迹象'),Color8285FF;    
  34. IF BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN    
  35. DRAWTEXTABS(600,5,'今日成交量大于昨日, 但有缩小迹象'),Color8285FF;    
  36. IF BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN    
  37. DRAWTEXTABS(600,5,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;    
  38. IF C>0 AND DISPSTATUS=2  THEN    
  39.   
  40. {DRAWTEXTABS(20,120,'机构评级:'+Extrastring('评级')),Color00FF05;    
  41. DRAWTEXTABS(20,100,'所属板块：'+BKNAME),Color00FF00;}   
  42.   
  43. DRAWTEXTABS(20,5,STKLABEL+' '+STKNAME),LINETHICK1,Color00FF05;    
  44.   
  45.   
  46. 每股收益:=FINANCE2(3);    
  47. 总股本:=FINANCE2(35)/10000;    
  48. 流通盘大小:=FINANCE2(37)/10000;   
  49.   
  50. 日换手率:=SUM(VOL,1)*100/CAPITAL;   
  51. 量比:=DYNAINFO(17);   
  52. 主营收入同比:=FINANCE2(11);   
  53. 净利润同比增长:=FINANCE2(10);   
  54. 净资产收益率:=FINANCE2(5);    
  55. 获利盘:=WINNER(CLOSE)*100;   
  56. 套牢盘:=100*(1-WINNER(C));   
  57. F:=COST(5 );J:=COST(95 );   
  58. M:=COST(15 );N:=COST(85 );   
  59. F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;   
  60. 成本集中度90﹪:=F1;   
  61. 成本集中度70﹪:=M1;   
  62. 浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;   
  63.   
  64. DRAWTEXTABS(20,20,'每股收益:'+NUMTOSTRN(每股收益,3)),Color00FF05;    
  65. DRAWTEXTABS(20,35,'主营收入增长:'+NUMTOSTRN(主营收入同比,2)+' %'),Color00FF05;   
  66. DRAWTEXTABS(20,50,'净利润增长率:'+NUMTOSTRN(净利润同比增长,2)+' %'),Color00FF05;   
  67. DRAWTEXTABS(20,65,'净资产收益率:'+NUMTOSTRN(净资产收益率,2)+' % '),Color00FF05;   
  68.   
  69.   
  70. DRAWTEXTABS(180,20,'总股本:'+NUMTOSTRN(总股本,3)+' 亿 '),Color00FF05;   
  71. DRAWTEXTABS(180,35,'流通盘:'+NUMTOSTRN(流通盘大小,3)+' 亿 '),Color00FF05;   
  72. DRAWTEXTABS(180,50,'量  比:'+NUMTOSTRN(量比,2)+' %'),Color00FF05;   
  73. DRAWTEXTABS(180,65,'换手率:'+NUMTOSTRN(日换手率,2)+' %'),Color00FF05;   
  74.   
  75. DRAWTEXTABS(340,20,'获利盘:'+NUMTOSTRN(获利盘,2)+' % '),Color00FF05;   
  76. DRAWTEXTABS(340,35,'套牢盘:'+NUMTOSTRN(套牢盘,2)+' % '),Color00FF05;   
  77. DRAWTEXTABS(340,50,'吸筹拉升区集中度:'+NUMTOSTRN(成本集中度90﹪,2)+' % '),Color00FF05;   
  78. DRAWTEXTABS(340,65,'底仓区成本集中度:'+NUMTOSTRN(成本集中度70﹪,2)+' % '),Color00FF05;   
  79. DRAWTEXTABS(340,80,'浮筹比例:'+NUMTOSTRN(浮筹比例,2)+' % '),Color00FF05;   
  80.   
  81.   
  82.   
  83.   
  84.   
  85.   
  86.   
  87. 每股市盈率:=DYNAINFO(39);   
  88. 每股净资产:=FINANCE2(4);   
  89. DRAWTEXTABS(20,80,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),Color00FF05;   
  90. DRAWTEXTABS(180,80,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),Color00FF05;   
  91.   
  92.   
  93.   
  94.   
  95. {};  

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);    
  2. 明日阻力:=l+(gj-l)+(c-l);    
  3. 明日支撑:=l+(c-gj);    
  4. 明日阻力:=l+(gj-l)+(c-l);    
  5. 明日支撑:=l+(c-gj);    
  6. 今日阻力:=REF(明日阻力 , 1);    
  7. 今日支撑:=REF(明日支撑 , 1);    
  8. 当前股价或指数:=C;   
  9. IF BARSTATUS=2 and c<今日支撑 THEN      
  10. DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数 ,2 )),Color00FF05;   
  11. IF BARSTATUS=2 and c>=今日支撑 THEN      
  12. DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数 ,2 )),COLORMAGENTA;   
  13. IF BARSTATUS=2 and c>=今日阻力 THEN      
  14. DRAWTEXTABS(600,45,'当前价位=：'+NUMTOSTRN(当前股价或指数 ,2 )),COLORRED;   
  15. IF BARSTATUS=2 and c>=今日支撑 THEN      
  16. DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FFFF;    
  17. IF BARSTATUS=2 and c<今日支撑 THEN      
  18. DRAWTEXTABS(600,65,'今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )),Color00FFFF;    
  19. IF BARSTATUS=2 and c>=今日阻力 THEN      
  20. DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FFFF;    
  21. IF BARSTATUS=2 and c<今日阻力 THEN      
  22. DRAWTEXTABS(600,25,'今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )),Color00FFFF;    
  23. IF BARSTATUS=2 and c>=明日支撑 THEN      
  24. DRAWTEXTABS(600,105,'明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )),Color00FFFF;    
  25. IF BARSTATUS=2 and c<明日阻力 THEN      
  26. DRAWTEXTABS(600,85,'明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF;    
  27. IF BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN    
  28. DRAWTEXTABS(600,5,'今日成交量大于昨日,且有继续增大趋势'),Color8285FF;    
  29. IF BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1) THEN    
  30. DRAWTEXTABS(600,5,'今日成交量小于昨日，但有放大迹象'),Color8285FF;    
  31. IF BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN    
  32. DRAWTEXTABS(600,5,'今日成交量大于昨日, 但有缩小迹象'),Color8285FF;    
  33. IF BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1) THEN    
  34. DRAWTEXTABS(600,5,'今日成交量小于昨日，且有缩小迹象'),Color8285FF;    
  35. IF C>0 AND DISPSTATUS=2  THEN    
  36. {DRAWTEXTABS(20,120,'机构评级:'+Extrastring('评级')),Color00FF05;    
  37. DRAWTEXTABS(20,100,'所属板块：'+BKNAME),Color00FF00;}   
  38. DRAWTEXTABS(20,5,STKLABEL+' '+STKNAME),LINETHICK1,Color00FF05;    
  39. 每股收益:=FINANCE2(3);    
  40. 总股本:=FINANCE2(35)/10000;    
  41. 流通盘大小:=FINANCE2(37)/10000;   
  42. 日换手率:=SUM(VOL,1)*100/CAPITAL;   
  43. 量比:=DYNAINFO(17);   
  44. 主营收入同比:=FINANCE2(11);   
  45. 净利润同比增长:=FINANCE2(10);   
  46. 净资产收益率:=FINANCE2(5);    
  47. 获利盘:=WINNER(CLOSE)*100;   
  48. 套牢盘:=100*(1-WINNER(C));   
  49. F:=COST(5 );J:=COST(95 );   
  50. M:=COST(15 );N:=COST(85 );   
  51. F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;   
  52. 成本集中度90﹪:=F1;   
  53. 成本集中度70﹪:=M1;   
  54. 浮筹比例:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;   
  55. DRAWTEXTABS(20,20,'每股收益:'+NUMTOSTRN(每股收益,3)),Color00FF05;    
  56. DRAWTEXTABS(20,35,'主营收入增长:'+NUMTOSTRN(主营收入同比,2)+' %'),Color00FF05;   
  57. DRAWTEXTABS(20,50,'净利润增长率:'+NUMTOSTRN(净利润同比增长,2)+' %'),Color00FF05;   
  58. DRAWTEXTABS(20,65,'净资产收益率:'+NUMTOSTRN(净资产收益率,2)+' % '),Color00FF05;   
  59. DRAWTEXTABS(180,20,'总股本:'+NUMTOSTRN(总股本,3)+' 亿 '),Color00FF05;   
  60. DRAWTEXTABS(180,35,'流通盘:'+NUMTOSTRN(流通盘大小,3)+' 亿 '),Color00FF05;   
  61. DRAWTEXTABS(180,50,'量  比:'+NUMTOSTRN(量比,2)+' %'),Color00FF05;   
  62. DRAWTEXTABS(180,65,'换手率:'+NUMTOSTRN(日换手率,2)+' %'),Color00FF05;   
  63. DRAWTEXTABS(340,20,'获利盘:'+NUMTOSTRN(获利盘,2)+' % '),Color00FF05;   
  64. DRAWTEXTABS(340,35,'套牢盘:'+NUMTOSTRN(套牢盘,2)+' % '),Color00FF05;   
  65. DRAWTEXTABS(340,50,'吸筹拉升区集中度:'+NUMTOSTRN(成本集中度90﹪,2)+' % '),Color00FF05;   
  66. DRAWTEXTABS(340,65,'底仓区成本集中度:'+NUMTOSTRN(成本集中度70﹪,2)+' % '),Color00FF05;   
  67. DRAWTEXTABS(340,80,'浮筹比例:'+NUMTOSTRN(浮筹比例,2)+' % '),Color00FF05;   
  68. 每股市盈率:=DYNAINFO(39);   
  69. 每股净资产:=FINANCE2(4);   
  70. DRAWTEXTABS(20,80,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),Color00FF05;   
  71. DRAWTEXTABS(180,80,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),Color00FF05;   
  72. {};  

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. 发力   
  2. Var3:=REF(CLOSE,2);    
  3. 入市资金:=SMA(MAX(CLOSE-Var3,0),7,1)/SMA(ABS(CLOSE-Var3),7,1)*100-50;   
  4. oo:=IF(CAPITAL=0,5000000,CAPITAL);   
  5. AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));    
  6. 买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));    
  7. 卖盘:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2));   
  8. 主动买盘:=SUM(买盘,1)/oo*100;   
  9. 主动卖盘:=SUM(卖盘,1)/oo*100;   
  10. HL10:=WINNER(C/1.1)*V/oo*100;   
  11. fc:=(主动买盘-主动卖盘)/HL10;   
  12. a1:=IF(REF(fc,1)>fc,REF(fc,1)-fc,0);   
  13. a2:=IF(REF(a1,1)=0,a1,0);   
  14. a3:=IF(a2>6,a2,0);   
  15. fl:=IF(入市资金>REF(入市资金,1),a3,0);   
  16. 发力:SQRT(fl),COLORGREEN;   
  17.   
  18. 年发力:SUM(发力,34),LINETHICK0,Color00FFFF;  

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. 画线主图   
  2. n:=14;   
  3. 限制:=1;   
  4. A6a:=REF(HIGH,6)=HHV(HIGH,2*6+1);   
  5. B6a:=FILTER(A6a,6);    
  6. C6a:=BACKSET(B6a,6+1);    
  7. D6a:=FILTER(C6a,6);   
  8. A7a:=REF(LOW,6)=LLV(LOW,2*6+1);   
  9. B7a:=FILTER(A7a,6);    
  10. C7a:=BACKSET(B7a,6+1);    
  11. D7a:=FILTER(C7a,6);   
  12. E6a:=(REF(LLV(LOW,2*6),1)+REF(HHV(HIGH,2*6),1))/2;   
  13. E7a:=(HIGH+LOW)/2;   
  14. H6a:=(D6a AND NOT(D7a AND E6a>=E7a)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;   
  15. H7a:=D6a AND NOT(D7a AND E6a>=E7a);   
  16. L6a:=D7a AND NOT(D6a AND E6a=E7a);   
  17. X6a:=REF(BARSLAST(H6a),1)+1;   
  18. F6a:=BACKSET(H6a AND COUNT(L6a,X6a)>0,LLVBARS(IF(L6a,LOW,10000),X6a));   
  19. G6a:=F6a>REF(F6a,1);   
  20. I6a:=BACKSET(G6a,2);    
  21. LD2a:=I6a>REF(I6a,1);   
  22. L7a:=LD2a OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;   
  23. X7a:=REF(BARSLAST(L7a),1)+1;    
  24. F7a:=BACKSET(L7a AND COUNT(H7a,X7a)>0,HHVBARS(IF(H7a,HIGH,0),X7a));   
  25. G7a:=F7a>REF(F7a,1);    
  26. I7a:=BACKSET(G7a,2);   
  27. HD2a:=I7a>REF(I7a,1);   
  28. UU3a:=BACKSET(BARSTATUS=2,BARSLAST(LD2a)+1);   
  29. VV3a:=UU3a>REF(UU3a,1);   
  30. WW3a:=BACKSET(VV3a,REF(BARSLAST(LD2a),1)+2);   
  31. XX3a:=WW3a>REF(WW3a,1);   
  32. DRAWLINE(XX3a and 限制,L,VV3a and 限制,L,1),Color800040;   
  33. UU4a:=BACKSET(BARSTATUS=2,BARSLAST(HD2a)+1);   
  34. VV4a:=UU4a>REF(UU4a,1);   
  35. WW4a:=BACKSET(VV4a,REF(BARSLAST(HD2a),1)+2);   
  36. XX4a:=WW4a>REF(WW4a,1);   
  37. DRAWLINE(XX4a and 限制,H,VV4a and 限制,H,1),Color800040;   
  38.   
  39. A6b:=REF(HIGH,3)=HHV(HIGH,2*3+1);   
  40. B6b:=FILTER(A6b,3);    
  41. C6b:=BACKSET(B6b,3+1);    
  42. D6b:=FILTER(C6b,3);   
  43. A7b:=REF(LOW,3)=LLV(LOW,2*3+1);   
  44. B7b:=FILTER(A7b,3);    
  45. C7b:=BACKSET(B7b,3+1);    
  46. D7b:=FILTER(C7b,3);   
  47. E6b:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;   
  48. E7b:=(HIGH+LOW)/2;   
  49. H6b:=(D6b AND NOT(D7b AND E6b>=E7b)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;   
  50. H7b:=D6b AND NOT(D7b AND E6b>=E7b);   
  51. L6b:=D7b AND NOT(D6b AND E6b=E7b);   
  52. X6b:=REF(BARSLAST(H6b),1)+1;   
  53. F6b:=BACKSET(H6b AND COUNT(L6b,X6b)>0,LLVBARS(IF(L6b,LOW,10000),X6b));   
  54. G6b:=F6b>REF(F6b,1);   
  55. I6b:=BACKSET(G6b,2);    
  56. LD2b:=I6b>REF(I6b,1);   
  57. L7b:=LD2b OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;   
  58. X7b:=REF(BARSLAST(L7b),1)+1;    
  59. F7b:=BACKSET(L7b AND COUNT(H7b,X7b)>0,HHVBARS(IF(H7b,HIGH,0),X7b));   
  60. G7b:=F7b>REF(F7b,1);    
  61. I7b:=BACKSET(G7b,2);   
  62. HD2b:=I7b>REF(I7b,1);   
  63. UU3b:=BACKSET(BARSTATUS=2,BARSLAST(LD2b)+1);   
  64. VV3b:=UU3b>REF(UU3b,1);   
  65. WW3b:=BACKSET(VV3b,REF(BARSLAST(LD2b),1)+2);   
  66. XX3b:=WW3b>REF(WW3b,1);   
  67. DRAWLINE(XX3b and 限制,L,VV3b and 限制,L,1),Color009090;   
  68. UU4b:=BACKSET(BARSTATUS=2,BARSLAST(HD2b)+1);   
  69. VV4b:=UU4b>REF(UU4b,1);   
  70. WW4b:=BACKSET(VV4b,REF(BARSLAST(HD2b),1)+2);   
  71. XX4b:=WW4b>REF(WW4b,1);   
  72. DRAWLINE(XX4b and 限制,H,VV4b and 限制,H,1){,COLOR888888;},Color00FF00;   
  73.   
  74.   
  75. A6e:=REF(HIGH,13)=HHV(HIGH,2*13+1);   
  76. B6e:=FILTER(A6e,13);    
  77. C6e:=BACKSET(B6e,13+1);    
  78. D6e:=FILTER(C6e,13);   
  79. A7e:=REF(LOW,13)=LLV(LOW,2*13+1);   
  80. B7e:=FILTER(A7e,13);    
  81. C7e:=BACKSET(B7e,13+1);    
  82. D7e:=FILTER(C7e,13);{低点}   
  83. E6e:=(REF(LLV(LOW,2*13),1)+REF(HHV(HIGH,2*13),1))/2;   
  84. E7e:=(HIGH+LOW)/2;   
  85. H6e:=(D6e AND NOT(D7e AND E6e>=E7e)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;   
  86. H7e:=D6e AND NOT(D7e AND E6e>=E7e);   
  87. L6e:=D7e AND NOT(D6e AND E6e=E7e);   
  88. X6e:=REF(BARSLAST(H6e),1)+1;   
  89. F6e:=BACKSET(H6e AND COUNT(L6e,X6e)>0,LLVBARS(IF(L6e,LOW,10000),X6e));   
  90. G6e:=F6e>REF(F6e,1);   
  91. I6e:=BACKSET(G6e,2);    
  92. LD2e:=I6e>REF(I6e,1);   
  93. L7e:=LD2e OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;   
  94. X7e:=REF(BARSLAST(L7e),1)+1;    
  95. F7e:=BACKSET(L7e AND COUNT(H7e,X7e)>0,HHVBARS(IF(H7e,HIGH,0),X7e));   
  96. G7e:=F7e>REF(F7e,1);    
  97. I7e:=BACKSET(G7e,2);   
  98. HD2e:=I7e>REF(I7e,1);   
  99. UU3e:=BACKSET(BARSTATUS=2,BARSLAST(LD2e)+1);   
  100. VV3e:=UU3e>REF(UU3e,1);   
  101. WW3e:=BACKSET(VV3e,REF(BARSLAST(LD2e),1)+2);   
  102. XX3e:=WW3e>REF(WW3e,1);   
  103. DRAWLINE(XX3e and 限制,L,VV3e and 限制,L,1),Colorred;   
  104. UU4e:=BACKSET(BARSTATUS=2,BARSLAST(HD2e)+1);   
  105. VV4e:=UU4e>REF(UU4e,1);   
  106. WW4e:=BACKSET(VV4e,REF(BARSLAST(HD2e),1)+2);   
  107. XX4e:=WW4e>REF(WW4e,1);   
  108. DRAWLINE(XX4e and 限制,H,VV4e and 限制,H,1),Colorgreen;   
  109.   
  110. AW1:=ref(h,N)=hhv(h,2*N+1);    
  111. BW1:=filter(AW1,N);    
  112. CW1:=backset(BW1,N+1);    
  113. DW1:=filter(CW1,n);{高点}   
  114. AW2:=ref(l,N)=llv(l,2*N+1);    
  115. BW2:=filter(AW2,N);   
  116. CW2:=backset(BW2,N+1);    
  117. DW2:=filter(CW2,N);{低点}   
  118. EW1:=(ref(llv(l,2*N),1)+ref(hhv(h,2*N),1))/2;   
  119. EW2:=(h+l)/2;{高低点出现在同一K线上时可作取舍}   
  120. HW1:=(DW1 AND not(DW2 AND EW1>=EW2)) OR barstatus=2 OR barscount(c)=1;   
  121. LW1:=(DW2 AND not(DW1 AND EW1<EW2));    
  122. HW2:=DW1 AND not(DW2 AND EW1>=EW2);   
  123.   
  124. XW1:=ref(barslast(HW1),1)+1;    
  125. FW1:=backset(HW1 AND count(LW1,XW1)>0,llvbars(if(LW1,l,10000),XW1));   
  126. GW1:=FW1>ref(FW1,1);    
  127. IW1:=backset(GW1,2);    
  128. LDW:=IW1>ref(IW1,1);{过滤后低点}   
  129. LW2:=LDW OR barstatus=2 OR barscount(c)=1;   
  130. XW2:=ref(barslast(LW2),1)+1;    
  131. FW2:=backset(LW2 AND count(HW2,XW2)>0,hhvbars(if(HW2,h,0),XW2));   
  132. GW2:=FW2>ref(FW2,1);    
  133. IW2:=backset(GW2,2);    
  134. HDW:=IW2>ref(IW2,1);{过滤后高点}   
  135. RW1:=backset(barstatus=2,barslast(HDW)+1);    
  136. SW1:=RW1>ref(RW1,1); {前一高}   
  137. TW1:=backset(barstatus=2,barslast(LDW)+1);    
  138. UW1:=TW1>ref(TW1,1); {前一低}   
  139. RW2:=backset(SW1,ref(barslast(HDW),1)+2);    
  140. SW2:=RW2>ref(RW2,1); {前二高}   
  141. TW2:=backset(UW1,ref(barslast(LDW),1)+2);    
  142. UW2:=TW2>ref(TW2,1); {前二低}   
  143. RW3:=backset(SW2,ref(barslast(HDW),1)+2);    
  144. SW3:=RW3>ref(RW3,1); {前三高}   
  145. TW3:=backset(UW2,ref(barslast(LDW),1)+2);    
  146. UW3:=TW3>ref(TW3,1); {前三低}   
  147. RW4:=backset(SW3,ref(barslast(HDW),1)+2);    
  148. SW4:=RW4>ref(RW4,1); {前四高}   
  149. TW4:=backset(UW3,ref(barslast(LDW),1)+2);    
  150. UW4:=TW4>ref(TW4,1); {前四低}   
  151. RW5:=backset(SW4,ref(barslast(HDW),1)+2);    
  152. SW5:=RW5>ref(RW5,1); {前五高}   
  153. TW5:=backset(UW4,ref(barslast(LDW),1)+2);    
  154. UW5:=TW5>ref(TW5,1); {前五低}   
  155. RW6:=backset(SW5,ref(barslast(HDW),1)+2);    
  156. SW6:=RW6>ref(RW6,1); {前六高}   
  157. TW6:=backset(UW5,ref(barslast(LDW),1)+2);    
  158. UW6:=TW6>ref(TW6,1); {前六低}   
  159. drawline(UW4 and 限制,l,UW3 and 限制,l,0),COLORFF00FF;   
  160. drawline(UW3 and 限制,l,UW2 and 限制,l,0),Color8080FF;    
  161. drawline(SW2 and 限制,h,SW1 and 限制,h,1),COLORCYAN;   
  162. drawline(UW2 and 限制,l,UW1 and 限制,l,1),COLORFAABEC;   
  163. drawline(SW5 and 限制,h,SW4 and 限制,h,1),COLORFF9C00;   
  164. drawline(UW5 and 限制,l,UW4 and 限制,l,1),Color400080;   
  165. drawline(SW6 and 限制,h,SW5 and 限制,h,0);   
  166. drawline(UW6 and 限制,l,UW5 and 限制,l,0),Color800080;   
  167. drawline(SW3 and 限制,h,SW2 and 限制,h,0),colorblue;       
  168. drawline(SW4 and 限制,h,SW3 and 限制,h,1),COLOR009900;  

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. 解盘   
  2. N:=20;   
  3. DRAWTEXTABS(10,10,STKLABEL+' '+STKNAME+' '+BKNAME),COLORGREEN;   
  4.   
  5. 均价:=(3*C+H+L+O)/6;   
  6. VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;   
  7. VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;   
  8. SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;   
  9. SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;   
  10. SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;   
  11. SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1;   
  12. SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);;   
  13. SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;   
  14. XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);   
  15. XD2:=VAR1=VAR2 AND CLOSE>VAR1;    
  16. SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));   
  17. 量能饱和度:=IF(SAT>1,1,SAT)*100;   
  18. IF BARSTATUS=2 AND SZ1 THEN BEGIN    
  19. DRAWTEXTABS(320,25,'调整结束短线介入'),COLORRED;   
  20. END   
  21. ELSE   
  22. IF BARSTATUS=2 AND SZ2 THEN BEGIN    
  23. DRAWTEXTABS(320,25,'上升通道走势良好'),COLORRED;   
  24. END   
  25. ELSE   
  26. IF BARSTATUS=2 AND SZ3 THEN BEGIN    
  27. DRAWTEXTABS(320,25,'股价偏离注意调整'),COLORRED;   
  28. END   
  29. ELSE   
  30. IF BARSTATUS=2 AND SZ4 THEN BEGIN    
  31. DRAWTEXTABS(320,25,'上升通道调整洗盘'),COLORGREEN;   
  32. END   
  33. ELSE   
  34. IF BARSTATUS=2 AND SZ5 THEN BEGIN    
  35. DRAWTEXTABS(320,25,'转向特征注意离场'),COLORGREEN;   
  36. END   
  37. ELSE   
  38. IF BARSTATUS=2 AND SZ6 THEN BEGIN    
  39. DRAWTEXTABS(320,25,'通道改变坚决离场'),COLORGREEN;   
  40. END   
  41. ELSE   
  42. IF BARSTATUS=2 AND XD1 THEN BEGIN    
  43. DRAWTEXTABS(320,25,'下跌通道只宜观望'),COLORGREEN;   
  44. END   
  45. ELSE   
  46. IF BARSTATUS=2 AND XD2 THEN BEGIN    
  47. DRAWTEXTABS(320,25,'短期底部准备进入'),COLORYELLOW;   
  48. END;   
  49. AB1:=COST(0.33);   
  50. AB2:=COST(5);   
  51. AB3:=COST(15);   
  52. AB4:=COST(55);   
  53. AB5:=COST(97);   
  54. AA1:=COST(90);   
  55. AA2:=COST(70);   
  56. AA3:=COST(30);   
  57. AA4:=COST(10);   
  58. 获利:=WINNER(CLOSE)*100;   
  59. 套牢:=100-WINNER(CLOSE)*100;   
  60. DRAWTEXTABS(15,25,'量能饱和度:'+NUMTOSTRN(量能饱和度,2)+'%'),COLOR00FFFF;   
  61. DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF;   
  62. DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF;   
  63. DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF;   
  64. DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF;   
  65. DRAWTEXTABS(15,100,'底出击:'+NUMTOSTRN(AB1,2)),COLOR00FFFF;   
  66. DRAWTEXTABS(520,25,'建仓:'+NUMTOSTRN(AB2,2)),COLOR00FFFF;   
  67. DRAWTEXTABS(600,25,'整固:'+NUMTOSTRN(AB3,2)),COLOR00FFFF;   
  68. DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF;   
  69. DRAWTEXTABS(520,40,'获利:'+NUMTOSTRN(获利,2)+'%'),COLOR00FFFF;   
  70. DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF;   
  71. DRAWTEXTABS(675,40,'预测:'+NUMTOSTRN(AB5,2)),COLOR00FFFF;   
  72.   
  73. AAA:=量能饱和度<=10;    
  74. BBB:=量能饱和度>10 AND 量能饱和度<=20;   
  75. CCC:=量能饱和度>20 AND 量能饱和度<=30;    
  76. DDD:=量能饱和度>30 AND 量能饱和度<=50;   
  77. EEE:=量能饱和度>50 AND 量能饱和度<=70;   
  78. FFF:=量能饱和度>70 AND 量能饱和度<=80;   
  79. GGG:=量能饱和度>80 AND 量能饱和度<=90;   
  80. HHH:=量能饱和度>90;   
  81. IF BARSTATUS=2 AND AAA THEN BEGIN DRAWRECTREL(0,350,15,380,RGB(255,0,0));   
  82. END   
  83. ELSE   
  84. IF BARSTATUS=2 AND BBB THEN BEGIN DRAWRECTREL(0,320,15,380,RGB(255,0,0));   
  85. END   
  86. ELSE   
  87. IF BARSTATUS=2 AND CCC THEN BEGIN DRAWRECTREL(0,290,15,380,RGB(255,0,0));   
  88. END   
  89. ELSE   
  90. IF BARSTATUS=2 AND DDD THEN BEGIN DRAWRECTREL(0,230,15,380,RGB(255,0,0));   
  91. END   
  92. ELSE   
  93. IF BARSTATUS=2 AND EEE THEN BEGIN DRAWRECTREL(0,170,15,380,RGB(255,0,0));   
  94. END   
  95. ELSE   
  96. IF BARSTATUS=2 AND FFF THEN BEGIN DRAWRECTREL(0,140,15,380,RGB(255,0,0));   
  97. END   
  98. ELSE   
  99. IF BARSTATUS=2 AND GGG THEN BEGIN DRAWRECTREL(0,110,15,380,RGB(255,0,0));   
  100. END   
  101. ELSE   
  102. IF BARSTATUS=2 AND HHH THEN BEGIN DRAWRECTREL(0,85,15,380,RGB(255,0,0));   
  103. END;   
  104.   
  105.   
  106. RSI1预设:=5000;   
  107. RSI2预设:=5000;   
  108. RSI3预设:=5000;   
  109. LC:=REF(CLOSE,1);   
  110. RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;   
  111. RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;   
  112. RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;   
  113. A:=SMA(MAX(CLOSE-LC,0),24,1);   
  114. B:=SMA(ABS(CLOSE-LC),24,1);   
  115. A1:=SMA(MAX(CLOSE-LC,0),6,1);   
  116. B1:=SMA(ABS(CLOSE-LC),6,1);   
  117. YCJ1:IF(C>LC,(REF(A1,1)*5-REF(B1,1)*5*RSI1预设/10000)/(RSI1预设/10000-1)+LC,LC+REF(B1,1)*5-REF(A1,1)*5/(RSI1预设/10000));   
  118. A2:=SMA(MAX(CLOSE-LC,0),12,1);   
  119. B2:=SMA(ABS(CLOSE-LC),12,1);   
  120. YCJ2:IF(C>LC,(REF(A2,1)*11-REF(B2,1)*11*RSI2预设/10000)/(RSI1预设/10000-1)+LC,LC+REF(B2,1)*11-REF(A2,1)*11/(RSI1预设/10000));   
  121. YCJ3:IF(C>LC,(REF(A,1)*23-REF(B,1)*23*RSI3预设/10000)/(RSI3预设/10000-1)+LC,LC+REF(B,1)*23-REF(A,1)*23/(RSI3预设/10000));   
  122.   
  123.   
  124. A74:=MA(CLOSE,20);   
  125. A75:=(CLOSE > MA(CLOSE,5));   
  126. A76:=(MA(CLOSE,5) > MA(CLOSE,10));   
  127. A77:=(CLOSE > MA(CLOSE,10));   
  128. A78:=(MA(CLOSE,5) > MA(CLOSE,20));   
  129. A79:=(CLOSE > MA(CLOSE,20));   
  130. A710:=REF(A74,1);   
  131. A711:=(A74 > A710);   
  132. AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10))) + IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));   
  133. DSLX:=(CLOSE / INDEXC);   
  134. DSLX1:=MA(DSLX,5);   
  135. DSLX2:=MA(DSLX,10);   
  136. V1:=MA(VOL,5);   
  137. V2:=MA(VOL,10);T := BARSLAST(DISPSTATUS=1)+1;   
  138. T := BARSLAST(DISPSTATUS=1)+1;   
  139. HHg := HHV(H, T);   
  140. ddg := LLV(L, T);   
  141. IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN    
  142. DRAWTEXTREL(360,960,'的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。   '),color0000FF,LINETHICK1;    
  143. IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN    
  144. DRAWTEXTREL(360,960,'虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。   '),color0000FF,LINETHICK1;   
  145. IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN    
  146. DRAWTEXTREL(360,960,'量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。   '),color0000FF,LINETHICK1;   
  147. IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN    
  148. DRAWTEXTREL(360,960,'形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。   '),color0000FF,LINETHICK1;   
  149. IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN    
  150. DRAWTEXTREL(360,960,'形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。   '),color00FF00,LINETHICK1;   
  151. IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN    
  152. DRAWTEXTREL(360,960,'随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。   '),color00FF00,LINETHICK1;   
  153. IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN    
  154. DRAWTEXTREL(360,960,'放量下跌，走势明显偏弱，离场观望。   '),color00FF00,LINETHICK1;   
  155. IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN    
  156. DRAWTEXTREL(360,960,'缩量下跌，走势偏弱，离场观望。   '),color00FF00,LINETHICK1;   
  157. IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN    
  158. DRAWTEXTREL(360,960,'形态良好，强势明显，量能充足，可以继续持有。   '),color00FFFF,LINETHICK1;   
  159. IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN    
  160. DRAWTEXTREL(360,960,'上行趋势不变，强势依然，但量能开始转弱，注意风险。   '),color00FFFF,LINETHICK1;   
  161. IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN    
  162. DRAWTEXTREL(360,960,'仍然具备上涨潜力，但股性偏弱，可考虑减仓。   '),color00FFFF,LINETHICK1;   
  163. IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN    
  164. DRAWTEXTREL(360,960,'走势趋弱，量能不足，减持大部分筹码。   '),color00FFFF,LINETHICK1;   
  165. IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN    
  166. DRAWTEXTREL(360,960,'形态不佳，注意成交量的变化，但目前不适合参与。   '),COLOR00FF00,LINETHICK1;   
  167. IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN    
  168. DRAWTEXTREL(360,960,'趋势不明，股价偏弱，注意量能变化，目前不宜参与。   '),COLOR00FF00,LINETHICK1;   
  169. IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN    
  170. DRAWTEXTREL(360,960,'有走强迹象，但量能不足，趋势不明，不适合操作。   '),COLOR00FF00,LINETHICK1;   
  171. IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN    
  172. DRAWTEXTREL(360,960,'走势太弱，没有参与价值。   '),COLOR00FF00,LINETHICK1;   
  173. IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN    
  174. DRAWTEXTREL(360,960,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，   '),color0000FF,LINETHICK1;   
  175. IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN    
  176. DRAWTEXTREL(360,960,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。   '),color0000FF,LINETHICK1;   
  177. IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN    
  178. DRAWTEXTREL(360,960,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，   '),color0000FF,LINETHICK1;   
  179. IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN    
  180. DRAWTEXTREL(360,960,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。   '),color0000FF,LINETHICK1;   
  181. IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN    
  182. DRAWTEXTREL(360,960,'大盘形态走坏，重仓者可以减去大部分仓位。   '),color00FF00,LINETHICK1;   
  183. IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN    
  184. DRAWTEXTREL(360,960,'大盘缩量调整，注意风险，短线清仓观望。   '),color00FF00,LINETHICK1;   
  185. IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN    
  186. DRAWTEXTREL(360,960,'大盘走势良好，量能理想，可以继续持有强势股。   '),color00FFFF,LINETHICK1;   
  187. IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN    
  188. DRAWTEXTREL(360,960,'大盘形态良好，但量能稍显不足，随时准备减仓。   '),color00FFFF,LINETHICK1;   
  189. IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN    
  190. DRAWTEXTREL(360,960,'大盘趋势不明，注意成交量变化，目前不适宜进场。   '),COLOR00FF00,LINETHICK1;   
  191. IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN    
  192. DRAWTEXTREL(360,960,'大盘趋势向下，量能萎缩，不适合进场。   '),COLOR00FF00,LINETHICK1;   
  193.   
  194.   
  195. E:=(HIGH+LOW+OPEN+2*CLOSE)/5;   
  196. 明日阻力:=2*E-LOW;   
  197. 明日支撑:=2*E-HIGH;   
  198. 明日突破:=E+(HIGH-LOW);   
  199. 明日反转:=E-(HIGH-LOW);   
  200. 今日阻力:=REF(明日阻力 , 1);   
  201. 今日支撑:=REF(明日支撑 , 1);   
  202.   
  203. DRAWTEXTREL(100,100,'今日阻力=：'+NUMTOSTRN(今日阻力,2 )+''),Color00FFFF;   
  204. DRAWTEXTREL(100,140,'今日支撑=：'+NUMTOSTRN(今日支撑,2 )+''),Color00FF00;   
  205. DRAWTEXTREL(100,180,'明日突破=：'+NUMTOSTRN(明日突破,2 )),ColorFF00FF;   
  206. DRAWTEXTREL(100,220,'明日阻力=：'+NUMTOSTRN(明日阻力,2 )),ColorFFFF00;   
  207. DRAWTEXTREL(100,260,'明日支撑=：'+NUMTOSTRN(明日支撑,2 )),COLORRED;   
  208. DRAWTEXTREL(100,300,'明日反转=：'+NUMTOSTRN(明日反转,2 )),COLORGREEN;   

 

C/C++ www. 择股网提供 Code复制内容到剪贴板
  1. 趋势   
  2. 37.5;   
  3. 22.77;   
  4. -22.77;   
  5. -37.5;   
  6.   
  7. Var3:=REF(CLOSE,2);    
  8. 入市资金:SMA(MAX(CLOSE-Var3,0),8,1)/SMA(ABS(CLOSE-Var3),8,1)*100-50,Color00FFFF;   
  9. 趋势:SMA(((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100),3,1)-50,ColorFF8000;   
  10. 趋势5:ema(趋势,5),COLORGREEN;   
  11.   
  12. DRAWICON(CROSS(趋势,-37.5),-40,1),COLORGREEN;   
  13. DRAWICON(CROSS(37.5,趋势),45,2),COLORYELLOW;   
  14.   
  15. bb1:=SMA(ABS(L-REF(L,1)),3,1);   
  16. bb2:=SMA(MAX((L-REF(L,1)),0),3,1);   
  17. bb3:=bb1/bb2*100;   
  18. bb4:=EMA(IF(C*1.2,bb3*10,bb3/10),3);   
  19. bb5:=LLV(L,38);   
  20. bb6:=HHV(bb4,38);   
  21. bb7:=IF(LLV(L,90),1,0);   
  22. bb8:=IF(L<=bb5,(bb4+bb6*2)/2,0);   
  23. 秘密筹码:SQRT(EMA(bb8,3)/1000*bb7)*3,COLORRED;  

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： elept > 《大智慧公式》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多