not a full combinations yet

restart;
G := (L::list(name),n::posint)->op((`*`@op)~(combinat[choose](L,n))):
G( [q,r,s], 3 );
with(LinearAlgebra):
aa := Matrix([[1,3,1],[3,1,3],[3,3,3]]);
num1 := 1;
for i from 1 to 3 do
for j from 1 to 3 do
num1 := num1* nops([G( [a,b,c], aa[i,j] )]);
od:
od:
numcol := nops(aa);
for ii from 1 to numcol do
for jj from 1 to numcol do
alist := [G( [a,b,c], aa[ii,jj] )];
num1 := num1 - nops(alist);
for zz from 1 to nops(alist) do
m := Matrix([[0,0,0],[0,0,0],[0,0,0]]);
m[ii,jj]:=alist[zz];
for ii2 from 1 to numcol do
for jj2 from 1 to numcol do
if ii <> ii2 && jj <> jj2 then
m[ii2,jj2] := aa[ii2, jj2];
end if:
od:
od:
print(m);
od:
od:
od:

then i change simpler

m := Matrix([[0,0,0],[0,0,0],[0,0,0]]);
delta := proc(m,bb,ii2,jj2,poin)
finish := 0;
for ii from 1 to numcol do
for jj from 1 to numcol do
num1 := num1 - nops(alist);
if poin <= 3 and finish = 0 and ii = ii2 and jj = jj2 then
m[ii,jj]:=bb[poin];
finish := 1;
end if:
od:
od:
return m;
end proc:
ii := 1;
jj := 1;
alist := [G([a,b,c], aa[ii,jj] )];
delta(m,alist,ii,jj,2);

not completed yet

if input n = 3 which means total 3 alphabet

if value = 2, expect output

a*b, a*c, b*c

if value = 1 expect output

a, b, c

if total n = 4, four alphabets

value = 3, expect output

a*b*c, a*b*d, a*c*d, b*c*d

value = 2 expect output

a*b, *a*c, a*d, b*c, b*d, c*d

https://en.wikipedia.org/wiki/Surgery_theory

glue two geometric object

i use maple 17, 

will future version of maple do this?

or which software can do this?

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] );

I'm trying to plot the region bounded by the coordinate planes, the plane z=2-y and the cylinder x=4-y^2

This is what I have so far.  I want to know how to get rid of the portions of the planes and cylinder that are not enclosing the region.

restart;

with(plots);

xmin := 0;
xmax := 4;
ymin := 0;
ymax := 2;
zmin := 0;
zmax := 2;

a := plot3d([2-y], x = xmin .. xmax, y = ymin .. ymax, orientation = [40, 70], transparency = 0, color = green, filled = false, title = "");
%;

b := implicitplot3d([z = 0, y = 0, x = 0], x = xmin .. xmax, y = ymin .. ymax, z = zmin .. zmax, transparency = .5, axes = normal);
%;
c := implicitplot3d([x = -y^2+4], x = xmin .. xmax, y = ymin .. ymax, z = zmin .. zmax, transparency = .5, filled = true, axes = normal, color = blue, orientation = [45, 35]);

display(a, b, c);

A duck, pursued by a fox, escapes to the center of a perfectly circular pond. The fox cannot swim, and the duck cannot take flight from the water. The fox is four times faster than the duck. Assuming the fox and duck pursue optimum strategies, is it possible for the duck to reach the edge of the pond and fly away without being eaten? If so, how?

http://www.crazyforcode.com/fox-duck-puzzle/

there is an animation here

https://www.youtube.com/watch?v=Zw9cHEnhzWo

wonder if the equations of motion can be derived usingg maple and an animaton...?

Hallo. I'd like to make a loop for two variables. Let say:

for i from 1..10, j from 1..10

How to do it?

Thanks.

Hi everyone:

I have two functions in terms of theta variable, how can I expressed function Y(X)?

X :=(theta)->cos(theta)+0.8e-1*cos(3.*theta)

Y :=(theta)->-sin(theta)+0.8e-1*sin(3.*theta)

I will earn Y(X) infact.

Thanks alot...

Mehran.

At the first note that in this question all polynomials have parametric coefficients. Let F be a list of polynomials and f be a polynomial. I want to convert F and f into a linear homogeneous FF and ff resp. At the first I want to sortvthe monomials appears in F and f  w.r.t. a monomial order T and then replace by the new variables A_i.

For example if

and

(a,b,c are parameters and x,y,z are variables) then I want to convert F and f into FF and ff resp:

please note that the variables appears in F and f are:

where sorted by T=plex(x,y,z). Please note that we consider all constants and alone parameters (4, b-4, c-1) as A9. I want to convert v into

and then F into FF and f into ff.

How to calculate the integral

(symbolically or/and numerically) with Maple?

How can I stop this text from appearing in the worksheet output?

What is the purpose of this text as it's a GIANT DISTRACTION from my perspective?

SAMPLE EXECUTED WORKSHEET OUTPUT:

> with(plots);

> with(geom3d);

outputs lots of blue text...

[Archimedean, AreCollinear, AreConcurrent, AreConjugate,

  AreCoplanar, AreDistinct, AreParallel, ArePerpendicular,

  AreSkewLines, DefinedAs, DirectionRatios, Equation, FindAngle,

  FixedPoint, GlideReflect, GlideReflection, GreatDodecahedron,

  GreatIcosahedron, GreatRhombicuboctahedron,

  GreatRhombiicosidodecahedron, GreatStellatedDodecahedron,

  HarmonicConjugate, HexakisIcosahedron, HexakisOctahedron,

  InRadius, IsArchimedean, IsEquilateral, IsFacetted, IsOnObject,

  IsQuasi, IsRegular, IsRightTriangle, IsStellated, IsTangent,

  MidRadius, NormalVector, OnSegment, ParallelVector,

  PentagonalHexacontahedron, PentagonalIcositetrahedron,

  PentakisDodecahedron, QuasiRegularPolyhedron, RadicalCenter,

  RadicalLine, RadicalPlane, RegularPolyhedron,

  RhombicDodecahedron, RhombicTriacontahedron, RotatoryReflect,

  RotatoryReflection, ScrewDisplace, ScrewDisplacement,

  SmallRhombicuboctahedron, SmallRhombiicosidodecahedron,

  SmallStellatedDodecahedron, SnubCube, SnubDodecahedron,

  StereographicProjection, StretchRotate, TangentPlane,

  TetrakisHexahedron, TrapezoidalHexecontahedron,

  TrapezoidalIcositetrahedron, TriakisIcosahedron,

  TriakisOctahedron, TriakisTetrahedron, TruncatedCuboctahedron,

  TruncatedDodecahedron, TruncatedHexahedron,

  TruncatedIcosahedron, TruncatedIcosidodecahedron,

  TruncatedOctahedron, TruncatedTetrahedron, altitude, area,

  center, centroid, coordinates, cube, cuboctahedron, detail,

  dilate, distance, dodecahedron, draw, dsegment, duality, faces,

  facet, form, gtetrahedron, hexahedron, homology, homothety,

  icosahedron, icosidodecahedron, incident, intersection,

  inverse, inversion, line, midpoint, octahedron, parallel,

  parallelepiped, plane, point, polar, pole, powerps, projection,

  radius, randpoint, reflect, reflection, rotate, rotation,

  schlafli, segment, sides, sphere, stellate, tetrahedron, tname,

  transform, translate, translation, transprod, triangle,

  vertices, volume, xcoord, xname, ycoord, yname, zcoord, zname] [animate, animate3d, animatecurve, arrow, changecoords,

  complexplot, complexplot3d, conformal, conformal3d,

  contourplot, contourplot3d, coordplot, coordplot3d,

  densityplot, display, dualaxisplot, fieldplot, fieldplot3d,

  gradplot, gradplot3d, implicitplot, implicitplot3d, inequal,

  interactive, interactiveparams, intersectplot, listcontplot,

  listcontplot3d, listdensityplot, listplot, listplot3d,

  loglogplot, logplot, matrixplot, multiple, odeplot, pareto,

  plotcompare, pointplot, pointplot3d, polarplot, polygonplot,

  polygonplot3d, polyhedra_supported, polyhedraplot, rootlocus,

  semilogplot, setcolors, setoptions, setoptions3d, spacecurve,

  sparsematrixplot, surfdata, textplot, textplot3d, tubeplot]

Hello those who are in this maple primes.

I downloaded maple2015 for Mac, the newest version of the software, and tried to use it to draw a simple figure with plot3d.

But, in the end, I used gnuplot which I had happened to install though it was my first time of using it.

The problem of using my Maple was that it was too heavy and with my macbook, I found it impossible

to have it work properly. So, I am writing my question now.

I used terminal, but as I think it  might be easy to deal with to use editor not terminal itself

though I use the editor from the terminal, I want to know how I can use maple from the editor and what things I 

can do when I do so. In my image, I want to use it like using TeX from the editor.

As for coloring the code, is the best tool one for Maple V yet? And, how can I do after I wrote the code of Maple?

What can I do with emacs and Maple? Can I use emacs like IDE of TeXshop or TeXworks in LateX?

I am glad to hear from you the general concept or procedures of using it if I use emacs and Maple.

Thanks in advance.

Dear All,

Colud you please tell me how to obtain the answer f(b)-f(a), by manipulating the following expression in maple:

Thank you very much. Best regards, Jand

Hello, I have a similary issue with the following post :

http://www.mapleprimes.com/questions/200835-Algsubs-With-Subscripts-And-Powers

In a constraint equation (in mechanics), I need to make these algebraic substitutions :

--> sqrt(xA1² + yA1²) =rF1 
--> arctan(abs(yA1)/abs(xA1)) = aF1
--> sqrt(xC1^2+yC1^2) = rBTP
--> arctan(abs(yC1)/abs(xC1))=a1

I try to do it with this code :

ListAlgsubs:={sqrt(xA1^2+yA1^2)=rF1,sqrt(xA2^2+yA2^2)=rF2,sqrt(xA3^2+yA3^2)=rF3, sqrt(xA4^2+yA4^2)=rF4,arctan(abs(yA1)/abs(xA1))=aF1,-arctan(abs(yA2)/abs(xA2))=aF2,pi+arctan(abs(yA3)/abs(xA3))=aF3,pi-arctan(abs(yA4)/abs(xA4))=aF4,sqrt(xC1^2+yC1^2)=rBTP,arctan(abs(yC1)/abs(xC1))=a1};
for i from 1 to nops(ListAlgsubs)
do Branch1Cons:=applyrule(op(i,ListAlgsubs),Branch1Cons)
end do:
Branch1Cons:= simplify(Branch1Cons);

I have tried with algsubs or applyrule but it wasn't successfull in both cases.

Do you have an idea how can I do to simplify my expressions ? and namely conduct a good use of applyrule function

I join an extract of my code in order to facilitate the troubleshooting.

example.mw

Thanks a lot for your help.