奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 波浪數浪公式 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=10398)

波浪數浪公式

n:5

kxs:=sysparam(2);
dsj:=1;
GET:zig(3,n),coloryellow;

pl5:=zig(3,5)*dsj;
en1:=zig(3,5)>ref(zig(3,5),1) and ref(zig(3,5),1)<=ref(zig(3,5),2) and ref(zig(3,5),2)<=ref(zig(3,5),3)*dsj;
ex1:=zig(3,5)<ref(zig(3,5),1) and ref(zig(3,5),1)>=ref(zig(3,5),2) and ref(zig(3,5),2)>=ref(zig(3,5),3)*dsj;

pl10:=zig(3,10)*dsj;
en2:=zig(3,10)>ref(zig(3,10),1) and ref(zig(3,10),1)<=ref(zig(3,10),2) and ref(zig(3,10),2)<=ref(zig(3,10),3)*dsj;
ex2:=zig(3,10)<ref(zig(3,10),1) and ref(zig(3,10),1)>=ref(zig(3,10),2) and ref(zig(3,10),2)>=ref(zig(3,10),3)*dsj;

pl20:=zig(3,20)*dsj;
en3:=zig(3,20)>ref(zig(3,20),1) and ref(zig(3,20),1)<=ref(zig(3,20),2) and ref(zig(3,20),2)<=ref(zig(3,20),3)*dsj;
ex3:=zig(3,20)<ref(zig(3,20),1) and ref(zig(3,20),1)>=ref(zig(3,20),2) and ref(zig(3,20),2)>=ref(zig(3,20),3)*dsj;

pl40:=zig(3,40)*dsj;

走強1:=barslast(pl5<ref(pl5,1));
走弱1:=barslast(pl5>ref(pl5,1));
走強2:=barslast(pl10<ref(pl10,1));
走弱2:=barslast(pl10>ref(pl10,1));
走強3:=barslast(pl20<ref(pl20,1));
走弱3:=barslast(pl20>ref(pl20,1));

ztjz5:=if(pl10>ref(pl10,1),count(en1,走強2),0);
ztjd5:=if(pl10>ref(pl10,1),count(ex1,走強2),0);
dtjz5:=if(pl10<ref(pl10,1),count(en1,走弱2),0);
dtjd5:=if(pl10<ref(pl10,1),count(ex1,走弱2),0);
ztjz10:=if(pl20>ref(pl20,1),count(en2,走強3),0);
ztjd10:=if(pl20>ref(pl20,1),count(ex2,走強3),0);
dtjz10:=if(pl20<ref(pl20,1),count(en2,走弱3),0);
dtjd10:=if(pl20<ref(pl20,1),count(ex2,走弱3),0);

drawtext(en1 and dtjz5=1,l*0.98,'A'),colorffff00;
drawtext(ex1 and dtjd5=2,h*1.02,'B'),colorffff00;
drawtext(en2 and ztjz5=1,l*0.98,'C'),colorffff00;

drawtext(ex1 and pl10>ref(pl10,1) and ztjd5=1,h*1.02,'(1)'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.98,'(2)'),colorff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.02,'(3)'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.98,'(4)'),colorff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.02,'(5)'),colorff;

drawtext(en2 and dtjz10=1,l*0.94,'Ⅰ'),colorff0000;
drawtext(ex2 and dtjd10=2,h*1.06,'Ⅱ'),colorff0000;
drawtext(en3 and ztjz10=1,l*0.94,'Ⅲ'),colorff0000;

drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.06,'(1)'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and ztjz10=2,l*0.94,'(2)'),Linethick3,colorffff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,h*1.06*dsj,'(3)'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and ztjz10=3,l*0.94,'(4)'),Linethick3,colorffff;


是否能修正得更正確些................謝謝

回覆: 波浪數浪公式

引用:

---

最初由 mowtua 發表
n:5

kxs:=sysparam(2);
dsj:=1;
GET:zig(3,n),coloryellow;

pl5:=zig(3,5)*dsj;
en1:=zig(3,5)>ref(zig(3,5),1) and ref(zig(3,5),1)<=ref(zig(3,5),2) and ref(zig(3,5),2)<=ref(zig(3,5),3)*dsj;
ex1:=zig(3,5)<ref(zig(3,5),1) and ref(zig(3,5),1)>=ref(zig(3,5),2) and ref(zig(3,5),2)>=ref(zig(3,5),3)*dsj;

pl10:=zig(3,10)*dsj;
en2:=zig(3,10)>ref(zig(3,10),1) and ref(zig(3,10),1)<=ref(zig(3,10),2) and ref(zig(3,10),2)<=ref(zig(3,10),3)*dsj;
ex2:=zig(3,10)<ref(zig(3,10),1) and ref(zig(3,10),1)>=ref(zig(3,10),2) and ref(zig(3,10),2)>=ref(zig(3,10),3)*dsj;

pl20:=zig(3,20)*dsj;
en3:=zig(3,20)>ref(zig(3,20),1) and ref(zig(3,20),1)<=ref(zig(3,20),2) and ref(zig(3,20),2)<=ref(zig(3,20),3)*dsj;
ex3:=zig(3,20)<ref(zig(3,20),1) and ref(zig(3,20),1)>=ref(zig(3,20),2) and ref(zig(3,20),2)>=ref(zig(3,20),3)*dsj;

pl40:=zig(3,40)*dsj;

走強1:=barslast(pl5<ref(pl5,1));
走弱1:=barslast(pl5>ref(pl5,1));
走強2:=barslast(pl10<ref(pl10,1));
走弱2:=barslast(pl10>ref(pl10,1));
走強3:=barslast(pl20<ref(pl20,1));
走弱3:=barslast(pl20>ref(pl20,1));

ztjz5:=if(pl10>ref(pl10,1),count(en1,走強2),0);
ztjd5:=if(pl10>ref(pl10,1),count(ex1,走強2),0);
dtjz5:=if(pl10<ref(pl10,1),count(en1,走弱2),0);
dtjd5:=if(pl10<ref(pl10,1),count(ex1,走弱2),0);
ztjz10:=if(pl20>ref(pl20,1),count(en2,走強3),0);
ztjd10:=if(pl20>ref(pl20,1),count(ex2,走強3),0);
dtjz10:=if(pl20<ref(pl20,1),count(en2,走弱3),0);
dtjd10:=if(pl20<ref(pl20,1),count(ex2,走弱3),0);

drawtext(en1 and dtjz5=1,l*0.98,'A'),colorffff00;
drawtext(ex1 and dtjd5=2,h*1.02,'B'),colorffff00;
drawtext(en2 and ztjz5=1,l*0.98,'C'),colorffff00;

drawtext(ex1 and pl10>ref(pl10,1) and ztjd5=1,h*1.02,'(1)'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.98,'(2)'),colorff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.02,'(3)'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.98,'(4)'),colorff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.02,'(5)'),colorff;

drawtext(en2 and dtjz10=1,l*0.94,'Ⅰ'),colorff0000;
drawtext(ex2 and dtjd10=2,h*1.06,'Ⅱ'),colorff0000;
drawtext(en3 and ztjz10=1,l*0.94,'Ⅲ'),colorff0000;

drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.06,'(1)'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and ztjz10=2,l*0.94,'(2)'),Linethick3,colorffff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,h*1.06*dsj,'(3)'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and ztjz10=3,l*0.94,'(4)'),Linethick3,colorffff;


是否能修正得更正確些................謝謝

---

分K級數數烙

版主大大你好

此程式範例可以再年周日級數執行
如何修正在分線級數數數浪 可以提供範例


謝謝你

回覆: 分K級數數烙

引用:

---

最初由 ivancclai 發表
版主大大你好

此程式範例可以再年周日級數執行
如何修正在分線級數數數浪 可以提供範例

謝謝你

---