MaplePrimes Questions



Hello there,

Im running a fairly big algorithmn with a lot of loops , the memory counter is showing 237.89M and its been running for a long time.

The memory usage has been constant for the last 40min, the time counter still going, and the status bar says 'evaluating'

Is the maple still running fine or has maple's or my computer's limit been reached?

task manager is showing a memory usage of 40% and CPU 12%

 

I want to use leibniz rule to differentiate the following Integral with variable domain:
A :=(t,x) -> int(Yt^2, x = 0 .. zeta);
Yt and zeta are defined as:
alias(zeta=zeta(t));
Yt:=(t,x)->diff(y(t,x),t);
When I want maple to derive D[1](A(t,x)), its answer is:
2*D[1](Yt)*Yt*Zeta+Yt^2*D[1](Zeta)
Although it uses Leibniz rule correctly, it dose not take Yt as a function of x by mistake. 2*D[1](Yt)*Yt*Zeta should had been derived as int(2*D[1](Yt)*Yt,x=0..zeta).

How can we draw a sequence of segments with a list data of column vector? Thanks

In Arfken(Mathematical methods for physicists,5-th edition,page 483),the asymptotic form of the Hankel function is approximated as

H1(t,s)=

sqrt(2/(Pi*s))*exp(I*(s-t*(Pi/2)-Pi/4))

Is there any simple/direct way in Maple(using HankelH1(),or otherwise) to achieve this?I don't want to assign numerical values to t or s.

I'm using Maple 15.  It seems to me this worked in some previous version...

Consider the Lambert W function, y=LambertW(0,x) ... I want Maple to tell me the asymptotics for it,

something like this:

log(x)-log(log(x))+log(log(x))/log(x)

But I don't get that now.  Is my memory faulty that I got it in the past?

Maple 15:

  asympt(LambertW(0,x),x);

asympt(LambertW(0,x),x)

not very useful...

series(LambertW(0,x),x=infinity);

LambertW(0,x)


with(MultiSeries):
series(LambertW(0,x),x=infinity);

LambertW(0,x) 

GDQM2.mw

Hi everyone,

I am facing a very complicated system of nonlinear equation. This cannot be solve by using normal fsolve in Maple. Anyone can help me?

Thanks a lot

Dear all,

The results I get from calcultion are usually not in compact forms, so I want to do some simplifying work. And I come up with some questions.

If I write the following expression, the factor command works:
> beta[c]^3/exp(I*omega[c]*tau)-beta[c]^2/(exp(I*omega[c]*tau))^2-2*beta[c]^2+2*beta[c]/exp(I*omega[c]*tau)+beta[c]*exp(I*omega[c]*tau)-1;
> factor(%);
   
However,when I write the above expressoin as following,  factor doesn't work

Hello everybody,

I would like to assign 349 different variable not already existing (w[i], i from 1 to 349) to 349 expressions from a list. Unfortunately I do not know how to write it. When I try anything like a:=w[33]->listevnouveau[33], it does not work.

With this a, I want to solve this : solve(listedd[33]*w[33]=a,w[33]); which is only possible by assigning variable to the expression.

Regard, Charbo

Is there a direct command to give the (first) index in a list,
for which the entry coincides with some given value (without
coding a loop, to run through the list)?

---

PS: when I enter that question I automatically get an info,
that similar questions exists. But clicking on those links do
not give usefull infos, they just lead to a page of old threads
(Page 529 of 569 for the first link ...)

Hi all

I am trying to draw a 3d plot from the data that I have created in excel, how do I import from excel to maple and then draw the 3d plot using array?

 

below is the link to my dataset in excel

 

Book1.xls

 

your help is appreciated

What Should I do to get the correct result-which is obviously not something like my answer. 
> assume(a::(AndProp(NonZero, constant, real)));
> about(a);
Originally a, renamed a~:
is assumed to be: AndProp(real,constant,Non(0))

> is(a, constant);
true
> is(a = 0);
false
> is(a^2 > 0);
true
> assume(p::real, 0 < p and p < infinity...

How I can say that an object,say k, is a constant(it may be positive or negative) inside assume()?

assume(k::??should I say)

pls also tell me what kind of help pages I should see for this kind of "type inside assume()" problems. 

Thanks.

I'm working on a mecanic's problem and I need to solve a differential equation:

I want to determine x(t) and plot it... 

This is the way I do it: 

with(Physics):with(combinat):
comn := choose([u, v, mu, nu], 2):


def := seq(seq(seq(Physics[`.`](Dagger(Ket(aa, k)), Ket(bb, m)) = Physics[`.`](Ket(bb, m), Dagger(Ket(aa, k))), `in`(aa, comn[i][1])), `in`(bb, comn[i][2])), i = 1 .. nops(comn)), seq(seq(seq(Dagger(Physics[`.`](Dagger(Ket(aa, k)), Ket(bb, m)) = Physics[`.`](Ket(bb, m), Dagger(Ket(aa, k)))), `in`(aa, comn[i][1])), `in`(bb, comn[i][2])), i = 1 .. nops(comn));
Setup(def):

d1 := Physics[`.`...

First 1864 1865 1866 1867 1868 1869 1870 Last Page 1866 of 2434