大智慧解盘主图指标公式

N:=20;

DRAWTEXTAbs(10,10,stKLABEL+' '+STKNAME+' '+BKNAME),COLORGREEN;

均价:=(3*C+H+L+O)/6;

VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36;

VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;

SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;

SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;

SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE<VAR1;

SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);;

SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;

XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1) AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);

XD2:=VAR1=VAR2 AND CLOSE>VAR1;

SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));

量能饱和度:=IF(SAT>1,1,SAT)*100;

IF BARSTATUS=2 AND SZ1 THEN BEGIN

DRAWTEXTABS(320,25,'调整结束短线介入'),COLORRED;

END

ELSE

IF BARSTATUS=2 AND SZ2 THEN BEGIN

DRAWTEXTABS(320,25,'上升通道走势良好'),COLORRED;

END

ELSE

IF BARSTATUS=2 AND SZ3 THEN BEGIN

DRAWTEXTABS(320,25,'股价偏离注意调整'),COLORRED;

END

ELSE

IF BARSTATUS=2 AND SZ4 THEN BEGIN

DRAWTEXTABS(320,25,'上升通道调整洗盘'),COLORGREEN;

END

ELSE

IF BARSTATUS=2 AND SZ5 THEN BEGIN

DRAWTEXTABS(320,25,'转向特征注意离场'),COLORGREEN;

END

ELSE

IF BARSTATUS=2 AND SZ6 THEN BEGIN

DRAWTEXTABS(320,25,'通道改变坚决离场'),COLORGREEN;

END

ELSE

IF BARSTATUS=2 AND XD1 THEN BEGIN

DRAWTEXTABS(320,25,'下跌通道只宜观望'),COLORGREEN;

END

ELSE

IF BARSTATUS=2 AND XD2 THEN BEGIN

DRAWTEXTABS(320,25,'短期底部准备进入'),COLORYELLOW;

END;

AB1:=COST(0.33);

AB2:=COST(5);

AB3:=COST(15);

AB4:=COST(55);

AB5:=COST(97);

AA1:=COST(90);

AA2:=COST(70);

AA3:=COST(30);

AA4:=COST(10);

获利:=WINNER(CLOSE)*100;

套牢:=100-WINNER(CLOSE)*100;

DRAWTEXTABS(15,25,'量能饱和度:'+NUMTOSTRN(量能饱和度,2)+'%'),COLOR00FFFF;

DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF;

DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF;

DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF;

DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF;

DRAWTEXTABS(15,100,'底出击:'+NUMTOSTRN(AB1,2)),COLOR00FFFF;

DRAWTEXTABS(520,25,'建仓:'+NUMTOSTRN(AB2,2)),COLOR00FFFF;

DRAWTEXTABS(600,25,'整固:'+NUMTOSTRN(AB3,2)),COLOR00FFFF;

DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(AB4,2)),COLOR00FFFF;

DRAWTEXTABS(520,40,'获利:'+NUMTOSTRN(获利,2)+'%'),COLOR00FFFF;

DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF;

DRAWTEXTABS(675,40,'预测:'+NUMTOSTRN(AB5,2)),COLOR00FFFF;

AAA:=量能饱和度<=10;

BBB:=量能饱和度>10 AND 量能饱和度<=20;

CCC:=量能饱和度>20 AND 量能饱和度<=30;

DDD:=量能饱和度>30 AND 量能饱和度<=50;

EEE:=量能饱和度>50 AND 量能饱和度<=70;

FFF:=量能饱和度>70 AND 量能饱和度<=80;

GGG:=量能饱和度>80 AND 量能饱和度<=90;

HHH:=量能饱和度>90;

IF BARSTATUS=2 AND AAA THEN BEGIN DRAwrECTREL(0,350,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND BBB THEN BEGIN DRAWRECTREL(0,320,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND CCC THEN BEGIN DRAWRECTREL(0,290,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND DDD THEN BEGIN DRAWRECTREL(0,230,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND EEE THEN BEGIN DRAWRECTREL(0,170,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND FFF THEN BEGIN DRAWRECTREL(0,140,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND GGG THEN BEGIN DRAWRECTREL(0,110,15,380,RGB(255,0,0));

END

ELSE

IF BARSTATUS=2 AND HHH THEN BEGIN DRAWRECTREL(0,85,15,380,RGB(255,0,0));

END;

rsi1预设:=5000;

RSI2预设:=5000;

RSI3预设:=5000;

LC:=REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;

A:=SMA(MAX(CLOSE-LC,0),24,1);

B:=SMA(ABS(CLOSE-LC),24,1);

A1:=SMA(MAX(CLOSE-LC,0),6,1);

B1:=SMA(ABS(CLOSE-LC),6,1);

YCJ1:IF(C>LC,(REF(A1,1)*5-REF(B1,1)*5*RSI1预设/10000)/(RSI1预设/10000-1)+LC,LC+REF(B1,1)*5-REF(A1,1)*5/(RSI1预设/10000));

A2:=SMA(MAX(CLOSE-LC,0),12,1);

B2:=SMA(ABS(CLOSE-LC),12,1);

YCJ2:IF(C>LC,(REF(A2,1)*11-REF(B2,1)*11*RSI2预设/10000)/(RSI1预设/10000-1)+LC,LC+REF(B2,1)*11-REF(A2,1)*11/(RSI1预设/10000));

YCJ3:IF(C>LC,(REF(A,1)*23-REF(B,1)*23*RSI3预设/10000)/(RSI3预设/10000-1)+LC,LC+REF(B,1)*23-REF(A,1)*23/(RSI3预设/10000));

A74:=MA(CLOSE,20);

A75:=(CLOSE > MA(CLOSE,5));

A76:=(MA(CLOSE,5) > MA(CLOSE,10));

A77:=(CLOSE > MA(CLOSE,10));

A78:=(MA(CLOSE,5) > MA(CLOSE,20));

A79:=(CLOSE > MA(CLOSE,20));

A710:=REF(A74,1);

A711:=(A74 > A710);

AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10))) + IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));

DSLX:=(CLOSE / INDEXC);

DSLX1:=MA(DSLX,5);

DSLX2:=MA(DSLX,10);

V1:=MA(vol,5);

V2:=MA(VOL,10);T := BArslAST(DISPSTATUS=1)+1;

T := BARSLAST(DISPSTATUS=1)+1;

HHg := HHV(H, T);

ddg := LLV(L, T);

IF BARSTATUS=2 and c<200 and ((crOSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'的量能理想,有明显走强迹象,可以考虑中线进场参与,仓位在2/3左右。 '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'虽然走势趋强,但量能还显不足,可以考虑短线进场,仓位在1/2左右。 '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'量价配合良好,但相对其它股票并没有明显走强,可以考虑短线进场,仓位1/2左右。 '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'形态尚可,但量能不足,股票也未完全走强,可以短线参与,仓位1/3左右。 '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'形态变坏,但走势相对其它股票尚可,重仓者减持大半,清仓者可以观望。 '),color00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'随大盘一起下跌,程明显缩量走势,考虑到大盘风险,减持或清仓。 '),color00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'放量下跌,走势明显偏弱,离场观望。 '),color00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'缩量下跌,走势偏弱,离场观望。 '),color00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'形态良好,强势明显,量能充足,可以继续持有。 '),color00FFFF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'上行趋势不变,强势依然,但量能开始转弱,注意风险。 '),color00FFFF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'仍然具备上涨潜力,但股性偏弱,可考虑减仓。 '),color00FFFF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'走势趋弱,量能不足,减持大部分筹码。 '),color00FFFF,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'形态不佳,注意成交量的变化,但目前不适合参与。 '),COLOR00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN

DRAWTEXTREL(360,960,'趋势不明,股价偏弱,注意量能变化,目前不宜参与。 '),COLOR00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'有走强迹象,但量能不足,趋势不明,不适合操作。 '),COLOR00FF00,LINETHICK1;

IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN

DRAWTEXTREL(360,960,'走势太弱,没有参与价值。 '),COLOR00FF00,LINETHICK1;

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN

DRAWTEXTREL(360,960,'大盘量能理想,有明显走强迹象,可以考虑中线进场参与,仓位在2/3左右, '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN

DRAWTEXTREL(360,960,'如前期经过一轮下跌,此时为最佳买点,但如果前期有过一段涨幅则介入需谨慎。 '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN

DRAWTEXTREL(360,960,'大盘虽然走势趋强,但量能还显不足,如果前期经过一轮下跌, '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN

DRAWTEXTREL(360,960,'可以考虑短线进场,仓位在1/2左右,一旦量能放大可以加仓买入。 '),color0000FF,LINETHICK1;

IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN

DRAWTEXTREL(360,960,'大盘形态走坏,重仓者可以减去大部分仓位。 '),color00FF00,LINETHICK1;

IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN

DRAWTEXTREL(360,960,'大盘缩量调整,注意风险,短线清仓观望。 '),color00FF00,LINETHICK1;

IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN

DRAWTEXTREL(360,960,'大盘走势良好,量能理想,可以继续持有强势股。 '),color00FFFF,LINETHICK1;

IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN

DRAWTEXTREL(360,960,'大盘形态良好,但量能稍显不足,随时准备减仓。 '),color00FFFF,LINETHICK1;

IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN

DRAWTEXTREL(360,960,'大盘趋势不明,注意成交量变化,目前不适宜进场。 '),COLOR00FF00,LINETHICK1;

IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN

DRAWTEXTREL(360,960,'大盘趋势向下,量能萎缩,不适合进场。 '),COLOR00FF00,LINETHICK1;

E:=(HIGH+LOW+OPEN+2*CLOSE)/5;

明日阻力:=2*E-LOW;

明日支撑:=2*E-HIGH;

明日突破:=E+(HIGH-LOW);

明日反转:=E-(HIGH-LOW);

今日阻力:=REF(明日阻力 , 1);

今日支撑:=REF(明日支撑 , 1);

DRAWTEXTREL(100,100,'今日阻力=:'+NUMTOSTRN(今日阻力,2 )+''),Color00FFFF;

DRAWTEXTREL(100,140,'今日支撑=:'+NUMTOSTRN(今日支撑,2 )+''),Color00FF00;

DRAWTEXTREL(100,180,'明日突破=:'+NUMTOSTRN(明日突破,2 )),ColorFF00FF;

DRAWTEXTREL(100,220,'明日阻力=:'+NUMTOSTRN(明日阻力,2 )),ColorFFFF00;

DRAWTEXTREL(100,260,'明日支撑=:'+NUMTOSTRN(明日支撑,2 )),COLORRED;

DRAWTEXTREL(100,300,'明日反转=:'+NUMTOSTRN(明日反转,2 )),COLORGREEN;