C_R

3427 Reputation

21 Badges

5 years, 325 days

MaplePrimes Activity


These are replies submitted by C_R

@acer  Thank you for your very detailed answer!

I have attached an example how I would use your solution 1). The input is hidden.

In case someone from MapleSoft reads this: Please take the attachment as a suggestion to improve Maple in the field of

- professional looking documents

- integration (computing the inverse with fsolve, simplifying integrals to expressions containing Maple functions)

From the following expression x__0 as a function of alpha has to be derived

2*sqrt(alpha) = int(1/sqrt(sin(x__0)-sin(x)), x = 0 .. x__0)

2*alpha^(1/2) = int(1/(sin(x__0)-sin(x))^(1/2), x = 0 .. x__0)

(1)

Using fsolve on the expression required manipulation of the precision the integral is evaluated to. However knowing
from @Christian Wolinski that

EF := 2*EllipticF(sqrt(sin(x__0))/sqrt(sin(x__0)+1), I*sqrt(-sin(x__0)^2+1)/(-1+sin(x__0)))/sqrt(1-sin(x__0))

p := proc (A, B, C) Typesetting:-mrow(Typesetting:-Typeset(A), Typesetting:-mo("="), Typesetting:-Typeset(B), Typesetting:-mo("="), Typesetting:-Typeset(C)) end proc

ff := p(lhs(2*alpha^(1/2) = int(1/(sin(x__0)-sin(x))^(1/2), x = 0 .. x__0)), rhs(2*alpha^(1/2) = int(1/(sin(x__0)-sin(x))^(1/2), x = 0 .. x__0)), EF); ff

2*sqrt(alpha) = int(1/sqrt(sin(x__0)-sin(x)), x = 0 .. x__0) and int(1/sqrt(sin(x__0)-sin(x)), x = 0 .. x__0) = 2*EllipticF(sqrt(sin(x__0))/sqrt(sin(x__0)+1), I*sqrt(-sin(x__0)^2+1)/(-1+sin(x__0)))/sqrt(1-sin(x__0))

(2)

we can plot the inverse using the expression on the righthandside of (2) instead of the integral

g := proc (alpha) options operator, arrow; fsolve(lhs(2*alpha^(1/2) = int(1/(sin(x__0)-sin(x))^(1/2), x = 0 .. x__0)) = EF, x__0 = 0 .. (1/2)*Pi) end proc

plot(g, 0 .. (1/2)*Pi, labels = [alpha, x__0])

 

The big question now remains: How we can force Maple to convert/simplify the integral to an expression that contains functions known by Maple?

NULL

Download inverse_function_with_fsolve_with_EllipticF.mw

@Christian Wolinski Thank you! Where did you get the expressions from? I was acutally expecting Maple to return such expressions.
I am interested, since I work in the meatime with the square of the expression (see my second attachment above). I guess that simliar expressions can be obtained.

Update: The simple formulas work much better. No reduced prescsision is required.

I pasted you code in my version and it worked.

Which version are you using?

I finally had to implement both proposals from @mmcdara and @acer. Calculating expressions containing elliptic integrals and their inverse seems to challenge sophisticated high-level commands like fsolve or plot. I guess that the default convergence criteria are simply set too high in this instance.  

On the other hand, Maple was able to integrate expressions containing a potential division by zero without limiting the precision of the integration or the integration range by a small fraction. Thumbs up for Maple.

My problem stemmed from a rather simple looking BVP containing an ODE that is similar to the simple nonlinear pendulum.

Those who are interested can find details in the attachment how this problem can be solved analytically and where I stopped calculating the inverse with fsolve.

Recalc_of_Belendez_et_al.mw

 

@acer I was looking for such an option within fsolve. Thank you!

@mmcdara I read in a paper that such problems are "easily" solveable in other Math packages. However they did not give more than a hint: use of numerical integration.  They probably  did soemthing simliar to acers solution.

@Carl Love Thanks for clarifing.
Further bellow in the worksheet there is the statement "Solve 2nd order ODE for phi(phi)". Should this be u(phi) then?

@Anthrazit If you can reproduce it: Do you see a dependence when you change the dpi settings (e.g. changing the monitor)?

I am asking because I have rendering issues when I switch monitors. It could be Windows related and may depend on compatibility settings of the program.

It seems that this test case is very challenging since the analytical solution oscillates and loops back to zero. 

A force applied at the free end of the beam instead of a momentum is probably more forgiving. Loops are not possible, and the leaver arm decreases with the deflection. Unless for this new test case someone can come up with analytical or PDE solutions, verified FEM code (which I do not have access to) could be used to confirm this guess.  

For planar models: Modifying the default settings of the flexible beam compoent in the example by setting the elastic coordinate in z direction to zero will speed up the calculation (about a factor of 10 in the example with the segmented beam). This will half the number of generalized coordinates the solver has to deal with. 

Likewise, increasing the elastic coordinates will increase the number of generalized coordinates.  

@vv Works. Thank you!

@Rouben Rostamian  

Thank you for the code. It’s very instructive and much leaner than I did expect.

Could you check this code line?

Disk := plot3d(0, r=0..R, t=0..2*Pi, coords=z_cylindrical, color=col0):

With Maple 2021 I get an error message.

Error, (in plot3d) cannot convert to coordinate system: z_cylindrical

@acer is not so bad at all.

Thank you!

of a currently opened help page.

Such a string could than be pasted, for example, in the target field of the Hyperlink properties dialogue.

I had hoped that in the new release this feature would also be available for visualitsation components of MapleSim standard libraray.

I hope that visualization of rotation of spheres, cylinders and disks will be possible one day. If possible in combination with the new and very useful scaling feature.

First 63 64 65 66 67 Page 65 of 67