大智慧趋势为王顺势而为超强主图未加密选股指标公式源码

{0顺势598}
DRAWGBKLAST(C>0,STRIP(RGB(0,0,0),RGB(0,0,180),1)){XG51};
{k线}
STICKLINE(CLOSE>OPEN,HIGH,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,HIGH,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR006600{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000466{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000499{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0003bb{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0002dd{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0001ff;

{卖黄金,rsi=80}
LC:=REF(C,1){XG51};
卖黄金:((Sma(MAX((C - LC),0),3,1) / SMA(Abs((C - LC)),3,1)) * 100),LINETHICK0{XG51};
STICKLINE(crOSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00ffff,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,12,0 ),COLOR007777,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0{XG51};
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,2 ,0 ),COLOR00ffff,LAYER0;
ma5:ema(C,5),LINETHICK0{XG51};
PARTLINE(ma5,(ma5>REF(ma5,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),LINETHICK2,LAYER6;

VAR1:=(3*CLOSE+HIGH+LOW+OPEN)/6;{XG51};
A1: (EMA(VAR1,2)+EMA(VAR1,3)+EMA(VAR1,5)+EMA(VAR1,8)+EMA(VAR1,13))/5,COLORff9900;{XG51};
A2: EMA(A1,2),COLORff9900;{XG51};
A3: EMA(A2,2),COLORff9900;{XG51};
A4: EMA(A3,2),COLORff9900;{XG51};
A5: EMA(A4,2),COLORff9900;{XG51};
A6: EMA(A5,2),COLORff9900;
A7: EMA(A6,2),COLORff9900;{XG51};
A8: EMA(A7,2),COLORff9900;
A9: EMA(A8,2),COLORff9900;{XG51};
A10: EMA(A9,2),COLORff9900,LINETHICK2;;
PARTLINE(A1,A1>REF(A1,1)),COLOR00ffff;{XG51};
PARTLINE(A2,A2>REF(A2,1)),COLOR00ffff;{XG51};
PARTLINE(A3,A3>REF(A3,1)),COLOR00ffff;{XG51};
PARTLINE(A4,A4>REF(A4,1)),COLOR00ffff{XG51};
PARTLINE(A5,A5>REF(A5,1)),COLOR00ffff;;{XG51};
PARTLINE(A6,A6>REF(A6,1)),COLOR0ffff0;{XG51};
PARTLINE(A7,A7>REF(A7,1)),COLOR0ffff0;{XG51};
PARTLINE(A8,A8>REF(A8,1)),COLOR0ffff0;
PARTLINE(A9,A9>REF(A9,1)),COLOR0ffff0;{XG51};
PARTLINE(A10,A10>REF(A10,1)),COLOR0ffff0;;

五日乖离率:=(c-MA(C,5))/MA(C,5)*100{XG51};
拾八日乖离率:=(c-MA(C,18))/MA(C,18)*100{XG51};
JC:=cross(0,五日乖离率) and 拾八日乖离率<ref(拾八日乖离率,1) and EMA(C,10)>ref(EMA(C,10),1) {XG51};
减仓:=filter(JC,10){XG51};
drawtext(减仓,high*1.03,'&larr;减仓'),color00ffff,linethick2{XG51};
{XG51};
A74:=MA(CLOSE,20);{XG51};
A75:=(CLOSE > MA(CLOSE,5));{XG51};
A76:=(MA(CLOSE,5) > MA(CLOSE,10));{XG51};
A77:=(CLOSE > MA(CLOSE,10));{XG51};
A78:=(MA(CLOSE,5) > MA(CLOSE,20));{XG51};
A79:=(CLOSE > MA(CLOSE,20));{XG51};
A710:=REF(A74,1);{XG51};
A711:=(A74 > A710);{XG51};
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)));{XG51};
DSLX:=(CLOSE / INDEXC);{XG51};
DSLX1:=MA(DSLX,5);{XG51};
DSLX2:=MA(DSLX,10);{XG51};
V1:=MA(vol,5);{XG51};
V2:=MA(VOL,10);

IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,10,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。 '),color0000FF,LINETHICK3;
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,10,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。 '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,10,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。 '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,40,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。 '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,10,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。 '),color00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(12,10,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。 '),color00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,10,'该股放量下跌，走势明显偏弱，离场观望。 '),color00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(12,10,'该股缩量下跌，走势偏弱，离场观望。 '),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,10,'该股形态良好，强势明显，量能充足，可以继续持有。 '),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,10,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险。 '),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,10,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。 '),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,10,'该股走势趋弱，量能不足，减持大部分筹码。 '),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,10,'该股形态不佳，注意成交量的变化，但目前不适合参与。 '),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,10,'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。 '),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,10,'该股有走强迹象，但量能不足，趋势不明，不适合操作。 '),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,10,'该股走势太弱，没有参与价值。 '),COLOR00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,10,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右， '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,10,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。 '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN
DRAWTEXTABS(12,10,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌， '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN
DRAWTEXTABS(12,10,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。 '),color0000FF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,10,'大盘形态走坏，重仓者可以减去大部分仓位。 '),color00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN
DRAWTEXTABS(12,10,'大盘缩量调整，注意风险，短线清仓观望。 '),color00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,10,'大盘走势良好，量能理想，可以继续持有强势股。 '),color00FFFF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTABS(12,10,'大盘形态良好，但量能稍显不足，随时准备减仓。 '),color00FFFF,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTABS(12,10,'大盘趋势不明，注意成交量变化，目前不适宜进场。 '),COLOR00FF00,LINETHICK3;{XG51};
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTABS(12,10,'大盘趋势向下，量能萎缩，不适合进场。 '),COLOR00FF00,LINETHICK3;

p:=BArslAST(DISPSTATUS=1)+1{XG51};
{2.黄金比}
ah:=hhvall(hhv(h,P));
al:=llvall(llv(l,P));
nnl:=DISPSTATUS=2{XG51};
ahl:=ah-al{XG51};
q191:=al+ahl*0.191;
q382:=al+ahl*0.382{XG51};
q500:=al+ahl*0.500{XG51};
q618:=al+ahl*0.618{XG51};
q809:=al+ahl*0.809;

DRAWTEXT(nnl,ah,'￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR0000ff{XG51};
DRAWTEXT(nnl,q809,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,q618,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,q500,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ffff{XG51};
DRAWTEXT(nnl,q382,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,q191,'￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORddaa00{XG51};
DRAWTEXT(nnl,al,'￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00ff00;

DRAWTEXT(nnl,ah*0.998,'最高.'+ah+''),ALIGN0,Color0047FF,LINETHICK1{XG51};
DRAWTEXT(nnl,q809,'80.9%.' +q809+''),ALIGN0,Color00FFff,LINETHICK1{XG51};
DRAWTEXT(nnl,q618,'61.8%.'+q618+''),ALIGN0,Color0047FF,LINETHICK1{XG51};
DRAWTEXT(nnl,q500,'50%.'+q500+''),ALIGN0,Color00FFff,LINETHICK1{XG51};
DRAWTEXT(nnl,q382,'38.2%.'+q382+''),ALIGN0,Color0047FF,LINETHICK1{XG51};
DRAWTEXT(nnl,q191,'19.1%.'+q191+''),ALIGN0,Color00FFff,LINETHICK1{XG51};
DRAWTEXT(nnl,al*1.01,'最低.'+al+''),ALIGN0,VALIGN2,Color0047FF,LINETHICK1;

{*W_W_W!X*G.5_1~C~N~{?}