自用经典股票指标4

38分时选股（大智慧分时图有未来？）

JB:= DYNAINFO(8)>0; {早盘30分钟，成交量} B:=DYNAINFO(8); BV:=REF(V,1); Z，2:=B/BV*100; {10点的涨幅} A:=DYNAINFO(7); AC1:=REF(C,1);

Z，1:=(A-AC1)/AC1*100; {当前价格高于开盘价} D:=A-O; {股票昨天是涨的}

{K:=REF(C,1)-REF(O,1);} {5日均线比10日均线高}

KK:=MA(C,5) >MA(C,10) AND MA(C,5)>REF(MA(C,5),1); {5分钟、15分钟、30分钟MACD都出现红柱} DEA5:=\DIFF5:=\D5:=DIFF5-DEA5;

DEA15:=\DIFF15:=\D15:=DIFF15-DEA15;

DEA30:=\DIFF30:=\D30:=DIFF30-DEA30;

{J:=(D5>0 AND D15>0) OR (D5>0 AND D30>0) OR (D15>0 AND D30>0);} J:= (D5>0 AND D15>0 AND D30>0); {委买大于委卖}

E:=DYNAINFO(23)-DYNAINFO(22); {昨天成交量比前天多}

F:=REF(V,1)-REF(V,2);

选股:Z，1<6 AND Z，2>30 AND JB>0 AND J>0 AND D>0 AND E>0 AND F>0 AND KK>0;

39实战主图！（大智慧）

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

牛线:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4) +15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9) +10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)

+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17) +2*REF(MID,18)+REF(MID,20))/210,COLORRED; 马线:MA(牛线,6),COLORGREEN;

Var0:=SMA(MAX(CLOSE-ref(c,1),0),12,1)/SMA(ABS(CLOSE-ref(c,1)),15,1)*100; DRAWTEXT(CROSS(82,Var0),high,'快卖'),colorwhite;

DRAWTEXTABS(10,10,STKLABEL+' '+STKNAME+' '+BKNAME),COLOR00FFFF; s:=C-REF(C,1);

DX:=100*EMA(EMA(s,6),6)/EMA(EMA(ABS(s),6),6);

买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0); DRAWTEXT(filter(买=1,5),LOW-0.03,'拉升'),ColorFFDE00; da:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,4))/4; db:=(EMA(C,10)+EMA(C,20)+EMA(C,40)+EMA(C,80))/4; DRAWTEXT(CROSS(da-db,0),L*0.95,'★B'),COLORRED;

JH:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100; DRAWTEXT(CROSS(84,JH),H*1.05,'☆S'),COLORGREEN; YC:=REF(CLOSE,1);

止损价位:(YC*1.0035*97+0.2)/99.65,COLORRED,LINETHICK0;

DRAWTEXTABS(CLOSE,25,'★ ======================'),COLORRED; DRAWTEXTABS(CLOSE,41,'操 '),COLORRED; DRAWTEXTABS(CLOSE,57,'盘 '),COLORRED; DRAWTEXTABS(CLOSE,73,'铁'),COLORRED; DRAWTEXTABS(CLOSE,89,'律'),COLORRED;

DRAWTEXTABS(CLOSE,105,'★ ======================'),COLORRED; DRAWTEXTABS(CLOSE,41,' 买入条件 E13 CCI'),colorYellow;

DRAWTEXTABS(CLOSE,57,' 买入时间 2:30以后' ),colorYellow;

DRAWTEXTABS(CLOSE,73,' 止损价位 '+NUMTOSTR(止损价位)+'元'),colorYellow; DRAWTEXTABS(CLOSE,89,' 线上:工作 线下:休息'),color00FFFF; E:=(HIGH+LOW+OPEN+2*CLOSE)/5; 明日阻力:=2*E-LOW; 明日支撑:=2*E-HIGH; 明日突破:=E+(HIGH-LOW); 明日反转:=E-(HIGH-LOW); 今日阻力:=REF(明日阻力 , 1); 今日支撑:=REF(明日支撑 , 1);

DRAWTEXTABS(200,25,'今日阻力=：'+NUMTOSTR(今日阻力)),ColorFFFF00; DRAWTEXTABS(200,41,'今日支撑=：'+NUMTOSTR(今日支撑)),Colorred; DRAWTEXTABS(200,57,'明日突破=：'+NUMTOSTR(明日突破)),ColorFF00FF; DRAWTEXTABS(200,73,'明日阻力=：'+NUMTOSTR(明日阻力)),ColorFFFF00; DRAWTEXTABS(200,89,'明日支撑=：'+NUMTOSTR(明日支撑)),COLORRED; DRAWTEXTABS(200,105,'明日反转=：'+NUMTOSTR(明日反转)),COLORYellow; A:=HHV(HIGH,13)=HIGH AND HIGH>REF(HIGH,1);A1:=FILTER(A,12); B:=LLV(LOW,13)=LOW AND LOW

箱顶:REF(HIGH,TS1) ,COLORFF00FF, LINETHICK0; STICKLINE(1,箱顶,箱顶,7,0),COLORFF00FF; TS2:=BARSLAST(B1);

箱底:REF(LOW,TS2) ,COLORFFbb80, LINETHICK0; STICKLINE(1,箱底,箱底,7,0),COLORFFbb80; 箱高:100*(箱顶-箱底)/箱底,LINETHICK0; 均价:=(3*C+H+L+O)/6;

VAR1:=(8*均价+7*REF(均价,1)+6*REF(均价,2)+5*REF(均价,3)+ 4*REF(均价,4)+3*REF(均价,5)+2*REF(均价,6)+REF(均价,8))/36; VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1; SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;

SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) H/VAR1>1.1;

AND SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1) AND CLOSE>VAR2 AND CLOSE

SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1) AND CLOSEVAR2 AND VAR1

SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE

AND REF(VAR1,1)=REF(VAR2,1) AND CLOSEVAR1;

SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)); 量能饱和度:=IF(SAT>1,1,SAT)*100; IF BARSTATUS=2 AND SZ1 THEN BEGIN

DRAWTEXTABS(350,25,'调整结束短线介入'),COLORRED; END ELSE

IF BARSTATUS=2 AND SZ2 THEN BEGIN

DRAWTEXTABS(350,25,'上升通道走势良好'),COLORRED; END ELSE

IF BARSTATUS=2 AND SZ3 THEN BEGIN

DRAWTEXTABS(350,25,'股价偏离注意调整'),COLORRED; END ELSE

IF BARSTATUS=2 AND SZ4 THEN BEGIN

DRAWTEXTABS(350,25,'上升通道调整洗盘'),COLORGREEN; END ELSE

IF BARSTATUS=2 AND SZ5 THEN BEGIN

DRAWTEXTABS(350,25,'转向特征注意离场'),COLORGREEN; END ELSE

IF BARSTATUS=2 AND SZ6 THEN BEGIN

DRAWTEXTABS(350,25,'通道改变坚决离场'),COLORGREEN;

AND

CLOSE

OR

(VAR1

AND