|
Para navegar pela página
use as barras de links superior e vertical
Fale
comigo
| |
Arquivo do
Maple do Texto "O Problema das Abelhas"
> restart;
> with(plots):
> with(geometry):
> with(plottools):
Warning,
new definition for circle
Warning,
new definition for ellipse
Warning,
new definition for hyperbola
Warning,
new definition for line
Warning,
new definition for point
> a:=PLOT3D(CURVES([[1,0,0],[3,0,0],[4,1.73,0],[3,3.46,0],[1,3.46,0],[0,1.73,0]],[[1,0,0],[3,0,0],[3,0,5],[1,0,5]],
[[3,0,0],[4,1.73,0],[4,1.73,5],[3,0,5]] ,
[[4,1.73,5],[3,3.46,5],[3,3.46,0],[4,1.73,0]] ,
[[3,3.46,0],[1,3.46,0],[1,3.46,5],[3,3.46,5]] ,
[[1,3.46,0],[0,1.73,0],[0,1.73,5],[1,3.46,5]] ,
[[0,1.73,0],[1,0,0],[1,0,5],[0,1.73,5]] ,
[[1,0,5],[3,0,5],[4,1.73,5],[3,3.46,5],[1,3.46,5],[0,1.73,5]]),THICKNESS(3)):
> b:=PLOT3D(CURVES([[4,0,0],[8,0,0],[6,3.46,0]]
, [[4,0,0],[4,0,5],[8,0,5],[8,0,0]] , [[8,0,0],[6,3.46,0],[6,3.46,5],[8,0,5]]
, [[4,0,0],[6,3.46,0],[6,3.46,5],[4,0,5]] , [[4,0,5],[8,0,5],[6,3.46,5]]
),THICKNESS(3)):
> c:=PLOT3D(CURVES([[10,0,0],[14,0,0],[14,4,0],[10,4,0]]
, [[14,0,0],[14,0,5],[10,0,5],[10,0,0]] ,
[[14,0,0],[14,0,5],[14,4,5],[14,4,0]] , [[14,4,0],[14,4,5],[10,4,5],[10,4,0]]
, [[10,4,0],[10,4,5],[10,0,5],[10,0,0]] ,
[[14,0,0],[14,4,0],[10,4,0],[10,0,0]] ),THICKNESS(3)):
> display(a,b,c);
![[Maple Plot]](prob_abelha04.gif)
Voltar
Jayme Alves de Oliveira Neto
|