Aprilia_fry
Ученик
- Регистрация
- 26 Дек 2013
- Сообщения
- 1
- Реакции
- 0
- Баллы
- 0
Вывести на экран график двух функций
Разработать программу вывода на экран в графическом режиме графиков двух функций на интервале от xнач до xкон с шагом dx. Первая функция задана с помощью ряда Тейлора, ее вычисление должно выполняться с точностью ε. Значение параметра b для второй функции вводится с клавиатуры.(сами функции ниже во вложении)
программа в паскале. У меня уже есть готовая программа, но для другого варианта, к сожалению. Не могу разобраться,что здесь надо поменять
Прошу помощи! А то с сессией времени на программирование совсем не остаётся
uses graphABC,crt;
function Y(x,e:real):real;
var n:integer;
s,t:real;
begin
if abs(x-1)<=e then s:=0
else
begin
n:=0;
t:=(x-1);
s:=t/(x+1);
while abs(t/((x+1)*(2*n+1)))>e do
begin
n:=n+1;
t:=t*sqr(x-1);
s:=s+t/((x+1)*(2*n+1));
end;
end;
Y:=2*s;
end;
function Z(x,b:real):real;
begin
Z:=exp(-x)+b;
end;
var xc,yc,n,i:integer;
e,b,xn,xk,dx,max,min,d,x,y1,mx,my:real;
s:string;
begin
write('b=');
read(b);
clrscr;
hidecursor;
e:=0.001;
xc:=30;
yc:=windowheight div 2;
line(0,yc,windowwidth-xc,yc);
line(xc,0,xc,2*yc);
xn:=0.1;
xk:=2;
dx:=0.001;
x:=xn;
max:=Y(x,e);min:=Y(x,e);
while x<=xk+dx/2 do
begin
if Y(x,e)>max then max:=Y(x,e);
if Z(x,b)>max then max:=Z(x,b);
if Y(x,e)<min then min:=Y(x,e);
if Z(x,b)<min then min:=Z(x,b);
x:=x+dx;
end;
if max>abs(min) then d:=max
else d:=abs(min);
mx:=(windowwidth -140)/(xk-xn);
my:=(yc-40)/d;
if d>xk then n:=round(d)
else n:=round(xk);
for i:=1 to n+1 do
begin
line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);
line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
line(xc-3,yc-round(i*my),xc+3,yc-round(i*my));
line(xc-3,yc+round(i*my),xc+3,yc+round(i*my));
str(i,s);
textout(xc+round(i*mx),yc+10,s);
textout(xc-round(i*mx),yc+10,'-'+s);
textout(xc-15,yc-round(i*my),s);
textout(xc-15,yc+round(i*my),s);
end;
x:=xn;
while x<=xk+dx/2 do
begin
x:=x+dx;
setpixel(xc+round(x*mx),yc-round(Y(x,e)*my),clRed);
setpixel(xc+round(x*mx),yc-round(Z(x,b)*my),clGreen);
end;
setfontcolor(clRed);
textout(50,10,'График функции разложения в ряд Тейлора');
setfontcolor(clGreen);
textout(50,30,'График функции Z=exp(-x)+b');
setfontcolor(clBlack);
textout(50,50,'на интервале [0.1;2]');
end.
Разработать программу вывода на экран в графическом режиме графиков двух функций на интервале от xнач до xкон с шагом dx. Первая функция задана с помощью ряда Тейлора, ее вычисление должно выполняться с точностью ε. Значение параметра b для второй функции вводится с клавиатуры.(сами функции ниже во вложении)
программа в паскале. У меня уже есть готовая программа, но для другого варианта, к сожалению. Не могу разобраться,что здесь надо поменять
Прошу помощи! А то с сессией времени на программирование совсем не остаётся
uses graphABC,crt;
function Y(x,e:real):real;
var n:integer;
s,t:real;
begin
if abs(x-1)<=e then s:=0
else
begin
n:=0;
t:=(x-1);
s:=t/(x+1);
while abs(t/((x+1)*(2*n+1)))>e do
begin
n:=n+1;
t:=t*sqr(x-1);
s:=s+t/((x+1)*(2*n+1));
end;
end;
Y:=2*s;
end;
function Z(x,b:real):real;
begin
Z:=exp(-x)+b;
end;
var xc,yc,n,i:integer;
e,b,xn,xk,dx,max,min,d,x,y1,mx,my:real;
s:string;
begin
write('b=');
read(b);
clrscr;
hidecursor;
e:=0.001;
xc:=30;
yc:=windowheight div 2;
line(0,yc,windowwidth-xc,yc);
line(xc,0,xc,2*yc);
xn:=0.1;
xk:=2;
dx:=0.001;
x:=xn;
max:=Y(x,e);min:=Y(x,e);
while x<=xk+dx/2 do
begin
if Y(x,e)>max then max:=Y(x,e);
if Z(x,b)>max then max:=Z(x,b);
if Y(x,e)<min then min:=Y(x,e);
if Z(x,b)<min then min:=Z(x,b);
x:=x+dx;
end;
if max>abs(min) then d:=max
else d:=abs(min);
mx:=(windowwidth -140)/(xk-xn);
my:=(yc-40)/d;
if d>xk then n:=round(d)
else n:=round(xk);
for i:=1 to n+1 do
begin
line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);
line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
line(xc-3,yc-round(i*my),xc+3,yc-round(i*my));
line(xc-3,yc+round(i*my),xc+3,yc+round(i*my));
str(i,s);
textout(xc+round(i*mx),yc+10,s);
textout(xc-round(i*mx),yc+10,'-'+s);
textout(xc-15,yc-round(i*my),s);
textout(xc-15,yc+round(i*my),s);
end;
x:=xn;
while x<=xk+dx/2 do
begin
x:=x+dx;
setpixel(xc+round(x*mx),yc-round(Y(x,e)*my),clRed);
setpixel(xc+round(x*mx),yc-round(Z(x,b)*my),clGreen);
end;
setfontcolor(clRed);
textout(50,10,'График функции разложения в ряд Тейлора');
setfontcolor(clGreen);
textout(50,30,'График функции Z=exp(-x)+b');
setfontcolor(clBlack);
textout(50,50,'на интервале [0.1;2]');
end.
