{买入卖出及时直观柱图}
开盘价:open,PRECIS2,linethick0;
最高价:high,PRECIS2,linethick0;
最低价:low,PRECIS2,linethick0;
收盘价:CLOSE,PRECIS2,linethick0;
开盘价1:REF(open,1),PRECIS2,linethick0;
最高价1:REF(high,1),PRECIS2,linethick0;
最低价1:REF(low,1),PRECIS2,linethick0;
收盘价1:REF(CLOSE,1),PRECIS2,linethick0;
{引用 昨买今卖}
预测低一:"昨买今卖.预测低一",PRECIS2,linethick0;
预测低二:"昨买今卖.预测低二",PRECIS2,linethick0;
平均价一:="昨买今卖.平均价一";{强势高价}
平均价二:="昨买今卖.平均价二";{弱势高价}
{及时行情 动态直观图 主图}
DRAWRECTREL(50,400,110,600,rgb(255,97,0));
DRAWRECTREL(50,600,110,800,rgb(255,0,255));
DRAWRECTREL(110,400,170,600,rgb(255,153,18));
DRAWRECTREL(110,600,170,800,rgb(255,153,18));
DRAWRECTREL(170,400,230,600,rgb(255,215,0));
DRAWRECTREL(170,600,230,800,rgb(255,215,0));
DRAWRECTREL(230,400,290,600,rgb(255,255,0));
DRAWRECTREL(230,600,290,800,rgb(255,255,0));
DRAWRECTREL(290,400,350,600,rgb(127,255,212));
DRAWRECTREL(290,600,350,800,rgb(127,255,212));
DRAWRECTREL(350,400,410,600,rgb(64,224,208));
DRAWRECTREL(350,600,410,800,rgb(64,224,208));
DRAWRECTREL(410,400,470,600,rgb(0,255,127));
DRAWRECTREL(410,600,470,800,rgb(0,255,127));
DRAWRECTREL(470,400,530,600,rgb(0,255,0));
DRAWRECTREL(470,600,530,800,rgb(255,0,255));
DRAWTEXTREL(50,450,' 最高价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(55,650,' '+NUMTOSTRN(h,2)),colorwhite,linethick4;
DRAWTEXTREL(110,450,' 强势高价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(115,650,' '+NUMTOSTRN(平均价一,2)),colorblack,linethick4;
DRAWTEXTREL(170,450,' 弱势高价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(175,650,' '+NUMTOSTRN(平均价二,2)),colorblack,linethick4;
DRAWTEXTREL(230,450,' 中间价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(290,450,' 《 昨收'),COLORblack,linethick2,layer0;
DRAWTEXTREL(295,650,' '+NUMTOSTRN(收盘价1,2)),colorblack,linethick4;
DRAWTEXTREL(350,450,' 预测低二'),COLORblack,linethick2,layer0;
DRAWTEXTREL(355,650,' '+NUMTOSTRN(预测低二,2)),colorblack,linethick4;
DRAWTEXTREL(410,450,' 预测低一'),COLOrblack,linethick2,layer0;
DRAWTEXTREL(415,650,' '+NUMTOSTRN(预测低一,2)),colorblack,linethick4;
DRAWTEXTREL(470,450,' 最低价'),COLORblack,linethick2,layer0;
DRAWTEXTREL(475,650,' '+NUMTOSTRN(l,2)),colorffffff,linethick4;
{低买高卖及时行情 动态直观图,区间划分可按自己要求分,模式如下}
mr0:=c > 平均价一*1.006 ;
mr1:=平均价一<= c ;
mr2:=平均价二<= c ;
IF BARSTATUS=2 AND mr0 THEN BEGIN
DRAWRECTREL(50,200,110,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(60,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr1 THEN BEGIN
DRAWRECTREL(110,200,170,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(120,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr2 THEN BEGIN
DRAWRECTREL(170,200,230,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(180,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
mr3:预测低二<c and c<平均价二 ,PRECIS2,linethick0;
IF BARSTATUS=2 AND mr3 THEN BEGIN
DRAWRECTREL(230,200,290,400,rgb(255,0,0));
DRAWTEXTREL(240,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
mr4:=收盘价1>c;
IF BARSTATUS=2 AND mr4 THEN BEGIN
DRAWRECTREL(290,200,350,400,rgb(0,255,0)),layer1;
DRAWTEXTREL(300,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END;
mr5:(预测低二>c or 预测低二=c) and 预测低一<c,PRECIS2,linethick0;
mr6:=预测低一>c or 预测低一=c;
mr7:=预测低一*0.994 >c;
IF BARSTATUS=2 AND mr5 THEN BEGIN
DRAWRECTREL(350,200,410,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(360,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr6 THEN BEGIN
DRAWRECTREL(410,200,470,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(420,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mr7 THEN BEGIN
DRAWRECTREL(470,200,530,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(480,220,NUMTOSTRN(c,2)),colorred,linethick5;
END
{卖出及时直观柱图}
DRAWRECTREL(590,400,650,600,rgb(255,97,0));
DRAWRECTREL(590,600,650,800,rgb(255,97,0));
DRAWRECTREL(650,400,710,600,rgb(255,97,0));
DRAWRECTREL(650,600,710,800,rgb(255,97,0));
DRAWRECTREL(710,400,770,600,rgb(255,153,18));
DRAWRECTREL(710,600,770,800,rgb(255,153,18));
DRAWRECTREL(770,400,830,600,rgb(255,215,0));
DRAWRECTREL(770,600,830,800,rgb(255,215,0));
DRAWRECTREL(830,400,890,600,rgb(255,255,0));
DRAWRECTREL(830,600,890,800,rgb(255,255,0));
DRAWRECTREL(890,400,950,600,rgb(0,255,127));
DRAWRECTREL(890,600,950,800,rgb(0,255,127));
DRAWTEXTREL(590,650,' 》5%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(650,650,' 4～5%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(710,650,' 3～4%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(770,650,' 2～3%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(830,650,' 1～2%'),COLORblack,linethick3,layer0;
DRAWTEXTREL(890,650,' 1%'),COLORblack,linethick3,layer0;
{显示买卖价 青铜湖先生的在主图上显示投资记录}
BUYPRICE:="SHOWINV@BUYPRICE"(1);
SALEPRICE:="SHOWINV@SALEPRICE"(1);
iF BUYPRICE> 0 THEN BBP:=BUYPRICE;
{显示标题}
{DRAWTEXTrel(10,60,' 【日期：'+NUMTOSTR(day)+'日】'), COLORwhite,LINETHICK3;}
DRAWTEXTREL(100,60,' 【 低买高卖及时行情 动态直观图】' ),colorffff80,linethick4;
DRAWTEXTREL(400,60,' 【昨买今卖及时行情 动态直观图】' ),coloryellow,linethick4;
DRAWTEXTREL(620,60,' 买入价：'+NUMTOSTRn(BBP,2)+'元'),colorffffff,linethick4;
{显示获利情形}{卖出及时直观柱图2}
DRAWTEXTREL(595,450,' '+NUMTOSTRN(BBP*1.051,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(655,450,' '+NUMTOSTRN(BBP*1.05,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(715,450,' '+NUMTOSTRN(BBP*1.04,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(775,450,' '+NUMTOSTRN(BBP*1.03,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(835,450,' '+NUMTOSTRN(BBP*1.02,2)),COLORblack,linethick3,layer0;
DRAWTEXTREL(895,450,' '+NUMTOSTRN(BBP*1.01,2)),COLORblack,linethick3,layer0;
{卖出及时跳动行情}
mc0:=c >BBP*1.051;
mc1:=c<BBP*1.05 and c> BBP*1.04;
mc2:=c<BBP*1.04 and c> BBP*1.03;
IF BARSTATUS=2 AND mc0 THEN BEGIN
DRAWRECTREL(590,200,650,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(600,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc1 THEN BEGIN
DRAWRECTREL(650,200,710,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(660,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc2 THEN BEGIN
DRAWRECTREL(710,200,770,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(720,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
ENDmc3:=c<BBP*1.03 and c> BBP*1.02;
mc4:=c<BBP*1.02 and c> BBP*1.01;
mc5:=c<BBP;
IF BARSTATUS=2 AND mc3 THEN BEGIN
DRAWRECTREL(770,200,830,400,rgb(255,0,0));
DRAWTEXTREL(780,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc4 THEN BEGIN
DRAWRECTREL(830,200,890,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(840,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
ELSE
IF BARSTATUS=2 AND mc5 THEN BEGIN
DRAWRECTREL(890,200,950,400,rgb(255,0,0)),layer1;
DRAWTEXTREL(900,220,NUMTOSTRN(c,2)),colorwhite,linethick5;
END
DRAWTEXTREL(50,850,'【及时行情动态直观图构思 】'),COLORffffff,linethick2;
DRAWTEXTREL(400,850,' 代码: '+STKLABEL+' '+STKNAME+' 日期: '+YEAR+'年 '+MONTH+'月 '+DAY+'日 '),linethick3,Color8AFAC0; |
