飞狐江恩角度+五线布林+黄金分割主图选股指标公式源码

飞狐江恩角度+五线布林+黄金分割主图选股指标公式源码

源码正文：

INPUT:n(13,1,999),n1(2,1,3),上角(11,0,500),下角(11,0,500){XG51};
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1){XG51};
DD0:=REF(DAY,(BARSCOUNT(CLOSE) - 1)){XG51};
■上市日期:REF(YEAR,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0{XG51};
年:REF(MONTH,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0{XG51};
月:REF(DAY,(BARSCOUNT(CLOSE) - 1)),LINETHICK0,ColorC0C0C0{XG51};
日:0,LINETHICK0,ColorC0C0C0{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'板块:'+BLKNAME),Color0095BC,align4{XG51};
u1:=SYSPARAM(3){XG51};
u:=u1-SYSPARAM(2)+1{XG51};
hh:=HHV(HIGH,u){XG51};
ll:=LLV(LOW,u){XG51};
最高:hh[u1],COLORBLUE,ColorC0C0C0{XG51};
最低:ll[u1],COLORred,ColorC0C0C0{XG51};
PARTLINE(CLOSE and n1<>3,最低),COLORred{XG51};
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.191),LINEDOT,COLORRED{XG51};
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.382),LINEDOT,COLORRED{XG51};
PARTLINE(CLOSE and n1<>3,最低+(最高-最低)*0.5),ColorFF8200{XG51};
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.618),LINEDOT,COLORRED{XG51};
PARTLINE(CLOSE and n1=1,最低+(最高-最低)*0.809),LINEDOT,COLORRED{XG51};
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(3) and n1<>3,REF(最低,BArslAst(BARSCOUNT(CLOSE)=SYSPARAM(2))),'最低&darr;'),ALIGN2,COLORred{XG51};
DRAWTEXT(BARSCOUNT(CLOSE)=SYSPARAM(3) and n1<>3,REF(最高,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'最高&uarr;'),ALIGN2,COLORBLUE{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.191&uarr;'+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORRED{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.382&uarr;'+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORRED{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1<>3,REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM (2))),' 50% &uarr;'+NUMTOSTR(最低+(最高-最低)*0.5,2)),ColorFF8200{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.618&uarr;'+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORRED{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=1,REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.809&uarr;'+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORRED{XG51};
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*1/8),LINEDOT,Color0095BC{XG51};
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*1/4),LINEDOT,Color0095BC{XG51};
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*3/8),LINEDOT,Color0095BC{XG51};
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*5/8),LINEDOT,Color0095BC{XG51};
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*7/8),LINEDOT,Color0095BC{XG51};
PARTLINE(CLOSE and n1=2,最低+(最高-最低)*3/4),LINEDOT,Color0095BC{XG51};
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1){XG51};
STICKLINE(k3,HIGH,LOW,0.1,0),colorred{XG51};
STICKLINE(k3,OPEN,CLOSE,7,1),colorred{XG51};
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan{XG51};
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*1/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 1/8&uarr;'+NUMTOSTR(最低+(最高-最低)*1/8,2)),Color0095BC{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*1/4)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 1/4&uarr;'+NUMTOSTR(最低+(最高-最低)*1/4,2)),Color0095BC{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*3/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 3/8&uarr;'+NUMTOSTR(最低+(最高-最低)*3/8,2)),Color0095BC{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*5/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 5/8&uarr;'+NUMTOSTR(最低+(最高-最低)*5/8,2)),Color0095BC{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*7/8)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 7/8&uarr;'+NUMTOSTR(最低+(最高-最低)*7/8,2)),Color0095BC{XG51};
DRAWTEXT(BARPOS=SYSPARAM(2) and n1=2,REF((最低+(最高-最低)*3/4)*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'江恩 3/4&uarr;'+NUMTOSTR(最低+(最高-最低)*3/4,2)),Color0095BC{XG51};
YB:=SYSPARAM(2){XG51};
a:=SYSPARAM(3){XG51};
P:=(a - YB){XG51};
S4:=SYSPARAM(4){XG51};
S5:=SYSPARAM(5){XG51};
HH:=HHVBARS(HIGH,(P + 1)){XG51};
LL:=LLVBARS(LOW,(P + 1)){XG51};
z:=(BARPOS = (a - HH[a])){XG51};
Y:=(BARPOS = (a - LL[a])){XG51};
K:=((S4 - S5) / (a - YB)){XG51};
DRAWSL(z,HIGH,(0 - ((15 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((30 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((45 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((60 * K) / 60)),0,0),colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((85 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((120 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((165 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((240 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((360 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(z,HIGH,(0 - ((600 * K) / 60)),0,0),POINTDOT,colorFFFF00{XG51};
DRAWSL(Y,LOW,((10 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((30 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((60 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((90 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((120 * K) / 60),0,0),colorFF00FF{XG51};
DRAWSL(Y,LOW,((180 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((300 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((540 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
DRAWSL(Y,LOW,((1020 * K) / 60),0,0),POINTDOT,colorFF00FF{XG51};
A:=SYSPARAM(1){XG51};
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift13{XG51};
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift21{XG51};
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift34{XG51};
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift55{XG51};
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift89;
VERTLINE(BARPOS=A),POINTDOT,Color0095BC,shift144{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'天数'),Color0095BC,align2{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'13'),Color0095BC,shift13{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'21'),Color0095BC,shift21{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'34'),Color0095BC,shift34{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'55'),Color0095BC,shift55{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'89'),Color0095BC,shift89{XG51};
DRAWTEXT(BARPOS=A,SYSPARAM(5),'144'),Color0095BC,shift144{X^G~5-1^C^N^{};