## Error, unterminated loop...

Hello,

How can write a code for determination of Laplacian in a new form is introduced in maple code (First line).

Thank you.

 >
 >
 >
 >
 >
 (1)
 >
 (2)
 >

## plot toroidal and bipolar...

How can plot two  and bipolar figures as attached and extract their data.

Thank You.

## Napoleon's problem, a wrong result...

with(LinearAlgebra):
assign(seq(U || i = `<,>`(x[i], y[i]), i = 1 .. 3));
U || 4 := U || 1; r := (1/6)*sqrt(3);
assign(seq(V || i = (U || i+U || (i+1))*(1/2)+(`<,>`(`<|>`(0, 1), `<|>`(-1, 0)) . (U || (i+1)-U || i))*r, i = 1 .. 3)); Norm(V || 3-V || 1, 2); is(Norm(V || 3-V || 1, 2) = Norm(V || 3-V || 2, 2)); is(Norm(V || 2-V || 1, 2) = Norm(V || 3-V || 2, 2));

## Strange Result from Solve...

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

## Inconsistently working if-statements within a proc...

Would anybody be able to explain to me why I had to rewrite this one baby-procedure that has an if-statement inside my larger procedure, so that I could get a later on if-statement to work? As best I can tell, they mean exactly the same thing.

Information that may be pertinent:

- The entire (overall) procedure worked without throwing any warnings prior to my adding this new if-statement.
- The if-statement itself worked perfectly fine on another worksheet, though I hadn't tested it inside a procedure.
- Commenting out the if-statement but retaining the interior commands led to the sheet compiling again, showing that it was in fact the presence of the if-statement causing the issue.
- When I commented out the offending baby-procedure that started throwing the warning, the sheet once again compiled.

if eval_size > 4 then Search(max(seq(eval_cont[i], i = 4 .. eval_size)), eval_cont); evals_pairlist := evals_pairlist[[1 .. 3, %]] fi:

The error I get, and its "positioning":

Error, invalid expression for inline function

## remove some errors...

Hello,

How I can remove some problems in my code.

I wrote it before in  software, but in some lines, I have some problems with it.

How I can change it in maple to run well?

 >
 >
 >
 >
 >
 >

## How can i solve "which is not valid for its 2nd ar...

Hi freind,

Anybody knows what happen to this coding?

why this error happens? how can i fix it?

thank you!

Thank you

 >
 >
 >

## determination of Laplacian in a new form...

Hello,

How I can write a code for the determination of Laplacian in a new form that is introduced in the maple code (First line).

Thank you.

FOR

Maple Worksheet - Error

Failed to load the worksheet //convert/FOR

## [Maplesoft] HELP!! Partition of an integer...

How to do the partition of integer?
If I input:
>Partition(10,2)
then output is:
>[[1, 9], [2, 8], [3, 7], [4, 6],[5,5]]
-------------------------------------------------
"10" is the number that I want to part,and "2" means that there are "two" number's sum = 10
Sorry my Engilsh is not good,but I really need help.
no other restriction!!

## How to exclude a range from a range?...

Hi everyone

Im new to MaplePrimes aswell as to Maple.

I have a task where i shoud plot the following shape (with a hole in the centre) using the plot3d function:

All i have accomplished in the last hours is the following file A1.0.mw:

As you can see i havent been able to get rid off the surface in the centre nor the spikes on the edge...

• In order to fix the issue regarding the centre I assume I have to exclude the range -2..2 from x, but havent been able to do so.
• Regarding the spikes on the edge Im honestly pretty much clueless why they appear in the first place.

After several hours of trying on my own, I really need your help please!

 > f := (x, y) -> ((((((x^2)+(y^2))^(1/2))-4))/(((((x^2)+(y^2))^(1/2))-2)*((((x^2)+(y^2))^(1/2))-6)))+15; plot3d(f, -6..6, -sqrt(-x^2+36) .. sqrt(-x^2+36), grid=[400,400], view=0..30);
 >

## How can I fix plot for system of Differential equa...

Please check this code and fix the error. And help me with the below two questions.

1- In the above image, I'm getting the error when I'm to plot my solutions.

2- How to get information from this system?

The values of x_1 and corresponding y_1 and so on and errors etc

Thanks!

## How can I fix "Error, (in dsolve/numeric/process_i...

>restart;
> ODEtools[declare]((S, L, B)(t), prime = t);
ODEtools[declare](S(t), L(t), B(t), prime = t)
> DE1 := diff(S(t), t) = -L*S*beta-`&mu;S`+mu;
d
DE1 := --- S(t) = -L S beta - &mu;S + mu
dt
> DE2 := diff(L(t), t) = L*S*beta-(gamma+mu)*S;
d
DE2 := --- L(t) = beta S L - (gamma + mu) S
dt
> DE3 := diff(B(t), t) = L*gamma-gamma*mu;
d
DE3 := --- B(t) = L gamma - gamma mu
dt
> init_conds := S(0) >= 0, L(0) >= 0, B(0) >= 0;
init_conds := 0 <= S(0), 0 <= L(0), 0 <= B(0)
> sys := {init_conds, diff(B(t), t) = L*gamma-gamma*mu, diff(L(t), t) = L*S*beta-(gamma+mu)*S, diff(S(t), t) = -L*S*beta-`&mu;S`+mu};

> sol := dsolve(sys, numeric, parameters = [mu, beta, gamma, S(t), L(t), B(t)], method = rkf45);

Error, (in dsolve/numeric/process_input) system must be entered as a set/list of expressions/equations

> sol(parameters = [mu = .234, beta = 2.345, gamma = 5.678, S(t) = 6.678, L(t) = 6.789, B(t) = 7.123]);
sol(parameters = [mu = 0.234, beta = 2.345, gamma = 5.678, S(t) = 6.678, L(t) = 6.789, B(t) = 7.123])

## Survivor probability question...

On CBS tv show Survivor S38E4, an interesting scenario arose. There was initially 2 teams comprising 6 persons (blue team) and 9 persons (yellow team). Then they decided to mix it up, and split it into 3 teams. Each player was randomly assigned a buff, (red, green or orange =3 colored buffs *5).= 3 teams of 5.

What was interesting was 5 out of the original 6 blue team are now in the new red team. 5 of the original yellow team are in the new green team and 4 of the original yellow team are in the new orange team.

What is the chances of that happening?
A couple of attempts:

survivor_rand.mw