黄金上升 主图源码

input:n(999,1,10000),p1(1,1,1000);

HH:=HHV(H,N)COLORWHITE;
LL:LLV(L,N)COLORWHITE;
<%
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
%>

TJ:=BARSCOUNT(LL)=N-(N-p1);

DRAWTEXT(ISLASTBAR,LL,' 0↑');
DRAWNUMBER(TJ,LL,LL,2),ALIGN2;

M1:LL*1.0625,COLORYELLOW;
DRAWTEXT(ISLASTBAR,M1,' 6.25%↑ 22.5')COLORYELLOW;
DRAWNUMBER(TJ,M1,M1,2),ALIGN2,COLORYELLOW;
M2:LL*1.125,COLORRED;
DRAWTEXT(c>0 and ISLASTBAR=1,M2,' 12.5%↑ 45')COLORRED;
DRAWNUMBER(TJ,M2,M2,2),ALIGN2,COLORRED;
M3:LL*1.1875,COLORGREEN;
DRAWTEXT(ISLASTBAR,M3,' 18.75%↑ 67.5')COLORGREEN;
DRAWNUMBER(TJ,M3,M3,2)ALIGN2,COLORGREEN;
M4:LL*1.25,COLORCYAN;
DRAWTEXT(c>0 and ISLASTBAR=1,M4,' 25%↑ 90')COLORCYAN;
DRAWNUMBER(TJ,M4,M4,2),ALIGN2,COLORCYAN;
M5:LL*1.3125,COLOR00808000;
DRAWTEXT(c>0 and ISLASTBAR=1,M5,' 31.25%↑112.5')COLOR00808000;
DRAWNUMBER(TJ,M5,M5,2)ALIGN2,COLOR00808000;
M6:LL*1.3333,COLORMAGENTA;
DRAWTEXT(c>0 and ISLASTBAR=1,M6,' 33.3%↑ 120')COLORMAGENTA;
DRAWNUMBER(TJ,M6,M6,2),ALIGN2,COLORMAGENTA;
M7:LL*1.375,COLORGRAY;
DRAWTEXT(c>0 and ISLASTBAR=1,M7,' 37.5%↑ 135')COLORGRAY;
DRAWNUMBER(TJ,M7,M7,2),ALIGN2,COLORGRAY;
M8:LL*1.4375,COLORBLUE;
DRAWTEXT(c>0 and ISLASTBAR=1,M8,' 43.75%↑157.5')COLORBLUE;
DRAWNUMBER(TJ,M8,M8,2)ALIGN2,COLORBLUE;
M9:LL*1.5,COLORYELLOW;
DRAWTEXT(c>0 and ISLASTBAR=1,M9,' 50%↑ 180')COLORYELLOW;
DRAWNUMBER(TJ,M9,M9,2),ALIGN2,COLORYELLOW;

M10:LL*1.5625,COLORRED;
DRAWTEXT(c>0 and ISLASTBAR=1,M10,' 56.25%↑202.5')COLORRED;
DRAWNUMBER(TJ,M10,M10,2),ALIGN2,COLORRED;
M11:LL*1.625,COLORGREEN;
DRAWTEXT(c>0 and ISLASTBAR=1,M11,' 62.5%↑ 225')COLORGREEN;
DRAWNUMBER(TJ,M11,M11,2),ALIGN2,COLORGREEN;
M12:LL*1.6667,COLOR00808000;
DRAWTEXT(c>0 and ISLASTBAR=1,M12,' 66.6%↑ 240')COLOR00808000;
DRAWNUMBER(TJ,M12,M12,2),ALIGN2,COLOR00808000;
M13:LL*1.6875,COLORMAGENTA;
DRAWTEXT(c>0 and ISLASTBAR=1,M13,' 68.75%↑247.5')COLORMAGENTA;
DRAWNUMBER(TJ,M13,M13,2),ALIGN2,COLORMAGENTA;
M14:LL*1.75,COLORGRAY;
DRAWTEXT(c>0 and ISLASTBAR=1,M14,' 75%↑ 270')COLORGRAY;
DRAWNUMBER(TJ,M14,M14,2),ALIGN2,COLORGRAY;
M15:LL*1.8125,COLORBLUE;
DRAWTEXT(c>0 and ISLASTBAR=1,M15,' 81.25%↑292.5')COLORBLUE;
DRAWNUMBER(TJ,M15,M15,2),ALIGN2,COLORBLUE;
M16:LL*1.875,COLORYELLOW;
DRAWTEXT(c>0 and ISLASTBAR=1,M16,' 87.5%↑ 315')COLORYELLOW;
DRAWNUMBER(TJ,M16,M16,2),ALIGN2,COLORYELLOW;
M17:LL*1.9375,COLORRED;
DRAWTEXT(c>0 and ISLASTBAR=1,M17,' 93.75%↑337.5')COLORRED;
DRAWNUMBER(TJ,M17,M17,2),ALIGN2,COLORRED;
M18:LL*2,COLORGREEN;
DRAWTEXT(c>0 and ISLASTBAR=1,M18,' 100%↑ 360')COLORGREEN;
DRAWNUMBER(TJ,M18,M18,2),ALIGN2,COLORGREEN;
M19:LL*2.0625,COLORCYAN;
DRAWTEXT(c>0 and ISLASTBAR=1,M19,'106.25%↑382.5')COLORCYAN;
DRAWNUMBER(TJ,M19,M19,2),ALIGN2,COLORCYAN;
M20:LL*2.125,COLOR00808000;
DRAWTEXT(c>0 and ISLASTBAR=1,M20,' 112.5%↑ 405')COLOR00808000;
DRAWNUMBER(TJ,M20,M20,2),ALIGN2,COLOR00808000;