软件名称：[B]蒂纳波利点位[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：6.00 KB
官方主页：Home Page
更新时间：2009-11-16 13:32:58
软件简介:
{p 10 1 30
参A 2 1 111
参B 1 1 111
参C 1 1 111}
input:p(10),参A(2),参B(1),参C(1);
画柱线(收盘价>开盘价 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;
{-------------------------------------}
{-----------
[url=http://www.70822.com/soft/sort013/sort02/down-14459.html]蒂纳波利点位[/url]