自動劃黃金分割原碼
{黃金分割+江恩八分割}
input:K(1,1,3);
{黃金分割+江恩八分割}
n1:=sysparam(3);
n:=n1-sysparam(2)+1;
hh:=hhv(H,n);
ll:=llv(L,n);
最高:=hh[n1],COLORYELLOW;
PARTLINE(C and K<>3,最高),COLORYELLOW;
最低:ll[n1],COLORred;
PARTLINE(C and K<>3,最低),COLORred;
PARTLINE(C and K=1,最低+(最高-最低)*0.191),LINEDOT,COLORWHITE;
PARTLINE(C and K=1,最低+(最高-最低)*0.382),LINEDOT,COLORWHITE;
PARTLINE(C and K<>3,最低+(最高-最低)*0.5),COLORGREEN;
PARTLINE(C and K=1,最低+(最高-最低)*0.618),LINEDOT,COLORWHITE;
PARTLINE(C and K=1,最低+(最高-最低)*0.809),LINEDOT,COLORWHITE;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3) and K<>3,REF(最低,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'最低↓'),ALIGN2,COLORred;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3) and K<>3,REF(最
高,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'最高↑'),ALIGN2,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),' 0.191↑'+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),' 0.382↑'+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(2) and K<>3,REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),' 50% ↑'+NUMTOSTR(最低+(最高-最低)*0.5,2)),COLORGREEN;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),' 0.618↑'+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORwhite;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=1,REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),' 0.809↑'+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORwhite;
PARTLINE(C and K=2,最低+(最高-最低)*1/8),LINEDOT,Color0095BC;
PARTLINE(C and K=2,最低+(最高-最低)*1/4),LINEDOT,Color0095BC;
PARTLINE(C and K=2,最低+(最高-最低)*3/8),LINEDOT,Color0095BC;
PARTLINE(C and K=2,最低+(最高-最低)*5/8),LINEDOT,Color0095BC;
PARTLINE(C and K=2,最低+(最高-最低)*7/8),LINEDOT,Color0095BC;
PARTLINE(C and K=2,最低+(最高-最低)*3/4),LINEDOT,Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*1/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 1/8↑'+NUMTOSTR(最低+(最高-最低)*1/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*1/4)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 1/4↑'+NUMTOSTR(最低+(最高-最低)*1/4,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*3/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 3/8↑'+NUMTOSTR(最低+(最高-最低)*3/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*5/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 5/8↑'+NUMTOSTR(最低+(最高-最低)*5/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*7/8)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 7/8↑'+NUMTOSTR(最低+(最高-最低)*7/8,2)),Color0095BC;
DRAWTEXT(BARPOS=SYSPARAM(2) and K=2,REF((最低+(最高-最低)*3/4)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'江恩 3/4↑'+NUMTOSTR(最低+(最高-最低)*3/4,2)),Color0095BC;
__________________
不貪不懼永遠要有風險意識
|