Построить гиперболическую спираль

@Хенкис · Регистрация: 14.06.2018

Author24 — интернет-сервис помощи студентам

Нужно построить гиперболичскую спираль r=a/t

@Puporev · 15.06.2018, 13:53

Вам нужно в полярных координатах или Вы просто так прикрепили картинку?

@Хенкис · 15.06.2018, 15:11 **[ТС]**

Да в полярных координатах нужно построить

@Puporev · 15.06.2018, 15:13

Ну например так.

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
uses graphABC;
var xc,yc,a,d,i,x,y:integer;
    r,m,xr,yr,t:real;
begin
setwindowsize(500,500);
centerwindow;
xc:=windowwidth div 2;
yc:=windowheight div 2;
//КООРДИНАТНАЯ  СЕТКА
a:=4;//в принципе любое значение
m:=(yc-50)/a;//масштаб координатной сетки
line(xc,yc,xc+round(a*m),yc);
for i:=0 to a do
 begin
  //пишем шкалу
   line(xc+round(i*m),yc,xc+round(i*m),yc+3);
   textout(xc+round(i*m)+2,yc+10,inttostr(i));
 end;
d:=30;//шаг по кругу=30 град
for i:=1 to 11 do//делим на 12 частей
 begin
  //рисуем точки
  setbrushcolor(clBlack);
  setbrushstyle(bsSolid);
  x:=xc+round((yc-30)*cos(i*d*pi/180));
  y:=yc-round((yc-30)*sin(i*d*pi/180));
  circle(x,y,3);
  //пишем подписи
  setbrushstyle(bsClear);
  if x>=xc then textout(x+10,y-10,inttostr(i*d))
  else textout(x-30,y-10,inttostr(i*d))
 end;
//ГРАФИК
t:=pi/4;//чтобы похоже на картинку
while t<=2*pi do
 begin
  r:=a/t;
  x:=xc+round(r*cos(t)*m);
  y:=yc-round(r*sin(t)*m);
  if t=pi/4 then moveto(x,y) else lineto(x,y);
  t:=t+0.001;
 end;
end.

@Хенкис · 15.06.2018, 16:05 **[ТС]**

на подобие этого должно быть

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
program Grafik;
uses GraphABC,crt;
var k,t,a,d: real;
c:char;
x,y:integer;
function f(x:real):real;
begin
f:=(sin(sqr(x)));
end;
begin
SetWindowCaption('Титульный лист');
TextOut(180,50, 'Лабораторная работа №2');
TextOut(180,80, 'Тема: Построение кривых высших порядков');
TextOut(180,110, 'Задание 25 варианта:');
TextOut(180,140, 'Гиперболическая спираль ');
TextOut(180,170, 'Выполнил: .');
TextOut(180,290, 'Нажмите любую клавишу');
read(d);
Clearwindow;
repeat
gotoxy(1,1);
Clearwindow;
CenterWindow;
SetWindowCaption('Выполнение');
SetFontColor(clDkGray);
TextOut(180,10, 'Построение гипотрохоиды');
textcolor(clblack);
writeln('Маштаб');
Readln(k);
SetFontColor(clblack);
line(314,10,320,0);
line(326,10,320,0);
TextOut(330,0, 'Y');
line(640,240,624,230);
line(640,240,624,250);
TextOut(630,210, 'X');
TextOut(310,240, '0');
TextOut(320+round(k),240, '1');
line(320+round(k),230,320+round(k),250);
line(0,240,640,240);
line(320,0,320,480);
t:=-10;
repeat
x:=round(k*(2*cos(t)+0.5*cos(-2*t)));
y:=round(k*(2*sin(t)+0.5*sin(-2*t)));
putpixel(320+round(x),240-round(y),clred);
t:=t+0.01;
until (t>10);
textcolor(clblack);
writeln('Повтор?<y/n>');
readln(c);
until(c<>'y');
End.

@Cyborg Drone · 16.06.2018, 20:56

Это требования Вашего учебного заведения. Вам и корректировать программу. А то ведь как получается: лень-матушка вперёд Вас родилась, Вы - в пелёнках, а Ваша лень уже с телёнка.

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@Хенкис 0 / 0 / 1 Регистрация: 14.06.2018 Сообщений: 27

	Построить гиперболическую спираль 14.06.2018, 22:27. Показов 2751. Ответов 5 Метки нет (Все метки) Нужно построить гиперболичскую спираль r=a/t Миниатюры 0

@Puporev Почетный модератор 64308 / 47605 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	15.06.2018, 13:53
	Вам нужно в полярных координатах или Вы просто так прикрепили картинку? 0

@Хенкис 0 / 0 / 1 Регистрация: 14.06.2018 Сообщений: 27
	15.06.2018, 15:11 [ТС]
	Да в полярных координатах нужно построить 0

@Cyborg Drone Модератор 10151 / 5488 / 3371 Регистрация: 17.08.2012 Сообщений: 16,779
	16.06.2018, 20:56
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Это требования Вашего учебного заведения. Вам и корректировать программу. А то ведь как получается: лень-матушка вперёд Вас родилась, Вы - в пелёнках, а Ваша лень уже с телёнка. 0

Опции темы

Построить гиперболическую спираль

Решение