Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
isaaaaaaaaaa
0 / 0 / 0
Регистрация: 15.06.2019
Сообщений: 6
1

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

17.06.2019, 21:47. Просмотров 186. Ответов 1
Метки нет (Все метки)

Составьте программу построения графика функций в полярной системе координат
1. ρ=2(1+cos(φ))
2. ρ=1+(2cos(φ)-cos(6φ))/3
3. ρ=10sin3φ
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2019, 21:47
Ответы с готовыми решениями:

Построение графика функций в полярной системе координат p^2=a^2*tg(φ)
Составьте программу построения графика функций в полярной системе координат: p^2=a^2*tg(φ)

Построение графика кардиоиды и розы в полярной системе координат
Нужна помощь в построении графика кардиоиды и полярной розы в Pascal ABC. Вся сложность...

График Логарифмическая спираль в полярной системе координат
Если символ есть «c» то построить график р(ф):=аф (Логарифмическая спираль) в полярной системе...

Построить графиик функции, заданной в полярной системе координат
Задание: Построить графики: а) «обычной» функции; б) параметрически заданного бинарного...

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

1
Puporev
Модератор
58065 / 44179 / 30520
Регистрация: 18.05.2008
Сообщений: 105,774
18.06.2019, 10:50 2
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
uses graphABC;
function f1(fi:real):real;
begin
f1:=2*(1+cos(fi))
end;
function f2(fi:real):real;
begin
f2:=1+(2*cos(fi)-cos(6*fi))/3
end;
function f3(fi:real):real;
begin
f3:=10*sin(3*fi)
end;
 
var c,i,x1,y1:integer;
    fi,max,m,r,xr,yr:real;
begin
setwindowsize(600,600);
centerwindow;
c:=300; //координата центра окна
//вычислим максимальный радиус
fi:=0;
max:=f1(fi);
while fi<=2*pi do
 begin
  if f1(fi)>max then max:=f1(fi);
  if f2(fi)>max then max:=f2(fi);
  if f3(fi)>max then max:=f3(fi);
  fi:=fi+0.1;
 end;
//КООРДИНАТНАЯ  СЕТКА
m:=(c-40)/max;//масштаб
setbrushstyle(bsClear);
for i:=1 to trunc(max)+1 do
 begin
  //рисуем окружности
  circle(c,c,round(i*m));
  //пишем шкалу радиуса
  textout(c-round(i*m)+5,c+10,inttostr(i));
 end;
fi:=pi/6;//шаг по кругу=30 град
for i:=1 to 12 do//делим на 12 частей
 begin
  //рисуем радиусы пунктиром
  Setpenstyle(psDash);
  x1:=c+round((c-40)*cos(i*fi));
  y1:=c-round((c-40)*sin(i*fi));
  line(c,c,x1,y1);
  //пишем подписи
  if (x1>=c)and(y1<c) then textout(x1+10,y1-15,inttostr(i*30))
  else if (x1>=c)and(y1>=c) then textout(x1+10,y1+10,inttostr(i*30))
  else if (x1<c)and(y1<c) then textout(x1-40,y1-15,inttostr(i*30))
  else if(x1<c)and(y1>=c)then textout(x1-40,y1+10,inttostr(i*30))
 end;
//рисуем осевые линии сплошной линией
Setpenstyle(psSolid);
line(10,c,windowwidth-10,c);
line(c,0,c,windowheight);
textout(c+5,c+10,'0');
textout(25,c-20,'R');
//ГРАФИКИ
fi:=0;//начальный угол
while fi<=2*pi do//полный оборот
 begin
  setpixel(c+round(f1(fi)*cos(fi)*m),c-round(f1(fi)*sin(fi)*m),clRed);
  setpixel(c+round(f2(fi)*cos(fi)*m),c-round(f2(fi)*sin(fi)*m),clBlue);
  setpixel(c+round(f3(fi)*cos(fi)*m),c-round(f3(fi)*sin(fi)*m),clGreen);
  fi:=fi+0.001;
 end;
setfontsize(12);
setfontcolor(clRed);
textout(10,10,'r=2(1+cos(fi))');
setfontcolor(clBlue);
textout(10,30,'r=1+(2cos(fi)-cos(6fi))/3');
setfontcolor(clGreen);
textout(10,50,'r=10sin(3fi)');
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2019, 10:50

Построить график функции в полярной системе координат: p=a sin (4u/3) (восьми лепестковая роза)
Построить график функции в полярной системе координат: p=a sin (4u/3) (восьми лепестковая роза);

Построение графиков функций y=f(x).
помогите пожалста:sorry: в написании проги по построению функций типа y=f(x), задача в том чтобы...

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


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

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

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