-- 作者:小兵过河
-- 发布时间:2013/1/18 13:14:27
--
晕,忘了把代码附上了
input:n(30,1,1000); 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,color009999; DRAWTEXT(c>0 and ISLASTBAR=1,HH,\'【黄金分割】↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),HH,HH,2),align2,color009999; LL+((HH-LL)*0.809),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.809),\' 0.809↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.809),LL+((HH-LL)*0.809),2),align2,color009999; LL+((HH-LL)*0.764),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.764),\' 0.764↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.764),LL+((HH-LL)*0.764),2),align2,color009999; LL+((HH-LL)*0.618),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.618),\' 0.618↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.618),LL+((HH-LL)*0.618),2),align2,color009999; LL+((HH-LL)*0.500),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.500),\' 0.500↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.500),LL+((HH-LL)*0.500),2),align2,color009999; LL+((HH-LL)*0.382),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.382),\' 0.382↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.382),LL+((HH-LL)*0.382),2),align2,color009999; LL+((HH-LL)*0.333),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.333),\' 0.333↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.333),LL+((HH-LL)*0.333),2),align2,color009999; LL+((HH-LL)*0.236),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.236),\' 0.236↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.236),LL+((HH-LL)*0.236),2),align2,color009999; LL+((HH-LL)*0.191),pointdot,linethick1,coloryellow; DRAWTEXT(c>0 and ISLASTBAR=1,LL+((HH-LL)*0.191),\' 0.191↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL+((HH-LL)*0.191),LL+((HH-LL)*0.191),2),align2,color009999; LL,color009999; DRAWTEXT(c>0 and ISLASTBAR=1,LL,\'〖底部起点〗↑\'),color009999; DRAWNUMBER(BARSCOUNT(LL)=N-(N-1),LL,LL,2),align2,coloryellow;
|