Axel Vogt

5408 Reputation

20 Badges

17 years, 230 days
Munich, Germany

MaplePrimes Activity

These are answers submitted by Axel Vogt

Passing to numerators it becomes a polynomial system (check solutions against denominators later), use exact coefficients.

One can eliminate beta.

Then one has to solve a polynomial in delta, degree = 85 and coefficients of magnitude ~ 10^150.

From that one gets the beta values as a rational function of delta (coefficients also of high magnitude).

I have not carried it out in detail.

You may use [Re(g2), Im(g2)]; plot(%);

Your integrand has a singularity log(E)/sqrt(E) in 0, but you can start in E=1. Note that J:=Int(K, E=1 .. t) is / can be seen as a specific indefinite integral ("they all differ just by a constant"), which is 0 in t=0. So you can do the following:

# S = int(..., E) in the worksheet
#series(K, E=0, 2) assuming 0 < E;

Int(K, E=1 .. t);
plot(%, t = 1 .. 10000);

J := -(exp(-a*s)-1)*kw/((exp(-a*s)+1)*s^2);
convert(J, trig): convert(%, tanh):
simplify(%): convert(%, tanh);

You may export as RTF (Word can read that) or as HTML (and pick the images from the according directory)

"If the file is being opened for writing and does not exist (and is not already open), it is created, if possible; otherwise, fopen generates an error.  If the file does exist (and is not already open), it is truncated. Writing starts at the beginning of the file if WRITE was specified, and at the end of the existing file if APPEND was specified."

Then you can use iostatus(), for example.

In my ancient times of coding at least a check for existence was done (and available handles), though I do not expect Maple to provide all the stuff for a coding laguage.


f:= x ->
  evalf( Int('t -> Re(exp(LambertW(1/(-1+t))*(-1+t)))', 1 .. x, method=_d01ajc) )
 +evalf( Int('t -> Im(exp(LambertW(1/(-1+t))*(-1+t)))', 1 .. x, method=_d01ajc) )*I:

g:= (-1)/f+1;

[Re@g, Im@g]:
plot(%, 0 .. 2, -10 .. 10, color=[red,blue, grey]);








It is a convention what 0^0 should mean and Maple treats it as follows:

`0^0`: %= parse(%);

                               0^0 = 1
`0^r`: %= parse(%);

                               0^r = 0
`0^1`: %= parse(%);

                               0^1 = 0
`0^(-1)`: %= parse(%);

   Error, numeric exception: division by zero

Actually you expect your result to be 11 * `0^0` = 11.

You can however use your own powering:

pow:= (t,n) -> piecewise( t=0 and n=0, 1, t^n);

m:=2; # or your m=10

Sum(f(x,j)*(m-j+1), j=0..m); # or your original double sum
subs(f=pow, %);

                          )   f(0, j) (3 - j)
                        j = 0

                   3 f(0, 0) + 2 f(0, 1) + f(0, 2)

                3 pow(0, 0) + 2 pow(0, 1) + pow(0, 2)



Int(sin(phi)*sin(-arctan((p*cos(phi)+Z)/sqrt((p*sin(phi))^2+r^2)))*hypergeom([5/2, 3/2], [5/2], sin(-arctan((p*cos(phi)+Z)/sqrt((p*sin(phi))^2+r^2)))^2)/((p*sin(phi))^2+r)^2, p = -1 .. 1);
tmp:=subs(phi=Pi/6, %); # = your function, evaluated
plot(op(tmp)); # "visually" correct


   -32*3^(1/2)*(Int(p*(p^2+25)/((p^2+100)^(3/2)*(p^2+20)^2), p = -1 .. 1))

Now just argue by symmetry in zero.




Use fsolve( ..., complex)

As far as I can see you have a set of 36 quadratic equations. It is very likely that there is more than 1 solution (and it is not clear at all why those [complex ?] solutions are discrete). It is also possible that there is NO solution (avoiding "evalf" seems to indicate that).

PS: you can avoid the lengthy display by just uploading you sheet or a pdf of it.

rsolve({a(n) = 2*a(n-1) + 4*a(n-2), a(0)=1, a(1)=2}, a(k));

Your integrand has a singularity in 0.161144379880543e-3, so you can not use numerical integration directly. However the integral exists as Cauchy Principal Value (if it is what you want):

  l = l0 .. b, CPV))/alpha0);



where b is your upper bound 12.1*10^(-3)

For me it is a bit difficult to understand your task and quite personal notations (and you upload is not the same if I execute your sheet, try to use Maple sheets with a restart at the beginning).

May be you want the following


'Int(exp(-beta^2/T)* tmp6 /sqrt(Pi*T), beta = 0 .. infinity)';

value(%) assuming 0 < T:
                     1    /1  (1/2)   \   1
                     - erf|- 2      d6| + -
                     4    \2          /   4


I convert to rational and 'optimize' the computation - usually Maple should care for rounding issues (checking in details may be difficult) - and get 0.29531564 quickly.

If you are interested in more than just this specific value it may be worth to go such a route (else it would not matter that much if a programm needs 1 sec or 1 h).

Perhaps you re-state your (original) task so the structure can be seen - which can rarely done having the code alone.




simplify(ii_inf)  assuming 1/2<s,s<1;
MultiSeries:-asympt(%,x,1) assuming 1/2<s,s<1;


4 5 6 7 8 9 10 Last Page 6 of 89