Файл:Спиральные квадраты.png
Спиральные_квадраты.png (475 × 469 пкс, размер файла: 40 Кб, MIME-тип: image/png)
Cведения об этом файле находятся на Викискладе?, хранилище изображений и мультимедиа для использования во всех проектах Фонда Викимедиа. |
Краткое описание
ОписаниеСпиральные квадраты.png |
Русский: Спиральные квадраты English: Spiral squares Polski: Spiralne kwadraty |
Дата | |
Источник | Собственная работа |
Автор | Владислав Молдован |
Pascal source code
// https://ru.wikibooks.org/wiki/Книга программиста/Книга фракталов
uses GraphABC;
const
Min = 1;
DeltaAng = Pi / 20;
CX = 320;
CY = 240;
var
R: real;
A: real;
procedure Draw(r, angle: real);
begin
var ang1 := angle + Pi / 4;
var x1 := Round(CX + r * Cos(ang1));
var y1 := Round(CY + r * Sin(ang1));
var ang2 := angle + 3 / 4 * Pi;
var x2 := Round(CX + r * Cos(ang2));
var y2 := Round(CY + r * Sin(ang2));
var ang3 := angle + 5 / 4 * Pi;
var x3 := Round(CX + r * Cos(ang3));
var y3 := Round(CY + r * Sin(ang3));
var ang4 := angle + 7 / 4 * Pi;
var x4 := Round(CX + r * Cos(ang4));
var y4 := Round(CY + r * Sin(ang4));
Line(x1, y1, x2, y2);
Line(x2, y2, x3, y3);
Line(x3, y3, x4, y4);
Line(x4, y4, x1, y1);
end;
begin
R := 320;
A := 0;
LockDrawing();
repeat
Draw(R, A);
A := A + DeltaAng;
R := R * Sin(Pi / 4) / Sin(3 * Pi / 4 - DeltaAng);
until R <= Min;
Redraw();
end.
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
2 сентября 2017
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 14:14, 1 сентября 2017 | 475 × 469 (40 Кб) | Владислав Молдован | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Горизонтальное разрешение | 37,79 точек на сантиметр |
---|---|
Вертикальное разрешение | 37,79 точек на сантиметр |