大智慧黄金分割线+江恩八分线主图选股指标公式源码

大智慧黄金分割线+江恩八分线主图选股指标公式源码

源码正文：

input:K(1,1,3);            
DRAWGBKLAst(C>0,STRIP(RGB(90,90,90),RGB(0,0,0),0)){XG51};
DRAWTEXTREL(0,3,'代码:'+STKLABEL),ColorFFFFFF{XG51};
T := BArslAST(DISPSTATUS=1)+1{XG51};
A := DISPSTATUS=2{XG51};
HH := HHV(H, T){XG51};
LL := LLV(L, T){XG51};
HL := HH-LL{XG51};
wH := HHVBARS(H, T){XG51};
wL := LLVBARS(L, T){XG51};
KK := wH-wL{XG51};
mHL := HH-HL*0.5{XG51};
if K=1 then begin
HL191 := (HH-LL)*0.191{XG51};
HL382 := (HH-LL)*0.382{XG51};
HL618 := (HH-LL)*0.618{XG51};
HL809 := (HH-LL)*0.809{XG51};
if KK<0 then begin
a1 := HH-HL191{XG51};
a2 := HH-HL382{XG51};
a3 := HH-HL618{XG51};
a4 := HH-HL809{XG51};
end else begin
a1 := LL+HL191{XG51};
a2 := LL+HL382{XG51};
a3 := LL+HL618{XG51};
a4 := LL+HL809{XG51};
end
end
if k=1 then begin
HL125 := (HH-LL)*0.125{XG51};
HL250 := (HH-LL)*0.25{XG51};
HL375 := (HH-LL)*0.375{XG51};
HL625 := (HH-LL)*0.625{XG51};
HL750 := (HH-LL)*0.75{XG51};
HL875 := (HH-LL)*0.875{XG51};
if kk<0 then begin
b1 := HH-HL125{XG51};
b2 := HH-HL250{XG51};
b3 := HH-HL375{XG51};
b4 := HH-HL625{XG51};
b5 := HH-HL750{XG51};
b6 := HH-HL875{XG51};
end else begin
b1 := LL+HL125{XG51};
b2 := LL+HL250{XG51};
b3 := LL+HL375{XG51};
b4 := LL+HL625{XG51};
b5 := LL+HL750{XG51};
b6 := LL+HL875{XG51};
end
end  
DRAWTEXT(A and K<>3,HH, '  最高价：'+HH),ALIGN2,colorgreen{XG51};
DRAWTEXT(A and K<>3,LL, '  最低价：'+ll),ALIGN2,VALIGN2,colorgreen{XG51};
DRAWTEXT(A and K<>3,mHL,'  50%：'+mHL),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, a1, '  0.191：'+NUMTOSTRN(a1,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, a2, '  0.382：'+NUMTOSTRN(a2,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, a3, '  0.618：'+NUMTOSTRN(a3,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, a4, '  0.809：'+NUMTOSTRN(a4,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b1, '  1/8：'+NUMTOSTRN(b1,2)),ALIGN2,colorgreen{XG51};
DRAWTEXT(A and K=1, b2, '  1/4：'+NUMTOSTRN(b2,2)),ALIGN2,colorgreen{XG51};
DRAWTEXT(A and K=1, b3, ' 3/8：'+NUMTOSTRN(b3,2)),ALIGN0,colorgreen{XG51};
DRAWTEXT(A and K=1, b4, ' 5/8：'+NUMTOSTRN(b4,2)),ALIGN0,colorgreen{XG51};
DRAWTEXT(A and K=1, b5, '  3/4：'+NUMTOSTRN(b5,2)),ALIGN2,colorgreen{XG51};
DRAWTEXT(A and K=1, b6, '  7/8：'+NUMTOSTRN(b6,2)),ALIGN2,colorgreen{XG51};
DRAWTEXT(A and K<>3,HH, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7{XG51};
DRAWTEXT(A and K<>3,LL, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7{XG51};
DRAWTEXT(A and K<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorff0000,linethick7{XG51};
DRAWTEXT(A and K=1, a1, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, a2, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, a3, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, a4, '﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ ﹊ '),ALIGN2,color208FFF,linethick0{XG51};
DRAWTEXT(A and K=1, b1, '                                                                                                ﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K=1, b2, '                                                                                                ﹉﹉﹉﹉'),ALIGN2,color00ff00{XG51};
DRAWTEXT(A and K=1, b3, '﹉﹉'),ALIGN0,color00ff00{XG51};
DRAWTEXT(A and K=1, b4, '﹉﹉'),ALIGN0,color00ff00{XG51};
DRAWTEXT(A and K=1, b5, '                                                                                                ﹉﹉﹉﹉'),ALIGN2,color00ff00{XG51};
DRAWTEXT(A and K=1, b6, '                                                                                                ﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
PT  := REF(HIGH,1)-REF(LOW,1){XG51};
重心:=(HIGH + LOW + CLOSE)/3{XG51};
压力Ⅰ:= 2*重心-LOW{XG51};
压力Ⅱ:= 重心 + PT{XG51};
支撑Ⅰ:= 2*重心-HIGH{XG51};
支撑Ⅱ:= 重心 - PT{XG51};
DRAWTEXTAbs(75,8,'  《逆势操作》'),ColorFFFF00{XG51};
DRAWTEXTABS(150,8,'  重心:'+重心),Color208FFF{XG51};
DRAWTEXTABS(75,27,'    支  撑'),ColorFFFFFF{XG51};
DRAWTEXTABS(75,44,'    '+支撑Ⅰ),ColorFFFFFF{XG51};
DRAWTEXTABS(75,62,'    '+支撑Ⅱ),ColorFFFFFF{XG51};
DRAWTEXTABS(75,27,'                压  力'),Color00FF00{XG51};
DRAWTEXTABS(75,44,'                '+压力Ⅰ),Color00FF00{XG51};
DRAWTEXTABS(75,62,'                '+压力Ⅱ),Color00FF00{XG51};
DRAWTEXTABS(75,5,'│'),Color00FFFF{XG51};
DRAWTEXTABS(75,17,'│'),Color00FFFF{XG51};
DRAWTEXTABS(75,29,'│'),Color00FFFF{XG51};
DRAWTEXTABS(75,41,'│'),Color00FFFF{XG51};
DRAWTEXTABS(75,53,'│'),Color00FFFF{XG51};
DRAWTEXTABS(75,65,'│'),Color00FFFF{XG51};
DRAWTEXTABS(218,5,'│'),Color00FFFF{XG51};
DRAWTEXTABS(218,17,'│'),Color00FFFF{XG51};
DRAWTEXTABS(218,29,'│'),Color00FFFF{XG51};
DRAWTEXTABS(218,41,'│'),Color00FFFF{XG51};
DRAWTEXTABS(218,53,'│'),Color00FFFF{XG51};
DRAWTEXTABS(218,65,'│'),Color00FFFF{XG51};
DRAWTEXTABS(146,25,'│'),Color00FFFF{XG51};
DRAWTEXTABS(146,29,'│'),Color00FFFF{XG51};
DRAWTEXTABS(146,41,'│'),Color00FFFF{XG51};
DRAWTEXTABS(146,53,'│'),Color00FFFF{XG51};
DRAWTEXTABS(146,65,'│'),Color00FFFF{XG51};
DRAWTEXTABS(80,0,'────────────'),Color00FFFF{XG51};
DRAWTEXTABS(80,20,'────────────'),Color00FFFF{XG51};
DRAWTEXTABS(80,37,'────────────'),Color00FFFF{XG51};
DRAWTEXTABS(80,54,'────────────'),Color00FFFF{XG51};
DRAWTEXTABS(80,71,'────────────'),Color00FFFF{XG51};
WX:=ma(CLOSE,0){XG51};
STICKLINE(C>=O,C,O,8,0),COLOR0000AA{XG51};
STICKLINE(C>=O,C,O,6,0),COLOR0000bb {XG51};
STICKLINE(C>=O,C,O,4,0),COLOR0000cc {XG51};
STICKLINE(C>=O,C,O,2,0),COLOR0000ee{XG51};
STICKLINE(C>=O,H,L,0,0),COLOR0000ff{XG51};
STICKLINE(C<=O,C,O,8,0),Color7B7b00{XG51};
STICKLINE(C<=O,C,O,6,0),Color909000{XG51};
STICKLINE(C<=O,C,O,4,0),ColorA8a800{XG51};
STICKLINE(C<=O,C,O,2,0),COLORcece00{XG51};
STICKLINE(C<=O,H,L,0,0),COLORffff00{XG51};
G:=zig(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
X:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3){XG51};
DRAWTEXT(G,L*0.997,'▲'),ALIGN1,VALIGN0,Colorff00ff{XG51};
DRAWTEXT(G,L,'￣'),ALIGN1,VALIGN0,Color00ff00{XG51};
DRAWTEXT(X,H*1.002,'▼'),ALIGN1,VALIGN2,Color00ffff{XG51};
DRAWTEXT(X,H,'￣'),ALIGN1,VALIGN0,Color00ffff{XG51};
ED:=barslast(G){XG51};
EF:=barslast(X){XG51};
买入到卖出天数:ED,LINETHICK0,ColorFFFFFF{XG51};
卖出到买入天数:EF,LINETHICK0,ColorFFFFFF{XG51};
换手: vol/CAPITAL*100,LINETHICK0,colorwhite{XG51};
QQ:=换手{XG51};
DRAWTEXTREL(0,910,'             买入到到当前周期:'+NUMTOSTR(ED) +'天'+'   卖出到当前周期:'+NUMTOSTR(EF) +'天'+'   换手率:'+NUMTOSTRN(QQ,2) +'%'),colorFfff00{X^G*5=1^C^N^{};