打印本文
關閉窗口
?
?
{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;