I've been using maple every few years since 1986, but am a bit rusty again.  I want to save a sequence of variables created in a do loop. I'm sure this is an old easy question, but can't find the answer searching.  For example

for i from 1 to 10 do
a:=i:
save a, `i.m`:
od:
quit

Keeps overwriting the file i.m, but I want files 1.m, 2.m, 3.m, etc.  Don't see how to do this, but should be easy.  

Is this a bug?

hypergeom([1, -1, 1/2], [-12,-3], 1);
Error, (in hypergeom/check_parameters) function doesn't exist: missing appropriate negative integers in the first list of parameters to compensate the negatives integer(s): [-3], found in the second list.
 

Yet this hypergeometric series terminates and Maple should be able to handle it, at least according to the Maple help page (the second rule below applies, yet the numerator has a smaller absolute value, so the first rule below applies).

If some   n[i] is a non-positive integer, the series is finite (that is,   F(n, d, z)  is a polynomial in    z).
If some  d[j]  is a non-positive integer, the function is undefined for all non-zero  z, unless there is also a negative upper parameter of smaller absolute value, in which case the previous rule applies.
 

Interestingly, the Wolfram Mathematica app can evaluate this to 311/312.

One way is coloring a surface on both sides. We build equidistant surface with very small radius and stain the equidistant surface in color different from the color of the original surface.
Examples coloring of surfaces on both sides.  Radius equal to abs (0.0001).
x3-0.5*exp(sin(x1+2.5*x2+x3))=0;
(x1^2+x2^2-0.4)^2+(x3+sin(x1*x2+x3))^4-0.1=0;
2_COLORS.mw

Hi all, i have a problem someone help me.

Define per(f(a,b,c)) = {f(a,b,c), f(b,c,a), f(c,a,b)}. I want to write a function removePer() that removes the permutations, example:

ds := {a, b, a^2, b^2, c, c + 2a, a - b, c^2, a + 2b, b + 2c}

then removePer(ds) return {a, a^2, c + 2a, a - b} because per(a) = {a, b, c}, per(a^2)  = {a^2, b^2, c^2} and per(c+2a) ={a+2b, b+2c, c+a}. Note that removePer(ds) can return {b, a^2, c + 2a, a - b} or {c, a^2, c + 2a, a - b}, ...  but just one result.

ds := {ab, bc, a - b^2, b - c^2, a^2, c - a^2},

then removePer(ds) return {ab, a - b^2, a^2}.

Thank you very much.

Hi dears,

How can I draw the solution of the following 3d linear inequalities in Maple?

A:={-x-y+3*z >= 0, -x+2*y >= 0, 3*x-2*y-z >= 0, x > 0, y > 0, z > 0}

I am looking forward to hearing from you

Sincerely yours.

hi.how i can solve or fsolve this equations?

i can not with fsolve?

thanks alot

SOLVE.mw


Maple Worksheet - Error

Failed to load the worksheet /maplenet/convert/SOLVE.mw .
 

Download SOLVE.mw

Let say I have a linear system of equations with 28 unknowns (Z1, Z2, ..., Z28).

I know that dimension of space of solution > 0. I want for all unknowns to be expressed only by (let say: Z20, Z21, ..., Z28).

How to specify these free variables? I'm pretty sure it is implemented in Maple.

Hello. My question is enclosed in the Maple file. Using DrawGraph I get a complicated mess.

graph.mw

Hello,

So as to build a function which gives several outputs, i have made a code with this manner :

Input:=[i1, ..., in]

Output:=proc(Input);

      export o1, o2, o3
      o1=f1(Input);
      o2=f2(Input);
      o3=f3(Input);
      end module

End proc;

By doing, output1:=Output(Input):-o1; , i obtained my result. However, as my structure begins with the procedure (proc End proc), I can't export my result in package.

For this reason, I'm thinking about changing the structure of my code by starting with the creation of the module and put all the functions inside.

Input:=[i1, ..., in]

Output:=module():

export o1,o2,o3;
option package;
o1:=proc(Input)
f1(Input);
end proc;

o2:=proc(Input)
f2(Input);
end proc;

o3:=proc(Input)
f3(Input);
end proc;
   
End module;

Can you give me your feedback on the two structures ? Do you think that the second choice Module->Functions is more appropriated ?

Thanks a lot of your help and feedback.

Hi,everyone!!

I want to plot a phaseplane of the following equation.

this is my code:

But,I can't get what i want. What*s wrong with my code? And how do I modify it?

Thanks you very much.

Dear all

I am facing to run the following expression for an arbitrary values of M, k and alpha.

u := simplify(sum(sum(c[p, q]*2^((K-1)*(1/2))*(sum(sum(sum(sum(2^((K-1)*(p-i-j+q-k-l))*GAMMA(p-i-j+1)*x^(p-i-j-alpha)*(1-p)^j*(1-q)^l*g[i]*binomial(p-i, j)*binomial(p, i)*binomial(p-k, l)*binomial(q, k)/GAMMA(p-i-alpha-j+1), l = 0 .. q-k), k = 0 .. q), j = 0 .. p-i-ceil(alpha)), i = ceil(alpha) .. p))/sqrt(2*(-1)^q*factorial(q)^2*g[2*q]/factorial(2*q)), q = 1 .. Delta), p = ceil(alpha) .. Delta));
FD := simplify(convert(%, StandardFunctions)); expand(radnormal(convert(FD, elementary)))

Please correct it and run it for M=10, k=1, alpha=0.5.

Hi all, I have a problem someone can help me

F := {a^2, b^2, c^2, ab, bc, ca}

G := [a^2, b^2, c^2, ab, bc, ca]

How to convert F to G and G to F ?

Thanks you very much.

I would like to set a metric in its contravariant form before its covariant form but Maple does not do this operation.

Thanks!

Hello :)

When points of triangle, A, B, C (R^2) are given, how to find area of triangle; equation and radius of circle which passes traingle(A,B,C) and height(AH).

or where can i find information about how to do this?

thank you so much:)

How to get tangent angle between two curves? 

example for these : f(x)=((x^4+5)^(1/2))/(sinx+5) and g(x)=cosx^2   ; x>0

thanks :)