Слайд 9
Программа – визуализация (*)
restart: with (plottoоls): with (plots):
N: = 7:
SPISOK1: =
[seq (FIG[m], m = 1 .. 8)]:
FIG[1]: = curve ([[1, 0, 0], [0, 0, 0]], color = green, thickness = 3):
FIG[2]: = curve ([[1, 1, 0], [0, 0, 0]], color = green, thickness = 3):
FIG[3]: = curve ([[-2, 1, 0], [1, -1, 0]], color = green, thickness = 3):
FIG[4]: = curve ([[1, -1, 0], [1, 1, 0]], color = green, thickness = 3):
FIG[5]: = polygon ([[0, 0, 0], [10, 0, 0], [10, 10, 0], [0, 10, 0]], color = green, thickness = 1):
FIG[6]: = curve ([[1, 1, 0], [0, 1, 0]], color = blue, thickness = 3):
FIG[7]: = cuboid ([0, 0, 0], [1, 1, 1]):
FIG[8]: = FIG[7]:
for m from 1 to 8 do if m = n then FIGURA: = SPISOK1[m] end if: end do:
SPISOK2: = [seq(AXES[z], z = 1 .. 8)]:
AXES[1]: = [[0, -2, 0], [0, 2, 0]]:
AXES[2]: = AXES[1]:
AXES[3]: = AXES[1]:
AXES[4]: = AXES[1]:
AXES[5]: = [[0, -10, 0], [20, 10, 0]]:
AXES[6]: = [[0, 0, 0], [1, 1, 1]]:
AXES[7]: = [[-0.5, -0.5, -0.5], [1.5, 1.5, 1.5]]:
AXES[8]: = [[1, 1, 0], [0, 1, 1]]:
for z from 1 to 8 do if z = n then rot: = SPISOK2[z] end if: end do:
axes: = curve (rot, color = red, thickness = 3):
f: = display ([axes, FIGURA]):
RTS : = seq (rotate(f, k*0.25*Pi, rot), k = 0 .. 40):
RRT : = seq (display(seq(rotate(f, i*0.12*Pi, rot), i = 0 .. j)), j = 0 .. 40):
display (RTS, RRT, insequence = true, scaling = CONSTRAINED, style = PATCH);