## Plot points in a plot component...

I can not understand why the following statement works perfectly:
with (plots);
P1: = plot (f (x), x = xmin .. xmax, y = ymin .. ymax, color = "green");
P2: = plot (orddir, x = xmin .. xmax, y = ymin .. ymax, color = "blue");

Plots [display] (plottools [line] ([ascf, ymin], [ascf, 10]), color = red;
Plot ([5, y, y = 0 .. 10]);
P3: = implicit plot (x = ascf, x = xmin .. xmax, y = ymin .. ymax, color = red, linestyle = 3, thickness = 2);
P4: = plot (points, x = xmin .. xmax, y = ymin .. ymax, style = point, symbol = circle, symbolsize = 20, color = "black");
P5: = plot (h, x = xmin .. xmax, y = ymin .. ymax, color = "yellow");
Display ({p1, p2, p3, p4, p5}, axes = normal, scaling = unconstrained, title = "Parallel, vertice, focus, direction and axis of symmetry", gridlines = true);

While in the following
Points: = [F, V, A, B];
with (plots):
P1: = plot (f (x), x = xmin .. xmax, y = ymin .. ymax, color = "green");
P2: = plot (yd, x = xmin .. xmax, y = ymin .. ymax, color = "blue");
P3: = implicitplot (x = xv, x = xmin .. xmax, y = ymin .. ymax, color = red, linestyle = 3, thickness = 2);
P4: = plot (points, x = xmin .. xmax, y = ymin .. ymax, style = point, symbol = circle, symbolsize = 20, color = "black");

Do (% Plot0 = display ({p1, p2, p3, p4}, axes = normal, scaling = unconstrained, title = "Parallel, vertices, focus, direction and axis of symmetry", gridlines = true));

P4 does not print anything. In thanking you for the kind attention, I cordially greet you. Carmine Marotta ..

## How to display the points inside the cylinder ?...

I have a task. Draw a cylinder of a certain diameter and length. And there is a table of values with points inside this cylinder. How to display the points inside the cylinder (the table of values has 3 parameters - angle (sin (a)), radius (R), length?

## Find equation of line which has minimum distance f...

I've got some points:

I have to find the (equation of) line which has minimum distance from these points but the distance formula that I have to use is:

I think we should settle with a for loop.

## Function that approximates some points better...

I have to calculate a sort of trend line, but I don't know how it works with maple.
I tried with Excel.

Do you think the method is right? How can I replicate it on maple?

```Thanks in advance
```

## Straightline Plot...

Good evening all,

How can I plot a straightline with points

LogAt = - 0.097,  -0.20, -0.22, -0.25, -0.30 ,-0.40, -0.45, -1.01 and

t = 0, 20, 40, 60, 80, 100, 120, 140

Where LogA[t] on y-axis and t on x-axis.

I have try this before .

plot([[0,-0.097], [20,-0.20], [40,-0.22], [60,-0.25], [80,-0.30], [100,-0.40],  [120,-0.45],  [140,-1.01]]);

## Code for integer points on sphere...

I use Mathematica. This code finds integer points on the sphere

(x-2)^2 + (y-4)^2 + (c-6)^2 =15

and select two of them so that distance of two this points equal to 4.

ClearAll[a, b, r, c];
a = 2;
b = 4;
c = 6;
r = 15; ss =
Subsets[{x, y, z} /.
Solve[{(x \[Minus] a)^2 + (y \[Minus] b)^2 + (z \[Minus] c)^2 ==
r^2, x != a, y != b, z != c, x y z != 0}, {x, y, z},
Integers], {2}];
t = Select[ss, And @@ Unequal @@@ Subsets[Flatten[#], {2}] &];
Length[t]
Select[ss, Apply[EuclideanDistance, #] === 4 &]

and this code select four points on the shere so that none of three points make a right triangle

ClearAll[a, b, r, c];
a = 2;
b = 4;
c = 6;
r = 15;
ss = Subsets[{x, y, z} /.
Solve[{(x - a)^2 + (y - b)^2 + (z - c)^2 == r^2, x != a, y != b,
z != c, x y z != 0, x > y}, {x, y, z}, Integers], {4}];
nonright =
Pick[ss, (FreeQ[#, \[Pi]/2] &) /@ ({VectorAngle[#2 - #1, #3 - #1],
VectorAngle[#1 - #2, #3 - #2],
VectorAngle[#1 - #3, #2 - #3]} & @@@ ss)];
Select[nonright, (12 == Length[Union @@ #] &)]

I am looking for a  procedure in Maple.  I have some problems with this sphere. For example:

Choose four points so that 12 coordinates difference and it makes a square.

Can your code improve with sphere?

## Possible point bug in Maple T.A.?...

Dear Maple T.A. users

I have just begun using Maple T.A. I have access to a number of questions, some of which involves placing points in a coordinate system. It works for most students, but for a few, including myself, it doesn't work. I am not able to place those points in the coordinate system at hand when leftclicking. What can be the reason for this issue?

Erik

## Catmull-Rom spline curves...

Hello,

I try to use a Catmull-Rom spline which has to match on several points.

I use a code extracted from the book "Geometry and curves with maple".

Here you can find an extract which is visible from google book :

I have slightly modified the initial procedure crom_2d. I didn't find the error in my procedure. May you help me to find the blocking point of my procedure ?

Here I attached my code:

CalculSplineMatmull-Rom.mw

## How to plot points?...

plotpoints.mw

I want to plot points when it =1,2,3,..,11,12 instead of a continous line displayed in the worksheet I uploaded. How to modify the function? Thank you for helping:)

## Pasting list of points into worksheet creates 20 p...

I want to paste a list of points generated by another program into a maple worksheet.

However, when I paste the list of points into the Maple worksheet, I get a command prompt after each defined point in the list.  Whereby, the executable code will not run.

I need a way to paste the list of points into the worksheet without any command prompts.  Is there a special entry mode?

Here's the list of points I want to paste into the worksheet:

[

[20,0,0],

[20,4,0],

[19,8,0],

[17,11,0],

[14,14,0],

[11,17,0]

],

Below is the worksheet code that I want to paste the list of points.

However, when I paste the list of points within the "pointPlot3D" function -- I get a command prompt after each defined point in the list of points.  (So 30 points gives 30 command prompts.)  Whereby, when this code is executed, there is an error.    What I need is a means to paste this list of points into the worksheet WITHOUT the command prompts showing up.

> with(geom3d):

> with(plots):

> sphere1:=(x,y,z,R)->[x+R*cos(phi)*cos(theta),y+R*cos(phi)*sin(theta),z+R*sin(phi)]:

> Explore(display(

plot3d(sphere1(0,0,0,Rp),phi=-Pi/2..Pi/2,theta=0..2*Pi),

scaling = constrained, axes = boxed, style=wireframe, labels=[x,y,z],

pointplot3d(

> [
> [20,0,0],
> [20,4,0],
> [19,8,0],
> [17,11,0],
> [14,14,0],
> [11,17,0]

> ],

symbol=circle,symbolsize=10)  ),

parameters=[Rp=3..20],         initialvalues=[Rp=20] );

## Systematizing calculations...

I need to make a lot of similar calculations and wonder if it can be done in a smart way in Maple. Microsoft Excel is perfect for this kind of calculations, because you can downcopy cells. I would like to do everything in Maple, if possible, though. I have a number of points A, B, C, D, E, ... , which all lie on various circles in the plane. For every point radius and angle is given, so actually you can say that every point is delivered with polar coordinates. I want to have their rectangular coordinates.

Maybe I could deliver their radii in a list and their angles in degrees in another list?

r:=[12,56,29,...., 78]:

v:=[15,45,75,..., 102]:

......

I need to be able to refer to a certain point thorugh an index. At best it would be A, B, C, ... , but 1, 2, 3, ... will be acceptable. So in the end I need to be able to access say x_C and y_C or x_3 and y_3 (understood as index lowered). I hope someone can help me do the task in a nice a efefctive way.

NB! Maybe you have a solution, which involve transformation from polar to rectangular coordinates. That will be nice, but please also tell me how it can be done from scratch, because I want to be able to know about handling many points at once for other purposes, when the function is not r*cos(v), but an arbitrary function.

Regards,

Erik

## Fitting a spacecurve...

Hey

I'm trying to fit a spacecurve onto some points I have.

I know, I can use Spline to do this in 2D, but it doesn't work in 3D.

What command(s) can I use to fit a spacecurve onto my points?

## take date from eq1 and plug it in eq2...

Dear all,

need to take data(a,u) from eq1 and plug it in eq2

eq1 is:

eq2 is:

Then need to plot data (a,v)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

I did that:

`points:=seq([a,evalf(solve((alpha+(l+alpha)*u+alpha*k*u^2)*a=u*(alpha+(l+alpha)*u+alpha*k*u^2...`

## Two sets of points in the plane

by: Maple

Consider two sets in the Euclidean plane, each consisting of 4 points.

First set:  A(0, 0),  B(3, 4),  C(12, 4),  E(4, -1)

Second set:  F(0, -8),  G(12, -4),  H(9, -8),  K(4, -9)

It is easy to check that the set of all pairwise distances between the points of each of the given sets (6 numbers for each set ) are the same. At the same time it is obvious that there is no any...

 Page 1 of 1
﻿