параметрические уравнения..

@Missauthoress · Регистрация: 28.04.2012

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

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

вот задание:
Эпитрохоида r/h = 2/1
Гипотрохоида r/h = 1/6

r − радиус подвижной (производящей) окружности
R − радиус неподвижной (направляющей) окружности
h − расстояние, на котором располагается вычерчивающая точка относительно центра окружности

Эпитрохоида − это плоская кривая, образуемая фиксированной точкой, отстоящей на расстоянии h от центра подвижной окружности (O1; r), катящейся без скольжения по внешней стороне неподвижной окружности (О; R).
Если h > r, то эпитрохоиду называют удлиненной;
если h < r − укороченной;
если h = 'r, то эпитрохоида становится эпициклоидой;
если h = R + r, то такая эпитрохоида называется трохоидалъной розой.
Параметрические уравнения эпитрохоиды:
х = (R + т • R) • cos (т • t) − h • cos (t + m • t),
у = (R + m • R) • sin (m • t) − h • sin (t + m • t).

Гипотрохоида − это плоская кривая, образуемая фиксированной точкой, отстоящей на расстоянии h от центра подвижной окружности (О1; r), катящейся без скольжения по внутренней стороне неподвижной окружности (О; R).
Параметрические уравнения гипотрохоиды:
х = (R − т • R) • cos (m • t) + h • cos (t − m • t),
у = (R − m • R) • sin (m • t) − h • sin (t − m • t).

вот,что я сделала:

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
Uses Crt, GraphABC;
Var
dr, dm, z: Integer;
t, dt, x, y, r: Real;
ch: Char;
 
Writeln ('Какой график вы хотели бы увидеть на рисунке??');
Writeln ('1-Циклоида');
Writeln ('2-Эпитрохоида');
Writeln ('3-Гипотрохоида');
readln (z);
 case simvol of
 '1': Tsikloida;
 '2': Epitrohoida;
 '3': Gipotrohoida;
 
procedure Tsikloida;
Begin
Clrscr; {Очистка экрана}
Write('r='); Read(r);        {Ввод радиуса подвижной окружности}
t:=-4*pi;   {Начальное значение параметра t}
dt:=0.001;  {Шаг изменения значения параметра t}
While t<4*pi do
Begin
x:=r*t-r*sin(t);
y:=r-r*cos(t);
PutPixel(320+round(x), 240-round(y),6);        {Вывод точки (X, Y)}
t:=t+dt;
End;
End;
 
procedure Epitrohoida;
Begin
End;
 
 
 procedure Gipotrohoida;
Begin
End;

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .