Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
1

Построить график функции, предварительно найти область определения, заданный уравнением

10.06.2014, 18:31. Просмотров 1395. Ответов 8
Метки нет (Все метки)


Построить график функции, предварительно найти область определения, заданный уравнением: https://www.cyberforum.ru/cgi-bin/latex.cgi?y=({x}^{3}-4)/({x-1})^{3}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2014, 18:31
Ответы с готовыми решениями:

Исследовать область определения и построить график функции
Исследовать область определения и построить график функции. y = 3 +2 / sin (x).

Исследовать область определения функции и построить график
Исследовать область определения функции и построить график функций: y=x^3+2*x^2+x Заранее...

Исследовать область определения и построить график функции
Форумчане, решите плиз эту задачу! Исследовать область определения и построить график функции:...

Найти область определения функции D(f), ее нули экстремумы и множество значений W(f) построить график функций
Найти область определения функции D(f), ее нули экстремумы и множество значений W(f) построить...

8
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
10.06.2014, 19:05 2
Лучший ответ Сообщение было отмечено Mr.Gadget как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses graph;
function F(x:real):real;
begin
F:=(x*x*x-4)/sqr(x-1)/(x-1);
end;
var xn,xk,max,min,x,y,mx,my,dx:real;
    x0,y0,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
xn:=-5;xk:=5;{интервал по Х}
x0:=getmaxX div 2;{центр экрана}
mx:=(x0-40)/xk;{масштаб по Х}
y0:=getmaxY div 2;
my:=(y0-20)/50;{по У}
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to 5 do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0+round(10*i*my),x0+3,y0+round(10*i*my));{засечки на оси У}
    line(x0-3,y0-round(10*i*my),x0+3,y0-round(10*i*my));
    line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
    str(i*10,s);
    {подпись оси У}
    outtextXY(x0-45,y0+round(10*i*my),'-'+s);{соответственно засечкам}
    outtextXY(x0-40,y0-round(10*i*my),s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  if abs(x-1)>dx*10 then putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+dx; {наращиваем х}
 end;
{заголовок}
setcolor(12);
outtextXY(80,20,'y=(x^3-4)/(x-1)^3');
outtextXY(80,40,'interval [-5;5]');
readln
end.
1
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
10.06.2014, 20:38  [ТС] 3
Строит, но мигом пропадает график, выбрасывает в код и пишет ошибка проверки диапазона.
0
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
10.06.2014, 20:50 4
Лучший ответ Сообщение было отмечено Mr.Gadget как решение

Решение

У меня нормально, но отключена проверка диапазона, напиши
Pascal
1
if abs(x-1)>dx*100
1
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
10.06.2014, 23:36  [ТС] 5
Да, помогло. Спасибо Юрий!
0
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
13.06.2014, 11:50  [ТС] 6
Юрий, препод сказала переделать график, но когда я подставляю у меня выбивает ошибка. График: f:=(x-4)*sqrt(x*x-6)/(x+4). Извините. Что не использовал редактор формул. Нахожусь с телефона
0
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
13.06.2014, 12:45 7
Так думать нужно и смотреть. Простая смена функции не всегда подходит. Эта функция определена на интервале
x<-2.5(х<>-4),x>2.5

Добавлено через 1 минуту
2.5 это примерно, точно корень из 6.
0
Фиговый студент
48 / 6 / 7
Регистрация: 26.09.2013
Сообщений: 550
Записей в блоге: 1
13.06.2014, 13:04  [ТС] 8
Юрий, уже мозг взрывается. помогите. Умоляю. Что где поменять?
0
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
13.06.2014, 13:15 9
Чтобы показать все 3 участка графика, то так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses graph;
function F(x:real):real;
begin
F:=(x-4)*sqrt(x*x-6)/(x+4);
end;
var xn,xk,x,y,mx,my,dx:real;
    x0,y0,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
xn:=-10;xk:=10;{интервал по Х}
x0:=getmaxX div 2;{центр экрана}
mx:=(x0-40)/xk;{масштаб по Х}
y0:=getmaxY div 2;
my:=(y0-40)/50;
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to 10 do{максимальное количество засечек в одну сторону}
  begin
    line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));{засечки на оси У}
    line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));
    line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); {засечки на оси Х}
    line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
    str(i*10,s);
    {подпись оси У}
    outtextXY(x0-25,y0+round(i*my*10),'-'+s);{соответственно засечкам}
    outtextXY(x0-20,y0-round(i*my*10),s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);
{график}
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  if ((x<=-sqrt(6))and(abs(x+4)>10*dx))
  or (x>=sqrt(6)) then
  putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+dx; {наращиваем х}
 end;
{заголовок}
setcolor(12);
outtextXY(x0+80,20,'y=(x-4)*sqrt(x*x-6)/(x+4)');
outtextXY(x0+80,40,'interval [-10;10]');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2014, 13:15

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Исследовать область определения и построить график функции
Исследовать область определения и построить график функции: y = x / (3*x^2+2*x+1). Так бы я сам...

Исследовать область определения и построить график функции
Исследовать область определения и построить график функции: y=3 + 2/x + 3/x^2 Добавлено...

Исследовать область определения и построить график функции
Исследовать область определения и построить график функции: y=x/(3x^2+2x+1) Нужна помощь с...

Найти область определения функции и построить график
Задание: Найти область определения функции и построить график. Я не могу понять, там записано:...

Построить график функции. Изобразить линии уровня. Найти область определения функции и изобразить ее в 2D
Дана функция: z=ln(x+y). Построить график этой функции. Изобразить линии уровня. Найти область...

Исследовать область определения и построить график функции
Исследовать область определения и построить график функции: y=\frac{1}{{x}^{2}+3x+1} Помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.