Помощь - Поиск - Пользователи - Календарь
Полная версия: Построение графика функции
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
LOVE133
Сообщения разделены из темы: Построение любого графика

мне нужно найти все корни уравнения...делать буду методом деления отрезка пополам, но препод сказал, для того чтобы найти интервалы , нужно построить график...естественно маткад ем уне нравится ))) так что строю свой график... воспользовалась вашей программой. рисует точки, и не то что надо , и как с помощью этого графика найти те самый интервалы. елси разбиения на сетку нет и нет масштаба... вот что получилось
{$n+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
a0=22.5;
a1=-123;
a2=-28;
a3=35.1;
a4=453.5;
a5=130;
shag=0.0001;
lgr = -10;
pgr = 10;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
grMode : Integer;

x,y:real;{extended;}
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

x:=lgr;
while x<=pgr do
begin
{ readln(x);}
{***} begin y:=a0*sqr(x)*sqr(x)*x+a1*sqr(x)*sqr(x)+a2*sqr(x)*x+a3*sqr(x)+a4*x+a5; {***}
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.
LOVE133
хм ...как и крутила , все равно рисует тучу точек лишних, к функции не относящихся...подскажите. может я фнкцию не так задаю, там должно быть уравнение 5 степени .
Бродяжник
mtrX=20;
mtrY=0.00005;

и будет Вам счастье
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.