大智慧帝式主图未加密选股指标公式源码

大智慧帝式主图未加密选股指标公式源码

源码正文：

K:=5{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, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00{XG51};
DRAWTEXT(A and K=1, b4, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00{XG51};
DRAWTEXT(A and K=1, b5, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00ff00{XG51};
DRAWTEXT(A and K=1, b6, '﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉'),ALIGN2,color00FF00{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};
ED:=barslast(G){XG51};
EF:=barslast(X){XG51};
买入到卖出天数:ED,LINETHICK0,ColorFFFFFF{XG51};
卖出到买入天数:EF,LINETHICK0,ColorFFFFFF{XG51};
换手: vol/CAPITAL*100,LINETHICK0,colorwhite;
DRAWTEXTREL(0,910,' 买入到到当前周期:'+NUMTOSTR(ED) +'天'+' 卖出到当前周期:'+NUMTOSTR(EF) +'天'+' 换手率:'+NUMTOSTRN(换手,2) +'%' ),colorFfff00{X^G_5~1^C^N^{};

大智慧擒主升浪主图未加密选股指标公式源码

源码正文：

ma5:MA(CLOSE,5),pointdot,color000000,linethick1{XG51};
MA21:=ema(CLOSE,21){XG51};
MID:MA(CLOSE,21),color000000,linethick0{XG51};
风险线: MA(CLOSE,13),linethick3,COLORCYAN{XG51};
止损线: MA(CLOSE,27),linethick0,Coloree00ee{XG51};
UPPER:MID + 2*stD(C,20),LINETHICK0,COLORFFFFFF{XG51};
LOWER:MID - 2*STD(C,20),LINETHICK0,COLORFFFFFF{XG51};
H1:=EMA(SLOPE(CLOSE,34)*20+CLOSE,75){XG51};
H2:=EMA(CLOSE,8){XG51};
Var1d:=H2-H1{XG51};
a:=(3*c+l+o+h)/6{XG51};
b:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+14*ref(a,6)+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+ref(a,20))/210{XG51};
d:=ma(b,10){XG51};
STICKLINE((MA21 > REF(MA21,1)),MA21,MA21,5,6),LINETHICK2,Color00FFFF{XG51};
STICKLINE(C>=MID AND C>=O,C,O,5,0),COLORWHITE{XG51};
STICKLINE(C>=MID AND C>=O,H,L,0,0),COLORWHITE{XG51};
STICKLINE(C>=MID AND C<O,C,O,5,1),COLORWHITE{XG51};
STICKLINE(C>=MID AND C<O,O,H,0,0),COLORWHITE{XG51};
STICKLINE(C>=MID AND C<O,C,L,0,0),COLORWHITE{XG51};
STICKLINE(C<MID AND C>O,C,O,5,1),COLORffff00{XG51};
STICKLINE(C<MID AND C<=O,C,O,5,1),COLORffff00{XG51};
STICKLINE(C<MID AND C<=O,H,L,0,1),COLORffff00{XG51};
STICKLINE(C<MID AND C>O,C,H,0,1),COLORffff00{XG51};
STICKLINE(C<MID AND C>O,O,L,0,1),COLORffff00{XG51};
牛熊线:EMA(C,250),CIRCLEDOT,color999999{XG51};
界:MA(CLOSE,21),pointdot,color000000,linethick0{XG51};
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))){XG51};
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21)))){XG51};
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34)){XG51};
DRAWICON(crOSS(VAR2,MA(VAR3,6)),(LOW * 0.95),4),linethick3{XG51};
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.05),5),linethick3{XG51};
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'Ｂ'),coloryellow,linethick3{XG51};
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'Ｓ'),Coloree00ee,linethick2{XG51};
STICKLINE(C>=界 AND C>=O,C,O,5,0),COLORWHITE{XG51};
STICKLINE(C>=界 AND C>=O,H,L,0,0),COLORWHITE{XG51};
STICKLINE(C>=界 AND C<O,C,O,5,1),COLORWHITE{XG51};
STICKLINE(C>=界 AND C<O,O,H,0,0),COLORWHITE{XG51};
STICKLINE(C>=界 AND C<O,C,L,0,0),COLORWHITE{XG51};
STICKLINE(C<界 AND C>O,C,O,5,1),COLORffff00{XG51};
STICKLINE(C<界 AND C<=O,C,O,5,1),COLORffff00{XG51};
STICKLINE(C<界 AND C<=O,H,L,0,1),COLORffff00{XG51};
STICKLINE(C<界 AND C>O,C,H,0,1),COLORffff00{XG51};
STICKLINE(C<界 AND C>O,O,L,0,1),COLORffff00{XG51};
DRAWTEXT(CROSS(MA5,界),(LOW * 0.80),'◇底背离'),COLORRED{XG51};
DRAWTEXT(CROSS(c,止损线)and 止损线>风险线,(LOW * 0.96),'主升浪'),COLORWHITE,linethick3{X-G_5-1-C-N-{};