大智慧智能分析量能主图选股指标公式源码

大智慧智能分析量能主图选股指标公式源码

源码正文：

N:=5;N1:=10;N2:=20;N3:=30{XG51};
A4:=ma(CLOSE,20){XG51};
A5:=(CLOSE > MA(CLOSE,5)){XG51};
A6:=(MA(CLOSE,5) > MA(CLOSE,10)){XG51};
A7:=(CLOSE > MA(CLOSE,10)){XG51};
A8:=(MA(CLOSE,5) > MA(CLOSE,20)){XG51};
A9:=(CLOSE > MA(CLOSE,20)){XG51};
A10:=REF(A4,1){XG51};
A11:=(A4 > A10){XG51};
AVX:=(((((IF(A5,10,(0 - 10)) + IF(A6,10,(0 - 10))) + IF(A7,10,(0 - 10))) + IF(A8,10,(0 - 10))) + IF(A9,10,(0 - 10))) + IF(A11,10,(0 - 10))){XG51};
DSLX:=(CLOSE / INDEXC){XG51};
DSLX1:=MA(DSLX,5){XG51};
DSLX2:=MA(DSLX,10){XG51};
V1:=MA(vol,5){XG51};
V2:=MA(VOL,10);T := BArslAst(DISPSTATUS=1)+1{XG51};
T := BARSLAST(DISPSTATUS=1)+1{XG51};
HHg := HHV(H, T){XG51};
ddg := LLV(L, T){XG51};
IF BARSTATUS=2 and c<200 and ((crOSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTAbs(12,170,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。  '),color00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。  '),color00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股放量下跌，走势明显偏弱，离场观望。  '),color00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股缩量下跌，走势偏弱，离场观望。  '),color00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股形态良好，强势明显，量能充足，可以继续持有。  '),color00FFFF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险。  '),color00FFFF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。  '),color00FFFF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股走势趋弱，量能不足，减持大部分筹码。  '),color00FFFF,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股形态不佳，注意成交量的变化，但目前不适合参与。  '),COLOR00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,170,'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。  '),COLOR00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股有走强迹象，但量能不足，趋势不明，不适合操作。  '),COLOR00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,170,'该股走势太弱，没有参与价值。  '),COLOR00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,170,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,170,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN
DRAWTEXTABS(12,170,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN
DRAWTEXTABS(12,170,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。  '),color0000FF,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,170,'大盘形态走坏，重仓者可以减去大部分仓位。  '),color00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN
DRAWTEXTABS(12,170,'大盘缩量调整，注意风险，短线清仓观望。  '),color00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,170,'大盘走势良好，量能理想，可以继续持有强势股。  '),color00FFFF,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTABS(12,170,'大盘形态良好，但量能稍显不足，随时准备减仓。  '),color00FFFF,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,170,'大盘趋势不明，注意成交量变化，目前不适宜进场。  '),COLOR00FF00,LINETHICK3{XG51};
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTABS(12,170,'大盘趋势向下，量能萎缩，不适合进场。  '),COLOR00FF00,LINETHICK3{XG51};
NN:= DISPSTATUS=2{XG51};
Mb1:MA(c,n),ColorFFFfff,linethick1,DOTLINE{XG51};
Mb2:MA(c,n1),Color00Ffff,linethick1,DOTLINE{XG51};
Mb3:MA(c,n2),Color208fff,linethick1,DOTLINE{XG51};
Mb4:MA(c,n3),Colorff00ff,linethick0,DOTLINE{XG51};
VAR3:=(HIGH < REF(LOW,1)){XG51};
VAR4:=(LOW > REF(HIGH,1)){XG51};
DRAWTEXT(VAR3,(HIGH ),'&darr;QK'),ALIGN0,VALIGN2,COLORffFFff,linethick3{XG51};
DRAWTEXT(VAR4,(LOW ),'&uarr;QK'),ALIGN0,VALIGN0,COLOR00ffff,linethick3{XG51};
DRAWTEXT(nn,Mb1,''+NUMTOSTRN(Mb1,2)+''),ALIGN0,ColorFFFFFF,LINETHICK1{XG51};
DRAWTEXT(nn,Mb2,''+NUMTOSTRN(Mb2,2)+''),ALIGN0,Color00FFFF,LINETHICK1{XG51};
DRAWTEXT(nn,Mb3,''+NUMTOSTRN(Mb3,2)+''),ALIGN0,Color208FFF,LINETHICK1{XG51};
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BacKSET(B1,3+1); D1:=FILTER(C1,3){XG51};
A2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3){XG51};
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2{XG51};
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS OR BARSCOUNT(CLOSE)=1{XG51};
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 AND E1>=E2){XG51};
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1)){XG51};
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1){XG51};
L2:=LD OR BARSTATUS OR BARSCOUNT(CLOSE)=1{XG51};
X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2)){XG51};
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1){XG51};
UU:=BACKSET(BARSTATUS,BARSLAST(LD)+1){XG51};
VV:=UU>REF(UU,1){XG51};
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2){XG51};
XX:=WW>REF(WW,1){XG51};
UU2:=BACKSET(BARSTATUS,BARSLAST(HD)+1){XG51};
VV2:=UU2>REF(UU2,1){XG51};
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2){XG51};
XX2:=WW2>REF(WW2,1){XG51};
一低:REF(L,BARSLAST(VV)),COLOR99FF66,LINETHICK1,DOTLINE{XG51};
二低:REF(L,BARSLAST(XX)),COLORFF66FF,LINETHICK1,DOTLINE{XG51};
一高:REF(H,BARSLAST(VV2)),COLOR99FF66,LINETHICK1,DOTLINE{XG51};
二高:REF(H,BARSLAST(XX2)),COLORFF66FF,LINETHICK1,DOTLINE{XG51};
xz:=DYNAINFO(7){XG51};
sz:=xz-一低{XG51};
zz:=sz/一低*100{XG51};
gg:=一高-一低{XG51};
{XG51};
{XG51};
k:=一高-二低{XG51};
w:=k/二低*100{XG51};
kg:=二高-二低{XG51};
wg:=kg/二高*100{XG51};
DRAWTEXTABS(52,110,' 前一低到 当前幅度 ：('+NUMTOSTRn(zz,2)+'%)'+'涨('+NUMTOSTRn(sz,2)+')'+''),colorffffff{XG51};
DRAWTEXTABS(52,125,' 前一高到 前一低 ：(-'+NUMTOSTRn(V,2)+'%)'+'跌('+NUMTOSTRn(gg,2)+')'+''),color00ff00{XG51};
DRAWTEXTABS(52,140,' 前二低到 前一高 ：('+NUMTOSTRn(w,2)+'%)'+'涨('+NUMTOSTRn(k,2)+')'+''),colorFEBAF5{XG51};
DRAWTEXTABS(52,155,' 前二高到 前二低 ：(-'+NUMTOSTRn(wg,2)+'%)'+'跌('+NUMTOSTRn(kg,2)+')'+''),colorFEBAF5{XG51};
DRAWTEXT(nn,一低,'前一低: '+NUMTOSTRN(一低,2)+''),ALIGN2,Color00dd00,VALIGN2{XG51};
DRAWTEXT(nn,一高,'前一高: '+NUMTOSTRN(一高,2)+''),ALIGN2,Color00dd00,VALIGN2{XG51};
DRAWTEXT(nn,二低,'前二低: '+NUMTOSTRN(二低,2)+''),ALIGN2,Colordd00ff,LINETHICK1{XG51};
DRAWTEXT(nn,二高,'前二高: '+NUMTOSTRN(二高,2)+''),ALIGN2,Colordd00ff,LINETHICK1{XG51};
mc:=REF(c,1){XG51};
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07)){XG51};
阻力位１:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位){XG51};
止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93)){XG51};
止损位１:=IF((CLOSE < 10),(CLOSE * 0.95),止损位){XG51};
阻力位a:=IF((mc > 200),(mc * 1.01),(mc * 1.07)){XG51};
阻力位2:=IF((mc < 10),(mc * 1.05),阻力位a){XG51};
止损位b:=IF((mc > 200),(mc * 0.99),(mc * 0.93)){XG51};
止损位2:=IF((mc < 10),(mc * 0.95),止损位b){XG51};
DRAWTEXTABS(58,80,'[昨/今日 止损位 :'+NUMTOSTRn(止损位b,2)+'/'+NUMTOSTRn(止损位１,2)+'**]'),LINETHICK1,COLOR00FF00{XG51};
DRAWTEXTABS(58,95,'[昨/今日 阻力位 :'+NUMTOSTRn(阻力位2,2)+'/'+NUMTOSTRn(阻力位１,2)+']'),LINETHICK1,colorFEBAF5{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(120,27,'    压 力'),Color00FF00{XG51};
DRAWTEXTABS(120,44,'    '+压力Ⅰ),Color00FF00{XG51};
DRAWTEXTABS(120,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{X=G^5-1=C=N={};