MaplePrimes Questions

Edited.

Fellas

I'm wondering how to produce the graphic in the

https://en.wikipedia.org/wiki/Lazy_caterer's_sequence.

my attempt:
caterers.mw

Hi all,

I've an implicit equation f(x,y,z)=0 resulting in a PLOT3D containing ISOSURFACE structure.

p := plots:-implicitplot3d(f,....)

As stated in docs an ISOSURFACE type of plots can't be exported.

So, question is, has anyone an idea on how to write a file containing points (xyz) from my plot p? Or any other way to export the computed points?

Thanks and regards

JiPé

 

I will try to explain with an example, lets say i have to solve 2 equations with 2 unknowns

P := solve({3*y+x, 2*x+3+y})
solve({3*y+x, 2*x+3+y})

I would then like to do P[1] and P[2] to get the values, but instead it gives me "x=-9/5" which make me unable to use it for things like

P[1] + P[2]

Hope you all understand, and thanks for taking your time to read my problem 

It is well known that fsolve usually increases (internally) Digits in order to obtain the desired accuracy.

But in the following example, it seems that fsolve highly exaggerates :-)   

restart;
N:=40:
Digits:=100:
F:=expand(mul(x-k,k=1..N)):
f:=evalf(F):
S:=[fsolve(f,complex)];

Error, (in fsolve) Digits cannot exceed 38654705646


Note that the bug does not appear if e.g. F:=expand(mul(x-k-I, k=1..N)):

 

 

Hi, I'd like to know if is it possible to import questions from Maple TA into Maple and use them in quizes, for example. Your help will be highly appreciated. Thank you.

i have these commands:

restart;
with(plots);
with(VectorCalculus);
with(LinearAlgebra);
f := A-B+x^y/y;

g := x^y-y;
Solve({f = 0, g = 0}, {x, y});
              / /                     y    \         \
              | | y                  x     |         |
         Solve|< x  - y = 0, A - B + -- = 0 >, {x, y}|
              | |                    y     |         |
              \ \                          /         /

restart; with(plots); with(VectorCalculus); with(LinearAlgebra); f := A-B+x^y/y;  g := x^y-y; Solve({f = 0, g = 0}, {x, y});

 

but I can't get it to actually solve the equations. what do I do  ?

Hello. I have a problem with DEplot and I hope someone could help me with this:

How I can solve it for P?

P=i^(2)r+(&DifferentialD;)/(&DifferentialD; t) (1/(2)l(tetha)i^(2))+1/(2)i^(2)(&DifferentialD;l(tetha))/(&DifferentialD; theta) w

attach i(t) "corrente", l(t) "induttanza", theta "angular", w "rotary speed"graph of funtions

thanks

How to pdeplot Curl(A(x,y,z))=0 in maple

it has A1(x,y,z) , A2(x,y,z) and A3(x,y,z)

 

Hello everyone,

I am trying to create a custom component to find the minimum between 3 values.

I know that in Maple it is done by:

l := [5, 2, 3];
min(l[1], l[2], l[3]);

However I could not do the same with a custom component. I provided a screenshot below, where h(1), h(2), and h(3) are my input values and min(h1,h2,h3) is my output.

Thanks in advance,

Canberk

How can I produce the same output with something like alphadeg := alpharad * 180/Pi?

T := proc (p, q, R) alpharad = evalf[5](arccos((1/2)*(p^2+R^2-q^2)/(p*R))), alphadeg = 180*evalf[5](arccos((1/2)*(p^2+R^2-q^2)/(p*R)))/Pi end proc;
T(3, 4, 3.75);
           alpharad = 1.2515, alphadeg = 71.70566805

When I try alphadeg = alpharad * 180/Pi I get
Error, illegal use of an object as a name
 

Thanks! Les    AB59_20170205_Post.mw

Hi all,

 

I have a partial differential equation similar to the following:

Equation: f_x(x,y) + f_y(x,y) = f(x,y) + f(x,0),
Boundary value conditions: f(x,10) = f(10,y) = 0.

The solution is that f is identically equal to 0.

 

However, I am having trouble solving this equation in Maple. I type the following:

pde := diff(f(x, y), x)+diff(f(x, y), y) = f(x, y)+f(x, 0);

bv1 := f(x, 10) = 0;

bv2 := f(10, y) = 0;

solution := pdsolve(pde, {bv1, bv2}, numeric, time = x, range = 0 .. 10);

 

When Maple tries to evaluate the last expression, I get the error

Error, (in pdsolve/numeric/process_PDEs) PDEs can only contain dependent variables with direct dependence on the independent variables of the problem, got {f(x, 0)}

 

It seems to have difficulties with the expression "f(x,0)". Is there some trick to typing this in a way that makes Maple interpret it correctly?

 

Edit: I encounter the same problem, when I try to solve the ODE f'(x) = f(x) + f(0), where f(10) = 0.

 

Best regards.

Hi! I have a variable polynomial expression and I want to cut off all the terms of order 3 and more, for every product of variables.

For example consider the polynomial P = x + y + a*x^2 + b*x^3 + c*x*y + d*x^2*y + e*x*y^2 + y^2, I want an operation who returns me a*x^2 + c*x*y + y^2

(terms for which the sum of exponents in x and y exceeds or less two are being deleted)

Is it possible?

 

Is there a way to define forms with anticommuting functions? I've tried without success:

> with(Physics):
> Setup(anticommutativeprefix={alpha,beta}):
> with(DifferentialGeometry):
> DGsetup([x, t], M):
> (alpha*dx+beta*dt) &wedge (alpha*dx+beta*dt);

                             (0 dx) ^ dt

> (f*dx+g*dt) &wedge (f*dx-g*dt);

                           -(2 f g dx) ^ dt

 

Thanks. Jose Carlos

hi..

how i can write this line ''for'' in maple?

thanks..

for.mw
 

TopEdge = "C";
BottomEdge = "C";
LeftEdge = "C";
RightEdge = "C";

"For[i = 1, i < m + 2, i++, w[i, 1] = 0; w[i, n + 1] = 0];  For[j = 1, j < n + 2, j++, w[1, j] = 0; w[m + 1, j] = 0];  If[TopEdge == "C", For[i = 1, i < m + 2, i++, w[i, 0] = w[i, 2]],    If[TopEdge == "S", For[i = 1, i < m + 2, i++, w[i, 0] = -w[i, 2]],     "Invalid Input Data!"]]  If[BottomEdge == "C",    For[i = 1, i < m + 2, i++, w[i, n + 2] = w[i, n]],    If[BottomEdge == "S",     For[i = 1, i < m + 2, i++, w[i, n + 2] = -w[i, n]],     "Invalid Input Data!"]]  If[LeftEdge == "C", For[j = 1, j < n + 2, j++, w[0, j] = w[2, j]],    If[LeftEdge == "S", For[j = 1, j < n + 2, j++, w[0, j] = -w[2, j]],     "Invalid Input Data!"]]  If[RightEdge == "C",    For[j = 1, j < n + 2, j++, w[m + 2, j] = w[m, j]],    If[RightEdge == "S",     For[j = 1, j < n + 2, j++, w[m + 2, j] = -w[m, j]],     "Invalid Input Data!"]]  w[0, 0] = w[2, 2]; w[0, n + 2] = w[2, n]; w[m + 2, 0] = w[m, 2];   w[m + 2, n + 2] = w[n, m];"

``


 

Download for.mw

 

First 822 823 824 825 826 827 828 Last Page 824 of 2237