|
Para navegar pela página
use as barras de links superior e vertical
Fale
comigo
| |
Arquivo do
Maple do Texto "O Problema das Abelhas"
> with(plots):
> with(geometry):
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
> with(plottools):
l:=polygon([[1,0],[3,0],[4,sqrt(3)],[3,2*sqrt(3)],[1,2*sqrt(3)],[0,sqrt(3)]],
linestyle=3, thickness=2):
> a:=polygon([[3,0],[4,-sqrt(3)],[6,-sqrt(3)],[7,0],[6,sqrt(3)],[4,sqrt(3)]],
linestyle=3, thickness=2):
> b:=polygon([[4,-sqrt(3)],[3,-2*sqrt(3)],[1,-2*sqrt(3)],[0,-sqrt(3)],[1,0],[3,0]],
linestyle=3, thickness=2):
> c:=
plot({[[6,sqrt(3)], [7,2*sqrt(3)]],[[6,-sqrt(3)], [7,-2*sqrt(3)]]},
color=black ,linestyle=3, thickness=2) :
> plots[display](l,a,b,c);
![[Maple Plot]](prob_abelha01.gif)
Voltar
Jayme Alves de Oliveira Neto
|