R1:=MA(CLOSE,1); R2:=MA(CLOSE,3); R3:=(MA(R2,1)*1); R4:=(MA(R2,3)*1); X1:=(C+L+H)/3; DD:=FINANCE2(35); SS:=FINANCE2(37); GG:=FINANCE2(3); TH:=DYNAINFO(39); A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1); LC:=REF(CLOSE,1); RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100); FF:=EMA(CLOSE,3); MA15:=EMA(CLOSE,21); DRAWGBK((CLOSE > 0),STRIP(RGB(4,1,28),RGB(4,1,35),0)); DRAWGBK(c,''); {支撑} VAR1111:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3); VAR2222:=CROSS(VAR1111,0.9); VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3); VAR4444:=CROSS(VAR3333,0.9); 压力: REF(HIGH,BARSLAST(Var2222)), POINTDOT,ColorEA91B5; 支撑: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff; 双线持币:HHV(MA(HIGH,(3)),2),LINETHICK2,color00ff00; 单线持股:LLV(MA(HIGH,(3)),1),LINETHICK2,color0000FF; {黄金生命线} 黄金生命线:(EMA(CLOSE,17) * 1.0); PARTLINE(黄金生命线,CLOSE >黄金生命线),LINETHICK3,colorFF00FF; PARTLINE(黄金生命线,黄金生命线> CLOSE),LINETHICK3,colorFF0000{蓝色}; {时窗} E1:=BARSCOUNT(C); AH:=HHV(H,200); AL:=LLV(L,200); B0:=(AH-AL)/40; KB1:=H+B0; KB2:=L-B0; DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),KB2-B0,'←时窗'), LINETHICK3,COLORYELLOW;
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); {Hk := LL-HH; G12 := LL-HK*1.55; } IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股的量能理想,有明显走强迹象,可以考虑中线进场参与,仓位在2/3左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股虽然走势趋强,但量能还显不足,可以考虑短线进场,仓位在1/2左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(20,100,'该股量价配合良好,但相对其它股票并没有明显走强,可以考虑短线进场,仓位1/2左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股形态尚可,但量能不足,股票也未完全走强,可以短线参与,仓位1/3左右。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股形态变坏,但走势相对其它股票尚可,重仓者减持大半,清仓者可以观望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股随大盘一起下跌,程明显缩量走势,考虑到大盘风险,减持或清仓。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股放量下跌,走势明显偏弱,离场观望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股缩量下跌,走势偏弱,离场观望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股形态良好,强势明显,量能充足,可以继续持有。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股上行趋势不变,强势依然,但量能开始转弱,注意风险。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股仍然具备上涨潜力,但股性偏弱,可考虑减仓。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股走势趋弱,量能不足,减持大部分筹码。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股形态不佳,注意成交量的变化,但目前不适合参与。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN DRAWTEXTABS(32,100,'该股趋势不明,股价偏弱,注意量能变化,目前不宜参与。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股有走强迹象,但量能不足,趋势不明,不适合操作。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN DRAWTEXTABS(32,100,'该股走势太弱,没有参与价值。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN DRAWTEXTABS(32,100,'大盘量能理想,有明显走强迹象,可以考虑中线进场参与,仓位在2/3左右, '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN DRAWTEXTABS(32,100,'如前期经过一轮下跌,此时为最佳买点,但如果前期有过一段涨幅则介入需谨慎。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN DRAWTEXTABS(32,100,'大盘虽然走势趋强,但量能还显不足,如果前期经过一轮下跌, '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN DRAWTEXTABS(32,100,'可以考虑短线进场,仓位在1/2左右,一旦量能放大可以加仓买入。 '),color0000FF,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN DRAWTEXTABS(32,100,'大盘形态走坏,重仓者可以减去大部分仓位。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN DRAWTEXTABS(32,100,'大盘缩量调整,注意风险,短线清仓观望。 '),color00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN DRAWTEXTABS(32,100,'大盘走势良好,量能理想,可以继续持有强势股。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN DRAWTEXTABS(32,100,'大盘形态良好,但量能稍显不足,随时准备减仓。 '),color00FFFF,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN DRAWTEXTABS(32,100,'大盘趋势不明,注意成交量变化,目前不适宜进场。 '),COLOR00FF00,LINETHICK3; IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN DRAWTEXTABS(32,100,'大盘趋势向下,量能萎缩,不适合进场。 '),COLOR00FF00,LINETHICK3;
{买入卖出} VAR3:=LLV(HIGH,240); VAR4:=100*(CLOSE-VAR3)/VAR3; VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100; VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0); VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150); 买1:=VAR10; 买2:=(VAR11+VAR13+VAR15+VAR17); 卖1:=(VAR12+VAR14+VAR16+VAR18); DRAWTEXT(买1>0 OR 买2>0,LOW*1,'←买'),CROSSDOT,LINETHICK3,COLORRED; DRAWTEXT(卖1>0,HIGH*1,'←卖'),CROSSDOT,LINETHICK3,COLORGREEN; {以下大笔出货标识} 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; 五日换手率:=sum(100*v/capital,5); DRAWTEXTABS(745,15,'5日换手率: '+NUMTOSTRN(五日换手率,2)+'%'),ColorFFFFFC,LINETHICK1; 十日换手率:=SUM(VOL,10)*100/CAPITAL; DRAWTEXTABS(745,35,' 10日换手率: '+NUMTOSTRN(十日换手率,2)+'%'),ColorFFFFFC,LINETHICK1; 廿日换手率:=SUM(VOL,20)*100/CAPITAL; DRAWTEXTABS(745,55,' 20日换手率: '+NUMTOSTRN(廿日换手率,2)+'%'),ColorFFFFFC,LINETHICK1; 百日换手率:=SUM(VOL,100)*100/CAPITAL; DRAWTEXTABS(745,75,'100日换手率: '+NUMTOSTRN(百日换手率,2)+'%'),ColorFFFFFC,LINETHICK1; {量能饱和度} SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100); DRAWTEXTREL(350,40,'量能饱和度:'+NUMTOSTRN(SAT,0)),LINETHICK4,ColorFF00FF; DRAWRECTABS(5 ,5,42 ,42,0),LINETHICK4,COLOR6600FF; DRAWTEXTABS(10 ,10,'朱勇'),LINETHICK2,COLOR6600FF; DRAWTEXTABS(10 ,23,'飞印'),LINETHICK2,COLOR6600FF; {短线} 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),'←出击'),color00FFFF; DRAWTEXT(TROUGHBARS(3,15,1)=0 AND HIGH>LOW+0.01 ANDA1 AND A2=0 AND A3=0AND Aa4=0,(LOW - 0.3),'←震仓'),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),'★抄底'),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,'←追涨'),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; stickline(VV6 OR cross(REF(VV2,1),VV2) AND VV2>95,(HIGH + 0.5),(HIGH +1.2),8,0),COLORMAGENTA{ 洋红色}; drawtext(VV6 OR cross(REF(VV2,1),VV2) AND VV2>95,h+1.2,'←逃顶'),coloryellow{黄}; {牛顶.熊底} 统计天数:=BARPOS-hhv(if(DISPSTATUS=1,BARPOS,0),0)+1; 高点:=HHV(C,统计天数);{H} 低点:=LLV(C,统计天数);{L} 牛顶:=低点+(高点-低点)*(1+0.618); 熊底:=ABS( 高点-(高点-低点)*(1+0.618) ); DRAWTEXTrel(999,999-60, '牛顶:'+NUMTOSTR(牛顶) +'; '+'熊底:'+NUMTOSTR(熊底) ),align2,LINETHICK2,coloryellow{黄}; DRAWGBK(c,''); {以下定义坚决买进} var77:=ema(amount/vol/100,3); var88:=ema(var77,88); var99:=ema(var77,88)*0.85; varah:=var99*0.87; varbh:=low<varah and close>ref(close,1)*1.02; drawtext(filter(varbh,6),l-0.08,'←坚决买进'),linethick3,colorff00ff; {以下设置强势狙击} BB05:=atan(((MA(C,5))/ref((MA(C,5)),1)-1)*100)*180/3.1416; BB10:=atan(((MA(C,10))/ref((MA(C,10)),1)-1)*100)*180/3.1416; BB30:=atan(((MA(C,30))/ref((MA(C,30)),1)-1)*100)*180/3.1416; 强势狙击:=filter(BB30>30 and BB10>45 and cross(BB05,60),10); drawtext(强势狙击,LOW*0.98,'←强势狙击'),linethick3,colorwhite; {以下定义资金进场} VAR3e:=100-(100-3*SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1),15,1)); VAR4e:=100-(100-3*SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,20,1),15,1)); VAR5e:=VAR3e>REF(VAR4e,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1); DRAWTEXT(VAR5e AND COUNT(VAR5e,30)=1,low,'←资金进场'),linethick3,COLORYELLOW; {操盘手BS}
买线:=EMA(C,2); 卖线:=EMA(SLOPE(C,21)*20+C,42); BU:=cross(买线,卖线); SEL:=cross(卖线,买线); DRAWTEXT(bu,LOW,'B'),ALIGN1,VALIGN0,colorYELLOW,linethick4; DRAWTEXT(sel,HIGH,'S'),ALIGN1,VALIGN2,colorFFFF00,linethick4; 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)); 阻力位1:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位); 止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93)); 止损位1:=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(阻力位1,2)+' '),coloryellow,ALIGN2; DRAWTEXT(TJTS1 or TJTS2 ,k2*0.99,'止损位:'+NUMTOSTRN(止损位1,2)+' '),coloryellow ,ALIGN2; |