Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 32
1

Компьютерное искусство

23.05.2010, 12:40. Просмотров 683. Ответов 4
Метки нет (Все метки)


Всем привет. Кто может помочь решить эту задачу буду очень благодарен
Компьютерное искусство

Компьютерное искусство

Компьютерное искусство
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2010, 12:40
Ответы с готовыми решениями:

Графика. Компьютерное искуство.Добивка
Помогите пожалуйста добить задачу! Получить "эффект калейдоскопа" который образуется...

Компьютерное моделирование
Глубинная бомба - торпеда , снабженная паромным двигателем установленная на взрыв ч-з заданное...

Компьютерное моделирование в экологии
Провести моделирование динамики численности популяций в системе «хищник-жертва» (модель (7.34)) при...

Компьютерное моделирование падения тела
Дана программа падения шара. При запуске вводится только радиус шара. Нужно добавить еще какие...

4
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
23.05.2010, 15:29 2
Главное написано все на чистом русском и понятно даже младенцу...

Добавлено через 36 секунд

Не по теме:

А кликуха у тебя в честь Махно?

0
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 32
24.05.2010, 12:01  [ТС] 3

Не по теме:

нет)Это фамилия. А как на счет этой задачи?зеркальное аффинное преобразование



Добавлено через 20 часов 5 минут
Ппц,объясните тугому человеку хотя бы алгоритм создания программы,как заштриховать углы я понимаю,а вот как дальше - хоть убейте!
0
4197 / 1791 / 211
Регистрация: 24.11.2009
Сообщений: 27,563
24.05.2010, 12:32 4
Очень похоже на биффуркационную диаграмму, но в изменённых координатах. Да и уравнение явно до конца не совпадает.
0
0 / 0 / 0
Регистрация: 21.02.2010
Сообщений: 32
24.05.2010, 21:33  [ТС] 5
Вот что я начал делать,но я больше чем уверен,что это не правильно
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
uses graph;
var x1,  y1,  x2,  y2,  x3,  y3,  N,gd,gm,m,i,j: integer;
 p:array [1..6] of pointtype;
 Procedure UGOL(x1,  y1,  x2,  y2,  x3,  y3,  N: integer);
      var xx1,  xx2,  yy1,  yy2,  i: integer;  k: real;
begin
    for i:= 1 to N+1 do begin  k:= (i-1)/N;
      xx1:=x1+round((x2-x1)*k);  yy1:=y1+round((y2-y1)*k);
      xx2:=x2+round((x3-x2)*k);  yy2:=y2+round((y3-y2)*k);
         line(xx1, yy1, xx2, yy2);
 
     end
end;
 
begin
gd:=vga;gm:=2;
initgraph(gd,gm,'');
p[1].x:=240; p[1].y:=40;
p[2].x:=120; p[2].y:=440;
p[3].x:=440; p[3].y:= 200;
p[4].x:=40; p[4].y:=200;
p[5].x:=360; p[5].y:=440;
p[6].x:=240; p[6].y:=40;
DrawPoly(6,p);
 
 UGOL(180,  240,  240,  40,  240,  240, 7);
 UGOL(240,  240,  240,  40,  300,  240, 7);
     readln;
end.
Хотя бы подскажите,как правильно сделать,а я дальше сам
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2010, 21:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Цифровое искусство
Японский художник Ютака Кагайя... Его картины выполнены только с помощью компьютерной техники, и...

Тонкое искусство пофигизма
Просто не могу оторваться от этой книжки! "Переведите дух и перечитайте: желать позитивного...

Татуировка, как искусство
Такая вещь, как татуировка в наше время завоевывает все больше и больше последователей по всему...

Ремесло или искусство?
Что такое программирование: ремесло или искусство?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.