?

?

{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;{<波浪尺>原來(lái)比例 的公式）使用 X1835}

{☆§提示：1學(xué)習(xí)波浪知識(shí)的同學(xué)所使用，

2計(jì)算機(jī)畫(huà)線不能代替手工作圖。

3確定歷史數(shù)據(jù)完整。

4只用在飛狐}

?

{☆§說(shuō)明: 1考慮到期貨中三浪常打破一浪底，所以就對(duì)P一浪A和P三浪C沒(méi)有定高低的關(guān)系限制，且在延長(zhǎng)浪中也可見(jiàn)機(jī)使用

2公式必須由使用者打出十字光標(biāo)后，并且選擇參數(shù)才能使用，

3調(diào)整參5和參236的數(shù)值就可以打開(kāi)0.5和0.236倍數(shù)的線。

0.382和0.618的倍數(shù)取了3組數(shù)（例：0.382，1.382 2.382三組）根據(jù)飛狐原有的1的倍數(shù)取了2組數(shù)，第三組可以修改公式 里的內(nèi)容打開(kāi)第三組。

準(zhǔn)備了0.5和0.236的備選。

還有2個(gè)自定義的數(shù)字，由使用者自己寫(xiě)入所需的比例數(shù)值。}

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;光標(biāo)位置:=SYSPARAM(1),linethick0;

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

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

tcl:=光標(biāo)位置-cldis,linethick0;

tch:=光標(biāo)位置-chdis,linethick0;bldis:=x18[SYSPARAM(1)],linethick0;

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

tbl:=光標(biāo)位置-bldis,linethick0;

tbh:=光標(biāo)位置-bhdis,linethick0;

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

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

tal:=光標(biāo)位置-aldis,linethick0;

tah:=光標(biāo)位置-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;一浪長(zhǎng):P二浪b-P一浪a,linethick0;

//xx:=x;

//SETLBOUND(xx,k看);

{---------------------說(shuō)話啊-------------------}y1:一浪長(zhǎng),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

倍數(shù)191:=0.191+整體偏移+參191;

y191:一浪長(zhǎng)*倍數(shù)191,linethick0;

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

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

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

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

begin

倍數(shù)0382:=0.382+整體偏移+參382;

y0382:一浪長(zhǎng)*倍數(shù)0382,linethick0;

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

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

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

倍數(shù)1382:=1.382+整體偏移+參382;

y1382:一浪長(zhǎng)*倍數(shù)1382,linethick0;

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

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

DRAWTEXT(BARPOS=K三浪c,P1382,NUMTOSTR(倍數(shù)1382,3)+' '+NUMTOSTR(P1382,3)),COLORMAGENTA;倍數(shù)2382:=2.382+整體偏移+參382;

y2382:一浪長(zhǎng)*倍數(shù)2382,linethick0;

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

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

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

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

IF 參5>-0.5 then

begin

倍數(shù)5:=0.5+整體偏移+參5;

y5:一浪長(zhǎng)*倍數(shù)5,linethick0;

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

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

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

end;

{-------------------------------------}{小花園}

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

IF 參618>-0.5 then

begin

倍數(shù)0618:=0.618+整體偏移+參618;

y0618:一浪長(zhǎng)*倍數(shù)0618,linethick0;

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

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

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

倍數(shù)1618:=1.618+整體偏移+參618;

y1618:一浪長(zhǎng)*倍數(shù)1618,linethick0;

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

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

DRAWTEXT(BARPOS=K三浪c,P1618,NUMTOSTR(倍數(shù)1618,3)+' '+NUMTOSTR(P1618,3)+' xop'),COLOR00CCFF;

{倍數(shù)2618:=2.618+整體偏移+參618;

y2618:一浪長(zhǎng)*倍數(shù)2618,linethick0;

P2618:=P三浪c+y2618,linethick0;

畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p2618),COLOR00CCFF,短虛線;

顯示文字(數(shù)據(jù)位置=K三浪c,P2618,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)2618,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P2618,3)),COLOR00CCFF;}end;

?

?

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?

{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);
畫(huà)柱線(收盤(pán)價(jià)>開(kāi)盤(pán)價(jià) OR 收盤(pán)價(jià)=開(kāi)盤(pán)價(jià) AND 收盤(pán)價(jià)>向前引用(收盤(pán)價(jià),1),最低價(jià),最高價(jià),0.5,0),LINETHICK5,color10000;
畫(huà)柱線(收盤(pán)價(jià)>開(kāi)盤(pán)價(jià) OR 收盤(pán)價(jià)=開(kāi)盤(pán)價(jià) AND 收盤(pán)價(jià)>向前引用(收盤(pán)價(jià),1),開(kāi)盤(pán)價(jià),收盤(pán)價(jià),9,0),LINETHICK5,color10000;
畫(huà)柱線(收盤(pán)價(jià)<開(kāi)盤(pán)價(jià) OR 收盤(pán)價(jià)=開(kāi)盤(pán)價(jià) AND 收盤(pán)價(jià)<=向前引用(收盤(pán)價(jià),1),最低價(jià),最高價(jià),0.5,0),LINETHICK5,color10000;
畫(huà)柱線(收盤(pán)價(jià)<開(kāi)盤(pán)價(jià) OR 收盤(pán)價(jià)=開(kāi)盤(pán)價(jià) AND 收盤(pán)價(jià)<=向前引用(收盤(pán)價(jià),1),開(kāi)盤(pán)價(jià),收盤(pán)價(jià),9,0),LINETHICK5,color10000;
畫(huà)柱線(收盤(pán)價(jià)>=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),8,0),color000055;
畫(huà)柱線(收盤(pán)價(jià)>=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),6,0),color000099;
畫(huà)柱線(收盤(pán)價(jià)>=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),4,0),color0000dd;
畫(huà)柱線(收盤(pán)價(jià)>=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),2,0),color0000ff;
畫(huà)柱線(收盤(pán)價(jià)>=開(kāi)盤(pán)價(jià),最高價(jià),最低價(jià),0,0),colorred;
畫(huà)柱線(收盤(pán)價(jià)<=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),8,0),color009900;
畫(huà)柱線(收盤(pán)價(jià)<=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),6,0),color00aa00;
畫(huà)柱線(收盤(pán)價(jià)<=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),4,0),color00bb00;
畫(huà)柱線(收盤(pán)價(jià)<=開(kāi)盤(pán)價(jià),收盤(pán)價(jià),開(kāi)盤(pán)價(jià),2,0),color00dd00;
畫(huà)柱線(收盤(pán)價(jià)<=開(kāi)盤(pán)價(jià),最高價(jià),最低價(jià),0,0),color009900;{<波浪尺>原來(lái)比例 的公式）使用 X1835}
{☆§提示：1學(xué)習(xí)波浪知識(shí)的同學(xué)所使用，
2計(jì)算機(jī)畫(huà)線不能代替手工作圖。
3確定歷史數(shù)據(jù)完整。
4只用在飛狐}

{☆§說(shuō)明: 1考慮到期貨中三浪常打破一浪底，所以就對(duì)P一浪A和P三浪C沒(méi)有定高低的關(guān)系限制，且在延長(zhǎng)浪中也可見(jiàn)機(jī)使用
2公式必須由使用者打出十字光標(biāo)后，并且選擇參數(shù)才能使用，
3調(diào)整參5和參236的數(shù)值就可以打開(kāi)0.5和0.236倍數(shù)的線。
0.382和0.618的倍數(shù)取了3組數(shù)（例：0.382，1.382 2.382三組）根據(jù)飛狐原有的1的倍數(shù)取了2組數(shù)，第三組可以修改公式 里的內(nèi)容打開(kāi)第三組。
準(zhǔn)備了0.5和0.236的備選。
還有2個(gè)自定義的數(shù)字，由使用者自己寫(xiě)入所需的比例數(shù)值。}
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個(gè)波谷值(4,p,1);//數(shù)據(jù)位置
x8:=前M個(gè)波谷位置(4,p,1)=0;
x11:=前M個(gè)波谷位置(4,p,參a);
x18:=前M個(gè)波谷位置(4,p,參b);
x13:=前M個(gè)波谷位置(4,p,參c);
x3:=前M個(gè)波峰值(4,p,1);
x31:=前M個(gè)波峰位置(4,p,參a);
x38:=前M個(gè)波峰位置(4,p,參b);
x33:=前M個(gè)波峰位置(4,p,參c);x5:=前M個(gè)波峰位置(4,p,1)=0;光標(biāo)位置:=系統(tǒng)參數(shù)(1),linethick0;
cldis:=x13[系統(tǒng)參數(shù)(1)],linethick0;
chdis:=x33[系統(tǒng)參數(shù)(1)],linethick0;
tcl:=光標(biāo)位置-cldis,linethick0;
tch:=光標(biāo)位置-chdis,linethick0;bldis:=x18[系統(tǒng)參數(shù)(1)],linethick0;
bhdis:=x38[系統(tǒng)參數(shù)(1)],linethick0;
tbl:=光標(biāo)位置-bldis,linethick0;
tbh:=光標(biāo)位置-bhdis,linethick0;
aldis:=x11[系統(tǒng)參數(shù)(1)],linethick0;
ahdis:=x31[系統(tǒng)參數(shù)(1)],linethick0;
tal:=光標(biāo)位置-aldis,linethick0;
tah:=光標(biāo)位置-ahdis,linethick0;K一浪a:=條件函數(shù)(tcl>tch,tal+A偏移,tah+A偏移),linethick0;
K二浪b:=條件函數(shù)(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;
K三浪c:=條件函數(shù)(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;
PH:=最高價(jià);
PL:=最低價(jià);P一浪a:條件函數(shù)(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;
P二浪b:條件函數(shù)(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;
P三浪c:條件函數(shù)(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;}畫(huà)直線(數(shù)據(jù)位置=K一浪a,p一浪a,數(shù)據(jù)位置=K二浪b,p二浪b,0),color77FFFF,linethick2;
畫(huà)直線(數(shù)據(jù)位置=K二浪b,p二浪b,數(shù)據(jù)位置=K三浪c,p三浪c,0),color77FFFF,linethick2,COLORWHITE;一浪長(zhǎng):P二浪b-P一浪a,linethick0;
//xx:=x;
//設(shè)置下界(xx,k看);
{---------------------說(shuō)話啊-------------------}y1:一浪長(zhǎng),linethick0;
P1:P三浪c+y1,linethICK0;
畫(huà)折線(數(shù)據(jù)位置>=K三浪c,p1),COLORffffff,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P1,'1'+' '+數(shù)字轉(zhuǎn)化為字符串(P1,3)),COLORFFFFFF;
{☆§-------------------------------------§☆}
條件函數(shù) 參191>-0.5 then
begin
倍數(shù)191:=0.191+整體偏移+參191;
y191:一浪長(zhǎng)*倍數(shù)191,linethick0;
P191:=P三浪c+y191,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p191),COLOR0099FF,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P191,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)191,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P191,3)),COLOR0099FF;
end;{-------------------------------------}條件函數(shù) 參382>-0.5 then
begin
倍數(shù)0382:=0.382+整體偏移+參382;
y0382:一浪長(zhǎng)*倍數(shù)0382,linethick0;
P0382:=P三浪c+y0382,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p0382),COLORMAGENTA,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P0382,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)0382,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P0382,3)),COLORMAGENTA;
倍數(shù)1382:=1.382+整體偏移+參382;
y1382:一浪長(zhǎng)*倍數(shù)1382,linethick0;
P1382:=P三浪c+y1382,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p1382),COLORMAGENTA,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P1382,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)1382,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P1382,3)),COLORMAGENTA;倍數(shù)2382:=2.382+整體偏移+參382;
y2382:一浪長(zhǎng)*倍數(shù)2382,linethick0;
P2382:=P三浪c+y2382,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p2382),COLORMAGENTA,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P2382,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)2382,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P2382,3)),COLORMAGENTA;end;
{-------------------------------------}{-------------------------------------}
條件函數(shù) 參5>-0.5 then
begin
倍數(shù)5:=0.5+整體偏移+參5;
y5:一浪長(zhǎng)*倍數(shù)5,linethick0;
P5:=P三浪c+y5,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p5),COLOR00FF00,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P5,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)5,1)+' '+數(shù)字轉(zhuǎn)化為字符串(P5,3)),COLOR00FF00;
end;
{-------------------------------------}{小花園}
{-------------------------------------}
條件函數(shù) 參618>-0.5 then
begin
倍數(shù)0618:=0.618+整體偏移+參618;
y0618:一浪長(zhǎng)*倍數(shù)0618,linethick0;
P0618:=P三浪c+y0618,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p0618),COLOR00CCFF,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P0618,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)0618,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P0618,3)+' cop'),COLOR00CCFF;
倍數(shù)1618:=1.618+整體偏移+參618;
y1618:一浪長(zhǎng)*倍數(shù)1618,linethick0;
P1618:=P三浪c+y1618,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p1618),COLOR00CCFF,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P1618,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)1618,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P1618,3)+' xop'),COLOR00CCFF;
{倍數(shù)2618:=2.618+整體偏移+參618;
y2618:一浪長(zhǎng)*倍數(shù)2618,linethick0;
P2618:=P三浪c+y2618,linethick0;
畫(huà)分段線(數(shù)據(jù)位置>=K三浪c,p2618),COLOR00CCFF,短虛線;
顯示文字(數(shù)據(jù)位置=K三浪c,P2618,數(shù)字轉(zhuǎn)化為字符串(倍數(shù)2618,3)+' '+數(shù)字轉(zhuǎn)化為字符串(P2618,3)),COLOR00CCFF;}end;