分时主图（九毛八公式指标网）

{显示画面}
{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))
横盘:=((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:=今昨差
ssxd4:=今昨差
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:=今昨差比
ssxd6:=今昨差比
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:=净流入
jlr1:=净流入
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 预测高低一
ycgd1:=预测高低二 0 or 预测高低一
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;