MTM:=C-REF(C,1);
中轴:EMA(C,17),LINETHICK1,COLORFF3399;
阳上:中轴+3*STD(C,17),LINETHICK1,Color73740F;
阳下:中轴+2*STD(C,17),LINETHICK1,colorcyan;
阴上:中轴-2*STD(C,17),LINETHICK1,Coloryellow;
阴下:中轴-3*STD(C,17),LINETHICK1,Color00b4ff;
DRAWBMP(CROSS(阴下,LOW),阴下*0.96,'红宝石'),ALIGN1;
DRAWBMP(CROSS(HIGH,阳上),HIGH*1.035,'绿宝石'),ALIGN1;
中期成本:(EMA(CLOSE,17) * 1.0);
PARTLINE(中期成本,CLOSE >中期成本),LINETHICK3,colorFF00FF;
PARTLINE(中期成本,中期成本> CLOSE),LINETHICK3,color00ff00;
a1:=IF((CLOSE < 800),((AMOUNT / VOL) / 100),((((CLOSE * 2) + HIGH) + LOW) / 4));
a2:=((HHV(HIGH,15)) + (LLV(LOW,30))) / 2;
a3:=EMA((MA(a1,5)),10);
a4:=EMA((MA(a1,15)),10);
a5:=EMA((MA(a1,13)),21);
a6:=((a3 + a4) + a5) / 3;
短期成本:EMA((MA(CLOSE,5)),3),linethick1,colorFF0000;
PARTLINE(短期成本,短期成本 > (REF(短期成本,3)),RGB(255,0,0)),linethick1,colorRed;
DRAWTEXT(((CLOSE > 0) AND (DISPSTATUS = 2)),(短期成本* 0.95),'短期成本：'+短期成本),MOVE10,ALIGN2,LINETHICK2,colorRed;
现价:EMA(C,1),LINETHICK1,colorwhite;
{短线}
Var1:=(CLOSE*2+HIGH+LOW)/4;
SK:= EMA(Var1,13)-EMA(Var1,73);
SD:= EMA(SK,2);
drawtext((cross(sk,sd) and sk<-0.04 and (c-ref(c,1))/ref(c,1)>=0.03) or (cross(sk,sd) and sk<=-0.14 )
or (cross(sk,sd) and sk<=0.05 and (v/ma(v,5)>2 or c/ref(c,1)>0.035)) ,l*0.99,'←短线'),LINETHICK3,COLORGRAY{深灰色};
{出击.震仓}
A1:=REF(CLOSE,1)<REF(OPEN,2);
A2:=CLOSE>OPEN ;
A3:=REF(HIGH,1)<REF(LOW,2) ;
Aa4:=HIGH>REF(LOW,1);
DRAWTEXT( A1 AND A2 AND A3AND Aa4,(LOW - 0.3),'←出击'),LINETHICK2,color00FFFF;
DRAWTEXT(TROUGHBARS(3,15,1)=0 AND HIGH>LOW+0.01 ANDA1 AND A2=0 AND A3=0AND Aa4=0,(LOW - 0.3),'震仓'),LINETHICK2,color0000FF;
{.←抄底}
B:=(SMA(LOW,5,2) * 0.96);
BB:=LLV(HIGH,36);
B2:=LLV(HIGH,30);
DRAWTEXT(((((LOW <= B) AND (HIGH >= BB)) AND (CLOSE >=B2 )) AND ((CLOSE / OPEN) > 1.03)),(LOW - 0.08),'★抄底'),LINETHICK2,color0000FF;
{追涨}
Va1:=EMA(CLOSE,8);
Va2:=EMA(Va1,20);
Va3:=CROSS(Va1,Va2);
Va4:=VOL/SUM(VOL,13);
Va5:=DMA(CLOSE,Va4);
Va6:=Va1<MA(CLOSE,120);
A3a:=Va3 AND Va6 AND (CLOSE-Va5)/Va5*100/2.5>1.6;
A4a:=CROSS( (CLOSE-Va5)/Va5*100/2.5,0 ) and (CLOSE-Va5)/Va5*100/2.5>1.5 ;
DRAWTEXT(A4a>0 or A3a>0,l-0.3,'←追涨'),LINETHICK2,COLORWHITE;
{逃顶}
VV1:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VV2:=SMA(VV1,7,1);
VV3:=SMA(VV2,12,1);
VV4:=CROSS(VV3,VV2);
VV5:=VV3>88 OR VV2>88;
VV6:=VV4 AND VV5;
drawtext(VV6 OR cross(REF(VV2,1),VV2) AND VV2>95,h+1.2,'←逃顶'),LINETHICK2,coloryellow{黄};
DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0));
A4:=MA(CLOSE,20);
A5:=(CLOSE > MA(CLOSE,5));
A6:=(MA(CLOSE,5) > MA(CLOSE,10));
A7:=(CLOSE > MA(CLOSE,10));
A8:=(MA(CLOSE,5) > MA(CLOSE,20));
A9:=(CLOSE > MA(CLOSE,20));
A10:=REF(A4,1);
A11:=(A4 > A10);
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)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07));
阻力位１:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位);
止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93));
止损位１:=IF((CLOSE < 10),(CLOSE * 0.95),止损位);
TJTS1:=BARSTATUS=2 and c<200;
TJTS2:=BARSTATUS=2 and c>200;
k2:=hhv(h,barslast(DISPSTATUS=1)+1);
DRAWTEXT(TJTS1 or TJTS2 ,k2*0.99,'阻力位:'+NUMTOSTRN(阻力位１,2)+' '),coloryellow,ALIGN2;
DRAWTEXT(TJTS1 or TJTS2 ,k2*0.99,'止损位:'+NUMTOSTRN(止损位１,2)+' '),coloryellow ,ALIGN2;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。 '),ALIGN2,colorDC143C;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。 '),ALIGN2,colorDC143C;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。 '),ALIGN2,colorDC143C;
DRAWTEXT(TJTS1 and((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。 '),ALIGN2,color0000FF;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股放量下跌，走势明显偏弱，离场观望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股缩量下跌，走势偏弱，离场观望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股形态良好，强势明显，量能充足，可以继续持有。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股走势趋弱，量能不足，减持大部分筹码。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股形态不佳，注意成交量的变化，但目前不适合参与。 '),ALIGN2;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) ,k2*0.99,'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。 '),ALIGN2;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股有走强迹象，但量能不足，趋势不明，不适合操作。 '),ALIGN2;
DRAWTEXT(TJTS1 and((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) ,k2*0.99,'该股走势太弱，没有参与价值。 '),ALIGN2;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 >= V2)) ,k2*0.99,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右， '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 >= V2)) ,k2*0.98,' 如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。 '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 < V2)) ,k2*0.99,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌， '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(AVX,1) AND (V1 < V2)) ,k2*0.98,' 可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。 '),ALIGN2,color0000FF;
DRAWTEXT(TJTS2 and(CROSS(1,AVX) AND (V1 >= V2)) ,k2*0.99,'大盘形态走坏，重仓者可以减去大部分仓位。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS2 and(CROSS(1,AVX) AND (V1 < V2)) ,k2*0.99,'大盘缩量调整，注意风险，短线清仓观望。 '),ALIGN2,color00FF00;
DRAWTEXT(TJTS2 and(((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) ,k2*0.99,'大盘走势良好，量能理想，可以继续持有强势股。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS2 and(((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) ,k2*0.99,'大盘形态良好，但量能稍显不足，随时准备减仓。 '),ALIGN2,color00FFFF;
DRAWTEXT(TJTS2 and(((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) ,k2*0.99,'大盘趋势不明，注意成交量变化，目前不适宜进场。 '),ALIGN2;
DRAWTEXT(TJTS2 and(((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) ,k2*0.99,'大盘趋势向下，量能萎缩，不适合进场。 '),ALIGN2;
N51100 1
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
VAR12:=(HIGH+LOW+CLOSE)/3;
VAR13:=(VAR12-MA(VAR12,14))/(0.015*AVEDEV(VAR12,14));
VAR14:=(VAR12-MA(VAR12,70))/(0.015*AVEDEV(VAR12,70));
VAR15:=IF(VAR13>=150 AND VAR13<200 AND VAR14>=150 AND VAR14<200,10,0);
VAR16:=IF(VAR13<=-150 AND VAR13>-200 AND VAR14<=-150 AND VAR14>-200,-10,VAR15);
VAR17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
VAR18:=100-ABS(VAR17);
VAR19:=IF(VAR18<90,VAR18,100);
VAR1A:=IF(VARE>0,VARE,0);
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100;
DRAWBMP(VAR1C AND COUNT(VAR1C,30)=1,HIGH*1.02,'小蓝伞'),LINETHICK3,COLORFFCC66; |
