{所属板块 参数n20}
N:=20;
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);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(171,60,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。 '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。 '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。 '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。 '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。 '),color00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。 '),color00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股放量下跌，走势明显偏弱，离场观望。 '),color00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股缩量下跌，走势偏弱，离场观望。 '),color00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股形态良好，强势明显，量能充足，可以继续持有。 '),color00FFFF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险。 '),color00FFFF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。 '),color00FFFF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股走势趋弱，量能不足，减持大部分筹码。 '),color00FFFF,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股形态不佳，注意成交量的变化，但目前不适合参与。 '),COLOR00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTABS(171,60,'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。 '),COLOR00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股有走强迹象，但量能不足，趋势不明，不适合操作。 '),COLOR00FF00,LINETHICK2;
IF BARSTATUS=2 and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTABS(171,60,'该股走势太弱，没有参与价值。 '),COLOR00FF00,LINETHICK2;
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN
DRAWTEXTABS(171,60,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右， '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 >= V2)) THEN
DRAWTEXTABS(171,60,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。 '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN
DRAWTEXTABS(171,60,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌， '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c>200 and (CROSS(AVX,1) AND (V1 < V2)) THEN
DRAWTEXTABS(171,60,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。 '),color0000FF,LINETHICK2;
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 >= V2)) THEN
DRAWTEXTABS(171,60,'大盘形态走坏，重仓者可以减去大部分仓位。 '),color00FF00,LINETHICK2;
IF BARSTATUS=2 and c>200 and (CROSS(1,AVX) AND (V1 < V2)) THEN
DRAWTEXTABS(171,60,'大盘缩量调整，注意风险，短线清仓观望。 '),color00FF00,LINETHICK2;
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTABS(171,60,'大盘走势良好，量能理想，可以继续持有强势股。 '),color00FFFF,LINETHICK2;
IF BARSTATUS=2 and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTABS(171,60,'大盘形态良好，但量能稍显不足，随时准备减仓。 '),color00FFFF,LINETHICK2;
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTABS(171,60,'大盘趋势不明，注意成交量变化，目前不适宜进场。 '),COLOR00FF00,LINETHICK2;
IF BARSTATUS=2 and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTABS(171,60,'大盘趋势向下，量能萎缩，不适合进场。 '),COLOR00FF00,LINETHICK2;
mc:=REF(c,1);
阻力位:=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),止损位);
阻力位a:=IF((mc > 200),(mc * 1.01),(mc * 1.07));
阻力位2:=IF((mc < 10),(mc * 1.05),阻力位a);
止损位b:=IF((mc > 200),(mc * 0.99),(mc * 0.93));
止损位2:=IF((mc < 10),(mc * 0.95),止损位b);
DRAWTEXTABS(168,40,'[昨/今日 止损位 :'+NUMTOSTRn(止损位b,2)+'/'+NUMTOSTRn(止损位１,2)+']'),LINETHICK2,COLOR00FF00;
DRAWTEXTABS(376,40,'[昨/今日 阻力位 :'+NUMTOSTRn(阻力位2,2)+'/'+NUMTOSTRn(阻力位１,2)+']'),LINETHICK2,colorFEBAF5;
PT := REF(HIGH,1)-REF(LOW,1);
重心:=(HIGH + LOW + CLOSE)/3;
压力Ⅰ:= 2*重心-LOW;
压力Ⅱ:= 重心 + PT;
支撑Ⅰ:= 2*重心-HIGH;
支撑Ⅱ:= 重心 - PT;
DRAWTEXTABS(5,8,' 《顺势操作》'),ColorFFFF00;
DRAWTEXTABS(75,8,' 重心:'+重心),Color208FFF;
DRAWTEXTABS(20,27,' 支 撑'),Color0000FF;
DRAWTEXTABS(20,44,' '+支撑Ⅰ),Color0000FF;
DRAWTEXTABS(20,62,' '+支撑Ⅱ),Color0000FF;
DRAWTEXTABS(75,27,' 压 力'),Color00FF00;
DRAWTEXTABS(75,44,' '+压力Ⅰ),Color00FF00;
DRAWTEXTABS(75,62,' '+压力Ⅱ),Color00FF00;
DRAWTEXTABS(5,5,'│'),Color00FFFF;
DRAWTEXTABS(5,17,'│'),Color00FFFF;
DRAWTEXTABS(5,29,'│'),Color00FFFF;
DRAWTEXTABS(5,41,'│'),Color00FFFF;
DRAWTEXTABS(5,53,'│'),Color00FFFF;
DRAWTEXTABS(5,65,'│'),Color00FFFF;
DRAWTEXTABS(148,5,'│'),Color00FFFF;
DRAWTEXTABS(148,17,'│'),Color00FFFF;
DRAWTEXTABS(148,29,'│'),Color00FFFF;
DRAWTEXTABS(148,41,'│'),Color00FFFF;
DRAWTEXTABS(148,53,'│'),Color00FFFF;
DRAWTEXTABS(148,65,'│'),Color00FFFF;
DRAWTEXTABS(76,25,'│'),Color00FFFF;
DRAWTEXTABS(76,29,'│'),Color00FFFF;
DRAWTEXTABS(76,41,'│'),Color00FFFF;
DRAWTEXTABS(76,53,'│'),Color00FFFF;
DRAWTEXTABS(76,65,'│'),Color00FFFF;
DRAWTEXTABS(10,0,'────────────'),Color00FFFF;
DRAWTEXTABS(10,20,'────────────'),Color00FFFF;
DRAWTEXTABS(10,37,'────────────'),Color00FFFF;
DRAWTEXTABS(10,54,'────────────'),Color00FFFF;
DRAWTEXTABS(10,71,'────────────'),Color00FFFF;SAT:IF((AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N))*100),color000033;
STICKLINE(((CLOSE > 0) AND BARSTATUS=2),18,121,20,1),colorFFFFFF;
STICKLINE(((SAT <= 5) AND BARSTATUS=2),21,(20 + SAT),35,0),colorFFFFFF;
STICKLINE((((SAT > 5) AND (SAT <= 20)) AND BARSTATUS=2),21,(20 + SAT),18,0),colorCCFF88;
STICKLINE((((SAT > 20) AND (SAT <= 40)) AND BARSTATUS=2),21,(20 + SAT),18,0),colorFF00FF;
STICKLINE(((SAT > 40) AND BARSTATUS=2),21,(20 + SAT),18,0),color0000FF;DRAWTEXTREL(800,370,'量能饱和度：'+NUMTOSTRN(SAT,0)),LINETHICK3,Colorcc66ff;
金叉:=barslast(FILTER(CROSS("KD.K","KD.D") and "KD.D"<30,13));
主力吸筹区:=if(金叉>0 and 金叉<61,金叉,0);
DRAWTEXTABS(640,19,'主力建仓天数：'+NUMTOSTRN(主力吸筹区,0)+'天'),color0000FF,LINETHICK2;DRAWTEXTABS(171,21,'换手率高低提示：'),ColorFFFFFC,LINETHICK1;
当日换手率:=sum(100*v/capital,1);
DRAWTEXTABS(271,21,'当日换手率： '+NUMTOSTRN(当日换手率,2)+'%'),ColorFFFFFC,LINETHICK1;
五日换手率:=sum(100*v/capital,5);
DRAWTEXTABS(391,21,'5日换手率： '+NUMTOSTRN(五日换手率,2)+'%'),ColorFFFFFC,LINETHICK1;
十日换手率:=SUM(VOL,10)*100/CAPITAL;
DRAWTEXTABS(510,21,'10日换手率： '+NUMTOSTRN(十日换手率,2)+'%'),ColorFFFFFC,LINETHICK1;
DRAWTEXTABS(760,50,STKLABEL+' '+stkname),color66ffcc,LINETHICK4;
BEGIN DRAWTEXTREL(176,5,'所属板块：'+BKNAME),LINETHICK1,color00FFFF;end;
DRAWTEXTABS(582,37,' 收:'+NUMTOSTRN(DYNAINFO(7),2)),colorFFFF66,LINETHICK3;
{分析家公式网 http://www.88gs.com 整理}
if DYNAINFO(14)<0 then
begin
DRAWTEXTABS(665,37,' 涨幅:'+NUMTOSTRN((DYNAINFO(14) * 100),2)),color00FF00,LINETHICK3;
end;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
