创新黄金分割主图源码 飞狐 贴图

完全动态.自己对比图.自己认为完美.各位老师尽情发挥修改


N:=SYSPARAM(3)-SYSPARAM(1)+10;
A:=BACKSET(ISLASTBAR,HHVBARS(H,N)+1);
B:=COUNT(A,N)=1;
前高:=IF(N>0,REF(H,BARSLAST(B)),0),COLORWHITE;
A2:=BACKSET(ISLASTBAR,LLVBARS(L,N)+1);
B2:=A2>REF(A2,1);
前低:=REF(L,BARSLAST(B2)),COLORWHITE;
hh:= 前高;
ll:= 前低;
HL:=hh-ll;
wH := BARSLAST(H=hh);
wL :=BARSLAST(L=ll);
K := wH-wL;
a2 :=IF(k<0,hh- HL*0.382,ll+HL*0.382);
a3 :=IF(k<0,hh- HL*0.618,ll+HL*0.618);
mHL:= hh-HL*0.5;
A := ISLASTBAR;
DRAWTEXT(A AND K<>3, a2,NUMTOSTR(a2,2)+ '\n F3'),ALIGN2,COLORYELLOW;
DRAWTEXT(A AND K<>3, a3, NUMTOSTR(a3,2)+'\n F5'),ALIGN2,COLORYELLOW;
HH:=SYSPARAM(4);
LL:=SYSPARAM(5);
P16:=(LL + ((HH - LL) * 0.618));
P17:=(LL + ((HH - LL) * 0.382));
DRAWTEXT(DATACOUNT-BARPOS+1=20,P17, NUMTOSTR(P17,2)+'\n F3'),ALIGN2,colorff;
DRAWTEXT(DATACOUNT-BARPOS+1=20,P16, NUMTOSTR(P16,2)+'\n F5'),ALIGN2,colorff;
P16:=(HH - ((LL + HH) * 0.382));
P17:=(HH - ((LL + HH) * 0.191));
DRAWTEXT(DATACOUNT-BARPOS+1=20,P17, NUMTOSTR(P17,2)+'\n F3'),ALIGN2,colormagenta;
DRAWTEXT(DATACOUNT-BARPOS+8=20,P16, NUMTOSTR(P16,2)+'\n F5'),ALIGN2,colormagenta;
HH:=SYSPARAM(6);
LL:=SYSPARAM(5);
P18:=(LL + ((HH - LL) * 1.618));
P19:=(LL + ((HH - LL) * 1));
P20:=(LL + ((HH - LL) * 0.618));
DRAWTEXT(DATACOUNT-BARPOS+1=40,P18, NUMTOSTR(P18,2)+'\n xop'),color99FF;
DRAWTEXT(DATACOUNT-BARPOS+1=40,P19, NUMTOSTR(P19,2)+'\n op'),color99FF;
DRAWTEXT(DATACOUNT-BARPOS+1=40,P20, NUMTOSTR(P20,2)+'\n cop'),color99FF;
P18:=(HH + ((LL - HH) * 1.618));
P19:=(HH + ((LL - HH) * 1));
P20:=(HH + ((LL - HH) * 0.618));
DRAWTEXT(DATACOUNT-BARPOS+8=40,P18, NUMTOSTR(P18,2)+'\n xop'),Color00FF00;
DRAWTEXT(DATACOUNT-BARPOS+1=40,P19, NUMTOSTR(P19,2)+'\n op'),Color00FF00;
DRAWTEXT(DATACOUNT-BARPOS+1=40,P20, NUMTOSTR(P20,2)+'\n cop'),Color00FF00;
A:=BACKSET(ISLASTBAR,HHVBARS(H,N)+1);
B:=COUNT(A,N)=1;
前高:=IF(N>0,REF(H,BARSLAST(B)),0),COLORWHITE;
A2:=BACKSET(ISLASTBAR,LLVBARS(L,N)+1);
B2:=A2>REF(A2,1);
前低:=REF(L,BARSLAST(B2)),COLORWHITE;
hh:= 前高;
ll:= 前低;
HL:=hh-ll;
wH := BARSLAST(H=hh);
wL :=BARSLAST(L=ll);
K := wH-wL;
a1 :=IF(k<0,hh- HL*1.618,ll+HL*1.618);
a2 :=IF(k<0,hh- HL*1,ll+HL*1);
a3 :=IF(k<0,hh- HL*0.618,ll+HL*0.618);
mHL:= hh-HL*0.5;
A := ISLASTBAR;
DRAWTEXT(A AND K<>3, a1, NUMTOSTR(a1,2)+'\n xop：'),ALIGN2,colormagenta;
DRAWTEXT(A AND K<>3, a2,NUMTOSTR(a2,2)+ '\n op：'),ALIGN2,colormagenta;
DRAWTEXT(A AND K<>3, a3, NUMTOSTR(a3,2)+'\n cop：：'),ALIGN2,colormagenta;