Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 29
1

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

23.05.2015, 10:03. Показов 2349. Ответов 7
Метки нет (Все метки)

здравствуйте, помогите пожалуйста написать программу по заданию:
построить кривую по ее уравнениям в полярных координатах (полярные координаты p,f точки М на плоскости - это расстояние р=ОМ от фиксированной точки О до точки М и угол f=РОМ между ОМ и полярной осью (полупрямой) ОР). овалы Кассини https://www.cyberforum.ru/cgi-bin/latex.cgi?{p}^{2}*cos2f+sqrt{{c}^{4}*{cos}^{2}f+({a}^{4}-{c}^{4})}
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2015, 10:03
Ответы с готовыми решениями:

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

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

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

График в полярных координатах
построить полярную плоскость и график функции, которая задана в аналитическом виде. Фон экрана...

7
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 29
25.05.2015, 05:00  [ТС] 2
https://www.cyberforum.ru/cgi-bin/latex.cgi?{p}^{2}=cos2f+sqrt{{c}^{4}*{cos}^{2}f+({a}^{4}-{c}^{4})}*
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
25.05.2015, 07:20 3
Это не уравнение овала Кассини. У Вас уравнение кривой 2го порядка, а Кассини 4го порядка.
Оно в полярных координатах выглядит так.
https://ru.wikipedia.org/wiki/... 0%BD%D0%B8
А кривая по этому уравнению будет такая
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
uses wincrt,graph;
var x0,y0:integer;
    a,c,p1,p2,f,t,s:real;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
a:=1;
c:=0.5;
f:=0;
while f<=pi do
 begin
  t:=c*c*c*c*sqr(cos(f))+a*a*a*a-c*c*c*c;
  if t>=0 then s:=cos(2*f)+sqrt(t);
  if s>=0 then
   begin
    p1:=sqrt(s);
    p2:=-sqrt(s);
    putpixel(x0+round(200*p1*cos(f)),y0-round(50*p1*sin(f)),12);
    putpixel(x0+round(200*p2*cos(f)),y0-round(50*p2*sin(f)),12);
   end;
  f:=f+0.001;
 end;
readkey
end.
Попробуйте при разных а, с, овал Кассини не получите.
1
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 29
28.05.2015, 19:28  [ТС] 4
увы но в задании четко сказано что задача на овалы кассини.
Миниатюры
Построить кривую по ее уравнениям в полярных координатах  
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
28.05.2015, 19:35 5
Ну если ума нет правильно формулу списать, то конечно.

Добавлено через 5 минут
Pascal
1
 if t>=0 then s:=c*c*cos(2*f)+sqrt(t);
1
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 29
28.05.2015, 21:11  [ТС] 6
извиняюсь за неправильное написание. писал то что написали мне. фото как получил выложил.
большое спасибо за помощь.
0
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
28.05.2015, 21:12 7
Лучший ответ Сообщение было отмечено Stracot как решение

Решение

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
uses wincrt,graph;
procedure kassini(x0,y0,cv:integer;a,c:real);
var p,f,t,s:real;
begin
f:=0;
while f<=2*pi do
 begin
  t:=c*c*c*c*sqr(cos(f))+a*a*a*a-c*c*c*c;
  if t>=0 then s:=c*c*cos(2*f)+sqrt(t);
  if s>=0 then p:=sqrt(s);
  putpixel(x0+round(100*p*cos(f)),y0-round(100*p*sin(f)),cv);
  f:=f+0.001;
 end;
end;
var x0,y0:integer;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
kassini(x0,y0,12,1.3,1);
kassini(x0,y0,9,1.6,1);
kassini(x0,y0,10,2.3,1);
readkey
end.
1
0 / 0 / 0
Регистрация: 16.05.2014
Сообщений: 29
28.05.2015, 21:19  [ТС] 8
Еще раз огромное спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2015, 21:19

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

Построение графиков функций, заданных в полярных координатах
Program Lab113; uses crt,graph; const s=70; xmax=1680; ymax=990; ...

Построить кривую лемнискаты в полярных координатах
Построить кривую лемнискаты , заданной следующим уравнением в полярных координатах: R2=2a2*cos a

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


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

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

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