公式网 股票指标公式源码分享 登录 注册
公式指标平网
未来函数检测
首页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 东财通公式 飞狐公式 操盘手公式 其他公式 公式解答 股票软件 股票池
当前位置：→ 公式网 > 大智慧公式 > 正文 → 正文

大智慧综合主图源码——筹码分析【主图】

发布时间：2009/9/22 9:02:46  浏览次数：

 

C/C++ Code复制内容到剪贴板
  1. {筹码分析【主图】}   
  2. MA6:=MA(CLOSE,6);   
  3. MA18:=MA(CLOSE,18);   
  4. 空:(3)*(MA18) - (2)*(MA6),LINETHICK3,COLORCYAN;   
  5. 多:(3)*(MA6) - (2)*(MA18),LINETHICK3,COLOR0000C0;   
  6. 超买:MA(C,10)*IF(CAPITAL=0,1.04,1.1),DOTLINE,COLORGREEN,LINETHICK1;   
  7. 超卖:MA(C,10)*IF(CAPITAL=0,0.95,0.9),DOTLINE,COLORYELLOW,LINETHICK1;   
  8. 【生命线】:sum(vol*(o+c)/2,88)/sum(vol,88),COLOR0000FF,linethick1;   
  9. 【持股线】:hhv(ma(C,18),2),COLORYELLOW;   
  10. 【分离线】:if(ma(C,18)<【持股线】,(ma(C,18)-(【持股线】-ma(C,18))),【持股线】),COLORCYAN,linethick1;   
  11. MA18:ma(C,18),linethick1,COLORWHITE;   
  12. 角度:ATAN((MA18/REF(MA18,1)-1)*100)*180/3.14159,linethick0;   
  13. 一:=COST(10)/COST(1);   
  14. 二:=COST(20)/COST(10);   
  15. 三:=COST(30)/COST(20);   
  16. 四:=COST(40)/COST(30);   
  17. 五:=COST(50)/COST(40);   
  18. 密:=一<二 AND 一<三 AND 一<四 AND 一<五 ;   
  19. 密二:=二<三 AND 二<四 AND 二<五 ;   
  20. 密三:=三<二 AND 三<四 AND 三<五 ;   
  21. 密四:=四<二 AND 四<三 AND 四<五 ;   
  22. 密五:=五<二 AND 五<三 AND 五<四 ;   
  23. STICKLINE(c>=o,c,o,9,1),colorred;   
  24. STICKLINE(c>=o,l,o,0.1,0),colorred;   
  25. STICKLINE(c>=o,c,h,0.1,0),colorred;   
  26. STICKLINE(c<o,c,o,9,0),colorffff00;   
  27. STICKLINE(c<o,h,l,0.1,0),colorffff00;   
  28. x11:POLYLINE(密二>0,COST(11)),COLOR008800;    
  29. x21:POLYLINE(密二>0,COST(12)),COLOR008800;    
  30. x31:POLYLINE(密二>0,COST(13)),COLOR008800;    
  31. x41:POLYLINE(密二>0,COST(14)),COLOR008800;    
  32. x51:POLYLINE(密二>0,COST(15)),COLOR008800;    
  33. x61:POLYLINE(密二>0,COST(16)),COLOR008800;    
  34. x71:POLYLINE(密二>0,COST(17)),COLOR008800;    
  35. x81:POLYLINE(密二>0,COST(18)),COLOR008800;    
  36. x91:POLYLINE(密二>0,COST(19)),COLOR008800;   
  37. x12:POLYLINE(密三>0,COST(21)),COLORff9933;    
  38. x22:POLYLINE(密三>0,COST(22)),COLORff9933;    
  39. x32:POLYLINE(密三>0,COST(23)),COLORff9933;    
  40. x42:POLYLINE(密三>0,COST(24)),COLORff9933;    
  41. x52:POLYLINE(密三>0,COST(25)),COLORff9933;    
  42. x62:POLYLINE(密三>0,COST(26)),COLORff9933;    
  43. x72:POLYLINE(密三>0,COST(27)),COLORff9933;    
  44. x82:POLYLINE(密三>0,COST(28)),COLORff9933;    
  45. x92:POLYLINE(密三>0,COST(29)),COLORff9933;   
  46. x13:POLYLINE(密四>0,COST(31)),COLOR008800;    
  47. x23:POLYLINE(密四>0,COST(32)),COLOR008800;    
  48. x33:POLYLINE(密四>0,COST(33)),COLOR008800;    
  49. x43:POLYLINE(密四>0,COST(34)),COLOR008800;    
  50. x53:POLYLINE(密四>0,COST(35)),COLOR008800;    
  51. x63:POLYLINE(密四>0,COST(36)),COLOR008800;    
  52. x73:POLYLINE(密四>0,COST(37)),COLOR008800;    
  53. x83:POLYLINE(密四>0,COST(38)),COLOR008800;    
  54. x93:POLYLINE(密四>0,COST(39)),COLOR008800;   
  55. x14:POLYLINE(密五>0,COST(41)),COLOR33cc00;    
  56. x24:POLYLINE(密五>0,COST(42)),COLOR33cc00;    
  57. x34:POLYLINE(密五>0,COST(43)),COLOR33cc00;    
  58. x44:POLYLINE(密五>0,COST(44)),COLOR33cc00;    
  59. x54:POLYLINE(密五>0,COST(45)),COLOR33cc00;    
  60. x64:POLYLINE(密五>0,COST(46)),COLOR33cc00;    
  61. x74:POLYLINE(密五>0,COST(47)),COLOR33cc00;    
  62. x84:POLYLINE(密五>0,COST(48)),COLOR33cc00;    
  63. x94:POLYLINE(密五>0,COST(49)),COLOR33cc00;   
  64. stickline(密>0 AND c<COST(50),COST(10),COST(2),2,1),COLORGREEN;   
  65. stickline(密二>0 AND c<COST(50),COST(10),COST(20),0.8,1),COLORYELLOW;   
  66. stickline(密二>0 AND c<COST(50),COST(20)/1.0017,COST(20),4,1),COLORYELLOW;   
  67. stickline(密三>0 AND c<COST(50),COST(20),COST(30),1,1),COLORYELLOW;   
  68. stickline(密三>0 AND c<COST(50),COST(30)/1.0017,COST(30),4,1),COLORYELLOW;   
  69. stickline(密四>0 AND c<COST(50),COST(30),COST(40),0.8,1),COLORYELLOW;   
  70. stickline(密四>0 AND c<COST(50),COST(40)/1.0017,COST(40),4,1),COLORYELLOW;   
  71. stickline(密五>0 AND c<COST(50),COST(40),COST(50),1,1),COLORYELLOW;   
  72. stickline(密五>0 AND c<COST(50),COST(50)/1.0017,COST(50),4,1),COLORYELLOW;   
  73. aa:=if(c>=ref(c,3),1,0);   
  74. bb:=if(c>=ref(c,5),1,0);   
  75. cc:=if(c>=ref(c,7),1,0);   
  76. dd:=if(c>=ref(c,8),1,0);   
  77. ee:=if(c>=ref(c,13),1,0);   
  78. ff:=if(c>=ref(c,21),1,0);   
  79. gz2:=aa+bb+cc+dd+ee+ff;   
  80. kk:=0;   
  81. for i=1 TO 4  DO    
  82. kk:=kk+REF(gz2,i);   
  83. kkk:=kk/4;   
  84. DRAWTEXT(kkk=0 and gz2>0 and c>REF(c,1),L*0.994,'买'),COLORYELLOW,linethick3;   
  85. DRAWTEXT(kkk=6 and gz2<6 ,H*1.025,'卖'),COLORWHITE,ALIGN2,linethick3;   
  86. A:=SUMBARS(V,CAPITAL*1);   
  87. A1:=SUM(COST(10),A)/A;   
  88. A2:=SUM(COST(20),A)/A;   
  89. A3:=SUM(COST(30),A)/A;   
  90. A4:=SUM(COST(40),A)/A;   
  91. A5:=SUM(COST(50),A)/A;   
  92. 庄家成本线:(5*A1+4*A2+3*A3+2*A4+A5)/15,Color98FF00,linethick1;   
  93. Var21:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));   
  94. Var3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);   
  95. MV:=(Var21+Var3)/AMOUNT*VOL*100*50;   
  96. DRAWTEXT(MV>6 and l<=llv(l,10),l*0.98,'←异动'),colorcyan;   
  97. varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);   
  98. var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);   
  99. vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);   
  100. 注:drawtext(varcQ and var9Q and varcq=1 and c>o,low*0.998,'▲关注'),coloryellow,linethick1;   
  101. 警:drawtext(vardQ,high*1.01,'▼警示'),COLORGREEN,linethick1;   
  102. ED1:=(-2*REF(C,2)+REF(C,1)+2*C);   
  103. ED2:=(-0.4*REF(C,4)-0.4*REF(C,3)-1.1*REF(C,2)+0.9*REF(C,1)+2*C);   
  104. ED3:=(-0.8*REF(C,4)-0.8*REF(C,3)-0.2*REF(C,2)+0.8*REF(C,1)+2*C);   
  105. JF1:=SMA(SMA(ED1,3,1),3,1);   
  106. JF2:=SMA(SMA(ED2,4,1),3,1);   
  107. JF3:=SMA(SMA(ED3,4,1),4,1);   
  108. DRAWICON(sum(CROSS(ED1,JF1) + CROSS(ED2,JF2) + CROSS(ED3,JF3),1)>1,L/1.001,1);   
  109. DRAWICON(sum(CROSS(JF1,ED1) + CROSS(JF2,ED2) + CROSS(JF3,ED3),1)>1,H*1.051,2);   
  110. DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);   
  111. DEA:=EMA(DIFF,8);   
  112. A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));     
  113. B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);     
  114. DRAWTEXT(IF(B1>0,1,0),L-0.1,'MACD底背'),COLORGREEN;   
  115. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
  116. K:=SMA(RSV,3,1);   
  117. D:=SMA(K,3,1);   
  118. A2:=BARSLAST(REF(CROSS(K,D),1));     
  119. B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);     
  120. DRAWTEXT(IF(B2>0,1,0),L-0.25,'KDJ底背'),COLORYELLOW;   
  121. LC:=REF(CLOSE,1);   
  122. RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;   
  123. RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;   
  124. A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));     
  125. B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);     
  126. DRAWTEXT(IF(B3>0,1,0),L-0.1,'RSI底背'),COLORCYAN;     
  127. C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));     
  128. D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);     
  129. DRAWTEXT(IF(D1>0,1,0),H+0.05,'MACD顶背'),COLORWHITE;    
  130. C2:=BARSLAST(REF(CROSS(D,K),1));     
  131. D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);     
  132. DRAWTEXT(IF(D2>0,1,0),H+0.20,'KDJ顶背'),COLORWHITE;     
  133. C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));     
  134. D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);     
  135. DRAWTEXT(IF(D3>0,1,0),H+0.2,'RSI顶背'),COLORWHITE;   
  136. DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*1.06,'【绝佳】') ,LINETHICK3,COLORYELLOW;   
  137. DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.03,'卖'),COLORCYAN,LINETHICK2;   
  138. gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);    
  139. 明日阻力:=l+(gj-l)+(c-l);    
  140. 明日支撑:=l+(c-gj);    
  141. 明日阻力:=l+(gj-l)+(c-l);    
  142. 明日支撑:=l+(c-gj);    
  143. 今日阻力:=REF(明日阻力 , 1);    
  144. 今日支撑:=REF(明日支撑 , 1);    
  145. STICKLINE(DISPSTATUS=2  and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;    
  146. STICKLINE(DISPSTATUS=2  and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;    
  147. STICKLINE(DISPSTATUS=2  and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;    
  148. STICKLINE(DISPSTATUS=2  and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF0000;    
  149. DRAWTEXTREL(10,10,'------------------------------------'),ColorFFFFFF;    
  150. IF BARSTATUS=2 and c>=今日支撑 THEN      
  151. DRAWTEXTREL(10,50,'今日支撑：'+NUMTOSTRN(今日支撑 ,2 )),ColorFF00FF;    
  152. IF BARSTATUS=2 and c<今日支撑 THEN      
  153. DRAWTEXTREL(10,50,'今日支撑：'+NUMTOSTRN(今日支撑 ,2 )),ColorFFFFFF;    
  154. IF BARSTATUS=2 and c>=今日阻力 THEN      
  155. DRAWTEXTREL(10,120,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF;    
  156. IF BARSTATUS=2 and c<今日阻力 THEN      
  157. DRAWTEXTREL(10,120,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;    
  158. IF BARSTATUS=2 and c>=明日支撑 THEN      
  159. DRAWTEXTREL(100,50,'明日支撑：'+NUMTOSTRN(明日支撑 ,2 )),Color00FFFF;    
  160. IF BARSTATUS=2 and c<明日阻力 THEN      
  161. DRAWTEXTREL(100,120,'明日阻力：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF;    
  162. DRAWTEXTREL(10,160,'------------------------------------'),ColorFFFFFF;   

 

资源下载链接   资源大小：5KB
精品资源推荐
公式指标栏目导航

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