蒂纳波利点位源码
-
相关简介:C/C++ Code 复制内容到剪贴板 p10130 参A21111 参B11111 参C11111 画柱线(收盘价开盘价OR收盘价=开盘价AND收盘价向前引用(收盘价,1),最低价,最高价,0.5,0),LINETHICK5,color10000; &
-
文章来源:择股网作者:股海网发布时间:2009-11-15浏览次数:
C/C++ Code复制内容到剪贴板
- p 10 1 30
- 参A 2 1 111
- 参B 1 1 111
- 参C 1 1 111
- 画柱线(收盘价>开盘价 OR 收盘价=开盘价 AND 收盘价>向前引用(收盘价,1),最低价,最高价,0.5,0),LINETHICK5,color10000;
- 画柱线(收盘价>开盘价 OR 收盘价=开盘价 AND 收盘价>向前引用(收盘价,1),开盘价,收盘价,9,0),LINETHICK5,color10000;
- 画柱线(收盘价<开盘价 OR 收盘价=开盘价 AND 收盘价<=向前引用(收盘价,1),最低价,最高价,0.5,0),LINETHICK5,color10000;
- 画柱线(收盘价<开盘价 OR 收盘价=开盘价 AND 收盘价<=向前引用(收盘价,1),开盘价,收盘价,9,0),LINETHICK5,color10000;
- 画柱线(收盘价>=开盘价,收盘价,开盘价,8,0),color000055;
- 画柱线(收盘价>=开盘价,收盘价,开盘价,6,0),color000099;
- 画柱线(收盘价>=开盘价,收盘价,开盘价,4,0),color0000dd;
- 画柱线(收盘价>=开盘价,收盘价,开盘价,2,0),color0000ff;
- 画柱线(收盘价>=开盘价,最高价,最低价,0,0),colorred;
- 画柱线(收盘价<=开盘价,收盘价,开盘价,8,0),color009900;
- 画柱线(收盘价<=开盘价,收盘价,开盘价,6,0),color00aa00;
- 画柱线(收盘价<=开盘价,收盘价,开盘价,4,0),color00bb00;
- 画柱线(收盘价<=开盘价,收盘价,开盘价,2,0),color00dd00;
- 画柱线(收盘价<=开盘价,最高价,最低价,0,0),color009900;
- {<波浪尺>原来比例 的公式)使用 X1835}
- {☆§提示:1学习波浪知识的同学所使用,
- 2计算机画线不能代替手工作图。
- 3确定历史数据完整。
- 4只用在飞狐}
- {☆§说明: 1考虑到期货中三浪常打破一浪底,所以就对P一浪A和P三浪C没有定高低的关系限制,且在延长浪中也可见机使用
- 2公式必须由使用者打出十字光标后,并且选择参数才能使用,
- 3调整参5和参236的数值就可以打开0.5和0.236倍数的线。
- 0.382和0.618的倍数取了3组数(例:0.382,1.382 2.382三组)根据飞狐原有的1的倍数取了2组数,第三组可以修改公式 里的内容打开第三组。
- 准备了0.5和0.236的备选。
- 还有2个自定义的数字,由使用者自己写入所需的比例数值。}
- 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);
- x1:=前M个波谷值(4,p,1);//数据位置
- x8:=前M个波谷位置(4,p,1)=0;
- x11:=前M个波谷位置(4,p,参a);
- x18:=前M个波谷位置(4,p,参b);
- x13:=前M个波谷位置(4,p,参c);
- x3:=前M个波峰值(4,p,1);
- x31:=前M个波峰位置(4,p,参a);
- x38:=前M个波峰位置(4,p,参b);
- x33:=前M个波峰位置(4,p,参c);
- x5:=前M个波峰位置(4,p,1)=0;
- 光标位置:=系统参数(1),linethick0;
- cldis:=x13[系统参数(1)],linethick0;
- chdis:=x33[系统参数(1)],linethick0;
- tcl:=光标位置-cldis,linethick0;
- tch:=光标位置-chdis,linethick0;
- bldis:=x18[系统参数(1)],linethick0;
- bhdis:=x38[系统参数(1)],linethick0;
- tbl:=光标位置-bldis,linethick0;
- tbh:=光标位置-bhdis,linethick0;
- aldis:=x11[系统参数(1)],linethick0;
- ahdis:=x31[系统参数(1)],linethick0;
- tal:=光标位置-aldis,linethick0;
- tah:=光标位置-ahdis,linethick0;
- K一浪a:=条件函数(tcl>tch,tal+A偏移,tah+A偏移),linethick0;
- K二浪b:=条件函数(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;
- K三浪c:=条件函数(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;
- PH:=最高价;
- PL:=最低价;
- P一浪a:条件函数(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;
- P二浪b:条件函数(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;
- P三浪c:条件函数(tcl>tch,PL[tcl+C偏移],PH[tch+C偏移]),LINETHICK0;
- {kdisab:IF(ldis[SYSPARAM(1)]<hdis[SYSPARAM(1)],lldis-hdis,hhdis-ldis),linethick0;
- kc:max(tl,th),linethick0;}
- 画直线(数据位置=K一浪a,p一浪a,数据位置=K二浪b,p二浪b,0),color77FFFF,linethick2;
- 画直线(数据位置=K二浪b,p二浪b,数据位置=K三浪c,p三浪c,0),color77FFFF,linethick2,COLORWHITE;
- 一浪长:P二浪b-P一浪a,linethick0;
- //xx:=x;
- //设置下界(xx,k看);
- {---------------------说话啊-------------------}
- y1:一浪长,linethick0;
- P1:P三浪c+y1,linethICK0;
- 画折线(数据位置>=K三浪c,p1),COLORffffff,短虚线;
- 显示文字(数据位置=K三浪c,P1,'1'+' '+数字转化为字符串(P1,3)),COLORFFFFFF;
- {☆§-------------------------------------§☆}
- 条件函数 参191>-0.5 then
- begin
- 倍数191:=0.191+整体偏移+参191;
- y191:一浪长*倍数191,linethick0;
- P191:=P三浪c+y191,linethick0;
- 画分段线(数据位置>=K三浪c,p191),COLOR0099FF,短虚线;
- 显示文字(数据位置=K三浪c,P191,数字转化为字符串(倍数191,3)+' '+数字转化为字符串(P191,3)),COLOR0099FF;
- end;
- {-------------------------------------}
- 条件函数 参382>-0.5 then
- begin
- 倍数0382:=0.382+整体偏移+参382;
- y0382:一浪长*倍数0382,linethick0;
- P0382:=P三浪c+y0382,linethick0;
- 画分段线(数据位置>=K三浪c,p0382),COLORMAGENTA,短虚线;
- 显示文字(数据位置=K三浪c,P0382,数字转化为字符串(倍数0382,3)+' '+数字转化为字符串(P0382,3)),COLORMAGENTA;
- 倍数1382:=1.382+整体偏移+参382;
- y1382:一浪长*倍数1382,linethick0;
- P1382:=P三浪c+y1382,linethick0;
- 画分段线(数据位置>=K三浪c,p1382),COLORMAGENTA,短虚线;
- 显示文字(数据位置=K三浪c,P1382,数字转化为字符串(倍数1382,3)+' '+数字转化为字符串(P1382,3)),COLORMAGENTA;
- 倍数2382:=2.382+整体偏移+参382;
- y2382:一浪长*倍数2382,linethick0;
- P2382:=P三浪c+y2382,linethick0;
- 画分段线(数据位置>=K三浪c,p2382),COLORMAGENTA,短虚线;
- 显示文字(数据位置=K三浪c,P2382,数字转化为字符串(倍数2382,3)+' '+数字转化为字符串(P2382,3)),COLORMAGENTA;
- end;
- {-------------------------------------}
- {-------------------------------------}
- 条件函数 参5>-0.5 then
- begin
- 倍数5:=0.5+整体偏移+参5;
- y5:一浪长*倍数5,linethick0;
- P5:=P三浪c+y5,linethick0;
- 画分段线(数据位置>=K三浪c,p5),COLOR00FF00,短虚线;
- 显示文字(数据位置=K三浪c,P5,数字转化为字符串(倍数5,1)+' '+数字转化为字符串(P5,3)),COLOR00FF00;
- end;
- {-------------------------------------}
- {小花园}
- {-------------------------------------}
- 条件函数 参618>-0.5 then
- begin
- 倍数0618:=0.618+整体偏移+参618;
- y0618:一浪长*倍数0618,linethick0;
- P0618:=P三浪c+y0618,linethick0;
- 画分段线(数据位置>=K三浪c,p0618),COLOR00CCFF,短虚线;
- 显示文字(数据位置=K三浪c,P0618,数字转化为字符串(倍数0618,3)+' '+数字转化为字符串(P0618,3)+' cop'),COLOR00CCFF;
- 倍数1618:=1.618+整体偏移+参618;
- y1618:一浪长*倍数1618,linethick0;
- P1618:=P三浪c+y1618,linethick0;
- 画分段线(数据位置>=K三浪c,p1618),COLOR00CCFF,短虚线;
- 显示文字(数据位置=K三浪c,P1618,数字转化为字符串(倍数1618,3)+' '+数字转化为字符串(P1618,3)+' xop'),COLOR00CCFF;
- {倍数2618:=2.618+整体偏移+参618;
- y2618:一浪长*倍数2618,linethick0;
- P2618:=P三浪c+y2618,linethick0;
- 画分段线(数据位置>=K三浪c,p2618),COLOR00CCFF,短虚线;
- 显示文字(数据位置=K三浪c,P2618,数字转化为字符串(倍数2618,3)+' '+数字转化为字符串(P2618,3)),COLOR00CCFF;}
- end;
- {-------------------------------------}
- {-------------------------------------}
- 条件函数 参壹>-0.5 then
- begin
- 倍数壹:=1+整体偏移+参壹;
- y壹:一浪长*倍数壹,linethick0;
- P壹:P三浪c+y壹,linethICK0;
- 画折线(数据位置>=K三浪c,p壹),COLORffffff,短虚线;
- 显示文字(数据位置=K三浪c,P壹,数字转化为字符串(倍数壹,0)+' '+数字转化为字符串(P壹,3)+' o p'),COLORFFFFFF;
- {DRAWTEXT(barpos=K三浪c,P1,'1'),COLORFFFFFF;}
- {倍数贰:=2+整体偏移+参壹;
- y贰:一浪长*倍数贰,linethick0;
- P贰:P三浪c+y贰,linethICK0;
- 画折线(数据位置>=K三浪c,p贰),COLORffffff,短虚线;
- 显示文字(数据位置=K三浪c,P贰,数字转化为字符串(倍数贰,0)+' '+数字转化为字符串(P贰,3)),COLORFFFFFF;}
- {按照飞狐原有参数,3倍的1这里先隐去,想恢复去掉下边前后的中括号即可}
- {倍数叁:=3+整体偏移+参壹;
- y叁:一浪长*倍数叁,linethick0;
- P叁:P三浪c+y叁,linethICK0;
- POLYLINE(barpos>=K三浪c,p叁),COLORffffff,LINEDOT;
- DRAWTEXT(barpos=K三浪c,P叁,numtostr(倍数叁,0)+' '+numtostr(P叁,3)),COLORFFFFFF;
- }
- end;
- {-------------------------------------}
- 条件函数 参自定义1>-0.5 then
- begin
- 倍数自定义1:= 参自定义1+整体偏移;
- y自定义1:一浪长*倍数自定义1,linethick0;
- P自定义1:=P三浪c+y自定义1,linethick0;
- 画分段线(数据位置>=K三浪c,p自定义1),COLOR0000FF,短虚线;
- 显示文字(数据位置=K三浪c,P自定义1,数字转化为字符串(倍数自定义1,3)+' '+数字转化为字符串(P自定义1,3)),COLOR0000FF;
- end;
- {-------------------------------------}
- 条件函数 参自定义2>-0.5 then
- begin
- 倍数自定义2:= 参自定义2+整体偏移;
- y自定义2:一浪长*倍数自定义2,linethick0;
- P自定义2:=P三浪c+y自定义2,linethick0;
- 画分段线(数据位置>=K三浪c,p自定义2),COLOR0000FF,短虚线;
- 显示文字(数据位置=K三浪c,P自定义2,数字转化为字符串(倍数自定义2,3)+' '+数字转化为字符串(P自定义2,3)),COLOR0000FF;
- end;
- {§历史影响现在,现在影响未来。§}
- {-------------画k线---------------}
- {觉得k线被线阻挡,就重新画k线}
- {stickline(c>o,c,o,8,1),color5050ff;
- stickline(c>o,h,c,0.5,0),color5050ff;
- stickline(c>o,o,l,0.5,0),color5050ff;
- stickline(c<o,o,c,8,0),colorffff50;
- stickline(c<o,h,c,0.5,0),colorffff50;
- stickline(c<o,o,l,0.5,0),colorffff50;}
- 指定位置显示文字(收盘价,1,390,80, 品种代码+' '+品种名称+' '),LINETHICK8,COLOR00CCFF;
- 指定位置显示文字(收盘价,1,480,130,'☆ 和谐社会 一切皆有可能 ☆'),COLORWHITE;
- kk:=动态行情( 3);
- GGC:=kk*0.10;
- Y:=kk+GGC;
- U:=kk-GGC;
- 指定位置显示文字(系统参数(3)=数据位置,0,4,157,'▲涨停价:'+数字转化为字符串(Y,2)),Color8080FF;
- 指定位置显示文字(系统参数(3)=数据位置,0,99,157,' ▼跌停价:'+数字转化为字符串(U,2)),ColorFFFF00;
- MA3X3:MA(CLOSE,3),SHIFT3,colorgreen,linethick1;
- {MA7X5:MA(CLOSE,7),SHIFT5,coloryellow,linethick1;
- MA25X5:MA(CLOSE,25),SHIFT5,colorwhite,linethick2;
- 工作线:ema(c,17),COLORMAGENTA,LINEDOT,linethick1;}
- 均线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;
- 涨停选股:均线82,colorwhite,linethick;
- drawicon(涨停选股,l,6);
- AA:=EMA(C,8);
- BB:=EMA(C,17);
- CC:=EMA(AA-BB,9);
- DMP:9*REF(CC,1)-7*REF(AA,1)+8*REF(BB,1),colorred;
- VAR1:=((((HIGH + LOW) + OPEN) + (2 * CLOSE)) / 5);
- VAR2:=REF(VAR1,1);
- VAR3:=((SMA(MAX((VAR1 - VAR2),0),10,1) / SMA(ABS((VAR1 - VAR2)),10,1)) * 100);
- 涨: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;
- DRAWICON(涨,LOW,1);