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

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

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

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




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Сложная параметрическая кривая (Pascal N-IDE)
СообщениеДобавлено: 12 июн 2021, 23:50 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 3268
Cпасибо сказано: 263
Спасибо получено:
417 раз в 407 сообщениях
Очков репутации: 51

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

uses
Crt, Math, Graph;


var
graphicsDriver, graphicsMode: Integer;
x1, y1, x2, y2, dx, dy: real;
u1, v1, u2, v2: real;
p, q, a: real;
b, d, c: real;
f, k, w, z, h, e: Real;


begin
while (1 = 1) do
begin
k := 6.2831;
clearDevice();
graphicsDriver := Detect;
InitGraph(graphicsDriver, graphicsMode, '');
x1 := getMaxX div 2;
y1 := getMaxY div 2;
u1 := x1;
v1 := y1;
a := 0.5;
c := 0;
setColor(Yellow);
p := 0.0001 * trunc(10000 * Random());
q := 0.0001 * trunc(10000 * Random());
b := 0.0001 * trunc(10000 * Random());
d := 0.0001 * trunc(10000 * Random());
h := 0.25*trunc(12*random()+1); // h € {0.5; 1; 1.5; 2, 2.5; 3}
while (c <= 100) do
begin
c := c + 0.01;
w := p * c + q;
z := b * c + d;
e:= sin(w)+cos(z);
f := cosh(exp(h*e));

dx := cos(c * f);
dy := sin(c * f);
x2 := x1 + a * dx;
y2 := y1 + a * dy;
line(trunc(x1), trunc(y1), trunc(x2), trunc(y2));
x1 := x2;
y1 := y2;
u2 := u1 - a * dx;
v2 := v1 - a * dy;
line(trunc(u1), trunc(v1), trunc(u2), trunc(v2));
u1 := u2;
v1 := v2;
end;
end;
end.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Сложная параметрическая кривая (Pascal N-IDE)
СообщениеДобавлено: 14 июн 2021, 22:24 
Не в сети
Light & Truth
Зарегистрирован:
10 дек 2013, 02:33
Сообщений: 3268
Cпасибо сказано: 263
Спасибо получено:
417 раз в 407 сообщениях
Очков репутации: 51

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

uses
Crt, Math, Graph;


var
graphicsDriver, graphicsMode: Integer;
x1, y1, x2, y2, dx, dy: real;
u1, v1, u2, v2: real;
p, q, c: real;
b, d, t: real;
f, w, z, k, e: Real;


begin
while (1 = 1) do
begin
clearDevice();
graphicsDriver := Detect;
InitGraph(graphicsDriver, graphicsMode, '');
x1 := getMaxX div 2;
y1 := getMaxY div 2;
u1 := x1;
v1 := y1;
c := 0.5;
t := 0;
setColor(Yellow);
p := 0.0001 * trunc(10000 * Random());
q := 0.0001 * trunc(10000 * Random());
b := 0.0001 * trunc(10000 * Random());
d := 0.0001 * trunc(10000 * Random());
k := 0.05 * trunc(60 * random() + 1);

while (t <= 100) do
begin
t := t + 0.01;
w := p * t + q;
z := b * t + d;
e := sin(w) + cos(z);
f := cosh(exp(k * e));
dx := cos(t * f);
dy := sin(t * f);
x2 := x1 + c * dx;
y2 := y1 + c * dy;
line(trunc(x1), trunc(y1), trunc(x2), trunc(y2));
x1 := x2;
y1 := y2;
u2 := u1 - c * dx;
v2 := v1 - c * dy;
line(trunc(u1), trunc(v1), trunc(u2), trunc(v2));
u1 := u2;
v1 := v2;
end;
end;
end.

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

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Параметрическая задача

в форуме Алгебра

albatroskuku

4

196

12 апр 2023, 01:48

Параметрическая функция

в форуме Пределы числовых последовательностей и функций, Исследования функций

God_mode_2016

3

279

22 ноя 2016, 21:11

Параметрическая задача

в форуме Алгебра

albatroskuku

13

422

25 окт 2022, 21:53

Параметрическая задача для кругов

в форуме Алгебра

aleks_bg

8

223

05 май 2020, 21:44

Pascal

в форуме Информатика и Компьютерные науки

SL4MER

4

382

21 май 2021, 13:49

Pascal. Вывод

в форуме Информатика и Компьютерные науки

sfanter

1

497

11 июл 2014, 13:01

Написать код на Pascal

в форуме Информатика и Компьютерные науки

Seira

4

242

18 ноя 2020, 09:06

Вычисльть в Pascal

в форуме Информатика и Компьютерные науки

Sweet_blood

6

639

06 май 2014, 18:45

Pascal ABC. График по точкам

в форуме Информатика и Компьютерные науки

Helly

0

328

29 окт 2016, 20:21

Pascal.Задача с графами.

в форуме Информатика и Компьютерные науки

Kosntain

1

481

16 июн 2015, 09:54


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



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

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


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

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

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

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