Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 12.12.2017
Сообщений: 20
1

Построить графики функций в полярных координатах

30.03.2018, 08:20. Показов 1694. Ответов 3
Метки нет (Все метки)

r= a sin (nf) , 0<=f<=2пи
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2018, 08:20
Ответы с готовыми решениями:

Построить одну из кривых, заданную в полярных координатах
Нужно построить одну из кривых, заданную в полярных координатах. Ответ в виде текста программы.

Построить лемнискату — кривую, уравнение которой в полярных координатах
Нужен код задачи что на картинке. Буду очень признателен! ...

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

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

3
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
30.03.2018, 09:06 2
Поскольку раздел Паскаль АВС, написано в простом АВС. Если у Вас все же АВС.net и просто залезли не в тот раздел, уберите из кода
Crt;
hidecursor;
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
uses crt,graphABC;
var a,n,x0,y0,d,i,x1,y1,fn,fk:integer;
    r,f,x,xr,yr:real;
    s:string;
begin
repeat
write('Введите параметр а от 1 до 10 a=');
readln(a);
until a in [1..10];
repeat
write('Введите парамето n от 1 до 20 n=');
readln(n);
until n in [1..20];
hidecursor;
x0:=windowwidth div 2;
y0:=windowheight div 2;
clearwindow;
//КООРДИНАТНАЯ  СЕТКА
d:=round((y0-40)/(round(a)));//шаг по оси радиуса в пикселях
setpencolor(clBlue);
setbrushstyle(bsClear);
for i:=1 to round(a) do
 begin
  //рисуем окружности
  circle(x0,y0,i*d);
  //пишем шкалу
  str(i,s);
  textout(x0-i*d+5,y0+10,s);
 end;
f:=30;//шаг по кругу=30 град
for i:=1 to 12 do//делим на 12 частей
 begin
  //рисуем радиусы пунктиром
  Setpenstyle(psDash);
  x1:=x0+round((y0-40)*cos(i*f*pi/180));
  y1:=y0-round((y0-40)*sin(i*f*pi/180));
  line(x0,y0,x1,y1);
  //пишем подписи
  str(i*30,s);
  if (x1>=x0)and(y1<y0) then textout(x1+10,y1-15,s)
  else if (x1>=x0)and(y1>=y0) then textout(x1+10,y1+10,s)
  else if (x1<x0)and(y1<y0) then textout(x1-40,y1-15,s)
  else if(x1<x0)and(y1>=y0)then textout(x1-40,y1+10,s)
 end;
//рисуем осевые линии сплошной линией
Setpenstyle(psSolid);
line(10,y0,windowwidth-10,y0);
line(x0,0,x0,windowheight);
textout(x0+5,y0+10,'0');
textout(25,y0+10,'A');
//ГРАФИК
f:=0;//начальный угол
setpencolor(clRed);
setpenwidth(2);
while f<=2*pi do//полный оборот
 begin
    r:=a*sin(n*f);//уравнение в полярных координатах
    xr:=r*cos(f);//приведение к Декартовым
    yr:=r*sin(f);
    x1:=x0+round(d*xr);//приведение к экранным
    y1:=y0-round(d*yr);
    if f=0 then moveto(x1,y1)
    else lineto(x1,y1);
    f:=f+0.01;
 end;
end.
Почти как здесь.
http://www.yotx.ru/примеры/Полярная_роза
1
0 / 0 / 0
Регистрация: 12.12.2017
Сообщений: 20
30.03.2018, 10:13  [ТС] 3
Большие СПАСИБО!!!!
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
30.03.2018, 10:21 4
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Можете шапку к графику приделать
Pascal
1
2
3
textout(0,0,'График полярной розы');
textout(20,20,'r=asin(nf)');
textout(30,40,'a='+inttostr(a)+' n='+inttostr(n));
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2018, 10:21

Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:
Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:

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

Построить график кривой, заданной в полярных координатах Найти её уравнение в декартовых координатах
Доброго время суток, помогите построить: График \rho = \frac{1}{3\cdot (1-\cos \varphi)} и найти...

Графики в полярных координатах
В окне в полярных координатах построить график функции ρ в MATHEMATICA \rho(\varphi...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru