回覆: 可否公開黃金分割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點數值劃一條橫線 函數如何作出
|