大智慧精确打击选股指标公式源码

大智慧精确打击选股指标公式源码

源码正文：

DRAWTEXTREL(230,20,'● 也是应用在底部选股 ●'),COLORyellow,linethick2{XG51};
DRAwrECTREL(0,10,200,1000,rgb(0,0,255)),layer0{XG51};
n:=10{XG51};
f:=25{XG51};
Var1:=HHV(HIGH,9)-LLV(LOW,9){XG51};
Var2:=HHV(HIGH,9)-CLOSE{XG51};
Var3:=CLOSE-LLV(LOW,9){XG51};
Var4:=Var2/Var1*100-70{XG51};
Var5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
Var6:=(high+low+open+close)/4{XG51};
Var7:=SMA(Var3/Var1*100,3,1){XG51};
Var8:=LLV(LOW,34){XG51};
Var9:=Sma(Var7,3,1)-SMA(Var4,9,1){XG51};
VarA:=IF(Var9>100,Var9-100,0){XG51};
VarB:=HHV(HIGH,34){XG51};
VarC:=ema((Var6-Var8)/(VarB-Var8)*100,13){XG51};
VarD:=EMA(0.667*REF(VarC,1)+0.333*VarC,2){XG51};
VarE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(Abs(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25{XG51};
VarF:=MA(VarE,3){XG51};
Var10:=REF(VarF,1){XG51};
生命线:EMA(VarD,N),colorFFAA00{XG51};
Var11:=(CLOSE-LLV(LOW,F))/(HHV(HIGH,F)-LLV(LOW,F))*100{XG51};
K:=SMA(Var11,3,1){XG51};
D:=SMA(K,3,1){XG51};
红灯亮买: stICKLINE(crOSS(VarC,VarD) AND VarC>VarD AND VarC<18,36,0,1,0),colorred{XG51};
见红:IF(VarC>18,0,IF(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,37,0)),COLOR3355FF{XG51};
fillrgn(0,25,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),color0000FF{XG51};
PARTLINE(38,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),POINTDOT,LINETHICK7,color0000ff{XG51};
PARTLINE(38,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),POINTDOT,LINETHICK4,colorffffff{XG51};
DRAWTEXT(见红,50,'买'),colorffffff{XG51};
浪尖: STICKLINE(CROSS(VarD,VarC) AND VarC<VarD AND VarC>60,90,100,12,1),colorblue{XG51};
DRAWTEXTABS(5,5,'选股无忧网 www.xg51.cn'),linethick1,COLOR00EEff{XG51};
IF(VarC<79,100,IF(CROSS(VarD,VarC) AND VarD>79 AND VarC>79,70,100)),COLOR00ff00{XG51};
卖: STICKLINE(FILTER(CROSS(VarD,VarC),10) AND VarD>79 AND VarC>79,100,95,4,0),colorgreen{XG51};
卖出:CROSS(VarD,VarC) AND VarC<VarD AND VarC>60,linethick0{XG51};
PARTLINE(68,CROSS(VarD,VarC) AND VarD>79 AND VarC>79),POINTDOT,LINETHICK7,color00ff00{XG51};
PARTLINE(68,CROSS(VarD,VarC) AND VarD>79 AND VarC>79),POINTDOT,LINETHICK4,colorffffff{XG51};
DRAWTEXT(CROSS(VarD,VarC) AND VarC<VarD AND VarC>60,60,'卖'),colorgreen{XG51};
STICKLINE(VarC-VarD>0,VarC,VarD,8,1),COLOR0000FF{XG51};
STICKLINE(VarC-VarD<0,VarC,VarD,8,0),COLOR00FF00{XG51};
kar1:=3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
kar2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100{XG51};
kar3:=SMA(SMA(kar2,3,1),3,1){XG51};
kar4:=EMA(kar3,5){XG51};
kar5:=LLV(LOW,26){XG51};
kar6:=HHV(HIGH,34){XG51};
kar7:=EMA((CLOSE-kar5)/(kar6-kar5)*4,4)*25{XG51};
kar8:=100-kar1{XG51};
kar9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
kar10:=SMA(kar9,3,1){XG51};
kar11:=SMA(kar10,3,1){XG51};
kar12:=EMA(3*kar10-2*kar11,3){XG51};
kar13:=(-1)*(EMA(kar8,1)-50)+50{XG51};
kar14:=EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6){XG51};
全仓:(CROSS(kar4,10) AND kar4>10),coloryellow{XG51};
底部:STICKLINE(CROSS(kar4,10) AND kar4>10,50,0,4,0),color00ff00{XG51};
建仓: IF((kar7<10),18,0), colorcc00ff{XG51};
连续建仓:IF(建仓,BArslAST(CROSS(建仓,0.1))+1,0),COLORFF00FF,POINTDOT,LINETHICK0{XG51};
DRAWTEXT(建仓,10,'建'),colorffffff{XG51};
DRAWTEXT(CROSS(kar4,10) AND kar4>10,65,'●全仓'),colorred{XG51};
DRAWTEXTREL(5,70,'今  建仓区：'+NUMTOSTRN(建仓,0)),COLORffffff,linethick1,layer0{XG51};
DRAWTEXTREL(5,310,'日  买  入：'+NUMTOSTRN(见红,0)),COLORffffff,linethick1,layer0{XG51};
DRAWTEXTREL(5,550,'行  全仓区：'+NUMTOSTRN(全仓,0)),COLORFFFFFF,linethick1,layer0{XG51};
DRAWTEXTREL(5,790,'情  卖  出：'+NUMTOSTRN(卖出,0)),COLORffffff,linethick1,layer0{XG51};
JCA1:=建仓=18 and REF(建仓,1)=18{XG51};
JCA2:=建仓=18 and REF(建仓,1)=0{XG51};
JCA3:=建仓=0 AND 全仓=0{XG51};
JCA4:=建仓=0 AND 全仓=1{XG51};
IF BARSTATUS=2 AND JCA1 THEN BEGIN
DRAWTEXTREL(25,70,'             ● 数一数 第 '+NUMTOSTRN(连续建仓,0)+' 次'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND JCA2 THEN BEGIN
DRAWTEXTREL(25,70,'             ● 来了 第 1 次'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND JCA3 THEN BEGIN
DRAWTEXTREL(25,70,'             ● 空等待！'),colorgreen,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND JCA4 THEN BEGIN
DRAWTEXTREL(25,70,'             ● 机会来了！'),colorRED,layer0{XG51};
END
MR1:=见红=37{XG51};
MR2:=见红=0 AND 全仓=0{XG51};
MR3:=见红=0 AND 全仓=1{XG51};
IF BARSTATUS=2 AND MR1 THEN BEGIN
DRAWTEXTREL(25,310,'             ● 买入 ！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND MR2 THEN BEGIN
DRAWTEXTREL(25,310,'             ● 等无人！'),colorgreen,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND MR3 THEN BEGIN
DRAWTEXTREL(25,310,'             ● 机会来了！'),colorRED,layer0{XG51};
END
QCA1:=全仓=1 {XG51};
QCA2:=全仓=0{XG51};
IF BARSTATUS=2 AND QCA1 THEN BEGIN
DRAWTEXTREL(25,550,'             ● 买错也要买！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND QCA2 THEN BEGIN
DRAWTEXTREL(25,550,'             ● 等不到 烦人啊！'),colorgreen,layer0{XG51};
END{XG51};
MCH1:=卖出=1{XG51};
MCH2:=卖出=0{XG51};
IF BARSTATUS=2 AND MCH1 THEN BEGIN
DRAWTEXTREL(25,790,'             ● 儿子说要玩具'),colorred,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND MCH2 THEN BEGIN
DRAWTEXTREL(25,790,'             ● 今天不卖酒！'),colorgreen,layer0{XG51};
END{X-G_5*1-C-N-{};