Hello,
Can i un a maple program in console mode (example, cmd of MS-DOS), by command line?. I ask this, beacause it would take a lot less time to execute.

Regards

Hi every body:

I have to obtain A_max where is the maximum value of the f(t) function at steady state but at first i don't know steady sate what's the mean and the second i don't know how to obtain it with maple. help me plz. tnx. 

f:=(t)->A*sin(x*t)

A := -6000.*x^3*((5.925123867*10^87*I)*x+5.830850605*10^88*x^2+1.752916719*10^90)/((4.241561702*10^89*I)*x^4-2.669934485*10^90*x^5-(3.812926555*10^90*I)*x^2+7.038145625*10^91*x^3+3.174301659*10^89*I-8.376628660*10^90*x)

Sin.mw

I am looking for advice as to avoiding or identifying what may elude to the cause of the error "Error, (in simplify/do) invalid simplification command" in circumstances where i have simply enclosed an expression with simplify(expression), and in most cases an error is not returned.

Thankyou in advance

Dear Maple users

I have been investigating the one-dimensional Wave Equation for the vibrating string with fixed endpoints. Before trying to use Maple for a solution, I surfed on Google and stumbled upon a solution given in a GeoGebra animation:

https://www.geogebra.org/m/eKkFV8uz

I succeded in making a similar animation in Maple. See the attached Maple file: The last line is out-commented in order for the file not to be too big (saving many frames...). Remove the # and recalculate, select the animation object and eventually resize it. Then hit the Play Button in the Toolbar. It should work very much like the animation above. 

Now my question: I assume the numerical solution is solved using the Finite Difference Scheme in the background? How do I receive the numerical data, which lies behind the animation? Is it possible to evaluate the solution at specific (x,t) points?

I am quite impressed that GeoGebra can solve this PDE, by the way!

Regards,

Erik

Wave_Equation_-_vibrating_string2.mw

How to 'Test Relation' the Euler Product formula in Maple?

Euler product formula in Maple:

I often do "Test -> Relation" from the right-click context menu in Maple to verify equations as I enter them.

When I do that for the above Euler Product "formula", it says it is false.  I know it is because I need to further add that s > 1.

 However, I am not sure how to enter the further constraint that s must be greater than 1 (s > 1) so that Maple recognizes that before Testing the Ralation of the Euler Product equation I entered.  What is the syntax for entering that further constraint of s > 1?

Dear Users!

I want to simple the Gamma function occures in a matrix. I need the simpliest form of this matrix. If there is some thing common in all entries take it common. Thanks

Matrix(6, 6, {(1, 1) = 2*GAMMA(alpha+5/2)*Pi^(1/4)*sqrt(GAMMA(alpha+1)*GAMMA(alpha+1/2)^3)/(alpha*(2*alpha+3)*(1+2*alpha)*GAMMA(alpha)*GAMMA(alpha+1/2)^2), (1, 2) = 0, (1, 3) = 0, (1, 4) = 0, (1, 5) = 0, (1, 6) = 0, (2, 1) = (1/2)*GAMMA(alpha+5/2)*Pi^(1/4)*sqrt(GAMMA(alpha+1)*GAMMA(alpha+1/2)^3)/(alpha*(2*alpha+3)*(1+2*alpha)*GAMMA(alpha)*GAMMA(alpha+1/2)^2), (2, 2) = (1/4)*GAMMA(alpha+5/2)*sqrt(2)*sqrt(GAMMA(alpha+1/2)^3*alpha^3*(alpha+1)^3*GAMMA(alpha)^3)*Pi^(1/4)/((2*alpha+3)*(1+2*alpha)*GAMMA(alpha+1/2)^2*alpha^2*(alpha+1)^2*GAMMA(alpha)^2), (2, 3) = 0, (2, 4) = 0, (2, 5) = 0, (2, 6) = 0, (3, 1) = (1/16)*GAMMA(alpha+5/2)*Pi^(1/4)*sqrt(GAMMA(alpha+1)*GAMMA(alpha+1/2)^3)/(GAMMA(alpha+1/2)^2*alpha*(alpha+1)*(1+2*alpha)*GAMMA(alpha)), (3, 2) = (1/8)*GAMMA(alpha+5/2)*sqrt(2)*sqrt(GAMMA(alpha+1/2)^3*alpha^3*(alpha+1)^3*GAMMA(alpha)^3)*Pi^(1/4)/((2*alpha+3)*(1+2*alpha)*GAMMA(alpha+1/2)^2*alpha^2*(alpha+1)^2*GAMMA(alpha)^2), (3, 3) = (1/32)*GAMMA(alpha+5/2)*sqrt(2)*sqrt(alpha^3*GAMMA(alpha+3/2)^3*(2+alpha)^3*GAMMA(alpha)^3)*Pi^(1/4)/((alpha+1)*(2*alpha+3)*alpha^2*GAMMA(alpha+3/2)^2*(2+alpha)^2*GAMMA(alpha)^2), (3, 4) = 0, (3, 5) = 0, (3, 6) = 0, (4, 1) = 0, (4, 2) = 0, (4, 3) = 0, (4, 4) = 2*GAMMA(alpha+5/2)*Pi^(1/4)*sqrt(GAMMA(alpha+1)*GAMMA(alpha+1/2)^3)/(alpha*(2*alpha+3)*(1+2*alpha)*GAMMA(alpha)*GAMMA(alpha+1/2)^2), (4, 5) = 0, (4, 6) = 0, (5, 1) = 0, (5, 2) = 0, (5, 3) = 0, (5, 4) = (3/2)*GAMMA(alpha+5/2)*Pi^(1/4)*sqrt(GAMMA(alpha+1)*GAMMA(alpha+1/2)^3)/(alpha*(2*alpha+3)*(1+2*alpha)*GAMMA(alpha)*GAMMA(alpha+1/2)^2), (5, 5) = (1/4)*GAMMA(alpha+5/2)*sqrt(2)*sqrt(GAMMA(alpha+1/2)^3*alpha^3*(alpha+1)^3*GAMMA(alpha)^3)*Pi^(1/4)/((2*alpha+3)*(1+2*alpha)*GAMMA(alpha+1/2)^2*alpha^2*(alpha+1)^2*GAMMA(alpha)^2), (5, 6) = 0, (6, 1) = 0, (6, 2) = 0, (6, 3) = 0, (6, 4) = (1/16)*(18*alpha+19)*GAMMA(alpha+5/2)*Pi^(1/4)*sqrt(GAMMA(alpha+1)*GAMMA(alpha+1/2)^3)/(alpha*(alpha+1)*(2*alpha+3)*(1+2*alpha)*GAMMA(alpha)*GAMMA(alpha+1/2)^2), (6, 5) = (3/8)*GAMMA(alpha+5/2)*sqrt(2)*sqrt(GAMMA(alpha+1/2)^3*alpha^3*(alpha+1)^3*GAMMA(alpha)^3)*Pi^(1/4)/((2*alpha+3)*(1+2*alpha)*GAMMA(alpha+1/2)^2*alpha^2*(alpha+1)^2*GAMMA(alpha)^2), (6, 6) = (1/32)*GAMMA(alpha+5/2)*sqrt(2)*sqrt(alpha^3*GAMMA(alpha+3/2)^3*(2+alpha)^3*GAMMA(alpha)^3)*Pi^(1/4)/((alpha+1)*(2*alpha+3)*alpha^2*GAMMA(alpha+3/2)^2*(2+alpha)^2*GAMMA(alpha)^2)})

Invalid arguments error message in the program below.  Advice please on why this is not working.
 

Download solve_equation.mws

Can the procedure called Faul be made more efficient/faster? It is very slow for generating large polynomials.

Download Faulhauber_Polynomials.mw

how to find the closed form solution from the given expression in maple?

u = 140-(1/239500800)*x*t^12+(1/479001600)*x^2*t^12-119*t+40*x-(1/4435200)*t^11-(1/19958400)*x*t^11+(1/39916800)*x^2*t^11-(5/72576)*t^9-(1/60480)*x*t^9+(1/120960)*x^2*t^9+(1/2016)*t^8+(1/10080)*x*t^8-(1/20160)*x^2*t^8-(23/2520)*t^7-(1/420)*x*t^7+(1/840)*x^2*t^7+(23/360)*t^6-(1/144)*x^2*t^6+(1/72)*x*t^6-(7/12)*t^5+(1/12)*x^2*t^5-(1/6)*x*t^5+(19/6)*t^4-(3/8)*x^2*t^4+(3/4)*x*t^4-(95/6)*t^3+(5/2)*x^2*t^3-5*x*t^3+54*t^2-7*x^2*t^2+14*x*t^2+21*x^2*t-42*x*t-42*exp(-t)*x+21*exp(-t)*x^2-21*exp(-t)*t-(1/39916800)*t^12-140*exp(-t)-20*x^2

Ah yep so i have been trying to arrange this so that it returns the number of iterations required to reach a single digit value but like everything i do this week completely useless 

Sorry EDIT its ok i got it old_garbage_2015002.mw

Download old_garbage_2015.mw

I have a problem with this question; I have to calculate the 1536 hexadecimal digit of pi and the next 5 digits with a spigot algorithm. My difficulty is to build a procedure in Maple; on the theoretical level i'm clearheaded. here there is a pdf file that explains this procedure

bbp-alg.pdf

Lett_Y_morphing.mws

I am trying to change (morph) the capital letter Yinto the shape of an American football goalpost -which has a sigle post , and the top part looks like the top part of the letter H.  The attached program is attempting to morph just three points - two of which, A, and D stay the same and the middle point Mo is meant to change from being on the line AD, to progressively change to be part of a right angle triangle.  Eventually I want to use more points - but am making heavy weather of this.  Any helpwould be appreciated. 

Good day Sirs;

     Please, anyone with informations on the error "Error, (in dsolve/numeric/bvp/convertsys) unable to convert to an explicit first-order system". I can't understand what it means.

     Attached below is the code.

    Thank you in advance.

New.mw

Hi everybody:

How can I solve this equation? the type of method(numeric or ...) isn't important. tnx

A := 1.66123496405779610264482465216*10^48*x^12*exp(-(3.87000237787905620615465263885*I)*Pi/x)*exp(-(.321534474251124888739020720131*I)*Pi/x)+2.11374922567922298689120113111*10^50*x^12*exp(-(3.87000237787905620615465263885*I)*Pi/x)/(exp((.160767237125562444369510360066*I)*Pi/x))^2+7.16344924069934889468886048304*10^50*x^12*exp(-(.321534474251124888739020720131*I)*Pi/x)/(exp((1.93500118893952810307732631942*I)*Pi/x))^2+9.11474632627216348403905833199*10^52*x^12/((exp((1.93500118893952810307732631942*I)*Pi/x))^2*(exp((.160767237125562444369510360066*I)*Pi/x))^2)-3.86425849708968323906554386738*10^50*x^10*exp(-(3.87000237787905620615465263885*I)*Pi/x)*exp(-(.321534474251124888739020720131*I)*Pi/x)-9.49728635677626263805870840780*10^51*x^10*exp(-(.321534474251124888739020720131*I)*Pi/x)/(exp((1.93500118893952810307732631942*I)*Pi/x))^2-4.63662778304304619471230112279*10^52*x^10*exp(-(3.87000237787905620615465263885*I)*Pi/x)/(exp((.160767237125562444369510360066*I)*Pi/x))^2+4.83122406362728749484124839315*10^51*x^8*exp(-(3.87000237787905620615465263885*I)*Pi/x)*exp(-(.321534474251124888739020720131*I)*Pi/x)=0

EQ.mw