奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- 可否公開黃金分割A公式源碼 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=721)

可否公開黃金分割A公式源碼

如題 謝謝

十字游標定位K棒H點數值劃一條橫線 函數如何作出

回覆: 可否公開黃金分割A公式源碼

轉向: ZIG(3,10),COLORFFB97A,linethick2;
HH:HHV(H,N);
LL:LLV(L,N);

<%

VH=FFL.VARDATA("HH")

VL=FFL.VARDATA("LL")

VN=FFL.VARDATA("N")

LAST=UBOUND(VH)

IF VN>LAST THEN VN=LAST+1

FOR I=LAST TO LAST-VN+1 STEP-1

VH(I)=VH(LAST)

VL(I)=VL(LAST)

NEXT

FFL.VARDATA("HH")=VH

FFL.VARDATA("LL")=VL

FFL.VARSTARTINDEX("HH")=LAST-VN+1

FFL.VARSTARTINDEX("LL")=LAST-VN+1

%>

HH,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH,'【頂部起點】↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH,HH,2),align2,coloryellow;
HH-((HH-LL)*0.809),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.809),' 0.809↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.809),HH-((HH-LL)*0.809),2),align2,coloryellow;
HH-((HH-LL)*0.764),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.764),' 0.764↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.764),HH-((HH-LL)*0.764),2),align2,coloryellow;
HH-((HH-LL)*0.618),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.618),' 0.618↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.618),HH-((HH-LL)*0.618),2),align2,coloryellow;
HH-((HH-LL)*0.500),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.500),' 0.500↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.500),HH-((HH-LL)*0.500),2),align2,coloryellow;
HH-((HH-LL)*0.382),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.382),' 0.382↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.382),HH-((HH-LL)*0.382),2),align2,coloryellow;
HH-((HH-LL)*0.333),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.333),' 0.333↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.333),HH-((HH-LL)*0.333),2),align2,coloryellow;
HH-((HH-LL)*0.236),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.236),' 0.236↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.236),HH-((HH-LL)*0.236),2),align2,coloryellow;
HH-((HH-LL)*0.191),pointdot,linethick1,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,HH-((HH-LL)*0.191),' 0.191↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH-((HH-LL)*0.191),HH-((HH-LL)*0.191),2),align2,coloryellow;
LL,coloryellow;
DRAWTEXT(c>0 and ISLASTBAR=1,LL,'?黃金分割)↓'),coloryellow;
DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL,LL,2),align2,coloryellow;

引用:

---

最初由 心劍 發表
如題 謝謝

十字游標定位K棒H點數值劃一條橫線 函數如何作出

---

謝謝 Kent-7368 兄的提供 但是上述為之字轉折H,L點

非十字游標值定點取得