Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 24.01.2011
Сообщений: 83
1

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

23.03.2011, 12:26. Показов 3687. Ответов 4
Метки нет (Все метки)

Построить кривую лемнискаты , заданной следующим уравнением в полярных координатах: R2=2a2*cos a
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2011, 12:26
Ответы с готовыми решениями:

Нужно построить в полярных координатах фигуру!
ρ^2 = (2а)^2 cos2 φ это лемниската Бернулли. Объясните, как она вообще строится и как это...

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

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

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

4
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
23.03.2011, 13:38 2
Лемниската Бернулли в полярных координатах.
http://ru.wikipedia.org/wiki/%... 0%BB%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
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
uses crt,graph;
var x0,y0,d,gd,gm,i,x1,y1,fn,fk:integer;
    r,a,f,x,xr,yr:real;
    s:string;
begin
clrscr;
write('a=');readln(a);
fn:=0;
fk:=360;
gd:=0;
initgraph(gd,gm,'');
Setbkcolor(1);
x0:=getmaxX div 2;
y0:=getmaxY div 2;
{КООРДИНАТНАЯ  СЕТКА}
d:=round((y0-20)/(a*sqrt(2)));{шаг по оси радиуса в пикселях}
for i:=1 to round(a*sqrt(2)) do
 begin
  {рисуем окружности}
   circle(x0,y0,i*d);
  {пишем шкалу}
  str(i,s);
  outtextXY(x0+i*d+3,y0+10,s);
 end;
{рисуем касательные пунктиром}
  Setlinestyle(1,0,1);
  line(x0-y0,y0+y0,x0+y0,y0-y0);
  line(x0+y0,y0+y0,x0-y0,y0-y0);
{рисуем осевые линии сплошной линией}
Setlinestyle(0,0,1);
line(10,y0,getmaxX-10,y0);
line(x0,0,x0,getmaxY);
outtextXY(x0+5,y0+10,'0');
outtextXY(getmaxX-15,y0+10,'L');
{ГРАФИК}
x:=fn;
while x<=fk do
 begin
  if cos(2*x)>=0 then
   begin
    r:=a*sqrt(2*cos(2*x));
    xr:=r*cos(x);
    yr:=r*sin(x);
    x1:=x0+round(xr*d);
    y1:=y0-round(yr*d);
    putpixel(x1,y1,14);
   end;
  x:=x+0.01;
 end;
readln
end.
1
0 / 0 / 0
Регистрация: 24.01.2011
Сообщений: 83
01.04.2011, 16:36  [ТС] 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
uses crt,graph;
var x0,y0,d,gd,gm,i,x1,y1,fn,fk:integer;
    r,a,f,x,xr,yr:real;
        s:string;
        begin
        clrscr;
        write('a=');readln(a);
        fn:=0;
        fk:=360;
        gd:=0;
        initgraph(gd,gm,'');
        Setbkcolor(1);
        x0:=getmaxX div 2;
        y0:=getmaxY div 2;
 
        d:=round((y0-20)/(a*sqrt(2)));
        for i:=1 to round(a*sqrt(2)) do
         begin
 
              circle(x0,y0,i*d);
 
                  str(i,s);
                    outtextXY(x0+i*d+3,y0+10,s);
                     end;
 
                       Setlinestyle(1,0,1);
                         line(x0-y0,y0+y0,x0+y0,y0-y0);
                           line(x0+y0,y0+y0,x0-y0,y0-y0);
 
                           Setlinestyle(0,0,1);
                           line(10,y0,getmaxX-10,y0);
                           line(x0,0,x0,getmaxY);
                           outtextXY(x0+5,y0+10,'0');
                           outtextXY(getmaxX-15,y0+10,'L');
 
                           x:=fn;
                           while x<=fk do
                            begin
                              if cos(2*x)>=0 then
                                 begin
                                     r:=a*sqrt(2*cos(2*x));
                                         xr:=r*cos(x);
                                             yr:=r*sin(x);
                                                 x1:=x0+round(xr*d);
                                                     y1:=y0-round(yr*d);
                                                         putpixel(x1,y1,14);
                                                            end;
                                                              x:=x+0.01;
                                                               end;
                                                               readln
                                                               end.
0
magirus
01.04.2011, 16:39
  #4
 Комментарий модератора 
используйте теги форматирования и называйте темы осмысленно
0
0 / 0 / 0
Регистрация: 24.01.2011
Сообщений: 83
01.04.2011, 17:14  [ТС] 5
Хорошо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2011, 17:14

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

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

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

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


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

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

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