奇狐社區論壇 (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=6836)

如何改写图中的弧线？谢谢！

这个公式画出来是低点的弧线。如何改成画高点的弧线？谢谢！
n=10 k=3

z:=zig(4,n);zf:=refx(ref(z,1)<ref(z,2) and z>ref(z,1),1);
tt:=BARSLAST(z=l);
tend:=DATACOUNT-tt[DATACOUNT-1]-1;
dd:=zf;
sd:=sum(dd,0);
sdd:=sd[datacount]-sd+1;
wx1:=barssince(sdd=k);
wx2:=barssince(sdd=k-1);
wx3:=barssince(sdd=k-2);
ry1:=hhv((wx1=0)*L,0);
ry2:=hhv((wx2=0)*L,0);
ry3:=hhv((wx3=0)*L,0);
rx2:=hhv((wx2=0)*wx1,wx1+1);
rx3:=hhv((wx3=0)*wx1,wx1+1);
x2:=rx2[datacount];
x3:=rx3[datacount];
y1:=ry1[datacount];
y2:=(ry2[datacount]-ry1[datacount]);
y3:=(ry3[datacount]-ry1[datacount]);
xy:=POW(x2,2)+POW(y2,2);
e:=(x3*xy/x2-(x3*x3+y3*y3))/(y3-x3*y2/x2);
d:=-(y2*e+xy)/x2;
y1:=POW((d*d+e*e)/4-POW((wx1+d/2),2),0.5);
y2:=-POW((d*d+e*e)/4-POW((wx1+d/2),2),0.5);
c1:=ref(L,wx1)-ref(y1,wx1);
up:=y1+c1;
c2:=ref(L,wx1)+ref(y1,wx1);
dw:=y2+c2;

out1:=abs(z[tend]-up[tend])<0.01;
out2:=abs(z[tend]-dw[tend])<0.01;
out:if(out1,up,if(out2,dw,0)),COLORMAGENTA;

回覆: 如何改写图中的弧线？谢谢！

引用:

---

最初由 ljmswb908 發表
这个公式画出来是低点的弧线。如何改成画高点的弧线？谢谢！

---