多组黄金分割线源码--通达信

  

{多组黄金分割}
N1:=高*1;
N2:=低*1;
N3:=高1*1;
N4:=低1*1;
N5:=高2*1;
N6:=低2*1;
N7:=高3*1;
N8:=低3*1;
a1:=低+(高-低)*0.191;
a2:=低+(高-低)*0.236;
a3:=低+(高-低)*0.382;
a4:=低+(高-低)*0.5;
a5:=低+(高-低)*0.618;
a6:=低+(高-低)*0.809;
b1:=低1+(高1-低1)*0.191;
b2:=低1+(高1-低1)*0.236;
b3:=低1+(高1-低1)*0.382;
b4:=低1+(高1-低1)*0.5;
b5:=低1+(高1-低1)*0.618;
b6:=低1+(高1-低1)*0.809;
ab1:=低2+(高2-低2)*0.191;
ab2:=低2+(高2-低2)*0.236;
ab3:=低2+(高2-低2)*0.382;
ab4:=低2+(高2-低2)*0.5;
ab5:=低2+(高2-低2)*0.618;
ab6:=低2+(高2-低2)*0.809;
ac1:=低3+(高3-低3)*0.191;
ac2:=低3+(高3-低3)*0.236;
ac3:=低3+(高3-低3)*0.382;
ac4:=低3+(高3-低3)*0.5;
ac5:=低3+(高3-低3)*0.618;
ac6:=低3+(高3-低3)*0.809;
DRAWLINE(BACKSET(ISLASTBAR,10),N1,BACKSET(ISLASTBAR,1),N1,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),N2,BACKSET(ISLASTBAR,1),N2,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),a1,BACKSET(ISLASTBAR,1),a1,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),a2,BACKSET(ISLASTBAR,1),a2,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),a3,BACKSET(ISLASTBAR,1),a3,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),a4,BACKSET(ISLASTBAR,1),a4,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),a5,BACKSET(ISLASTBAR,1),a5,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,10),a6,BACKSET(ISLASTBAR,1),a6,0),COLORWHITE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),N3,BACKSET(ISLASTBAR,12),N3,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),N4,BACKSET(ISLASTBAR,12),N4,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),b1,BACKSET(ISLASTBAR,12),b1,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),b2,BACKSET(ISLASTBAR,12),b2,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),b3,BACKSET(ISLASTBAR,12),b3,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),b4,BACKSET(ISLASTBAR,12),b4,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),b5,BACKSET(ISLASTBAR,12),b5,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,21),b6,BACKSET(ISLASTBAR,12),b6,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),N5,BACKSET(ISLASTBAR,23),N5,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),N6,BACKSET(ISLASTBAR,23),N6,0),COLORBLUE,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),ab1,BACKSET(ISLASTBAR,23),ab1,0),COLORGREEN,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),ab2,BACKSET(ISLASTBAR,23),ab2,0),COLORGREEN,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),ab3,BACKSET(ISLASTBAR,23),ab3,0),COLORGREEN,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),ab4,BACKSET(ISLASTBAR,23),ab4,0),COLORGREEN,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),ab5,BACKSET(ISLASTBAR,23),ab5,0),COLORGREEN,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,32),ab6,BACKSET(ISLASTBAR,23),ab6,0),COLORGREEN,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),N7,BACKSET(ISLASTBAR,3),N7,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),N8,BACKSET(ISLASTBAR,3),N8,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),ac1,BACKSET(ISLASTBAR,3),ac1,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),ac2,BACKSET(ISLASTBAR,3),ac2,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),ac3,BACKSET(ISLASTBAR,3),ac3,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),ac4,BACKSET(ISLASTBAR,3),ac4,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),ac5,BACKSET(ISLASTBAR,3),ac5,0),COLORMAGENTA,LINEDOT;
DRAWLINE(BACKSET(ISLASTBAR,30),ac6,BACKSET(ISLASTBAR,3),ac6,0),COLORMAGENTA,LINEDOT;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), N1,'100.0%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), N2,'1.00%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), a1,'19.1%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), a2,'23.6%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), a3,'38.2%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), a4,'50.0%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), a5,'61.8%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,10),10), a6,'80.9%'),COLORWHITE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), N3,'100.0%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), N4,'1.00%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), b1,'19.1%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), b2,'23.6%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), b3,'38.2%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), b4,'50.0%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), b5,'61.8%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,21),21), b6,'80.9%'),COLORBLUE;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), N5,'100.0%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), N6,'1.00%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), ab1,'19.1%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), ab2,'23.6%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), ab3,'38.2%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), ab4,'50.0%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), ab5,'61.8%'),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,32),32), ab6,'80.9%'),COLORGREEN;
DRAWNUMBER(ISLASTBAR,N1,N1,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,N2,N2,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,a1,a1,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,a2,a2,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,a3,a3,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,a4,a4,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,a5,a5,2),COLORWHITE;
DRAWNUMBER(ISLASTBAR,a6,a6,2),COLORWHITE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),N3,N3,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),N4,N4,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),b1,b1,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),b2,b2,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),b3,b3,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),b4,b4,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),b5,b5,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,12),12),b6,b6,2),COLORBLUE;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),N5,N5,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),N6,N6,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),ab1,ab1,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),ab2,ab2,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),ab3,ab3,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),ab4,ab4,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),ab5,ab5,2),COLORGREEN;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,23),23),ab6,ab6,2),COLORGREEN;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), N7,'100.0%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), N8,'1.00%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), ac1,'19.1%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), ac2,'23.6%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), ac3,'38.2%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), ac4,'50.0%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), ac5,'61.8%'),COLORMAGENTA;
DRAWTEXT(FILTER(BACKSET(ISLASTBAR,30),30), ac6,'80.9%'),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),N7,N7,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),N8,N8,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),ac1,ac1,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),ac2,ac2,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),ac3,ac3,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),ac4,ac4,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),ac5,ac5,2),COLORMAGENTA;
DRAWNUMBER(FILTER(BACKSET(ISLASTBAR,3),3),ac6,ac6,2),COLORMAGENTA;

分享：