您现在的位置:程序化交易>> 股票公式>> 其他>> 其他软件公式>>正文内容

飞狐蒂纳波利点位 指标 公式 源码[其他软件公式]

 

 

{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);

STICKLINE(C>O OR C=O AND C>REF(C,1),L,H,0.5,0),LINETHICK5,color10000;

STICKLINE(C>O OR C=O AND C>REF(C,1),O,C,9,0),LINETHICK5,color10000;

STICKLINE(C<O OR C=O AND C<=REF(C,1),L,H,0.5,0),LINETHICK5,color10000;

STICKLINE(C<O OR C=O AND C<=REF(C,1),O,C,9,0),LINETHICK5,color10000;

STICKLINE(C>=O,C,O,8,0),color000055;

STICKLINE(C>=O,C,O,6,0),color000099;

STICKLINE(C>=O,C,O,4,0),color0000dd;

STICKLINE(C>=O,C,O,2,0),color0000ff;

STICKLINE(C>=O,H,L,0,0),colorred;

STICKLINE(C<=O,C,O,8,0),color009900;

STICKLINE(C<=O,C,O,6,0),color00aa00;

STICKLINE(C<=O,C,O,4,0),color00bb00;

STICKLINE(C<=O,C,O,2,0),color00dd00;

STICKLINE(C<=O,H,L,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:=TROUGH(4,p,1);//BARPOS

x8:=TROUGHBARS(4,p,1)=0;

x11:=TROUGHBARS(4,p,参a);

x18:=TROUGHBARS(4,p,参b);

x13:=TROUGHBARS(4,p,参c);

x3:=PEAK(4,p,1);

x31:=PEAKBARS(4,p,参a);

x38:=PEAKBARS(4,p,参b);

x33:=PEAKBARS(4,p,参c);x5:=PEAKBARS(4,p,1)=0;光标位置:=SYSPARAM(1),linethick0;

cldis:=x13[SYSPARAM(1)],linethick0;

chdis:=x33[SYSPARAM(1)],linethick0;

tcl:=光标位置-cldis,linethick0;

tch:=光标位置-chdis,linethick0;bldis:=x18[SYSPARAM(1)],linethick0;

bhdis:=x38[SYSPARAM(1)],linethick0;

tbl:=光标位置-bldis,linethick0;

tbh:=光标位置-bhdis,linethick0;

aldis:=x11[SYSPARAM(1)],linethick0;

ahdis:=x31[SYSPARAM(1)],linethick0;

tal:=光标位置-aldis,linethick0;

tah:=光标位置-ahdis,linethick0;K一浪a:=IF(tcl>tch,tal+A偏移,tah+A偏移),linethick0;

K二浪b:=IF(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;

K三浪c:=IF(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;

PH:=H;

PL:=L;P一浪a:IF(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;

P二浪b:IF(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;

P三浪c:IF(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;}DRAWLINE(BARPOS=K一浪a,p一浪a,BARPOS=K二浪b,p二浪b,0),color77FFFF,linethick2;

DRAWLINE(BARPOS=K二浪b,p二浪b,BARPOS=K三浪c,p三浪c,0),color77FFFF,linethick2,COLORWHITE;一浪长:P二浪b-P一浪a,linethick0;

//xx:=x;

//SETLBOUND(xx,k看);

{---------------------说话啊-------------------}y1:一浪长,linethick0;

P1:P三浪c+y1,linethICK0;

POLYLINE(BARPOS>=K三浪c,p1),COLORffffff,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P1,'1'+' '+NUMTOSTR(P1,3)),COLORFFFFFF;

{☆§-------------------------------------§☆}

IF 参191>-0.5 then

begin

倍数191:=0.191+整体偏移+参191;

y191:一浪长*倍数191,linethick0;

P191:=P三浪c+y191,linethick0;

PARTLINE(BARPOS>=K三浪c,p191),COLOR0099FF,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P191,NUMTOSTR(倍数191,3)+' '+NUMTOSTR(P191,3)),COLOR0099FF;

end;{-------------------------------------}IF 参382>-0.5 then

begin

倍数0382:=0.382+整体偏移+参382;

y0382:一浪长*倍数0382,linethick0;

P0382:=P三浪c+y0382,linethick0;

PARTLINE(BARPOS>=K三浪c,p0382),COLORMAGENTA,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P0382,NUMTOSTR(倍数0382,3)+' '+NUMTOSTR(P0382,3)),COLORMAGENTA;

倍数1382:=1.382+整体偏移+参382;

y1382:一浪长*倍数1382,linethick0;

P1382:=P三浪c+y1382,linethick0;

PARTLINE(BARPOS>=K三浪c,p1382),COLORMAGENTA,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P1382,NUMTOSTR(倍数1382,3)+' '+NUMTOSTR(P1382,3)),COLORMAGENTA;倍数2382:=2.382+整体偏移+参382;

y2382:一浪长*倍数2382,linethick0;

P2382:=P三浪c+y2382,linethick0;

PARTLINE(BARPOS>=K三浪c,p2382),COLORMAGENTA,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P2382,NUMTOSTR(倍数2382,3)+' '+NUMTOSTR(P2382,3)),COLORMAGENTA;end;

{-------------------------------------}{-------------------------------------}

IF 参5>-0.5 then

begin

倍数5:=0.5+整体偏移+参5;

y5:一浪长*倍数5,linethick0;

P5:=P三浪c+y5,linethick0;

PARTLINE(BARPOS>=K三浪c,p5),COLOR00FF00,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P5,NUMTOSTR(倍数5,1)+' '+NUMTOSTR(P5,3)),COLOR00FF00;

end;

{-------------------------------------}{小花园}

{-------------------------------------}

IF 参618>-0.5 then

begin

倍数0618:=0.618+整体偏移+参618;

y0618:一浪长*倍数0618,linethick0;

P0618:=P三浪c+y0618,linethick0;

PARTLINE(BARPOS>=K三浪c,p0618),COLOR00CCFF,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P0618,NUMTOSTR(倍数0618,3)+' '+NUMTOSTR(P0618,3)+' cop'),COLOR00CCFF;

倍数1618:=1.618+整体偏移+参618;

y1618:一浪长*倍数1618,linethick0;

P1618:=P三浪c+y1618,linethick0;

PARTLINE(BARPOS>=K三浪c,p1618),COLOR00CCFF,LINEDOT;

DRAWTEXT(BARPOS=K三浪c,P1618,NUMTOSTR(倍数1618,3)+' '+NUMTOSTR(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;

 

 

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程

 

{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;

 

有思路,想编写各种指标公式,交易模型,选股公式,还原公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流或微信:cxhjy888 进行 有偿收费 编写!(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

怎么收费,代编流程等详情请点击查阅!

(注:由于人数限制,QQ或微信请选择方便的一个联系我们就行,加好友时请简单备注下您的需求,否则无法通过。谢谢您!)

 


【字体: 】【打印文章】【查看评论

相关文章

    没有相关内容