分时图主图

N:=5;

{高点直线}

V1:=TIME;

T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),

(FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW;

KP30:=T<240;

KPGD:=H=HHV(H,0) AND KP30;

GDSJ:=BARSLAST(KPGD);

HHHH:REF(H,GDSJ),COLORFFFF00,DOTLINE;

{低点直线}

VQ1:=TIME;

TQ:=IF(VQ1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(VQ1/100)-100*FLOOR(VQ1/10000)),

(FLOOR(VQ1/10000)-11)*60+(FLOOR(VQ1/100)-100*FLOOR(VQ1/10000))),NODRAW;

KPQ30:=TQ<240;

KPGDQ:=L=LLV(L,0) AND KPQ30;

GDSJQ:=BARSLAST(KPGDQ);

HHHHQ:REF(L,GDSJQ),COLOR80FF00,DOTLINE;

{板块概念}

DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.5,0,0,DYBLOCK),COLORFFFFFF;

DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.6,0,0,GNBLOCK),COLOR00FFFF;

DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.7,0,0,FGBLOCK),COLOR0080FF;

DRAWTEXT_FIX(1 AND FROMOPEN>120,0.0,0,0,DYBLOCK),COLORFFFFFF;

DRAWTEXT_FIX(1 AND FROMOPEN>120,0.1,0,0,GNBLOCK),COLORFF8000;

DRAWTEXT_FIX(1 AND FROMOPEN>120,0.5,0,0,FGBLOCK),COLOR0080FF;

股东人数:=FINANCE(8);

DRAWNUMBER_FIX(1 AND FROMOPEN<=120,0.88,1,0,股东人数),COLOR00FFFF;

DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.975,1,0,'人'),COLORFFFFFF;

DRAWNUMBER_FIX(1 AND FROMOPEN>120,0.4,1,0,股东人数),COLOR00FFFF;

DRAWTEXT_FIX(1 AND FROMOPEN>120,0.48,1,0,'户'),COLORFFFFFF;

AAA1:=STRCAT('总上涨:',CON2STR(DYNAINFO(60),0));

AAA2:=STRCAT('总下跌:',CON2STR(DYNAINFO(61),0));

DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.5,0.85,0,AAA1),COLOR00FFFF;

DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.5,1,0,AAA2),COLORFFFF80;

DRAWTEXT_FIX(1 AND FROMOPEN>120,0.2,0.85,0,AAA1),COLOR00FFFF;

DRAWTEXT_FIX(1 AND FROMOPEN>120,0.2,1,0,AAA2),COLORFFFF80;

{分时MACD}

FF:=(C-REF(C,N))/REF(C,N);

STICKLINE(FF>0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORRED;

STICKLINE(FF<0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORGREEN;

A1:=BARSLAST(REF(CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)),1));

B1:=REF(C,A1+1)>C AND REF("MACD.DIF"(12,26,9),A1+1)<"MACD.DIF"(12,26,9) AND CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9));

底背离MACD:DRAWTEXT(FILTER(B1>0,5),HIGH*0.9988,'↖'),COLOR80FFFF;

DRAWTEXT(FILTER(B1>0,5),LOW*0.997,'MACD底'),COLORFF53FF;

A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));

B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));

底背离KDJ:DRAWTEXT(FILTER(B2>0,5),HIGH*0.9988,'↖'),COLOR80FFFF;

DRAWTEXT(FILTER(B2>0,5),LOW*0.997,'KDJ底'),COLORFF53FF;

C1:=BARSLAST(REF(CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)),1));

D1:=REF(C,C1+1)<C AND REF("MACD.DIF"(12,26,9),C1+1)>"MACD.DIF"(12,26,9) AND CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9));

顶背离MACD:DRAWTEXT(FILTER(D1>0,5),HIGH*1.0008,'↙'),COLOR00FF00;

DRAWTEXT(FILTER(D1>0,5),HIGH*1.004,'MACD顶'),COLORFFFF00;

C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));

D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));

顶背离KDJ:DRAWTEXT(FILTER(D2>0,5),HIGH*1.0008,'↙'),COLOR00FF00;

DRAWTEXT(FILTER(D2>0,5),HIGH*1.004,'KDJ顶'),COLORFFFF00;