飞狐转调整高低点主图选股指标公式源码

飞狐转调整高低点主图选股指标公式源码

源码正文：

DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1){XG51};
P1:=125;//调整高低点位置  
GA:=BacKSET(ISLAstBAR,HHVBARS(HIGH,P1)+1);
高点:=COUNT(GA,P1)=1{XG51};
DA:=BACKSET(ISLASTBAR,LLVBARS(LOW,P1)+1);
低点:=REVERSE(COUNT(DA,P1)=1){XG51};
VERTLINE(低点),LINEDOT,Color0000FF,LINETHICK2{XG51};
VERTLINE(高点),LINEDOT,Color00FF00,LINETHICK2{XG51};
n1:=SYSPARAM(3){XG51};
n:=n1-SYSPARAM(2)+1{XG51};
hh:=HHV(HIGH,n){XG51};
ll:=LLV(LOW,n){XG51};
最高:=hh[n1],COLORBLUE{XG51};
最低:=ll[n1],Color0000FF{XG51};
x1:=最低+(最高-最低)*0.191{XG51};
x2:=最低+(最高-最低)*0.382{XG51};
x3:=最低+(最高-最低)*0.5{XG51};
x4:=最低+(最高-最低)*0.618{XG51};
x5:=最低+(最高-最低)*0.809{XG51};
DRAWICON(高点,x3,9),ALIGN5{XG51};
DRAWICON(低点,x3,8),ALIGN5{XG51};
DRAWLINE(低点,最低,高点 or ISLASTBAR,REF(最低,1),0),LINEDOT,COLORCYAN;
DRAWLINE(低点,最高,高点 or ISLASTBAR,REF(最高,1),0),LINEDOT,COLORCYAN;
DRAWLINE(低点,x1,高点 or ISLASTBAR,REF(x1,1),0),LINEDOT,COLORCYAN;
DRAWLINE(低点,x2,高点 or ISLASTBAR,REF(x2,1),0),LINEDOT,COLORCYAN;
DRAWLINE(低点,x3,高点 or ISLASTBAR,REF(x3,1),0),LINEDOT,COLORCYAN;
DRAWLINE(低点,x4,高点 or ISLASTBAR,REF(x4,1),0),LINEDOT,COLORCYAN;
DRAWLINE(低点,x5,高点 or ISLASTBAR,REF(x5,1),0),LINEDOT,COLORCYAN{XG51};
DRAWLINE(高点,最高,低点 or ISLASTBAR,REF(最高,1),0),LINEDOT,COLORWHITE;
DRAWLINE(高点,最低,低点 or ISLASTBAR,REF(最低,1),0),LINEDOT,COLORWHITE;
DRAWLINE(高点,x1,低点 or ISLASTBAR,REF(x1,1),0),LINEDOT,COLORWHITE;
DRAWLINE(高点,x2,低点 or ISLASTBAR,REF(x2,1),0),LINEDOT,COLORWHITE;
DRAWLINE(高点,x3,低点 or ISLASTBAR,REF(x3,1),0),LINEDOT,COLORWHITE;
DRAWLINE(高点,x4,低点 or ISLASTBAR,REF(x4,1),0),LINEDOT,COLORWHITE;
DRAWLINE(高点,x5,低点 or ISLASTBAR,REF(x5,1),0),LINEDOT,COLORWHITE{XG51};
DRAWTEXT(低点,REF(x1*0.996,BArslAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.191'+NUMTOSTR(x1,2)),ALIGN2,COLORBROWN{XG51};
DRAWTEXT(低点,REF(x2*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.382'+NUMTOSTR(x2,2)),ALIGN2,COLORBROWN{XG51};
DRAWTEXT(低点,REF(x3*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 50%  '+NUMTOSTR(x3,2)),ALIGN2,COLORBROWN{XG51};
DRAWTEXT(低点,REF(x4*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.618'+NUMTOSTR(x4,2)),ALIGN2,COLORBROWN{XG51};
DRAWTEXT(低点,REF(x5*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 0.809'+NUMTOSTR(x5,2)),ALIGN2,COLORBROWN{XG51};
DRAWTEXT(低点,REF(最高*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 最 高'+NUMTOSTR(最高,2)),ALIGN2,COLORBROWN{XG51};
DRAWTEXT(低点,REF(最低*0.996,BARSLAST(BARSCOUNT(CLOSE)=SYSPARAM(2))),'黄金 最 低'+NUMTOSTR(最低,2)),ALIGN2,COLORBROWN{XG51};
YB:=SYSPARAM(2){XG51};
D:=SYSPARAM(3){XG51};
P:=(D - YB){XG51};
f:=((D - YB) + 1){XG51};
w:=HHV(HIGH,f){XG51};
e:=LLV(LOW,f){XG51};
YC:=((P * 0.191) + YB){XG51};
YD:=((P * 0.382) + YB){XG51};
YE:=((P * 0.5) + YB){XG51};
YF:=((P * 0.618) + YB){XG51};
YG:=((P * 0.809) + YB){XG51};
S4:=SYSPARAM(4){XG51};
S5:=SYSPARAM(5){XG51};
HH:=HHVBARS(HIGH,(P + 1)){XG51};
LL:=LLVBARS(LOW,(P + 1)){XG51};
X:=(BARPOS = (D - HH[D])){XG51};
Y:=(BARPOS = (D - LL[D])){XG51};
K:=((S4 - S5) / (D - YB)){XG51};
DRAWSL(Y,LOW,((10 * K) / 60),0,0),LINEDASH,COLORFFFFFF{XG51};
DRAWSL(Y,LOW,((30 * K) / 60),0,0),LINEDASH,COLOR99FFFF{XG51};
DRAWSL(Y,LOW,((60 * K) / 60),0,0),LINEDASH,COLOR00FFFF{XG51};
DRAWSL(Y,LOW,((90 * K) / 60),0,0),LINEDASH,color00CCFF{XG51};
DRAWSL(Y,LOW,((120 * K) / 60),0,0),LINEDASH,color0099FF{XG51};
DRAWSL(Y,LOW,((180 * K) / 60),0,0),LINEDASH,color0066FF{XG51};
DRAWSL(Y,LOW,((300 * K) / 60),0,0),LINEDASH,COLOR0000FF{XG51};
DRAWSL(Y,LOW,((540 * K) / 60),0,0),LINEDASH,COLORFF3366{XG51};
DRAWSL(Y,LOW,((1020 * K) / 60),0,0),LINEDASH,COLOR00FF33{XG51};
KLINE(OPEN,HIGH,LOW,CLOSE,0){X!G_5_1!C!N!{};