Скачиваний:
13
Добавлен:
23.11.2018
Размер:
702 б
Скачать
function Resh(f,g,fx,fy,gx,gy,x0,y0,esp)
x1=x0+(feval(g,x0,y0)*feval(fy,x0,y0)-feval(f,x0,y0)*feval(gy,x0,y0))/(feval(fx,x0,y0)*feval(gy,x0,y0)-feval(fy,x0,y0)*feval(gx,x0,y0));
y1=y0+(feval(f,x0,y0)*feval(gx,x0,y0)-feval(g,x0,y0)*feval(fx,x0,y0))/(feval(fx,x0,y0)*feval(gy,x0,y0)-feval(fy,x0,y0)*feval(gx,x0,y0));
k=1;
while abs(x1-x0)>esp & abs(y1-y0)>esp
x0=x1;
y0=y1;
x1=x0+(feval(g,x0,y0)*feval(fy,x0,y0)-feval(f,x0,y0)*feval(gy,x0,y0))/(feval(fx,x0,y0)*feval(gy,x0,y0)-feval(fy,x0,y0)*feval(gx,x0,y0));
y1=y0+(feval(f,x0,y0)*feval(gx,x0,y0)-feval(g,x0,y0)*feval(fx,x0,y0))/(feval(fx,x0,y0)*feval(gy,x0,y0)-feval(fy,x0,y0)*feval(gx,x0,y0));
k=k+1;
end;
x=x1
y=y1
k
Соседние файлы в папке 6