MA+成交堆积(主图显示 源码)
MA+成交堆积(主图显示 源码)
M5:简单移动平均(收盘价,5);
M10:简单移动平均(收盘价,10);
M30:简单移动平均(收盘价,30);
M60:简单移动平均(收盘价,60);
M120:简单移动平均(收盘价,120);
M250:简单移动平均(收盘价,250);
variable:pv[50]=0,pc[50]=0;
hh:=最高值(最高价,0);
ll:=最低值(最低价,0);
fv:=成交量;
fh:=最高价;
fl:=最低价;
p:=系统参数(1);
dd:=(hh[p]-ll[p])/49;
for i=p downto 1 do begin
sh:=(fh[i]-ll[p])/dd+1;
sl:=(fl[i]-ll[p])/dd+1;
dj:=fv[i]/(sh-sl+1);
for j=sl to sh do pv[j]:=pv[j]+dj;
end;
s:=0;
for i=1 to 50 do 条件函数 s <pv[i] then s:=pv[i];
bl:=s/(系统参数(3)-系统参数(2))*2;
画斜线(数据位置=系统参数(3),系统参数(5),0,pv[1]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd,0,pv[2]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*02,0,pv[03]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*03,0,pv[04]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*04,0,pv[05]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*05,0,pv[06]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*06,0,pv[07]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*07,0,pv[08]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*08,0,pv[09]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*09,0,pv[10]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*10,0,pv[11]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*11,0,pv[12]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*12,0,pv[13]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*13,0,pv[14]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*14,0,pv[15]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*15,0,pv[16]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*16,0,pv[17]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*17,0,pv[18]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*18,0,pv[19]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*19,0,pv[20]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*20,0,pv[21]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*21,0,pv[22]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*22,0,pv[23]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*23,0,pv[24]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*24,0,pv[25]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*25,0,pv[26]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*26,0,pv[27]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*27,0,pv[28]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*28,0,pv[29]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*29,0,pv[30]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*30,0,pv[31]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*31,0,pv[32]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*32,0,pv[33]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*33,0,pv[34]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*34,0,pv[35]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*35,0,pv[36]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*36,0,pv[37]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*37,0,pv[38]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*38,0,pv[39]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*39,0,pv[40]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*40,0,pv[41]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*41,0,pv[42]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*42,0,pv[43]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*43,0,pv[44]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*44,0,pv[45]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*45,0,pv[46]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*46,0,pv[47]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*47,0,pv[48]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*48,0,pv[49]/bl+1,1),COLORGRAY;
画斜线(数据位置=系统参数(3),系统参数(5)+dd*49,0,pv[50]/bl+1,1),COLORGRAY;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);
a4:=SYSPARAM(4);a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/10;
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+0.05),colormagenta;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+0.05),colormagenta;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+0.05),colormagenta;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+0.05),colormagenta;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+0.05),colormagenta;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+0.05),colormagenta;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+0.05),colormagenta;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+0.05),colormagenta;
FILLRGN(v9/av0>=nn/nn0 and nn>=0,a4-8*hh1,a4-9*hh1+0.05),colormagenta;
FILLRGN(v10/av0>=nn/nn0 and nn>=0,a4-9*hh1,a4-10*hh1+0.05),colormagenta;
STICKLINE(c>=o,c,o,9,1),colorred;
STICKLINE(c>=o,l,o,0.1,0),colorred;
STICKLINE(c>=o,c,h,0.1,0),colorred;
STICKLINE(c<o,c,o,9,0),colorffff00;
STICKLINE(c<o,h,l,0.1,0),colorffff00;