Fsolve produces the correct solution.  solve followed by evalf produces a completely different solution.

What am I doing wrong?

## Ioannes Colla problem: "Divide 10 into three parts such that they
## shall be in continued proportion and that the product of the first
## two shall be 6"
eqs := [a+b+c=10, a/b=b/c, a*b=6];
fsolve(eqs); ## correct solution
evalf(solve(eqs)); ## different

Tom Dean

If A is an m × n matrix and B is a p × q matrix, then the Kronecker product C = A ⊗ B is the mp × nq block matrix. Assume I have matrix C and want to find matrix A and B. This problem has known solution called "Nearest Kronecker Product". So I just need a function like this: A,B:=NearestKroneckerProduct(C)  which minimizes ||C - A ⊗ B||_F  where F denotes frobenius norm. 

Here is an Image that shows a mathematica code:

I took it from the link below:

https://mathematica.stackexchange.com/questions/91651/nearest-kronecker-product

Also there is a matlab code:

https://gist.github.com/tholden/58dd9a8991daa750ae36a633fe7060a4/revisions

can you convert mathematica code to maple?

If I do:

The font that Maple uses for the Tablulate is much larger than the font used to display the Dataframe. How does one choose the font size that Tabluate() uses? 

Peter

Hello,

I have been given the assigment to plot at sphere in maple, with a spherical triangel. I know how to plot the sphere:

restart; with(geom3d); with(plots); with(Plot); with(plottools);
display(sphere([0, 0, 0], 1), axes = Framed)

But i do not know how to mape the spherical triangels on the sphere.

The koordinates are:

A(1,0,0)

B(0,1,0)

C(0,0,1)

Hope somone can help

Hi, i want to plot an ode plot with respect to a parameter (E) in range [0,4] instead of time.
I start with unassign variable E and tried to change 't' for 'E' directly, but its give me error 
did I use the incorrect syntax/ step?
 

restart; with(linalg); with(VectorCalculus); with(DEtools); with(plots)

r := .9; K := 10; beta := .5; g := 0.3e-1; alpha[1] := .4; alpha[2] := 2.2; alpha[3] := 4; d[1] := .1; d[2] := .1; q := 1; E := 2.5; s := .46; delta := 1.5; b := 1.2; p := 1; c := 0.1e-1; mu := 0.25e-1; P0 := 4; M0 := 5; N0 := 3; L0 := 2; T := 20

> dP := VectorCalculus[`+`](VectorCalculus[`+`](VectorCalculus[`*`](VectorCalculus[`*`](r, P(t)), VectorCalculus[`+`](1, VectorCalculus[`-`](VectorCalculus[`*`](P(t), 1/K)))), VectorCalculus[`*`](g, P(t))), VectorCalculus[`-`](VectorCalculus[`*`](beta, P(t)))); dM := VectorCalculus[`+`](VectorCalculus[`+`](VectorCalculus[`*`](beta, P(t)), VectorCalculus[`-`](VectorCalculus[`*`](VectorCalculus[`*`](q, E), M(t)))), VectorCalculus[`-`](VectorCalculus[`*`](d[1], M(t)))); dN := VectorCalculus[`+`](VectorCalculus[`-`](VectorCalculus[`*`](s, N(t))), VectorCalculus[`*`](VectorCalculus[`*`](VectorCalculus[`*`](delta, N(t)), M(t)), 1/VectorCalculus[`+`](M(t), VectorCalculus[`*`](b, N(t))))); dL := VectorCalculus[`+`](VectorCalculus[`*`](VectorCalculus[`+`](alpha[1], VectorCalculus[`-`](VectorCalculus[`*`](VectorCalculus[`*`](alpha[2], L(t)), 1/VectorCalculus[`+`](alpha[3], M(t))))), L(t)), VectorCalculus[`-`](VectorCalculus[`*`](d[2], L(t))));

> satu := diff(P(t), t) = dP; dua := diff(M(t), t) = dM; tiga := diff(N(t), t) = dN; empat := diff(L(t), t) = dL;

> pdb := satu, dua, tiga, empat; fcns := {L(t), M(t), N(t), P(t)};
> Q := dsolve({pdb, L(0) = L0, M(0) = M0, N(0) = N0, P(0) = P0}, fcns, type = numeric, method = rkf45, maxfun = 500000);
> odeplot(Q, [[t, P(t), color = blue], [t, M(t), color = green], [t, N(t), color = red], [t, L(t), color = gold]], t = 0 .. T, numpoints = 100000, thickness = 2); 

its work fine if i plot with respect to time (t), but when i tried to change it for a parameter like E its doesnt work

unassign('E'); 
odeplot(Q, [[E, P(t), color = blue]], E = 0 .. 4, numpoints = 100000, thickness = 2)

Error, (in plots/odeplot) curve is not fully specified in terms of the ODE solution, found additional unknowns {E}
following the output that I expected

attached: captive_breeding.mw

Hi,

I can use plot3d() command. But when I want to use contourplot() or densityplot() commands, Maple diaplays no plots.

Can you please guide me?

We put A = {1,2,3,4} and B is the set of lower cubes
to 100 of positive integers.Determine A ∪ B  A ∩ B , A ∩ {6,8} and A \ B 

Write the list of numbers of prime numbers that are less than 10000

As always, thank you all in advanced.

I found this challenge by chance.

solve 615+x^2=2^y over integers.

I rushed to Maple and tried to solve it  with “solve” and "assuming" but I did not get results.

solve(615+x^2=2^y) assuming x::integer,y::integer   did not work.

How could this equation be suitably formulated for Maple to solve it?
 

Hi,

i am trying to solve a differential equation numercially but since it is second degree,I can not achieve the proper answer.What should I do?

thank you
diff1.mw
 

Download diff1.mw

Download diff1.mw

Simple, but racking my brains, what is the formula for the sequence 2,3,4,6,8,9,10,12,14,15,16,18,...?

I have problem: Let  A(2,0,0), B(0,3,0), C(0,0,6) and D(1,1,1) be four points and Delta is the line passing through the point D so that sum of distances from the points A, B, C to Delta maximum. Find a direction vector of Delta.

I tried. Let v(a,b,c) where a^2 + b^2 + c^2 = 1 and my code
 

with(Student:-MultivariateCalculus):
with(Optimization):
A := [2, 0, 0]: 
B := [0, 3, 0]: 
C := [0, 0, 6]: 
DD := [1, 1, 1]: 
v := <a, b, c>: 
d := Line(DD, v): 
d1 := Distance(A, d): 
d2 := Distance(B, d): 
d3 := Distance(C, d): 
S := d1+d2+d3: 
Maximize(S, {a^2+b^2+c^2 = 1});

I didn't get the result. How to get the numbers a, b, c?

Hello,

Is it possible to expand vector calculus identities directly in Maple without taking them to basis form (i.e. their component partial derivatives).

For example: 

restart

with(Physics[Vectors]):

%Curl(u*%Gradient(v)) = u*%Curl(%Gradient(v)+`&x`(%Gradient(u), %Gradient(v)))

Given the Left Hand Side, can Maple come up with the RHS on its own?

Many Thanks.

Let (u (n)) be the sequence defined by u (n + 1) = 3.5u(n) (1 - u (n)) and u (0) = 0.4.
1. Create the sequence s whose elements are [k, u (k]) for k varying from 0 to 100.
2. Graph the list of points with the plot function and the style = point option.

1. Write the list of numbers that are the sum of two squares of integers a ^ 2 and b ^ 2 with 0 <= a, b <= 5.
2. Select the odd numbers from the previous list. What seems to be their general form