dharr

Dr. David Harrington

9012 Reputation

22 Badges

21 years, 189 days
University of Victoria
Professor or university staff
Victoria, British Columbia, Canada

Social Networks and Content at Maplesoft.com

Maple Application Center
I am a retired professor of chemistry at the University of Victoria, BC, Canada. My research areas are electrochemistry and surface science. I have been a user of Maple since about 1990.

MaplePrimes Activity


These are replies submitted by dharr

@wingho In your listprocedure method, you don't need the psol(0.0001, 0.1); step.

The method I used is the default procedurelist method. The attached does both of them, through to extracting the u(x,t) values. They are both documented on the help page ?pdsolve,numeric

value.mw

@nm So a workaround for your version would be to use coulditbe

restart;
assume(_Z1,integer);
coulditbe(-Pi*_Z1+Pi=0);

gives true

@Alfred_F As I said, I don't have any problem with your solution, but the question is about what odetest does with the ic. You didn't do odetest(sol, [ode, ic], y(x)) - what does that give in Maple 2024?

@nm So that is different from 2025.2, see worksheet above.

@Alfred_F Yes, but the question is about why the OP got  [0, -Pi*_Z6 + Pi] and not [0,0]. My point is that the OP presumably got that from odetest, though they do not explicitly say that, and I can't replicate what they did.

For your solution, odetest(sol, [ode, ic], y(x)) also gives [0,undefined]. 

My Maple 2025.2 gives [0,undefined]. Still doesn't help you...

odetest.mw

@salim-barzani Here's how to get Paper 2; the same method doesn't seem to work for Paper 3 even though the transformation is the same. I don't understand the prolongation because the notation is significantly different from Maple's; in any case you don't need it because Maple does all the hard work.

Download Lie.mw

@janhardo I like the adjacency matrix approaches for their elegance, but in general other methods such as those based on depth-first search are more efficient. I'm guessing I developed this for this answer but eventually abandoned it in favour of DFS. 

@janhardo Yes, my procedure is definitely overkill for this, but I already had the code around.

As you already see in your 37 vertices case, the lines are too dense to see anything; for 50 it is mostly black. But even for smaller numbers of vertices what do you mean by animation? Just drawing frames of complete graphs with different numbers of vertices would mean the vertices jump around for every frame, which would not make a smooth animation. But perhaps you mean something else? 

@tedh I read the Python help page at some point and tried out the EvalString etc commands and decided that was awkward. I think I much later found how the code edit regions worked by randomly pasting some python code in, thinking "it's got to be easier than that". So I think Maplesoft has done a poor job of advertising how easy this is. Bottom line, the answer to your question is that I don't think there is much more to tell you other than what I already told you. Just paste Python code into a code edit region and it works.

There was a talk on using Jupyter notebooks with Maple at a Maple conference (2024?), which will be on YouTube somewhere.

@salim-barzani 

restart

For Eq 12 in new paper, taking - in "+/- ". The missing multiplication was interpreted as function calls.

u := (sqrt(-s/(2*(p^2-q^2)))*(a*x^alpha/alpha-b*t^beta/beta+nu))^(-1)

1/((-s/(2*p^2-2*q^2))^(1/2)*(a*x^alpha/alpha-b*t^beta/beta+nu))

U := (1/2)*(Int(u^2, x = -infinity .. infinity)); value(%)

(1/2)*(Int(-(2*p^2-2*q^2)/(s*(a*x^alpha/alpha-b*t^beta/beta+nu)^2), x = -infinity .. infinity))

(1/2)*(int(-(2*p^2-2*q^2)/(s*(a*x^alpha/alpha-b*t^beta/beta+nu)^2), x = -infinity .. infinity))

params := {a = 1, alpha = 1/2, beta = 1/2, nu = 1, p = 2, q = 1, s = 1, t = 1}

{a = 1, alpha = 1/2, beta = 1/2, nu = 1, p = 2, q = 1, s = 1, t = 1}

Derivative wrt b.
As before, the denominator goes to zero in the integration range (at x=1/4 for these parameter values). And the integrand is complex for negative x, so this set of parameters appears to be poorly chosen.

dU := simplify(diff(U, b)); eval(dU, `union`(params, {b = 1})); value(%)

2*(Int((p^2-q^2)*alpha^3*beta^2*t^beta/(s*(b*t^beta*alpha-a*x^alpha*beta-nu*alpha*beta)^3), x = -infinity .. infinity))

2*(Int((3/32)/(1/4-(1/2)*x^(1/2))^3, x = -infinity .. infinity))

undefined

``

Download T2.mw

@Roy Hughes This works in the latest version of Maple. If this is not working for you, please upload your worksheet.

Download laplace.mw

@Roy Hughes Sometimes Maple can be session dependent, and sometimes repeated calculations can give different results, but I doubt it is as simple as sometimes trying "assuming positive".

One possibility is to do a dimensional analysis as I did for you before. In this case (Q_shorten_2.mw) the analysis doesn't lead to much simplification. It says only that you can define the combination g*i2 into G by eval(..., i2=G/g) then after simplification you will have 27 variables instead of 28. It only considers combining products and quotients into simpler variables, not sums or products; I don't know a way of recognizing these.

As @sand15 says, you need to tackle this problem at a much earlier stage when you are formulating your problem. Perhaps there was a matrix formulation that was much simpler.

I have been working on a problem that, after nondimensionalization, has 10 parameters and 4 variables, but all methods have led to overnight runs that either crash Maple or run into a memory allocation error. So 27 variables is also likely impossible.

1 2 3 4 5 6 7 Last Page 1 of 97