Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 06.10.2016
Сообщений: 70
1

Составить график функции. Дана функция нужно построить график по полученным точкам

05.06.2018, 20:15. Просмотров 1673. Ответов 5
Метки нет (Все метки)


Помогите составить график функции. Дана функция нужно построить график по полученным точкам
a=1.237845
b=-0.1244321*power(10,3)
Pascal
1
2
3
4
5
6
7
8
begin
if ((abs(power(a,2)-power(b,2))*10x)<-1 then
y:=power(a,x)-power(e,x)+power(b,3)+cos(4x-0.2);
if ((abs(power(a,2)-power(b,2)-10x)<=0) then
y:=b*sign(power(x,3)-a)-power(e,-4x);
if ((abs(power(a,2)-power(b,2)-10x)>0) then
y:=tan(45x)+((power(x,3))/(abs(sin(0.5x))));
x:=(10+5)/19+x
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2018, 20:15
Ответы с готовыми решениями:

3D график по полученным точкам
привет всем, возникла вроде бы довольно легкая проблема, но бьюсь над ней уже несколько дней и весь...

Нужно построить график по точкам
Нужно построить график по точкам Имеются только значения Х и У их по 8652 Данные У в виде...

Нужно построить график функции y = x2 на интервале [-3,3] и Построить график функции (эллипс) x^2/16 + y^2/9 = 1
Нужно построить график функции y = x2 на интервале и Построить график функции (эллипс) x^2/16 +...

построить на белом листе график функции по точкам
построить на белом листе график функции по точкам,с постепенным появлением точек на экране от...

5
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,745
06.06.2018, 17:11 2
Цитата Сообщение от justoriginal Посмотреть сообщение
составить график функции.
Какой функции?
0
0 / 0 / 0
Регистрация: 06.10.2016
Сообщений: 70
12.06.2018, 14:10  [ТС] 3
Puporev,
0
Миниатюры
Составить график функции. Дана функция нужно построить график по полученным точкам  
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,745
12.06.2018, 15:05 4
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
uses graphABC;
const a=1.237845;
      b=-124.4321;
      xn=-5;
      xk=10;
function y(x:real):real;
var t:real;
begin
t:=abs(a*a-b*b)-10*x;
if t<-1 then y:=power(a,x)-exp(x)+b*b+cos(4*x-0.2)
else if t<=0 then y:=b*sign(x*x*x-a)-exp(-4*x)
else y:=tan(4.5*x)+1/x/x/x/abs(sin(0.5*x));
end;     
var x,dx,mx,my:real;
    x0,y0:integer;
begin
setwindowsize(800,600);
centerwindow;
//начало координат
x0:=windowwidth div 3;
y0:=windowheight div 2;
//масштабы
mx:=(windowwidth-x0-20)/10;
my:=(y0-30)/50;
//оси
line(0,y0,windowwidth,y0);
textout(windowwidth-20,y0-20,'X');
line(x0,0,x0,2*y0);
textout(x0+5,0,'Y');
textout(x0+5,y0+10,'0');
//засечки и подписи по осям
for var i:=1 to 10 do
 begin
  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);
  textout(x0+round(i*mx),y0+10,inttostr(i));
  textout(x0-round(i*mx),y0+10,inttostr(-i));
  line(x0-5,y0-round(i*my*5),x0+5,y0-round(i*my*5));
  line(x0-5,y0+round(i*my*5),x0+5,y0+round(i*my*5));
  textout(x0-25,y0-round(i*my*5)-5,inttostr(i*5));
  textout(x0-25,y0+round(i*my*5)-5,inttostr(-i*5));
 end; 
 //график
//setpencolor(clBlue);
x:=xn;
dx:=0.0001;
while x<=xk do
 begin
  if (abs(sin(x))>0.01)and(abs(cos(x))>0.01)and(y0-round(y(x)*my)>0)and(y0-round(y(x)*my)<windowheight)
  then setpixel(x0+round(x*mx),y0-round(y(x)*my),clBlue);
  x:=x+dx;
 end;
end.
0
0 / 0 / 0
Регистрация: 06.10.2016
Сообщений: 70
12.06.2018, 15:34  [ТС] 5
Puporev, А можно попросить ещё для вот этой помочь сделать
0
Миниатюры
Составить график функции. Дана функция нужно построить график по полученным точкам  
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,745
12.06.2018, 16:51 6
Какой-то корявый график. Может что и напутал.

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
55
56
57
58
uses graphABC;
const a=0.0012345;
      t=0.0015;
      gn=-0.01;
      gk=1.0;
function y(g:real):real;
begin
if g<0 then y:=0
else if g<0.1 then y:=a*g
else if g<0.5 then y:=exp(g*t)-g*t-1
else y:=log10(abs(g*t*t*t))+sqrt(abs(g*t));
end;     
var g,dg,mg,my,max:real;
    x0,y0:integer;
begin
setwindowsize(800,600);
centerwindow;
//начало координат
x0:=windowwidth div 11;
y0:=windowheight div 2;
//масштабы
g:=gn;
max:=abs(y(g));
while g<=gk do
 begin
  if abs(y(g))>max then max:=abs(y(g));
  g:=g+0.01;
 end; 
mg:=(windowwidth-20)/1.1;
my:=(y0-30)/max;
//оси
line(0,y0,windowwidth,y0);
textout(windowwidth-20,y0-20,'X');
line(x0,0,x0,2*y0);
textout(x0+5,0,'Y');
textout(x0+5,y0+10,'0');
//засечки и подписи по осям
for var i:=1 to 10 do
 begin
  line(x0+round(i*mg/10),y0-3,x0+round(i*mg/10),y0+3);
  line(x0-round(i*mg/10),y0-3,x0-round(i*mg/10),y0+3);
  textout(x0+round(i*mg/10),y0+10,floattostr(i*0.1));
  textout(x0-round(i*mg/10),y0+10,floattostr(-i*0.1));
  line(x0-5,y0-round(i*my),x0+5,y0-round(i*my));
  line(x0-5,y0+round(i*my),x0+5,y0+round(i*my));
  textout(x0-25,y0-round(i*my)-5,inttostr(i));
  textout(x0-25,y0+round(i*my)-5,inttostr(-i));
 end;
 //график
//setpencolor(clBlue);
g:=gn;
dg:=0.0001;
while g<gk do
 begin
  setpixel(x0+round(g*mg),y0-round(y(g)*my),clRed);
  g:=g+dg;
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2018, 16:51

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

Построить график функции и касательные к точкам экстремума
Изобразить на одном рисунке график функции &gt; y = x^3-11*x^2+10*x+12; и касательные к нему в...

Имеется график, нужно построить его огибающую по точкам, которые ставит сам пользователь
Добрый день! Нужна помощь с программой MathCad Имеется график, нужно построить его огибающую по...

Дана функция y=x+e^-x. Построить график и вывод таблицы
Дана функция y=x+e^-x,a&lt;x&lt;b,a и b задаются.Организовать :вывод таблицы значений функции в N...

Как построить график по координатам, полученным в ходе цикла?
Такая штука - нужно построить график по точкам, координаты точек я получил с помощью цикла. Как...


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

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

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