分时主图（源码 贴图）

{分时主图}
{引用 预测股价 设定预测范围}
最高价1:"预测股价.最高价1#day",PRECIS2,linethick0;
最低价1:"预测股价.最低价1#day",PRECIS2,linethick0;
预测低一:"预测股价.预测低一#day",PRECIS2,linethick0;
预测低一1:"预测股价.预测低一1#day",PRECIS2,linethick0;
预测低二:"预测股价.预测低二#day",PRECIS2,linethick0;
预测低二1:"预测股价.预测低二1#day",PRECIS2,linethick0;
STICKLINE((预测低二<预测低一),预测低二,预测低一,10,0),COLOR0055ff,linethick0;
STICKLINE((预测低一<预测低二),预测低一,预测低二,10,0),COLOR0055ff,linethick0;
DRAWTEXT(BARSTATUS=2,预测低一,'  预测低一：'+NUMTOSTRN(预测低一,2)+'元' ),COLORffffff,LINETHICK2;
DRAWTEXT(BARSTATUS=2,预测低二,'  预测低二：'+NUMTOSTRN(预测低二,2)+'元' ),COLORffffff,LINETHICK2;
DRAWTEXT(TIME=93000,预测低一,'                     ●低吸区 '),Colorffffff,LINETHICK4;
平均价一:"预测股价.平均价一#day",coloryellow,linethick1,layer0;
平均价二:"预测股价.平均价二#day",coloryellow,linethick1,layer0;
STICKLINE((平均价二<平均价一),平均价二,平均价一,10,0),COLORblue,linethick2;
STICKLINE((平均价一<平均价二),平均价一,平均价二,10,0),COLORblue,linethick2;
DRAWTEXT(BARSTATUS=2,平均价一,'  强势高价：'+NUMTOSTRN(平均价一,2)+'元' ),COLORred,LINETHICK2;
DRAWTEXT(BARSTATUS=2,平均价二,'  弱势高价：'+NUMTOSTRN(平均价二,2)+'元' ),COLORred,LINETHICK2;
DRAWTEXT(TIME=93000,平均价一,'                     ●高抛区 '),Colorffffff,LINETHICK4;
{引用 分时资金}
净流入:="净流入.净流入#tick";
{忘了作者  动态阻力及支撑}
MA30:EMA(CLOSE,30),linethick0;
强弱:EMA(CLOSE,900),colorred,linethick1,layer0;
STICKLINE((MA30>强弱),MA30,强弱,1,0),COLOR0000FF;
STICKLINE((MA30<强弱),MA30,强弱,1,0),COLOR00FF00;
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLOR00DD00,linethick2,layer0;
支撑:L1+P1*0.5/8,COLOR00DD00,linethick2,layer0;
现价:CLOSE,COLORffffff,LINETHICK0,layer0;
{支差:现价-支撑,linethick0;
阻差:现价-阻力,linethick0;
支差比:支差/MA30*100,linethick0;
阻差比:阻差/MA30*100,linethick0;}

{显示画面}
{HH:=DYNAINFO(5);
LL:=DYNAINFO(6);}
{今天最新价与昨收价差}
今昨差:现价-DYNAINFO(3),linethick0;
今昨差比:今昨差/DYNAINFO(3)*100,linethick0;
{今天最高价与昨收价差}
高昨差:DYNAINFO(5)-DYNAINFO(3),linethick0;
高昨差比:高昨差/DYNAINFO(3)*100,linethick0;
STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),COLORffffff,linethick1,layer0;
DRAWTEXT(LONGCROSS(支撑,现价,2),支撑*0.998,'低'),COLORFFFFFF,linethick4,layer0;
DRAWTEXT(LONGCROSS(现价,阻力,2),现价*1.001,'高'),COLORffffff,linethick4,layer0;
DRAWTEXTABS(265,318,'  今日         昨日   昨  收   最新价'),COLORffffff,LINETHICK4;
DRAWTEXTABS(340,344,'最高价'),COLORffffff,LINETHICK4;
DRAWTEXTABS(340,370,'最低价'),COLORffffff,LINETHICK4;
DRAWTEXTABS(400,344,'         '+NUMTOSTRN(DYNAINFO(3),2)),COLORffffff,LINETHICK4;
{分时横盘公式}
tt:=BARSCOUNT(C);
CC:=CLOSE;
zz:=SUM(AMOUNT,tt)/SUM(VOL*100,tt);
zz1:=BETWEEN(C/zz,1.05,0.95);
均线:IF(zz1=0,MA(C,TT),zz),COLOR00FFFF,LINETHICK0;
上均:均线 + AVEDEV(C,tt)*2,COLOR00FF00,LINETHICK0;
下均:均线 - AVEDEV(C,tt)*2,COLORFF6600,LINETHICK0;
时长:=if(HOUR>=13 AND HOUR<15 ,1,0);
涨幅:=(close/DYNAINFO(3))>=1.03;
跌幅:=(close/DYNAINFO(3))<=0.97;
涨跌幅:=涨幅 OR 跌幅;
yy:=SMA(vol,30,1);
放量:=(yy-LLV(Llv(yy,1),30))/(HHV(Hhv(yy,1),30)-LLV(Llv(yy,1),30))>0;
横盘:=((HHV(CLOSE,TT)-LLV(CLOSE,TT))/CLOSE)<=0.05;
横涨:=涨跌幅=0 and 横盘 and 时长 and 放量  and CROSS(CC,上均)and DYNAINFO(22)<DYNAINFO(23) ;
横跌:=涨跌幅=0 and 横盘 and 时长 and 放量  and CROSS(下均,CC) ;
PP:= FILTER(横涨,100) ;
UU:= FILTER(横跌,50) ;
DRAWTEXT(PP,平均价一*1.005,'▲上冲'),colorffffff,linethick4;
DRAWTEXT(UU,预测低一*0.995,'▼下破'),COLORgreen,linethick4;
VERTLINE( PP,3),colorffffff;
VERTLINE( UU,3),colorffffff;
{变色设计}
PARTLINE(c,c>=REF(c,1),RGB(255,250,250),c<=REF(c,1),RGB(0,255,0)),linethick2,layer0;
{一品老师的盘中急杀----一品茶缘编写，1分钟预警指标，附送急涨指标}
JS1:=L=LLV(L,3) AND (L/HHV(H,3)-1)*100<=(0-3);
JS2:=L=LLV(L,10) AND (L/HHV(H,10)-1)*100<=(0-5);
急杀:=JS1 OR JS2;
DRAWTEXT(急杀,c,'●急杀'),COLORgreen,linethick4;
{一品老师的分时过顶
KP30:=TIME0<36000;
KPGD:=H=HHV(H,0) AND KP30;
GDSJ:=BARSLAST(KPGD);
HH:REF(H,GDSJ),COLORFF00FF,POINTDOT,LINETHICK0;
过顶:IF(CROSS(C,HH),1,0),COLOR00FF00,POINTDOT,LINETHICK0;
冲高:IF(FILTER(CROSS(C,HH*1.01),15),1,0),COLOR00FFFF,POINTDOT,LINETHICK0;
DRAWTEXT(过顶,HH,'↑'),COLORyellow,linethick2;
DRAWTEXT(冲高,HH,'▲'),COLORyellow,linethick2;}
{前30分钟的股价}
VERTLINE(TIME=94000,2);
VERTLINE(TIME=95000,2);
VERTLINE(TIME=100000,2);
DRAWTEXT(TIME=94000,C,NUMTOSTR(C)),Colorffffff,LINETHICK2;
DRAWTEXT(TIME=95000,C,NUMTOSTR(C)),Colorffffff,LINETHICK2;
DRAWTEXT(TIME=100000,C,NUMTOSTR(C)),Colorffffff,LINETHICK2;
{引用 分时副图 显示涨跌}
MACD:"分时副图.MACD",PRECIS2,linethick0;
DRAWRECTREL(262,744,686,930,rgb(47,79,79));
DRAWRECTREL(446,744,686,930,rgb(47,79,79));
{DRAWRECTREL(262,680,686,748,rgb(10,10,20));}
{颜色显示涨跌}
ssx0:=现价>DYNAINFO(3);
ssx1:=现价<DYNAINFO(3);
ssx2:=现价=DYNAINFO(3);
IF BARSTATUS=2 AND ssx0 THEN BEGIN
DRAWTEXTABS(529,344,'     '+NUMTOSTRN(现价,2)),colorred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssx1 THEN BEGIN
DRAWTEXTABS(529,344,'     '+NUMTOSTRN(现价,2)),colorgreen,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssx2 THEN BEGIN
DRAWTEXTABS(529,344,'     '+NUMTOSTRN(现价,2)),coloryellow,LINETHICK4;
END; 
上升:((MACD>REF(MACD,1)) AND (MACD<0)) or ((MACD>REF(MACD,1)) AND (MACD>0)),LINETHICK0;
下跌:((MACD<REF(MACD,1)) AND (MACD>0)) or ((MACD<REF(MACD,1)) AND (MACD<0)),LINETHICK0;
ssxd0:=上升;
ssxd1:=下跌;
IF BARSTATUS=2 AND ssxd0 THEN BEGIN
DRAWTEXTABS(550,318,'         ▲上升中 '),colorred,LINETHICK4;
DRAWRECTREL(620,810,684,920,rgb(255,0,0));
END
ELSE
IF BARSTATUS=2 AND ssxd1 THEN BEGIN
DRAWTEXTABS(550,318,'         ▼下跌中 '),colorgreen,LINETHICK4;
DRAWRECTREL(620,810,684,920,rgb(0,255,0));
END;
ssxd3:=今昨差>0;
ssxd4:=今昨差<0;
IF BARSTATUS=2 AND ssxd3 THEN BEGIN
DRAWTEXTABS(430,370,'     涨:'+NUMTOSTRN(今昨差,2)),colorred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssxd4 THEN BEGIN
DRAWTEXTABS(430,370,'     跌:'+NUMTOSTRN(今昨差,2)),colorgreen,LINETHICK4;
END;
ssxd5:=今昨差比>0;
ssxd6:=今昨差比<0;
IF BARSTATUS=2 AND ssxd5 THEN BEGIN
DRAWTEXTABS(550,370,'   '+NUMTOSTRN(今昨差比,2)+'%'),colorred,LINETHICK4;
END
ELSE 
IF BARSTATUS=2 AND ssxd6 THEN BEGIN
DRAWTEXTABS(550,370,'   '+NUMTOSTRN(今昨差比,2)+'%'),colorgreen,LINETHICK4;
END;
ssxd11:=DYNAINFO(5)>最高价1;
ssxd12:=DYNAINFO(5)<最高价1;
ssxd13:=DYNAINFO(5)=最高价1;
IF BARSTATUS=2 AND ssxd11 THEN BEGIN
DRAWTEXTABS(254,344,'   '+NUMTOSTRN(DYNAINFO(5),2)),colorred,LINETHICK4;
DRAWTEXTABS(350,344,'      '+NUMTOSTRN(最高价1,2)),colorgreen,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssxd12 THEN BEGIN
DRAWTEXTABS(254,344,'   '+NUMTOSTRN(DYNAINFO(5),2)),colorgreen,LINETHICK4;
DRAWTEXTABS(350,344,'      '+NUMTOSTRN(最高价1,2)),colorred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssxd13 THEN BEGIN
DRAWTEXTABS(254,344,'   '+NUMTOSTRN(DYNAINFO(5),2)),coloryellow,LINETHICK4;
DRAWTEXTABS(350,344,'      '+NUMTOSTRN(最高价1,2)),coloryellow,LINETHICK4; 
END;
ssxd14:=DYNAINFO(6)>最低价1;
ssxd15:=DYNAINFO(6)<最低价1;
ssxd16:=DYNAINFO(6)=最低价1;
IF BARSTATUS=2 AND ssxd14 THEN BEGIN
DRAWTEXTABS(254,370,'   '+NUMTOSTRN(DYNAINFO(6),2)),colorred,LINETHICK4;
DRAWTEXTABS(350,370,'      '+NUMTOSTRN(最低价1,2)),COLORgreen,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssxd15 THEN BEGIN
DRAWTEXTABS(254,370,'   '+NUMTOSTRN(DYNAINFO(6),2)),colorgreen,LINETHICK4;
DRAWTEXTABS(350,370,'      '+NUMTOSTRN(最低价1,2)),COLORred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND ssxd16 THEN BEGIN
DRAWTEXTABS(254,370,'   '+NUMTOSTRN(DYNAINFO(6),2)),coloryellow,LINETHICK4;
DRAWTEXTABS(350,370,'      '+NUMTOSTRN(最低价1,2)),COLORyellow,LINETHICK4; 
END;
jlr0:=净流入>0;
jlr1:=净流入<0;
IF BARSTATUS=2 AND jlr0 THEN BEGIN
DRAWTEXTABS(720,328,' ▲ 净流入:'+NUMTOSTRN(净流入,0)+'万元'),colorred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND jlr1 THEN BEGIN
DRAWTEXTABS(720,328,' ▼ 净流入:'+NUMTOSTRN(净流入,0)+'万元'),colorgreen,LINETHICK4;
END;
JLR2:=c>ref(c,1) ;{净流入递增中}
JLR3:=c<ref(c,1) ;{净流入递减中}
IF BARSTATUS=2 AND JLR2 THEN BEGIN
DRAWTEXTABS(720,358,'    递增中'),colorred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND JLR3 THEN BEGIN
DRAWTEXTABS(720,358,'    递减中'),colorgreen,LINETHICK4;
END
JLR4:=c=ref(c,1) AND REF(C,1)>REF(C,2);{净流入递增中}
JLR5:=c=ref(c,1) AND REF(C,1)<REF(C,2);{净流入递减中}
IF BARSTATUS=2 AND JLR4 THEN BEGIN
DRAWTEXTABS(720,358,'    递增过程中 现平盘'),colorred,LINETHICK4;
END
ELSE
IF BARSTATUS=2 AND JLR5 THEN BEGIN
DRAWTEXTABS(720,358,'    递减过程中 现平盘'),colorgreen,LINETHICK4;
END
预测高低二:=预测低二-预测低二1;
预测高低一:=预测低一-预测低一1;
ycgd0:=预测高低二>0 or 预测高低一>0;
ycgd1:=预测高低二<0 or 预测高低一<0;
IF BARSTATUS=2 AND ycgd0 THEN BEGIN
DRAWTEXTABS(5,328,'▲最高价最低价可能高于昨日'),colorred,LINETHICK4;
DRAWRECTREL(380,748,446,810,rgb(0,255,0));
DRAWRECTREL(263,748,329,810,rgb(255,0,0));
END
ELSE
IF BARSTATUS=2 AND ycgd1 THEN BEGIN
DRAWTEXTABS(5,328,'▼最高价最低价可能低于昨日'),colorgreen,LINETHICK4;
DRAWRECTREL(380,748,446,810,rgb(255,0,0));
DRAWRECTREL(263,748,329,810,rgb(0,255,0));
END;