Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I probably worked too hard, but this result seems strange to me:

In a second example (not shown here, but in atttached file) all goes well. It is probably very simple, but at this moment I better go for a walk outside.

best regards,

Harry Garst

mapleprimes.mw

Sorry yes as the title suggests, id like to know how to execute keyboard and mouse pad actions in an automata of sorts.

In the help page for invlaplace we find the statement
"If the option opt is set to 'NO_INT', then the program will not resort to integration of the original problem if all other methods fail.  This will increase the speed at which the transform will run."

This statement is found in Maple 2017 and in Maple 8 and I believe in all versions in between.
Can anyone provide an example of a function F(s), where
invlaplace( F(s) ,s, t, NO_INT);
gives a different result (or works faster) than
invlaplace( F(s) ,s, t);
?
## It should be added that an identical statement is made in the help page for laplace itself.

I have alreday gotten the result and want to know how Maple was doing this calculation.

Would you like to tell me the way. Thanks.

 

eq12 := `assuming`([invlaplace(exp(-sqrt(s))*sqrt(s)/((sqrt(s)+a1)*sqrt(s+a2)*(s+a3)), s, t)], [a1 > 0, a2 > 0, a3 > 0])

 

 

Maple 2016 worked fine on July 27.

On July 28 Microsoft insisted on applying a patch to Windows 10 (they called it a "significant upgrade"). After that, Maple 2016 no longer works - it loads, presents the default worksheet, allows you to load a previous worksheet, but as soon as you go to do anything, it quits.

Any suggestions, other than downgrading to the previous version of Windows 10, which I have already done, (and turned off MS windows update services)?

How do you delete a row you added in a piecewise function. I was using 2D math input for the piecewise function and I decided not to have the third row at all. Deleting the content of the last row left a space but never removed the entire empty line. Executing it resulted in an error.

The manual only says how to add a row using CTRL + SHIFT + R, but not how to delete a row.

Any advise?

Converting a mathematical expression into postfix notation (also known as Reverse Polish Notation (RPN)) is a great way to speed up evaluation of arithmetic using a stack.

I was wondering if Maple has any inbuilt functionality to convert a string in infix notation to one in postfix notation? As a simple example:

(A + B * C) / (D + E * F)

Looks like this in RPN:

A B C * + D E F * + /

I cannot find anything with regards to Maple implementations of this. It would save me time to not have to write a RPN calculator in Maple if there is one already floating around somewhere. I would like to use Maple to output strings in RPN which can then be evaluated faster in another language.

 

-Yeti

We know it's true that the Inverse Laplace Transform of two functions' multiplication is the convolution of every function's Inverse Laplace Transform. I think the case can be upgraded to multiple functions, i.e.

L^(-1)(f[1]*f[2]***f[n])=L^(-1)(f[1])∗L^(-1)(f[2])∗∗∗L^(-1)(f[n])

 

 

It appears google doesn't know about the haversine formula.  Huh?  Well at least google can't draw the proper path for it.  I typed in google "distance from Pyongyang to NewYork city"  and got 10,916km.  Ok that's fine but then it drew a map

The map path definitely did not look right.  Pulled out my globe traced a rough path of the one google showed and I got 13 inches (where 1 inch=660miles) -> 8580 miles = 13808 km .. clearly looks like google goofed. 

So we need Maple to show us the proper path.
 

with(DataSets):
with(Builtin):
m := WorldMap();
AddPath(m, [-74.0059, 40.7128], [125.7625, 39.0392]):
Display(m):

Ok so you say that really doesn't look like the shortest path.  Well, lets visualize that on the globe projection

Display(m, projection = Globe, orientation = [-180, 0, 0])

Ah, now it is clear
Pyonyang_to_NewYork.mw

 

Does Maple have build-in function, which when given an expression that depends on x and y, will separate it to a product of two functions, one that depedns on x only and the other that depends on y only?

The input mathematical expression is known to be seperable.

For example, If the input is

((3*y + y^2)*3*x)/(x + sin(x))

Then I'd the Maple function to take the above and return list or set of two parts  {(3*y + y^2)   ,     3*x/(x + sin(x) } (if it can't separate it, it can return null).

The API can be something as  

 f,g = find_product_functions(expression,[x,y])

Something like this is used on determining for example if RHS of first order ODE is separable in order to solve it more easily.  collect() does not really work for this. So Maple allready does this internally in its ODE solver when it checks if ODE is separable or not. But is the function available for users?

 

As a momentary diversion, I threw together a package that downloads map images into Maple using the Google Static Maps API.

If you have Maple 2017, you can install the package using the MapleCloud Package Manager or by executing PackageTools:-Install("5769608062566400").

This worksheet has several examples, but I thought I'd share a few below .

Here's the Maplesoft office

 

Let's view a roadmap of Waterloo, Ontario.

 

The package features over 80 styles for roadmaps. These are examples of two styles (the second is inspired by the art of Piet Mondrian and the De Stijl movement)

 

You can also find the longitude and latitude of a location (courtesy of Google's Geocoding API). Maple returns a nested list if it finds multiple locations.

 

The geocoding feature can also be used to add points to Maple 2017's built-in world maps.

 

Let me know what you think!

How can I to build a Spinor with Physics package? I would like to explore a sigma model  from Lagrangian density. The ideia is search the Euler-Lagrange's equation and energy density of this model.  

The representation of the tangent plane in the form of a square with a given length of the side at any point on the surface.

The equation of the tangent plane to the surface at a given point is obtained from the condition that the tangent plane is perpendicular to the normal vector. With the aid of any auxiliary point not lying on this normal to the surface, we define the direction on the tangent plane. From the given point in this direction, we lay off segments equal to half the length of the side of our square and with the help of these segments we construct the square itself, lying on the tangent plane with the center at a given point.

An examples of constructing tangent planes at points of the same intersection line for two surfaces.
Tangent_plane.mw

Hello!
I have a problem with calculations. I have a worksheet and it calculated on some computer but on another i have an error after each equation. I dont have any idea why. When i click on error i see "Sorry, we do not have specific information about your error. " What can i doo with this?

subs.mw

hi...i have a problem with subs rule

please help me.

thanks

eq81a:=m*diff(w(x,t),t$2)+c*diff(w(x,t),t)+E*Is*diff(w(x,t),x$4)+(P-f[p]*cos(Omega*t)-E*A/(2*l)*int(diff(w(x,t),x)^2,x=0..l))*diff(w(x,t),x$2)=0;

m*(diff(diff(w(x, t), t), t))+c*(diff(w(x, t), t))+E*Is*(diff(diff(diff(diff(w(x, t), x), x), x), x))+(P-f[p]*cos(Omega*t)-(1/2)*E*A*(int((diff(w(x, t), x))^2, x = 0 .. l))/l)*(diff(diff(w(x, t), x), x)) = 0

(1)

 

bc81a:=B[1](w(0,t))=0,B[2](w(0,t))=0,B[3](w(l,t))=0,B[4](w(l,t))=0;

B[1](w(0, t)) = 0, B[2](w(0, t)) = 0, B[3](w(l, t)) = 0, B[4](w(l, t)) = 0

(2)

 

 

nondimRule1:=w(x,t)=l*w[n](x/l,t/T);

w(x, t) = l*w[n](x/l, t/T)

(3)

nondimRule2:=x=l*x[n],t=T*t[n],Omega=Omega[n]/T,P=P[n]*E*Is/l^2,f[p]=f[n]*E*Is/l^2,c=c[n]*sqrt(E*Is*m)/l^2,A=2*alpha*Is/l^2;

x = l*x[n], t = T*t[n], Omega = Omega[n]/T, P = P[n]*E*Is/l^2, f[p] = f[n]*E*Is/l^2, c = c[n]*(E*Is*m)^(1/2)/l^2, A = 2*alpha*Is/l^2

(4)

intRule1:=Int(D[1](w[n])(x[n],t[n])^2,l*x[n]=0..l)=l*int(D[1](w[n])(x[n],t[n])^2,x[n]=0..1);

Int((D[1](w[n]))(x[n], t[n])^2, l*x[n] = 0 .. l) = l*(int((D[1](w[n]))(x[n], t[n])^2, x[n] = 0 .. 1))

(5)

dropnRule:=w[n]=w,x[n]=x,t[n]=t,c[n]=c,P[n]=P,f[n]=f,Omega[n]=Omega;

w[n] = w, x[n] = x, t[n] = t, c[n] = c, P[n] = P, f[n] = f, Omega[n] = Omega

(6)

 

eq81b:=convert(expand(l^3/(E*Is)*subs(int=Int,nondimRule2,intRule1,dropnRule,value(subs(nondimRule1,eq81a)))),diff);

Error, invalid input: diff received T*t, which is not valid for its 2nd argument

 

 

``

TRule;=solve(coeff(lhs(eq81b),diff(w(x,t),t$2))=1,{T})[1];

TRule

 

Error, `=` unexpected

 

``


 

Download subs.mw

 

First 926 927 928 929 930 931 932 Last Page 928 of 2215