自动黄金折返点位公式
源码
N:=SYSPARAM(3)-SYSPARAM(1);
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);
KK := wH-wL;
{a1 :=if(kk<0,hh- HL*0.236,ll+HL*0.236);}
a2 :=if(kk<0,hh- HL*0.382,ll+HL*0.382);
a3 :=if(kk<0,hh- HL*0.618,ll+HL*0.618);
F3:A2,COLORGREEN,LINETHICK;
F5:A3,COLORYELLOW,LINETHICK;
mHL:= hh-HL*0.5;
A := islastbar;
DRAWTEXT(A and K<>3 ,HH, ' 最高价：'+NUMTOSTR(HH,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K<>3 ,LL, ' 最低价：'+NUMTOSTR(ll,3)),ALIGN2,,colorgreen;
{DRAWTEXT(A and K<>3 ,mHL,' 50%：'+NUMTOSTR(mHL,3)),ALIGN2,colorred;}
{DRAWTEXT(A and K=1, a1, ' 0.236：'+NUMTOSTR(a1,3)),ALIGN2,colorgreen;}
DRAWTEXT(A and K=1, a2, ' ☆F3☆：'+NUMTOSTR(a2,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, a3, ' ☆F5☆：'+NUMTOSTR(a3,3)),ALIGN2,colorred;
DRAWTEXT(A and K<>3,HH, ' ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
DRAWTEXT(A and K<>3,LL, ' ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
{DRAWTEXT(A and K<>3,mHL,' ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorwhite,linethick7;}
{DRAWTEXT(A and K=1,a1,' ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;}
DRAWTEXT(A and K=1 , a2, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;
DRAWTEXT(A and K=1, a3, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorYELLOW,linethick7;
MA3X3:MA(CLOSE,3),SHIFT3,colorgreen,linethick1;
STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
STICKLINE(C<=O,C,O,8,0),Color7B7b00;
STICKLINE(C<=O,C,O,6,0),Color909000;
STICKLINE(C<=O,C,O,4,0),ColorA8a800;
STICKLINE(C<=O,C,O,2,0),COLORcece00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
