Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: Сложные кривые в паскалевской графике
СообщениеДобавлено: 21 ноя 2020, 22:36 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 2748
Cпасибо сказано: 224
Спасибо получено:
348 раз в 338 сообщениях
Очков репутации: 37

Добавить очки репутацииУменьшить очки репутации
program draw_line; 

uses
Crt, Math, Graph;


var
graphicsDriver, graphicsMode, Xo, Yo: Integer;
x1, y1, x2, y2, a, p, q: real;
b, d, c: real;


begin
clearDevice();
graphicsDriver := Detect;
InitGraph(graphicsDriver, graphicsMode, '');
x1 := getMaxX div 2;
y1 := getMaxY div 2;
a := 2;
c := 0;
setColor(Red);
p := 0.01*trunc(100*Random());
q := 0.01*trunc(100*Random());
b := 0.01*trunc(100*Random());
d := 0.01*trunc(100*Random());
while (1 = 1) do
begin
c := c + 0.02;
x2 := x1 + a * cos(p * c * Sin(b * c + d) + q * c * Cos(b * c + d));
y2 := y1 + a * sin(b * c * Cos(p * c + q) + d * c * Sin(p * c + q));
line(trunc(x1), trunc(y1), trunc(x2), trunc(y2));
x1 := x2;
y1 := y2;
end;
CloseGraph;
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Сложные кривые в паскалевской графике
СообщениеДобавлено: 22 ноя 2020, 01:46 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 2748
Cпасибо сказано: 224
Спасибо получено:
348 раз в 338 сообщениях
Очков репутации: 37

Добавить очки репутацииУменьшить очки репутации
program draw_line; 

uses
Crt, Math, Graph;


var
graphicsDriver, graphicsMode: Integer;
x1, y1, x2, y2: real;
p, q, a: real;
b, d, c: real;


begin
while (1 = 1) do
begin
clearDevice();
graphicsDriver := Detect;
InitGraph(graphicsDriver, graphicsMode, '');
x1 := getMaxX div 2;
y1 := getMaxY div 2;
a := 1.5;
c := 0;
setColor(Red);
p := 0.01 * trunc(100 * Random());
q := 0.01 * trunc(100 * Random());
b := 0.01 * trunc(100 * Random());
d := 0.01 * trunc(100 * Random());
while (c <= 70) do
begin
c := c + 0.05;
x2 := x1 + a * cos(p * c * Sin(b * c + d) + q * c * Cos(b * c + d));
y2 := y1 + a * sin(b * c * Cos(p * c + q) + d * c * Sin(p * c + q));
line(trunc(x1), trunc(y1), trunc(x2), trunc(y2));
x1 := x2;
y1 := y2;
end;
end;
// while not(keyPressed()) do
// CloseGraph;

end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Сложные кривые в паскалевской графике
СообщениеДобавлено: 23 ноя 2020, 03:10 
Не в сети
Профи
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 487
Cпасибо сказано: 14
Спасибо получено:
83 раз в 81 сообщениях
Очков репутации: 15

Добавить очки репутацииУменьшить очки репутации
Привели бы что получается. Не у всех есть установленный компилятор, не ставить же ради пробы.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Сложные кривые в паскалевской графике
СообщениеДобавлено: 23 ноя 2020, 05:55 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 2748
Cпасибо сказано: 224
Спасибо получено:
348 раз в 338 сообщениях
Очков репутации: 37

Добавить очки репутацииУменьшить очки репутации
Emphatic18 писал(а):
Привели бы что получается. Не у всех есть установленный компилятор, не ставить же ради пробы.


У меня картинки не загружаются

И потом, это ваши проблемы. Паскаль – доступен всем без исключения. Хоть на компе, хоть на Андроиде. Было бы желание.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Сложные кривые в паскалевской графике
СообщениеДобавлено: 23 ноя 2020, 06:10 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 2748
Cпасибо сказано: 224
Спасибо получено:
348 раз в 338 сообщениях
Очков репутации: 37

Добавить очки репутацииУменьшить очки репутации
Самое главное, я хотел показать идею построения этих кривых.

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

В общем виде это выглядит так:

[math]x_1=x_0, y_1=y_0[/math]
[math]\left[\!\begin{aligned}
& x_{i+1}=x_i+r \cdot \cos{\phi_i} \\
& y_{i+1}=y_i+r \cdot \sin{\psi_i}
\end{aligned}\right.[/math]

[math]\operatorname{Line}\left( x_i, y_i, x_{i+1}, y_{i+1}\right)[/math]

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Сложные кривые в паскалевской графике
СообщениеДобавлено: 23 ноя 2020, 14:20 
Не в сети
Профи
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 487
Cпасибо сказано: 14
Спасибо получено:
83 раз в 81 сообщениях
Очков репутации: 15

Добавить очки репутацииУменьшить очки репутации
sergebsl писал(а):
И потом, это ваши проблемы.

О как!
sergebsl писал(а):
У меня картинки не загружаются

Картинки можно загрузить сотней способов, хоть через формуную функцию, хоть через любой облачный сервис. Было бы желание.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 6 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Учебник по графике

в форуме Литература и Онлайн-ресурсы по математике

aleksskay

6

591

19 ноя 2012, 14:45

Задача о сетевом графике

в форуме Исследование операций и Задачи оптимизации

Angelina55555

0

419

04 окт 2014, 09:33

как найти Y от X в нелинейном графике?

в форуме Математическая статистика и Эконометрика

vyazikov

17

1629

01 май 2012, 20:20

Не тривиальное построение функции на графике

в форуме Maple

usrmath

4

471

05 авг 2016, 11:50

Отображение комплексных чисел на графике

в форуме Начала анализа и Другие разделы школьной математики

KaryNaiKo

10

213

24 июл 2019, 21:58

Как ан-ю геометрию можно использовать в к-й графике?

в форуме Аналитическая геометрия и Векторная алгебра

sfanter

1

215

21 окт 2015, 10:17

Зная время, как узнать количество на графике ?

в форуме Начала анализа и Другие разделы школьной математики

waza123

11

760

01 июл 2014, 00:49

Почему разрывы на графике при параметризации функции?

в форуме MathCad

Gyfto

0

467

21 май 2013, 08:36

В сетевом графике найти критический путь

в форуме Дискретная математика, Теория множеств и Логика

andreta

1

341

29 май 2014, 22:40

Показать фигуры на графике в программе Matlab

в форуме MATLAB

miha_je

0

267

16 дек 2015, 18:01


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2020 MathHelpPlanet.com. All rights reserved