大智慧月价季托量托带背离顶底提示主图选股指标公式源码

大智慧月价季托量托带背离顶底提示主图选股指标公式源码

源码正文：

M3:ma(C,3){XG51};
M5:=MA(C,5){XG51};
M8:=MA(C,8){XG51};
M11:MA(C,11){XG51};
M16:=MA(C,16){XG51};
M32:=MA(C,32){XG51};
M55:MA(C,55){XG51};
M89:MA(C,89){XG51};
M144:MA(C,144){XG51};
M233:MA(C,233){XG51};
M512:MA(C,512){XG51};
M1024:=MA(C,1024){XG51};
月价托:m5>m16 and m5>m8 and cross(m8,m16),coloryellow,linethick0{XG51};
季价托:m16>m55 and m16>m32 and cross(m32,m55),colorf00ff0,linethick0{XG51};
短、长价托:m5>m55 and m5>m8 and cross(m8,m55),colorred,linethick0{XG51};
drawtext(月价托,l,'月价托'),coloryellow{XG51};
stickline(月价托,l,h,0.5,1), coloryellow{XG51};
stickline(月价托,o,c,5,1),linethick3, coloryellow{XG51};
drawtext(季价托,l,'季价托'),colorf00ff0{XG51};
stickline(季价托,l,h,0.5,1), colorf00ff0{XG51};
stickline(季价托,o,c,5,1),linethick3, colorf00ff0{XG51};
drawtext(短、长价托,l,'短、长价托'),color36c0c1{XG51};
stickline(短、长价托,l,h,0.5,1), color36c0c1{XG51};
stickline(短、长价托,o,c,5,0),linethick3, color36c0c1{XG51};
vol1:=MA(VOL,5){XG51};
voL2:=MA(VOL,10){XG51};
vol3:=MA(VOL,20){XG51};
量托:vol1>=vol3 and cross(vol2,vol3) and ref(vol2,1)<ref(vol3,1),linethick0{XG51};
drawtext(量托,l,'▲'),colorwhite{XG51};
drawtext(量托,l*0.97,'量托'),colorwhite{XG51};
stickline(量托,l,h,0.5,1), colorwhite{XG51};
stickline(量托,o,c,5,1),linethick3, colorwhite{XG51};
DRAWTEXTREL(4,20,'板块:'+BKNAME),LINETHICK1,COLORFFFFFF{XG51};
DRAWTEXTAbs(4,20 ,'流通盘:'+capital/1000000+'亿(小盘股<5个亿<中盘股<10亿<大盘股)'),COLOR00FF00,linethick1{XG51};
BDGD:=C=HHV(C,13){XG51};
GDSJ:=BArslAST(FILTER(CROSS(0.8,BDGD),2))+1{XG51};
高点:REF(C,GDSJ),COLORFF00FF,POINTDOT,LAYER0{XG51};
突破:CROSS(C,REF(高点,1)),COLOR00FFFF,POINTDOT,LINETHICK0{XG51};
STICKLINE(GDSJ<=6,高点,高点,8,0),COLORFF00FF,LAYER0{XG51};
DRAWTEXT(突破,LOW,'&uarr;'),COLOR00FFFF,ALIGN1{XG51};
BDDD:=C=LLV(C,13){XG51};
DDSJ:=BARSLAST(FILTER(CROSS(0.8,BDDD),2))+1{XG51};
低点:REF(C,DDSJ),COLOR00FF00,POINTDOT,LAYER0{XG51};
STICKLINE(DDSJ<=6,低点,低点,8,0),COLOR00FF00,LAYER0{XG51};
difF:=ema(CLOSE,12) - EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA){XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA){XG51};
DRAWTEXT(FILTER(B1>0,5),L*0.91,'M底'),COLORCYAN{XG51};
A2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)){XG51};
DRAWTEXT(FILTER(B2>0,3),L*0.93,'K底'),COLORBLUE{XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)){XG51};
DRAWTEXT(FILTER(B3>0,5),L*0.95,'R底'),COLORFFFF00{XG51};
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF){XG51};
DRAWTEXT(FILTER(D1>0,5),H*1.06,'M顶'),COLOR0066FF{XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)){XG51};
DRAWTEXT(FILTER(D2>0,3),H*1.06,'K顶'),COLORWHITE{XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)){XG51};
DRAWTEXT(FILTER(D3>0,5),H*1.06,'R顶'),COLORFF00FF;{XG51};
LC:=REF(CLOSE,1){XG51};
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背'),Color0000FF{XG51};
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背'),Color00FFFF{XG51};
vll:=cross(ma(c,10),ma(c,21)){XG51};
DRAWTEXT(vll,m8,''),colorwhite{XG51};
DRAWTEXT(vll,m8-0.09,'圆弧底'),colorwhite{XG51};
DRAWTEXT(CROSS(80,RSI) ,high*1.02,'见顶'),coloryellow{XG51};
Varb:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100{XG51};
Varc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100{XG51};
Vard:=BARSCOUNT(CLOSE){XG51};
Var1:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100-60{XG51};
Var2:=SMA(Var1,3,1)+100{XG51};
Var3:=(CLOSE-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3))*1000{XG51};
Var4:=SMA(Var3,3,1);Var5:=SMA(Var4,3,1)+100;Var6:=Var5-Var2{XG51};
主力:=EMA( (CLOSE-MA(CLOSE,3))/MA(CLOSE,3)*4800,2){XG51};
散户:=EMA( (CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*4800,7){XG51};
drawtext(cross(主力,散户) and 主力<0 and 散户<0,low,'见底'),colorred{XG51};
drawtext(cross(散户,主力) and 主力<0 and 散户<0,high*1.02,'清仓'),colorgreen{XG51};
var120:='■坐底飙升提示今日上穿'{XG51};
if CROSS(c,ma(c,5)) AND BARSTATUS=2  THEN var120:=var120+'【5】均线'+NUMTOSTRN(ma(c,5),2)+'元'{XG51};
if CROSS(c,ma(c,10)) AND BARSTATUS=2  THEN var120:=var120+'【10】均线'+NUMTOSTRN(ma(c,10),2)+'元'{XG51};
if CROSS(c,ma(c,20)) AND BARSTATUS=2  THEN var120:=var120+'【20】均线'+NUMTOSTRN(ma(c,20),2)+'元'{XG51};
if CROSS(c,ma(c,30)) AND BARSTATUS=2  THEN var120:=var120+'【30】均线'+NUMTOSTRN(ma(c,30),2)+'元'{XG51};
if CROSS(c,ma(c,40)) AND BARSTATUS=2  THEN var120:=var120+'【40】均线'+NUMTOSTRN(ma(c,40),2)+'元'{XG51};
if CROSS(c,ma(c,50)) AND BARSTATUS=2  THEN var120:=var120+'【50】均线'+NUMTOSTRN(ma(c,50),2)+'元'{XG51};
if CROSS(c,ma(c,60)) AND BARSTATUS=2  THEN var120:=var120+'【60】均线'+NUMTOSTRN(ma(c,60),2)+'元'{XG51};
if CROSS(c,ma(c,120)) AND BARSTATUS=2  THEN var120:=var120+'【120】均线'{XG51};
if (c>=ma(c,10)) AND BARSTATUS=2  THEN var120:=var120+'■在10均线上方■'+NUMTOSTRN(ma(c,10),2)+'元'{XG51};
DRAWTEXTREL(600,900,var120),Color8000FF;

var121:='■坐底飙升提示今日下破'{XG51};
if CROSS(ma(c,5),c) AND BARSTATUS=2  THEN var121:=var121+'【5】均线'+NUMTOSTRN(ma(c,5),2)+'元'{XG51};
if CROSS(ma(c,10),c) AND BARSTATUS=2  THEN var121:=var121+'【10】均线'+NUMTOSTRN(ma(c,10),2)+'元'{XG51};
if CROSS(ma(c,20),c) AND BARSTATUS=2  THEN var121:=var121+'【20】均线'+NUMTOSTRN(ma(c,20),2)+'元'{XG51};
if CROSS(ma(c,30),c) AND BARSTATUS=2  THEN var121:=var121+'【30】均线'+NUMTOSTRN(ma(c,30),2)+'元'{XG51};
if CROSS(ma(c,40),c) AND BARSTATUS=2  THEN var121:=var121+'【40】均线'+NUMTOSTRN(ma(c,40),2)+'元'{XG51};
if CROSS(ma(c,50),c) AND BARSTATUS=2  THEN var121:=var121+'【50】均线'+NUMTOSTRN(ma(c,50),2)+'元'{XG51};
if CROSS(ma(c,60),c) AND BARSTATUS=2  THEN var121:=var121+'【60】均线'+NUMTOSTRN(ma(c,60),2)+'元'{XG51};
if CROSS(ma(c,120),c) AND BARSTATUS=2  THEN var121:=var121+'【120】均线'{XG51};
if (ma(c,10)>=c) AND BARSTATUS=2  THEN var121:=var121+'■在10均线下方■'+NUMTOSTRN(ma(c,10),2)+'元'{XG51};
DRAWTEXTREL(600,960,var121),Color00FF00{XG51};
每股收益:=FINANCE2(3){XG51};
每股市盈率:=DYNAINFO(39){XG51};
每股净资产:=FINANCE2(4){XG51};
销售毛利率:=FINANCE2(12){XG51};
主营收入同比:=FINANCE2(11);  
净利润同比增长:=FINANCE2(10){XG51};
DRAWTEXTABS(20,40,'基本面提示：'),ColorFFFFFF,LINETHICK1{XG51};
DRAWTEXTABS(100,40,'每股收益：'+NUMTOSTRN(每股收益,2)+'元'),ColorFFFFFF{XG51};
DRAWTEXTABS(200,40,'每股市盈率：'+NUMTOSTRN(每股市盈率,1)+'倍'),ColorFFFFFF{XG51};
DRAWTEXTABS(350,40,'每股净资产：'+NUMTOSTRN(每股净资产,2)+'元'),ColorFFFFFF{XG51};
DRAWTEXTABS(85,55,' 销售毛利率：'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,ColorFFFFFF{XG51};
DRAWTEXTABS(200,55,'主营收入同比增长：'+NUMTOSTRN(主营收入同比,2)+'%'),LINETHICK1,ColorFFFFFF{XG51};
DRAWTEXTABS(350,55,'净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,ColorFFFFFF{XG51};
DRAWTEXTABS(20,70,'换手率提示：'),Coloryellow,LINETHICK1{XG51};
当日换手率:=sum(100*v/capital,1){XG51};
DRAWTEXTABS(100,70,'当日换手：'+NUMTOSTRN(当日换手率,2)+'%'),Coloryellow,LINETHICK1{XG51};
五日换手率:=sum(100*v/capital,5){X~G_5-1~C~N~{};