MaplePrimes Questions

with(DiscreteTransforms);
Digits := 600;
ss := 1:
windowlength := 50:
ma := []:
me := []:
counter1 := 1:
Z := Vector(windowlength, datatype = complex[8]);
Z5 := []:
for i from windowlength+ss to 1+ss by -1 do
eq2 := x:
eq2a := x*2:
god := solve(eq2a=y, t);
ma := [op(ma), evalf(subs(t=100, eq2a))]:
me := [op(me), 100]:
Z[counter1] := [Complex(evalf(subs(t=100, eq2a)),0)];
counter1 := counter1 + 1:
od:
Z2 := FourierTransform(Z);
Z5 := []:
for i from 1 to counter1 do
Z5 := [op(Z5),Re(Z2[i])]:
od:
p := dualaxisplot(listplot(Z, color = red), listplot(me, color = blue), style = line, gridlines = false):
p3 := dualaxisplot(listplot(ma, color = red), listplot(me, color = blue), style = line, gridlines = false):
> Z[counter1] := [Complex(evalf(subs(t = 100, eq2a)), 0)];
Error, unable to evaluate expression to hardware floats: [0.1395407376854069872222364799062994087470140319577366200576294159849633469734297167456440703192248821030980068084453175485138428545865904609881858312543669285411895851509107873579430804484462212873775830538595858575740816705029437533106045686220745333574567547827085763824574616984653193169818770743931611305635956093618789559193701301264280264321394773730076308141252308187470580964653518965117431518571850910086488220847415724949651796448259541027929735646487459091205173804995401770417274097230705447077344465381061736283732438996738107330437055827420813951050981604075837450139995544638...
> Complex(evalf(subs(t=100, eq2a));
Error, unable to match delimiters
Typesetting:-mambiguous(Complexlparevalf(subs(tequals100comma eq2a)),
  Typesetting:-merror("unable to match delimiters"))
> Complex(evalf(subs(t = 100, eq2a)), 0);
1.395407376854069872222364799062994087470140319577366200576294159849633469734\
  297167456440703192248821030980068084453175485138428545865904609881858312543\
  669285411895851509107873579430804484462212873775830538595858575740816705029\
  437533106045686220745333574567547827085763824574616984653193169818770743931\
  611305635956093618789559193701301264280264321394773730076308141252308187470\
  580964653518965117431518571850910086488220847415724949651796448259541027929\
  735646487459091205173804995401770417274097230705447077344465381061736283732\
                                                                               -571
  43899673810733043705582742081395105098160407583745013999554463814123790354 10   
   + 0. I

Who deleted www.mapleprimes.com/questions/228364-Graphics-Problem

and www.mapleprimes.com/posts/211539-Buggy-Lights

I thought I had alzheimers or something.  Who's deleting these posts and questions.  I realize they are similar but there is different information in there that was useful.  Why don't we delete all similar questions .. of course this would be horrible since some have slight differences - granted some don't have answers tagged on the end and are exact copies those are of course waranted and I would agree to be deleted becuase they were duplicates.

Please undelete those questions - there were referenses and extensive conversations in there that are not present in the saving question.

Hi everyone, I'm having a bit of trouble using the dsolve () command in maple, it keeps coming up with error messages.

My assignment is to find the first order differential equation of Tovn(t), and then I know that you have to define it and then dsolve the definition.

The problem is, that what am I doing wrong?

For example
input 3 lists

[1,2,3,4,5]
[0,5,2,3,7]
[7,5,2,3,2]
 

return [2,3],[5,2,3]

If I have a line on the form a*x+by+c = 0 which command do I use to rearrange it to y = m*x+b ?

Other than isolate

Many thanks in advance.

testing2.mw
 

restart

P := 10; -1; r := .5; -1; c := 1; -1; Rb := proc (alpha) options operator, arrow; (1/2)*P+(1/2)*c+(1/2)*alpha*cos(alpha) end proc; -1; plot(Rb, 0 .. (1/2)*Pi); -1; sys1 := {beta > 0, beta = cot(beta), beta < (1/2)*Pi}; -1; p := solve({beta > 0, beta = cot(beta), beta < (1/2)*Pi}, {beta})

"p:="

(1)

sys := {x^2 = 9, x+y < 10}; -1; m := solve({x^2 = 9, x+y < 10}, {x, y})

{x = 3, y < 7}, {x = -3, y < 13}

(2)

NULL

NULL

 

 

Greetings!

I'm triying to solve this system in Maple:

  beta = cot(beta),

  0 < beta < (1/2)*Pi

But when I execute this statement

  p := solve({beta = cot(beta), beta>0, beta<(1/2)*Pi}, {beta})

the value of p in NULL.  Maple doesn't show any errors. 

Edit: Example from the "solve" help article works as shown, that was my typo.

Could you please tell me, what am I doing wrong?

This is another problem I just found in Maple 2019.2 on windows 10. professional.

I wanted to close Maple, so did  File->Exit 

 

But Maple did nothing. It did not close.  Also Alt-F4 did not close Maple. I had to click on the little X on top right corner of the open window to close Maple.  

In earlier version this used to work to close Maple.

Do others see this as well?  To reproduce, simply start Maple, and do File->Exit.

Here is a movie also

 

I want to separate  the derivative and non-derivative (the part other than  derivative) terms from the following (shown in figure) equations by using maple commands or code. Kindly help me. Thanks in advance. 

 

This may be a bug.  In Maple 2019.0

plot3d(x^2+y^2)

Now grab the graphing window and drag to adjust it's size.  It doesn't adjust it's size until you let go of the mouse button.

Any with an idea on how to determine the Inflexition points on a discrete data set in Maple? I can only find stuff online on how to in Matlab, but not in Maple. 

Any suggestions on how to do it in Maple? 

 

 

You can graph Maple in 4 dimensions ... help...

 

Examples

...

If maple can auto discover derived equations, 

then most variable are unknown name which may or may not be physics variable.

so, how to guess which physics data suitable for these look like meaningless variable?

or these tools only visualize the relationship of existing known equations?

Please, I would really appreciate if anyone can help me to find the step by step solution for this equation:

I got the right answer by choosing Solve for X, but it did not come with step by step :/

 

8*x*e^(-3*x^2) - 24*x^3*e^(-3*x^2)

 

kind regards

Hello,

I have a problem using the NonlinearFit function from the Statistics package in Maple 2018.

I want to fit an exponential function which is non-linear in the parameters. The function in itself is working fine but i want to implement an extra condition on the parameters that are fitted. I already implemented the range of each parameter which is from 0 to 1, but I also want to implement the following condition:

a + b + c = 1.0
 

This is the code that i am using:

with(Statistics);
X := Vector([0, 100, 200, 300, 400, 500], datatype = float);
Y := Vector([0.2e-2, 0.5e-2, 0.7e-2, 0.75e-2, 0.77e-2, 0.8e-2], datatype = float);
nlfit := NonlinearFit(epsfunc, X, Y, t, parameterranges = [a = 0 .. 1, b = 0 .. 1, c = 0 .. 1], initialvalues = [a = .2, b = .2, c = .2], output = [parametervalues, leastsquaresfunction]);

 

It there a way to implement the additional condition that a+b+c=1.0?

 

Thanks!

Joa

 

 

Edit:

Epsfunc is the result of solving an ODE using dsolve:

the following code is used:

restart;

eq1 := x(t)+(t1+t2)*(diff(x(t), t))+t1*t2*(diff(x(t), t, t)) = (n1+n2)*(diff(eps(t), t))+(n1*t2+n2*t1)*(diff(eps(t), t, t));
tr := n1*n2*(E1+E2)/((n1+n2)*E1*E2);
x := proc (t) options operator, arrow, function_assign; x0 end proc;
solution := dsolve({eq1, eps(0) = x0/(E1+E2), (D(eps))(0) = x0*((n1/E1+n2/E2)/(n1+n2)-1/(E1+E2))/tr}, eps(t)); assign(solution);


E := 500;
E1 := a*E; E2 := b*E; t1 := 100; t2 := c*t1; n1 := E1*t1; n2 := E2*t2; x0 := 2;
epsfunc := eval(eps(t));
 

First 618 619 620 621 622 623 624 Last Page 620 of 2428