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

把五里老师的五里2号通达信指标改编成大智慧新一代能用的！源码！

发布时间：2009/10/11 19:21:28  浏览次数：

 

C/C++ Code复制内容到剪贴板
  1. AAF:=LLV(LOW,34);   
  2. BBF:=MA(AAF,4);   
  3. TYP := (HIGH + LOW + CLOSE)/3;   
  4. CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5));   
  5. 差值1:=ABS(REF(CCI1,1)-CCI1);   
  6. CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));   
  7. 差值2:=ABS(REF(CCI2,1)-CCI2);   
  8. CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));   
  9. 差值3:=ABS(REF(CCI3,1)-CCI3);   
  10. CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));   
  11. 差值4:=ABS(REF(CCI4,1)-CCI4);   
  12. CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));   
  13. 差值5:=ABS(REF(CCI5,1)-CCI5);   
  14. CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;   
  15. AAA:=(3*C+H+L+O)/6;   
  16. VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)   
  17. +4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;   
  18. VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;   
  19. VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;   
  20. VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;   
  21. VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;   
  22. VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;   
  23. 短线:=VAR1;   
  24. 中线:=VAR6;   
  25.   
  26. 下跌:IF(VAR1=VAR6,VAR6, VAR1),COLORGREEN;   
  27. TJ1:=CCI1>差值4;   
  28. 立桩量:=FILTER(TJ1,0);   
  29. TJ2:=IF(BARSLAST(立桩量)=1 ,1,0);   
  30. 成立1:=TJ2=1;   
  31. 条件成立1:=FILTER(成立1,5);   
  32. TJ11:= CCI1<-差值4 ;   
  33. 立桩量2:=FILTER(TJ11,0);   
  34. TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,   
  35. IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,   
  36. IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0)));   
  37. TJ:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(LOW,1),1,0);   
  38. 成立2:=TJ=1;   
  39. 条件成立2:=FILTER(成立2,5);   
  40.   
  41. TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5))    
  42. OR (VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1);   
  43. 立桩量3:=FILTER(TJ111,5);   
  44. TJ3:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(LOW,3),1,0)));   
  45. 成立:=TJ3=1;   
  46. 条件成立:=FILTER(成立,5);   
  47. DRAWICON(条件成立 AND 下跌= VAR6{ AND BB13>0},L*0.97,23);   
  48. LC:=REF(CLOSE,1);   
  49. RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);   
  50. FF:=EMA(CLOSE,3);   
  51. MA15:=EMA(CLOSE,21);   
  52. DRAWICON(CROSS(FF,MA15),LOW*0.97,23);   
  53. DRAWTEXT(CROSS(88,RSI),(HIGH * 1.01),'R背'),COLOR00FF00;   
  54. X1:=(C+L+H)/3;   
  55. BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;   
  56. EMA8:=EMA(C,8);   
  57. DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),   
  58. EMA8,'∠'),COLORWHITE;   
  59.   
  60. 超买:MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORGREEN,LINETHICK2;   
  61. 超卖:MA(C,10)*IF(CAPITAL=0,0.95,0.9),POINTDOT,COLORRED,LINETHICK2;   
  62. 上:=EMA(C,3);   
  63. 中:=EMA(C,5);   
  64. 下:=EMA(中,5);   
  65. QQ:= C<中;   
  66. MM:=上>REF(上,1) AND REF(上,1)<REF(上,2) ;   
  67. V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);    
  68. V2:=(1-7/100)*(DMA(CLOSE,V1));   
  69. V3:=(1+7/100)*(DMA(CLOSE,V1));   
  70. V5:=MA((LOW+HIGH+CLOSE)/3,5);   
  71. MA1:=MEMA(CLOSE,5);   
  72. MA2:=ATAN((MA1/REF(MA1,1)-1)*100)*180/3.1416;   
  73. MA3:=IF(MA2>0,MA2,MA2);   
  74. MA5:=MA(CLOSE,5);   
  75. MA13:=MA(CLOSE,13);   
  76. VAR01:=CLOSE=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3))    
  77. OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND    
  78. REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND    
  79. C>=REF(C,1) AND C>=REF(C,2);   
  80. {收盘价=4日内收盘价的最高值 AND 昨收>=2日前的收盘价}    
  81. VAR02:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4);   
  82. {收盘价=4日内收盘价的最高值 AND 昨收=4日内收盘价的最低值}   
  83. VAR03:=CLOSE=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR    
  84. REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND    
  85. REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND    
  86. C<REF(C,1) AND C<REF(C,2);   
  87. {收盘价=4日内收盘价的最低值 AND (昨收<2日前的收盘价}   
  88. VAR04:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND    
  89. REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);   
  90. {昨收=4日内收盘价的最低值 AND 收盘价>=2日前的收盘价}   
  91. VAR05:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND    
  92. REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND    
  93. REF(C,2)>=REF(C,4) AND C<REF(C,1);   
  94. {昨收=4日内收盘价的最高值 AND 收盘价<2日前的收盘价}   
  95. VAR06:=V5>REF(V5,1) AND REF(V5,1)<REF(V5,2);   
  96. {今日V5向上形成拐点}   
  97. VAR07:=LOW<HHV(V5,13) AND HIGH>HHV(V5,13) AND CLOSE>REF(C,1) AND CLOSE>OPEN;   
  98. VAR08:=VAR07 AND COUNT(VAR06,2);   
  99. VAR09:=100*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6);   
  100. VAR10:=EMA(MA(C,13),13);   
  101. VAR11:=FILTER((LLV(VAR09,2)=LLV(VAR09,7) AND COUNT(VAR09<0,2) AND    
  102. CROSS(VAR09,MA(VAR09,2)))=1,5);   
  103. VAR12:=FILTER((HHV(VAR09,2)=HHV(VAR09,7) AND COUNT(VAR09>50,2) AND    
  104. CROSS(MA(VAR09,2),VAR09))=1,1);   
  105. VAR13:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;   
  106. VAR14:=FILTER(((CROSS(VAR13,0) OR CROSS(C,VAR10)) AND VAR11)=1,3);   
  107. VAR15:=MA(C,18)>=REF(MA(C,18),3) AND CROSS(C,MA(C,18));   
  108. VAR16:=VAR08 AND NOT(REF(VAR08,1));   
  109. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
  110. K:=SMA(RSV,3,1);   
  111. D:=SMA(K,3,1);   
  112. J:=3*K-2*D;   
  113. 金叉:=CROSS(J,D);   
  114. 死叉:=CROSS(D,J);   
  115. 买1:=(VAR14 OR VAR15) AND VAR11;   
  116. 买2:=(VAR14 OR VAR15) AND VAR4;   
  117. 买3:=(VAR14 OR VAR15) AND VAR2;   
  118. 买4:=(VAR2 AND VAR11) OR (VAR4 AND VAR11);   
  119. 买5:=(金叉 AND VAR04) OR (金叉 AND VAR02) OR (金叉 AND VAR11);   
  120. {涨停}   
  121. STICKLINE(CLOSE>REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE,OPEN,4,-1),   
  122. COLOR00FFFF;   
  123. {跌停}   
  124. STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,4,-1),   
  125. COLORGREEN;   
  126. {蓝}   
  127. STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3.3,0),COLORFF6600;   
  128. STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2.4,0),COLORFF8800;   
  129. STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.3,0),COLORFFAA00;   
  130. STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,0.6,0),COLORFFCC00;   
  131. {红}    
  132. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.3,0),COLOR000099;   
  133. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4,0),COLOR0000BB;   
  134. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.3,0),COLOR0000DD;    
  135. STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.5,0),COLOR0000FF;   
  136. {绿}       
  137. STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,3.3,0),COLOR009900;    
  138. STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,2.4,0),COLOR00BB00;     
  139. STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,1.3,0),COLOR00DD00;        
  140. STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,0.5,0),COLOR00FF00;   
  141. {灰}    
  142. STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,3.3,0),COLOR999999;   
  143. STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,2.2,0),COLORBBBBBB;          
  144. STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,1.3,0),COLORDDDDDD;        
  145. STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,0.5,0),COLORFFFFFF;   
  146. STICKLINE(金叉,OPEN,CLOSE,0.5,0),COLORYELLOW;   
  147. STICKLINE(死叉,OPEN,CLOSE,0.5,0),COLOR000066;   
  148. DRAWICON(VAR16,LOW-0.02,15);   
  149. DRAWICON(买1 OR 买2 OR 买3 OR 买4 OR 买5 AND MM,LOW-0.05,23);   
  150. DRAWICON(死叉 OR CROSS(50,VAR09) AND QQ AND K>50,HIGH+0.01,2);   
  151. TTJ:=CROSS(FF,MA15);   
  152. TTJ0:=VAR16;   
  153. TTJ1:=买1 OR 买2 OR 买3 OR 买4 OR 买5 AND MM;   
  154. XG0:=TTJ AND TTJ0;   
  155. XG1:=TTJ AND TTJ1;   
  156. XG:=XG0 OR XG1;   
  157. DRAWTEXT(XG,LOW*0.93,'全'),COLORRED;   
  158. DRAWTEXT(XG,LOW*0.93-0.3,'仓'),COLORRED;   
  159. GET:ZIG(3,3),COLORYELLOW;   
  160. PL5:=ZIG(3,5);   
  161. EN1:=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);   
  162. EX1:=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);   
  163. PL10:=ZIG(3,10);   
  164. EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);   
  165. EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);   
  166. PL20:=ZIG(3,20);   
  167. EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);   
  168. EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);   
  169. PL40:=ZIG(3,40);   
  170. 走强1:=BARSLAST(PL5<REF(PL5,1));   
  171. 走弱1:=BARSLAST(PL5>REF(PL5,1));   
  172. 走强2:=BARSLAST(PL10<REF(PL10,1));   
  173. 走弱2:=BARSLAST(PL10>REF(PL10,1));   
  174. 走强3:=BARSLAST(PL20<REF(PL20,1));   
  175. 走弱3:=BARSLAST(PL20>REF(PL20,1));   
  176. ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);   
  177. ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);   
  178. DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);   
  179. DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);   
  180. ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);   
  181. ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);   
  182. DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);   
  183. DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);   
  184. DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'(A)'),COLORFFFF00;   
  185. DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF;   
  186. DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'(C)'),COLOR0000FF;   
  187. DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;   
  188. DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF;   
  189. DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;   
  190. DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;   
  191. DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;   
  192. DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF;   
  193. DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00;   
  194. DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF;   
  195. DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF;   
  196. DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.95,'②'),LINETHICK3,COLOR00FFFF;   
  197. DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)    
  198. AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF;   
  199. DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.95,'④'),LINETHICK3,COLOR00FFFF;   

 

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

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