## Solving simultaneous equations and forcing Maple t...

Hi,

I am trying to find p and q from this simultaneous equation as a function of system parameters. I do not know the parameters and I need an expression. But Maple simply just gives p=0 and q=0 as an answer

Eq1:=61*q*L__1^2*C*e*eta/(16*omega__n^2)+5*q*L__1^2*C*e^3*eta^3/(8*omega__n^4)+3*C*p^3*gamma__1*(1/4)+3*q*C*p^2*R__n/(4*omega__n)+q*L__1^2*C*e^4*eta^4/(16*omega__n^5)+145*q*L__1^2*C/(64*omega__n)+3*q^3*C*R__n/(4*omega__n)+3*p*C*q^2*gamma__1*(1/4)+q*R*C/(4*omega__n)+19*q*L__1^2*C*e^2*eta^2/(8*omega__n^3):
Eq2:=-3*C*p^3*R__n/(4*omega__n)-3*p*C*q^2*R__n/(4*omega__n)-p*L__1^2*C*e^4*eta^4/(16*omega__n^5)-5*p*L__1^2*C*e^3*eta^3/(8*omega__n^4)-19*p*L__1^2*C*e^2*eta^2/(8*omega__n^3)-61*p*L__1^2*C*e*eta/(16*omega__n^2)-145*p*L__1^2*C/(64*omega__n)-p*R*C/(4*omega__n)+3*q*C*p^2*gamma__1*(1/4)+3*q^3*C*gamma__1*(1/4):
sys := { Eq1 , Eq2 };solve( sys, {p,q} );


Is there any way to help Maple to try other conditions, I know the only solution should not be just p=0 and q=0.

Thanks,

Baharm31

## Unapply versus arrow operator...

Hi,

I do not really understand the difference between annrow operator and unapply.
From the help pages it seems that unapply "creates" an arrow operator and thus that they could be two different ways to do the same thing.

restart:

f := x[1]+y[1]:

a := indets(f):                  # just because f can be more complex than the f above
g := (op(a)) -> f;              # generates an error, "operators not of a symbol type"
h := unapply(f, (op(a)))   # ok, but with a strange output
h := (x__1, y__1) -> x__1+y__1

So it seems that Maple has transform by itself the indexed x[1] and y[1] into symbols x__1 and y__1.

Could you explain me what happened exactly ?

TIA

## How to tell Maple to give the highest order of der...

Assume we have an expression in several variables, x,y,z,..., where all of them are function of one parameter, t, for an example consider the following simple expression;

try2.mw

## use factor or using rule for simplify...

How I can simplify result? For factor or using rule.

Thanks

## Problem changing signature in Physics package...

Hello,

I am trying to work with the Physics package to calculate Christoffel symbols. I have just started using Maple today and am coming up against a few hurdles.

I want to change the signature of the metric from (+---) to (-+++). I am typing the following in math mode:

Setup( signature = '-+++')

However, this is returning the following error:

"Error, invalid sum/difference" with my command rewritten within a red box together with the last '+" within another red box. Can you please help me out with this?

Thank you.

## 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?

 >
 >
 >
 >
 >
 >

 1 2 3 4 5 6 7 Last Page 3 of 38
﻿