大智慧江恩主图选股指标公式源码

大智慧江恩主图选股指标公式源码

源码正文：

input:K(1,1,3);            
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,color00ffff{XG51};
DRAWTEXT(A and K<>3,LL, '  最低价：'+ll),ALIGN2,VALIGN2,color00ffff{XG51};
DRAWTEXT(A and K<>3,mHL,'  中间价：'+mHL),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b1, '  1/8：'+NUMTOSTRN(b1,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b2, '  1/4：'+NUMTOSTRN(b2,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b3, ' 3/8：'+NUMTOSTRN(b3,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b4, ' 5/8：'+NUMTOSTRN(b4,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b5, '  3/4：'+NUMTOSTRN(b5,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K=1, b6, '  7/8：'+NUMTOSTRN(b6,2)),ALIGN2,color00ffff{XG51};
DRAWTEXT(A and K<>3,HH, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3,LL, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3,mHL,'﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3, b1, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3, b2, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3, b3, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3, b4, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{XG51};
DRAWTEXT(A and K<>3, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00;

DRAWTEXTAbs(50,20,'所属板块：'+BKNAME),Color00FF00{X_G.5_1_C_N_{};