大智慧趋势为王顺势而为超强主图指标源码

{www.qill.cn0顺势598}
DRAWGBKLAST(C>0,STRIP(RGB(0,0,0),RGB(0,0,180),1));
{www.qill.cnK线}
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;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000466;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000499;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0003bb;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0002dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0001ff;

{www.qill.cn卖黄金,RSI=80}
LC:=REF(C,1);
卖黄金:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;
STICKLINE(CROSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00ffff,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,12,0 ),COLOR007777,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0;
STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,2 ,0 ),COLOR00ffff,LAYER0;
ma5:EMA(C,5),LINETHICK0;
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;    
A1: (EMA(VAR1,2)+EMA(VAR1,3)+EMA(VAR1,5)+EMA(VAR1,8)+EMA(VAR1,13))/5,COLORff9900;    
A2: EMA(A1,2),COLORff9900;    
A3: EMA(A2,2),COLORff9900;    
A4: EMA(A3,2),COLORff9900;  
A5: EMA(A4,2),COLORff9900;  
A6: EMA(A5,2),COLORff9900;
A7: EMA(A6,2),COLORff9900;  
A8: EMA(A7,2),COLORff9900;  
A9: EMA(A8,2),COLORff9900;  
A10: EMA(A9,2),COLORff9900,LINETHICK2;;  
PARTLINE(A1,A1>REF(A1,1)),COLOR00ffff;    
PARTLINE(A2,A2>REF(A2,1)),COLOR00ffff;    
PARTLINE(A3,A3>REF(A3,1)),COLOR00ffff;    
PARTLINE(A4,A4>REF(A4,1)),COLOR00ffff;
PARTLINE(A5,A5>REF(A5,1)),COLOR00ffff;;    
PARTLINE(A6,A6>REF(A6,1)),COLOR0ffff0;    
PARTLINE(A7,A7>REF(A7,1)),COLOR0ffff0;    
PARTLINE(A8,A8>REF(A8,1)),COLOR0ffff0;
PARTLINE(A9,A9>REF(A9,1)),COLOR0ffff0;    
PARTLINE(A10,A10>REF(A10,1)),COLOR0ffff0;;
      
五日乖离率:=(c-MA(C,5))/MA(C,5)*100;
拾八日乖离率:=(c-MA(C,18))/MA(C,18)*100;
JC:=cross(0,五日乖离率) and 拾八日乖离率<ref(拾八日乖离率,1) and EMA(C,10)>ref(EMA(C,10),1) ;
减仓:=filter(JC,10);
drawtext(减仓,high*1.03,'←减仓'),color00ffff,linethick2;
      
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);    

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;    
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN    
DRAWTEXTABS(12,10,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。   '),color0000FF,LINETHICK3;    
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN    
DRAWTEXTABS(12,40,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。   '),color0000FF,LINETHICK3;    
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN    
DRAWTEXTABS(12,10,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。   '),color00FF00,LINETHICK3;    
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN    
DRAWTEXTABS(12,10,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。   '),color00FF00,LINETHICK3;    
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN    
DRAWTEXTABS(12,10,'该股放量下跌，走势明显偏弱，离场观望。   '),color00FF00,LINETHICK3;    
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN    
DRAWTEXTABS(12,10,'该股缩量下跌，走势偏弱，离场观望。   '),color00FF00,LINETHICK3;    
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;    
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;    
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;    
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;    
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;    
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;    
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;    
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;    
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN    
DRAWTEXTABS(12,10,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，   '),color0000FF,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN    
DRAWTEXTABS(12,10,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。   '),color0000FF,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN    
DRAWTEXTABS(12,10,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，   '),color0000FF,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN    
DRAWTEXTABS(12,10,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。   '),color0000FF,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN    
DRAWTEXTABS(12,10,'大盘形态走坏，重仓者可以减去大部分仓位。   '),color00FF00,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN    
DRAWTEXTABS(12,10,'大盘缩量调整，注意风险，短线清仓观望。   '),color00FF00,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN    
DRAWTEXTABS(12,10,'大盘走势良好，量能理想，可以继续持有强势股。   '),color00FFFF,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN    
DRAWTEXTABS(12,10,'大盘形态良好，但量能稍显不足，随时准备减仓。   '),color00FFFF,LINETHICK3;    
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN    
DRAWTEXTABS(12,10,'大盘趋势不明，注意成交量变化，目前不适宜进场。   '),COLOR00FF00,LINETHICK3;    
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;
{www.qill.cn2.黄金比}
ah:=hhvall(hhv(h,P));    
al:=llvall(llv(l,P));
nnl:=DISPSTATUS=2;
ahl:=ah-al;
q191:=al+ahl*0.191;
q382:=al+ahl*0.382;
q500:=al+ahl*0.500;
q618:=al+ahl*0.618;
q809:=al+ahl*0.809;

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

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