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

蒂纳波利点位源码

发布时间：2009/11/15 20:48:07  浏览次数：

 

C/C++ Code复制内容到剪贴板
  1. p    10  1   30   
  2. 参A  2   1   111   
  3. 参B  1   1   111   
  4. 参C  1   1   111   
  5.   
  6. 画柱线(收盘价>开盘价 OR 收盘价=开盘价 AND 收盘价>向前引用(收盘价,1),最低价,最高价,0.5,0),LINETHICK5,color10000;   
  7. 画柱线(收盘价>开盘价 OR 收盘价=开盘价 AND 收盘价>向前引用(收盘价,1),开盘价,收盘价,9,0),LINETHICK5,color10000;   
  8. 画柱线(收盘价<开盘价 OR 收盘价=开盘价 AND 收盘价<=向前引用(收盘价,1),最低价,最高价,0.5,0),LINETHICK5,color10000;   
  9. 画柱线(收盘价<开盘价 OR 收盘价=开盘价 AND 收盘价<=向前引用(收盘价,1),开盘价,收盘价,9,0),LINETHICK5,color10000;   
  10. 画柱线(收盘价>=开盘价,收盘价,开盘价,8,0),color000055;   
  11. 画柱线(收盘价>=开盘价,收盘价,开盘价,6,0),color000099;   
  12. 画柱线(收盘价>=开盘价,收盘价,开盘价,4,0),color0000dd;   
  13. 画柱线(收盘价>=开盘价,收盘价,开盘价,2,0),color0000ff;   
  14. 画柱线(收盘价>=开盘价,最高价,最低价,0,0),colorred;   
  15. 画柱线(收盘价<=开盘价,收盘价,开盘价,8,0),color009900;   
  16. 画柱线(收盘价<=开盘价,收盘价,开盘价,6,0),color00aa00;   
  17. 画柱线(收盘价<=开盘价,收盘价,开盘价,4,0),color00bb00;   
  18. 画柱线(收盘价<=开盘价,收盘价,开盘价,2,0),color00dd00;   
  19. 画柱线(收盘价<=开盘价,最高价,最低价,0,0),color009900;   
  20.   
  21. {<波浪尺>原来比例 的公式）使用   X1835}   
  22. {☆§提示：1学习波浪知识的同学所使用，   
  23.           2计算机画线不能代替手工作图。   
  24.           3确定历史数据完整。   
  25.           4只用在飞狐}   
  26.             
  27. {☆§说明: 1考虑到期货中三浪常打破一浪底，所以就对P一浪A和P三浪C没有定高低的关系限制，且在延长浪中也可见机使用   
  28.           2公式必须由使用者打出十字光标后，并且选择参数才能使用，   
  29.           3调整参5和参236的数值就可以打开0.5和0.236倍数的线。   
  30.             0.382和0.618的倍数取了3组数（例：0.382，1.382 2.382三组）根据飞狐原有的1的倍数取了2组数，第三组可以修改公式 里的内容打开第三组。   
  31.             准备了0.5和0.236的备选。   
  32.             还有2个自定义的数字，由使用者自己写入所需的比例数值。}   
  33.   
  34.   
  35. input:p(10,1,30),参a(2,1,111),参b(1,1,111),参c(1,1,111),A偏移(0),B偏移(0),C偏移(0),整体偏移(0),参382(0,-1,99999),参618(0,-1,99999),参壹(0,-1,99999),参191(-1,-1,99999),参5(-1,-1,99999),参自定义1(-1,-1,99999),参自定义2(-1,-1,99999);   
  36. x1:=前M个波谷值(4,p,1);//数据位置   
  37. x8:=前M个波谷位置(4,p,1)=0;   
  38. x11:=前M个波谷位置(4,p,参a);   
  39. x18:=前M个波谷位置(4,p,参b);   
  40. x13:=前M个波谷位置(4,p,参c);   
  41. x3:=前M个波峰值(4,p,1);   
  42. x31:=前M个波峰位置(4,p,参a);   
  43. x38:=前M个波峰位置(4,p,参b);   
  44. x33:=前M个波峰位置(4,p,参c);   
  45.   
  46. x5:=前M个波峰位置(4,p,1)=0;   
  47.   
  48.   
  49.   
  50. 光标位置:=系统参数(1),linethick0;   
  51.   
  52.   
  53. cldis:=x13[系统参数(1)],linethick0;   
  54. chdis:=x33[系统参数(1)],linethick0;   
  55. tcl:=光标位置-cldis,linethick0;   
  56. tch:=光标位置-chdis,linethick0;   
  57.   
  58. bldis:=x18[系统参数(1)],linethick0;   
  59. bhdis:=x38[系统参数(1)],linethick0;   
  60. tbl:=光标位置-bldis,linethick0;   
  61. tbh:=光标位置-bhdis,linethick0;   
  62.   
  63.   
  64. aldis:=x11[系统参数(1)],linethick0;   
  65. ahdis:=x31[系统参数(1)],linethick0;   
  66. tal:=光标位置-aldis,linethick0;   
  67. tah:=光标位置-ahdis,linethick0;   
  68.   
  69.   
  70.   
  71. K一浪a:=条件函数(tcl>tch,tal+A偏移,tah+A偏移),linethick0;   
  72. K二浪b:=条件函数(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;   
  73. K三浪c:=条件函数(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;   
  74. PH:=最高价;   
  75. PL:=最低价;   
  76.   
  77.   
  78.   
  79. P一浪a:条件函数(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;   
  80. P二浪b:条件函数(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;   
  81. P三浪c:条件函数(tcl>tch,PL[tcl+C偏移],PH[tch+C偏移]),LINETHICK0;   
  82.   
  83.   
  84.   
  85.   
  86. {kdisab:IF(ldis[SYSPARAM(1)]<hdis[SYSPARAM(1)],lldis-hdis,hhdis-ldis),linethick0;   
  87. kc:max(tl,th),linethick0;}   
  88.   
  89. 画直线(数据位置=K一浪a,p一浪a,数据位置=K二浪b,p二浪b,0),color77FFFF,linethick2;   
  90. 画直线(数据位置=K二浪b,p二浪b,数据位置=K三浪c,p三浪c,0),color77FFFF,linethick2,COLORWHITE;   
  91.   
  92. 一浪长:P二浪b-P一浪a,linethick0;   
  93.   
  94.   
  95.   
  96.   
  97. //xx:=x;   
  98. //设置下界(xx,k看);   
  99. {---------------------说话啊-------------------}   
  100.   
  101. y1:一浪长,linethick0;   
  102. P1:P三浪c+y1,linethICK0;   
  103. 画折线(数据位置>=K三浪c,p1),COLORffffff,短虚线;   
  104. 显示文字(数据位置=K三浪c,P1,'1'+'  '+数字转化为字符串(P1,3)),COLORFFFFFF;   
  105.   
  106.   
  107. {☆§-------------------------------------§☆}   
  108.   
  109.   
  110.   
  111.   
  112. 条件函数 参191>-0.5 then   
  113. begin   
  114. 倍数191:=0.191+整体偏移+参191;   
  115. y191:一浪长*倍数191,linethick0;   
  116. P191:=P三浪c+y191,linethick0;   
  117. 画分段线(数据位置>=K三浪c,p191),COLOR0099FF,短虚线;   
  118. 显示文字(数据位置=K三浪c,P191,数字转化为字符串(倍数191,3)+'  '+数字转化为字符串(P191,3)),COLOR0099FF;   
  119. end;   
  120.   
  121. {-------------------------------------}   
  122.   
  123.   
  124.   
  125. 条件函数 参382>-0.5 then   
  126. begin   
  127. 倍数0382:=0.382+整体偏移+参382;   
  128. y0382:一浪长*倍数0382,linethick0;   
  129. P0382:=P三浪c+y0382,linethick0;   
  130. 画分段线(数据位置>=K三浪c,p0382),COLORMAGENTA,短虚线;   
  131. 显示文字(数据位置=K三浪c,P0382,数字转化为字符串(倍数0382,3)+'  '+数字转化为字符串(P0382,3)),COLORMAGENTA;   
  132.   
  133.   
  134. 倍数1382:=1.382+整体偏移+参382;   
  135. y1382:一浪长*倍数1382,linethick0;   
  136. P1382:=P三浪c+y1382,linethick0;   
  137. 画分段线(数据位置>=K三浪c,p1382),COLORMAGENTA,短虚线;   
  138. 显示文字(数据位置=K三浪c,P1382,数字转化为字符串(倍数1382,3)+'  '+数字转化为字符串(P1382,3)),COLORMAGENTA;   
  139.   
  140. 倍数2382:=2.382+整体偏移+参382;   
  141. y2382:一浪长*倍数2382,linethick0;   
  142. P2382:=P三浪c+y2382,linethick0;   
  143. 画分段线(数据位置>=K三浪c,p2382),COLORMAGENTA,短虚线;   
  144. 显示文字(数据位置=K三浪c,P2382,数字转化为字符串(倍数2382,3)+'  '+数字转化为字符串(P2382,3)),COLORMAGENTA;   
  145.   
  146. end;   
  147.   
  148.   
  149. {-------------------------------------}   
  150.   
  151.   
  152.   
  153.   
  154.   
  155.   
  156.   
  157. {-------------------------------------}   
  158.   
  159.   
  160. 条件函数 参5>-0.5 then   
  161. begin   
  162. 倍数5:=0.5+整体偏移+参5;   
  163. y5:一浪长*倍数5,linethick0;   
  164. P5:=P三浪c+y5,linethick0;   
  165. 画分段线(数据位置>=K三浪c,p5),COLOR00FF00,短虚线;   
  166. 显示文字(数据位置=K三浪c,P5,数字转化为字符串(倍数5,1)+'  '+数字转化为字符串(P5,3)),COLOR00FF00;   
  167. end;   
  168.   
  169.   
  170. {-------------------------------------}   
  171.   
  172.   
  173.   
  174. {小花园}   
  175. {-------------------------------------}   
  176.   
  177.   
  178. 条件函数 参618>-0.5 then   
  179. begin   
  180.   
  181.   
  182. 倍数0618:=0.618+整体偏移+参618;   
  183. y0618:一浪长*倍数0618,linethick0;   
  184. P0618:=P三浪c+y0618,linethick0;   
  185. 画分段线(数据位置>=K三浪c,p0618),COLOR00CCFF,短虚线;   
  186. 显示文字(数据位置=K三浪c,P0618,数字转化为字符串(倍数0618,3)+'  '+数字转化为字符串(P0618,3)+' cop'),COLOR00CCFF;   
  187.   
  188.   
  189. 倍数1618:=1.618+整体偏移+参618;   
  190. y1618:一浪长*倍数1618,linethick0;   
  191. P1618:=P三浪c+y1618,linethick0;   
  192. 画分段线(数据位置>=K三浪c,p1618),COLOR00CCFF,短虚线;   
  193. 显示文字(数据位置=K三浪c,P1618,数字转化为字符串(倍数1618,3)+'  '+数字转化为字符串(P1618,3)+' xop'),COLOR00CCFF;   
  194.   
  195.   
  196. {倍数2618:=2.618+整体偏移+参618;   
  197. y2618:一浪长*倍数2618,linethick0;   
  198. P2618:=P三浪c+y2618,linethick0;   
  199. 画分段线(数据位置>=K三浪c,p2618),COLOR00CCFF,短虚线;   
  200. 显示文字(数据位置=K三浪c,P2618,数字转化为字符串(倍数2618,3)+'  '+数字转化为字符串(P2618,3)),COLOR00CCFF;}   
  201.   
  202. end;   
  203.   
  204.   
  205.   
  206. {-------------------------------------}   
  207.   
  208.   
  209.   
  210. {-------------------------------------}   
  211. 条件函数 参壹>-0.5 then   
  212. begin   
  213. 倍数壹:=1+整体偏移+参壹;   
  214. y壹:一浪长*倍数壹,linethick0;   
  215. P壹:P三浪c+y壹,linethICK0;   
  216. 画折线(数据位置>=K三浪c,p壹),COLORffffff,短虚线;   
  217. 显示文字(数据位置=K三浪c,P壹,数字转化为字符串(倍数壹,0)+'  '+数字转化为字符串(P壹,3)+' o p'),COLORFFFFFF;   
  218. {DRAWTEXT(barpos=K三浪c,P1,'1'),COLORFFFFFF;}   
  219.   
  220.   
  221.   
  222. {倍数贰:=2+整体偏移+参壹;   
  223. y贰:一浪长*倍数贰,linethick0;   
  224. P贰:P三浪c+y贰,linethICK0;   
  225. 画折线(数据位置>=K三浪c,p贰),COLORffffff,短虚线;   
  226. 显示文字(数据位置=K三浪c,P贰,数字转化为字符串(倍数贰,0)+'  '+数字转化为字符串(P贰,3)),COLORFFFFFF;}   
  227.   
  228.   
  229. {按照飞狐原有参数，3倍的1这里先隐去，想恢复去掉下边前后的中括号即可}   
  230. {倍数叁:=3+整体偏移+参壹;   
  231. y叁:一浪长*倍数叁,linethick0;   
  232. P叁:P三浪c+y叁,linethICK0;   
  233. POLYLINE(barpos>=K三浪c,p叁),COLORffffff,LINEDOT;   
  234. DRAWTEXT(barpos=K三浪c,P叁,numtostr(倍数叁,0)+'  '+numtostr(P叁,3)),COLORFFFFFF;   
  235.   
  236. }   
  237.   
  238. end;   
  239.   
  240.   
  241. {-------------------------------------}   
  242.   
  243.   
  244. 条件函数 参自定义1>-0.5 then   
  245. begin   
  246. 倍数自定义1:= 参自定义1+整体偏移;   
  247. y自定义1:一浪长*倍数自定义1,linethick0;   
  248. P自定义1:=P三浪c+y自定义1,linethick0;   
  249. 画分段线(数据位置>=K三浪c,p自定义1),COLOR0000FF,短虚线;   
  250. 显示文字(数据位置=K三浪c,P自定义1,数字转化为字符串(倍数自定义1,3)+'  '+数字转化为字符串(P自定义1,3)),COLOR0000FF;   
  251.   
  252. end;   
  253. {-------------------------------------}   
  254.   
  255. 条件函数 参自定义2>-0.5 then   
  256. begin   
  257. 倍数自定义2:= 参自定义2+整体偏移;   
  258. y自定义2:一浪长*倍数自定义2,linethick0;   
  259. P自定义2:=P三浪c+y自定义2,linethick0;   
  260. 画分段线(数据位置>=K三浪c,p自定义2),COLOR0000FF,短虚线;   
  261. 显示文字(数据位置=K三浪c,P自定义2,数字转化为字符串(倍数自定义2,3)+'  '+数字转化为字符串(P自定义2,3)),COLOR0000FF;   
  262.   
  263. end;   
  264.   
  265.          {§历史影响现在，现在影响未来。§}   
  266.   
  267.   
  268. {-------------画k线---------------}   
  269. {觉得k线被线阻挡，就重新画k线}   
  270. {stickline(c>o,c,o,8,1),color5050ff;   
  271. stickline(c>o,h,c,0.5,0),color5050ff;   
  272. stickline(c>o,o,l,0.5,0),color5050ff;   
  273. stickline(c<o,o,c,8,0),colorffff50;   
  274. stickline(c<o,h,c,0.5,0),colorffff50;   
  275. stickline(c<o,o,l,0.5,0),colorffff50;}   
  276.   
  277. 指定位置显示文字(收盘价,1,390,80,   品种代码+'     '+品种名称+'    '),LINETHICK8,COLOR00CCFF;   
  278.   
  279. 指定位置显示文字(收盘价,1,480,130,'☆ 和谐社会  一切皆有可能 ☆'),COLORWHITE;   
  280.   
  281. kk:=动态行情( 3);   
  282. GGC:=kk*0.10;   
  283. Y:=kk+GGC;   
  284. U:=kk-GGC;   
  285. 指定位置显示文字(系统参数(3)=数据位置,0,4,157,'▲涨停价:'+数字转化为字符串(Y,2)),Color8080FF;   
  286. 指定位置显示文字(系统参数(3)=数据位置,0,99,157,'          ▼跌停价:'+数字转化为字符串(U,2)),ColorFFFF00;   
  287.   
  288. MA3X3:MA(CLOSE,3),SHIFT3,colorgreen,linethick1;   
  289. {MA7X5:MA(CLOSE,7),SHIFT5,coloryellow,linethick1;   
  290. MA25X5:MA(CLOSE,25),SHIFT5,colorwhite,linethick2;   
  291. 工作线:ema(c,17),COLORMAGENTA,LINEDOT,linethick1;}   
  292.   
  293. 均线82:=REF(C,1)/REF(C,2)<=0.93 AND BETWEEN(C/REF(C,1),1.03,0.97) and close/ref(close,8)<=0.8 and between(ref(c,2)/ref(c,3),1.04,0.96) and between(ref(c,3)/ref(c,4),1.04,0.96),linethick0,coloryellow;   
  294.   
  295. 涨停选股:均线82,colorwhite,linethick;   
  296. drawicon(涨停选股,l,6);   
  297.   
  298. AA:=EMA(C,8);   
  299. BB:=EMA(C,17);   
  300. CC:=EMA(AA-BB,9);   
  301. DMP:9*REF(CC,1)-7*REF(AA,1)+8*REF(BB,1),colorred;   
  302.   
  303. VAR1:=((((HIGH + LOW) + OPEN) + (2 * CLOSE)) / 5);   
  304. VAR2:=REF(VAR1,1);   
  305. VAR3:=((SMA(MAX((VAR1 - VAR2),0),10,1) / SMA(ABS((VAR1 - VAR2)),10,1)) * 100);   
  306. 涨:FILTER(IF(((((COUNT((VAR3 < 20),5) >= 1) AND (COUNT((VAR1 = LLV(VAR1,10)),10) >= 1)) AND (CLOSE >= (OPEN * 1.038))) AND (VOL > (MA(VOL,5) * 1.2))),1,0),5),linethick;   
  307. DRAWICON(涨,LOW,1);   

 

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

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