?????????????? ?????? ? ????????? ?????????? ??????? ?????

………
kyzl=kyzl+1; B(kyzl,it)=Uo(j,i); Ipgr(kyzl,it)=0.;
if (npaz=1) then Ipgr(kyzl,it) = Ip(npaz); end;
end; end;
end;
xpaz(1:kyzl)=1:kyzl;
kpp=xget("pixmap"); xset("pixmap",1);
for i=1:Nt
Bg=B(:,i);Ipgr2=Ipgr(:,i);
xbasc(); xset("wwpc");
plot2d(xpaz', [Bg 0.00001*Ipgr2] ,leg='b@i',rect=[0 -0.7 kyzl 0.7]); xgrid();
xset("wshow");
end;
134