Items tagged with geom3d geom3d Tagged Items Feed

Dear Maple users

I am delighted that Maple has builtin commands to plot so many polyhedrons in 3D. Here I am talking about the polyhedraplot command in the plots package. I was however disappointed that the socalled Truncated Icosahedron is not supported (not present in the supported list ...). My first question is:

1. Why isn't it supported?

It seems more relevant than many of the other polyhedrons which are supported. It is a member of the Archimedian Solids (see https://en.wikipedia.org/wiki/Truncated_icosahedron). Besides it is the basic structure for soccer footballs. I found out that a TruncatedIcosahedron command is available in the geom3d package. This command is able to deliver data for the faces and more. With this command I succeded in writing a small program to actually plot this polyhedron in 3D:

-----------------------------------------------------

restart;
with(geom3d):
with(plots):
TruncatedIcosahedron(football,point(C,(0,0,0)),1):

PlotFootball:=proc(tr::float)
    
    local i::integer,
         FootballFace::Vector(datatype=float[8]),
         plotFace::Vector(datatype=float[8]);    
    
    for i from 1 to 32 do
        FootballFace[i]:=faces(football)[i];
        plotFace[i]:=polygonplot3d(Matrix(FootballFace[i]),axes=none,scaling=constrained,transparency=tr);
    end do;
    
    display(seq(plotFace[i],i=1..32)):
    
end proc:

PlotFootball(0.00);

-----------------------------------------------------

Since I am not really experienced in programming in Maple, here is my last question:

2. Can I simplify something in my code above?

 

Best wishes,

Erik

 

Dear all,

Please help in this question.

 

Using   I want to plot in R^3, the set of point u[i,j]^k . This point has as cordinate  (x[i],y[j],t[k]).

x := i -> (1/5)*i;  #  x[i] the x-coordinate
y := j -> (1/5)*j; # y[j] the y-coordinate
t := k -> (1/5)*k;  #  t[k] the t-coordinate

The name of point is u[i,j]^k

How can I  plot all the point.


 with(geom3d):

point(u[i,j]^k, x(i),y(j),t(k));

 

Thank you.

 

 

I don't think the geom3d package can be used symbolically it needs specific values.  Maybe I'm wrong, am I?

I have a list L. In geom3d, I want to write all tangent of plane of the spherefrom L. But I don't know. I only write one point . I tried 

> restart:

with(geom3d):

L:=[[-5, -5, 8], [-5, -1, 10], [-5, 3, 10], [-5, 7, 8], [-5, 8, -5], [-5, 8, 7], [-5, 10, -1], [-5, 10, 3], [-1, -5, 10], [-1, 7, 10], [-1, 10, -5], [-1, 10, 7...

In geom3d, how can i make a triangle which coordinates of the center circle circumscribed triangle are integer numbers? Please help me. Thank you.

I want to write the equation of the plane which equidistant the two the planes P and Q. This is my code

restart:

with(geom3d):

plane(P,2*x+3*y-6*z+1=0,[x,y,z]):

plane(Q,x -4*y-8*z+1=0,[x,y,z]):

point(M,x,y,z):

E:=distance(M,P)- distance(M,Q);

simplify(%);

but, i can simplify(E). Please help me.

In geom3d, i have equation a plane. Now i want to get two points A and B in the plane P and write the equation of the line which passing two point A, B. 

restart:
with(geom3d):
plane(P, 2*x + 2*y -z + 4=0,[x,y,z]):
f := (a,b,c) -> eval(lhs(Equation(P)), [x=a,y=b,z=c]): 
T:=f(-1,2, a):
eq:=solve(T=0,a): coordinates(point(A,-1,2,eq)):

In geom3d, how i can subs coordinates of a point M(t+1, t - 2, t+ 3) into equation of a plane (P) has equation x + 2*y -3*z + 1 = 0? Please help me.

Problem. In the plane 2*x -3*y +3*z -17 = 0, find a point M such that the sum of its distances from the poits A(3, -4, 7) and B(-5, -14, 17) will have the least value.

First way.

restart:with(geom3d):

point(A,3,-4,7):

point(B,-5,-14,17):

plane(P,2*x - 3*y +3*z -17=0,[x,y,z]):

reflection(Q,A,P):

line(BQ,[B,Q]):

Problem. write the equation of the line cut the two lines d1: x = 2*t, y= -t+1, z = t-2, d2: x = -1+2*m, y = 1+m, z = 3 and perpendicular to the plane 7*x+y-4*z=0. 

This is my code. 

> restart;with(geom3d):

with(LinearAlgebra):

a:=[2*t,-t+1,t-2]:

b:=[-1+2*m,1+m,3]:

line(d1,a,t):

line(d2,b,m):

With(geom3d), equation of  a line has the form a parametric equation. How  i can get canonical equation of a line? Please help me?

I want to put vector n = (a, b, c) as normal vector of plane with assume a^2 + b^2 + c^2 > 0. For example

with(geom3d):assume(a^2 + b^2 + c^2>0):

plane(P,a*(x-1) + b*(y+2) + c*(z-3)=0,[x,y,z]);

But, i got: "Error, (in geom3d:-plane) unable to define the plane"
Plese help me. How can i put vector n = (a, b, c) as normal vector of plane?
Thank you very much.

Write the equation of the sphere has its centre at C(1, 2, 3) and cut the  straight line

Delta: x = t+1, y = t-1, z = -t at the points A and B so that the triangle ABC is a equilateral triangle.

This is my code.

Problem. Write the equation of the tangent planes to the sphere

x^2+  y^2 + z^2 -10*x +2*y +26*z -113=0

which are parallel to the lines

d1: x = -5+2*t, y = -3*t+1, z = -13+2*t

d2: x = -7+3*t, y = -1-2*t, z = 8.

This is my code

restart:

with(geom3d):

line(d1,[-5+2*t,-3*t+1,-13+2*t],t):

a:=ParallelVector(d1):

line(d2,[-7+3*t,-1-2*t,8],t):

Let A(1,-1,-1), B(2,1,2), C(1, 3, 1) be three points and Delta: x = -t, y = -t, z = t be a line. Write the equation of the sphere (S), knowing that center of (S) lies on the line Delta, (S) passing the point A and cuts the plane passing through the  three points A, B, C cut (S) a circle has least radius.  

This is my code.

> restart;

with(geom3d):

a:=[-t,-t,t]:

1 2 Page 1 of 2