sx100:=SUMBARS(100*v/CAPITAL,100);
p100:=ma(c,sx100),LINETHICK1,color0000ff;
ba100:=BACKSET(BARSTATUS=2,sx100);
VERTLINE(ref(ba100,1)=0 and ba100=1),POINTDOT,color0000ff;
sx200:=SUMBARS(100*v/CAPITAL,200);
p200:=ma(c,sx200),LINETHICK1,colorff00ff;
ba200:=BACKSET(BARSTATUS=2,sx200);
VERTLINE(ref(ba200,1)=0 and ba200=1),POINTDOT,colorff00ff;
sx300:=SUMBARS(100*v/CAPITAL,300);
p300:=ma(c,sx300),LINETHICK1,colorff6600;
ba300:=BACKSET(BARSTATUS=2,sx300);
VERTLINE(ref(ba300,1)=0 and ba300=1),POINTDOT,colorff6600;
sx400:=SUMBARS(100*v/CAPITAL,400);
p400:=ma(c,sx400),LINETHICK1,color0099ff;
ba400:=BACKSET(BARSTATUS=2,sx400);
VERTLINE(ref(ba400,1)=0 and ba400=1),POINTDOT,color0099ff;
sx500:=SUMBARS(100*v/CAPITAL,500);
p500:=ma(c,sx500),LINETHICK1,colorgray;
ba500:=BACKSET(BARSTATUS=2,sx500);
VERTLINE(ref(ba500,1)=0 and ba500=1),POINTDOT,colorgray;
a1:=p100;b[1]:=a1[SYSPARAM(1)];
a2:=p200;b[2]:=a2[SYSPARAM(1)];
a3:=p300;b[3]:=a3[SYSPARAM(1)];
a4:=p400;b[4]:=a4[SYSPARAM(1)];
a5:=p500;b[5]:=a5[SYSPARAM(1)];
zd:max(max(max(max(a1,a2),a3),a4),a5);
zx:min(min(min(min(a1,a2),a3),a4),a5);
PARTLINE(1,zd),COLORGRAY;
PARTLINE(1,zx)COLORGRAY;
for i=1 to 5 do begin
if zd[SYSPARAM(1)]=b then
最大:if(i=1,100,I*100),LINETHICK0,COLORYELLOW;
if zx[SYSPARAM(1)]=b then
最小:if(i=1,100,I*100),LINETHICK0,COLORGREEN;
end;
 |
