Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Vitorrio
17 / 7 / 2
Регистрация: 12.02.2010
Сообщений: 200
1

Как построить трехмерный тетраэдр?

14.03.2013, 18:17. Просмотров 1356. Ответов 0
Метки нет (Все метки)

Нужно построить тетраэдр и добавить анимацию вращения по любой оси..

Вот пример вращения куба:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt,graphabc,Events;
type Cube=array[1..8] of real;
var
i,e:integer;
a:real;
xx,yy,zz:array[1..8] of real;
x1,y1:array[1..8] of integer;
const
ang=pi/3; r=100;
x:cube=(0,r,r,0,0,r,r,0);
y:cube=(0,0,0,0,r,r,r,r);
z:cube=(0,0,r,r,0,0,r,r);
 
procedure showcube(c:byte);
begin
setwindowsize(640,480);
line(320,240,640,240);
line(320,0,320,240);
line(320,240,0,560);
textout(300,5,'Y');
textout(620,250,'X');
textout(120,450,'Z');
setpencolor(RGB(c,c,c));
line(x1[1],y1[1],x1[2],y1[2]);
line(x1[1],y1[1],x1[4],y1[4]);
line(x1[1],y1[1],x1[5],y1[5]);
line(x1[2],y1[2],x1[3],y1[3]);
line(x1[2],y1[2],x1[6],y1[6]);
line(x1[3],y1[3],x1[7],y1[7]);
line(x1[3],y1[3],x1[4],y1[4]);
line(x1[4],y1[4],x1[8],y1[8]);
line(x1[5],y1[5],x1[6],y1[6]);
line(x1[5],y1[5],x1[8],y1[8]);
line(x1[6],y1[6],x1[7],y1[7]);
line(x1[7],y1[7],x1[8],y1[8]);
end;
 
begin
for e:=1 to 360 do
begin
a:=pi/180*e;
for i:=1 to 8 do
begin
xx[i]:=x[i];
yy[i]:=y[i]*cos(a)-z[i]*sin(a);
zz[i]:=z[i]*sin(a)+z[i]*cos(a);
x1[i]:=round(xx[i]-zz[i]*cos(ang)/2)+320;
y1[i]:=-round(yy[i]-zz[i]*cos(ang)/2)+240;
end;
showcube(25);
setpencolor(15);
write(e);
delay(100);
clrscr;
e:=e+1;
end;
showcube(25);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2013, 18:17
Ответы с готовыми решениями:

Построить в трехмерной системе координат ТЕТРАЭДР и осуществить его поворот
Постановка задачи: Построить в трехмерной системе координат ТЕТРАЭДР и осуществить его поворот...

Как построить тетраэдр вписанный в сферу?
a := 5; with(plottools); with(plots); t1 := tetrahedron(, (1/4)*sqrt(6)*a); s1 := sphere(,...

Как построить трехмерный график?
> restart; > with(plots); > t:=0,5; t := 0, 5 >...

Как построить подобный трехмерный график
Здравствуйте. Пишу диплом, научный руководитель сказал построить трехмерный график. Чуть...

Как в программе Mathematica построить трехмерный график по точкам?
Собственно вопрос в заголовке. Можно ли в Математике построить трехмерный график по точкам?

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2013, 18:17

Построить тетраэдр по координатам, записанным в файле
Доброго времени суток. Совсем не знаком с данной программой, к сожалению, а может и к счастью :)...

Построить трехмерный график
Помогите хотя бы схематически представить что это. \sqrt{3}x-y=0\\ x-y=0\\ z={x}^{2}+{y}^{2}\\...

Нужно построить трехмерный график
я не очень шарю в МатКаде ,а нужно срочно нарисовать трехмерный график ограничивающейся данными...


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

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

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