分时图显示五日量能

看到有人在分时图显示五日成交量图 我感觉很方便 在论坛求助无果最后自己动作试试能仿制吗 结果很满意 源码如下
引用指标
建立指标名称

日量引用
前四日:ref(v,4);
前三日:ref(v,3);
前二日:ref(v,2);
前一日:ref(v,1);
日量:v;
前五收:ref(c,5);
前四收:ref(c,4);
前三收:ref(c,3);
前二收:ref(c,2);
前一收:ref(c,1);
收盘价:c;

（分时量能）

a6:="日量引用.前四日#day";
a7:="日量引用.前三日#day";
a8:="日量引用.前二日#day";
a9:="日量引用.前一日#day";
a10:="日量引用.日量#day";
a31:=(a9);
a32:=(a10);
a33:=(a8);
a34:=(a7);
a35:=(a6);
a37:=600 / (MAX(a31,a32,a33,a34,a35));
a40:=980 - (a31 * a37);
a41:=980 - (a32 * a37);
a42:=980 - (a33 * a37);
a43:=980 - (a34 * a37);
a44:=980 - (a35 * a37);
zc:="日量引用.收盘价#day";
zo:="日量引用.前一收#day";
q2:="日量引用.前二收#day";
q3:="日量引用.前三收#day";
q4:="日量引用.前四收#day";
q5:="日量引用.前五收#day";
if q4>=q5 then begin  DRAWRECTREL(1000,a44,1015,1000,RGB(255,0,0)),COLORBLACK;
end;
if q4<=q5 then begin  DRAWRECTREL(1000,a44,1015,1000,RGB(0,169,0)),COLORBLACK;
end;
if q3>=q4 then begin  DRAWRECTREL(1015,a43,1030,1000,RGB(255,0,0)),COLORBLACK;
end;
if q3<=q4 then begin  DRAWRECTREL(1015,a43,1030,1000,RGB(0,169,0)),COLORBLACK;
end;
if q2>=q3 then begin  DRAWRECTREL(1030,a42,1045,1000,RGB(255,0,0)),COLORBLACK;
end;
if q2<=q3 then begin  DRAWRECTREL(1030,a42,1045,1000,RGB(0,169,0)),COLORBLACK;
end;
if zo>=q2 then begin  DRAWRECTREL(1045,a40,1060,1000,RGB(255,0,0)),COLORBLACK;
end;
if zo<=q2 then begin  DRAWRECTREL(1045,a40,1060,1000,RGB(0,169,0)),COLORBLACK;
end;
if ZC>=ZO then begin  DRAWRECTREL(1060,a41,1075,1000,RGB(255,0,0)),COLORBLACK;
end;
if ZC<=ZO then begin  DRAWRECTREL(1060,a41,1075,1000,RGB(0,169,0)),COLORBLACK;
end;