Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

How to get tangent angle between two curves? 

example for these : f(x)=((x^4+5)^(1/2))/(sinx+5) and g(x)=cosx^2   ; x>0

thanks :)

I am trying to simplify noncommutative expressions that use the 'dot' operator: `.`. The following is a minimal example:

a2 . (1/(a2 . (1/a1) . a2)) . a2, which evaluates to:   a2 . (1/(a2 . (1/a1) . a2)) . a2

This should simplify to 'a1', as I am expecting `.` to work like noncommutative multiplication. If there is any way to define this behavior I would appreciate some help. Alternatively, I would also be happy with reworking 'simplify' to work in this scenario. If it helps, I am working with finitely presented groups. If you see the Maple package 'GroupTheory', you'll see that the 'Group' function has this built in. If we input generators and relators it will simplify expressions of the above type, so I know it can be done!

Lastly, I would prefer displaying '1/a1' as 'a1^-1', but that is just for aesthetics.

Here is a minimal document: minimalexample.mw

Hello,

I'm trying to solve a system of 9 ODE in a model of a chemical reactor. But, unfortunately, when I try to plot the curves, I get the following error message: Error, (in f) unable to store '[Float(undefined)]+8.5809018712796' when datatype=float[8]

Can anyone help me please? I read some related problems here, but couldnt find a solution yet.

Thanks for your time

Best regards

Hello,

I have a optimization question in the following picture.

 

Question: find matrix T(t). 

 

I writed a maple code. Could you view it ? You think that it is right?

The code file I writed: maple_code_of_theory.mw

 It is really very important for me. Can you help me?

Thank you. 

 

This is not a new problem; it is a reoccuring nuisance. When doing a heavy calculation, pressing the 'Interrupt the current operation'-icon will sometimes not halt the execution; rather it continues happily, seemingly without ever stopping. The program does not seem to have stalled, because the executing-bullet at the lower left of the screen flashes back and forth. As the interrupt icon is no longer red, there is no idea in pressing that further. So in these cases, I usually have to resort to an ungraceful shut-down of Maple by way of the Windows job list (Ctrl+Alt+Delete). Is there really no other way?

Ian Thompson has written a new book, Understanding Maple.

I've been browsing through the book and am quite pleased with what I've read so far. As a small format paperback of just over 200 pages it packs in a considerable amount of useful information aimed at the new Maple user. It says, "At the time of writing the current version is Maple 2016."

The general scope and approach of the book is explained in its introduction, which can currently be previewed from the book's page on amazon.com. (Click on the image of the book's cover, to "Look inside", and then select "First Pages" in the "Book sections" tab in the left-panel.)

While not intended as a substitute for the Maple manuals (which, together, are naturally larger and more comprehensive) the book describes some of the big landscape of Maple, which I expect to help the new user. But it also explains how Maple is working at a lower level. Here are two phrases that stuck out: "This book takes a command driven, or programmatic, approach to Maple, with the focus on the language rather than the interface", followed closely by, "...the simple building blocks that make up the Maple language can be assembled to solve complex problems in an efficient way."

 

 

 

I have this H(alpha,beta,eta) con ‡uent hypergeometric function, which I can easily adopt in Mathematica like this

Hypergeometric1F1[( (\[Alpha] + S \[Beta]))/\[Beta]^2, 
 1 + ((\[Alpha] + S \[Beta]))/\[Beta]^2, -\[Alpha] ((
   E^(-\[Beta] \[Eta]))   )/\[Beta]^2]

But when I try to input this in maple using the built-in `hypergeom` it gives an error.

hypergeom((S*lambda2+alpha)/lambda2^2, 1+(S*lambda2+alpha)/lambda2^2, -alpha*exp(-lambda2*eta)/lambda2^2)

Any suggestions?

 

,Hello everyone 

...I need code for save maple's project like a video

Thankyou

I'm trying to solve this integral, but maple does not show any result.

f := GAMMA(phi)*y^(mu*phi-1)*(1-y)^((1-mu)*phi-1)/(GAMMA(mu*phi)*GAMMA((1-mu)*phi))
int(log(1-y)*f, y = 0 .. 1) assuming phi >0 and 0<mu<1

What is the problem? Is there any way to solve this integral?

Hello! with the datapoints below I've calulated the results "manually" 
I'm looking for a way to make Maple tell me the intersection of these datapoints with the x-axis and also, the area under it from e.g. 0 to 5.125, which i've also had to calculate by hand... I know I can use int comand to do this, but I think there is a lot wrong with the syntax, so after hours of failure I hope someone can show me the right commands..

 

Thanks, 
krismalo
 

 

 

t1 := Matrix(14, 2, {(1, 1) = 0, (1, 2) = 0, (2, 1) = 0, (2, 2) = 4170, (3, 1) = 1, (3, 2) = 3966, (4, 1) = 1, (4, 2) = 3466, (5, 1) = 3, (5, 2) = 3058, (6, 1) = 3, (6, 2) = 3058, (7, 1) = 4, (7, 2) = 1854, (8, 1) = 4, (8, 2) = 1354, (9, 1) = 7, (9, 2) = -2258, (10, 1) = 7, (10, 2) = -2758, (11, 1) = 8, (11, 2) = -3962, (12, 1) = 8, (12, 2) = -3962, (13, 1) = 10, (13, 2) = -4370, (14, 1) = 10, (14, 2) = 0})plot(t1); =  

 

 

The intersection of this plot with the x-axis should be ≈ 5.125 and the area from 0 to 5.125 (or from 5.125 to 10) should be ≈ 13810

 

 

 

 

NULL


 

Download primes_area_question.mw

i have solved the coupled equations .... and want to subtract a constant

i want to subtract constant from the result of last equation

r_p_m.mw

What is the best way for Maple to create datasets with attributes?

There must be a better way than just listlists  ie [[Honda, green, 2008],[Honda, red,civic,2004],[Hoda, blue, CRV, 2WD]] etc....

It would be similar to the table of elements using get properties. 

Hi all,

I have this equation that I can not get all solutions symbolically:

restart:

eq1 := cos(lambda*ln(r1))*cos(lambda*ln(r2))+sin(lambda*ln(r1))*sin(lambda*ln(r2))-1 = 0:

solve(eq1, lambda, allsolutions) assuming r1>0, r2>0, r2>r1

when r1:=1: r2:=2: I get the solution

2*Pi*Z/ln(2)

when r1:=1.1: and r2:=2.1: # no solutions

How to get symbolique solution

Thanks

 

 

Hi.

This is probably not very much maple related question, but to some extend it is.

After failing this question on my exam I have tried to solve it, but it seems like I cant get it right.

Given a sphere z^2+r^2=4 and a cylinder r=1 I was told to set up the volume integral for the element T enclose byt the outer sphere and the inner circle.

I tried to generate a plot but my skills are rather poor in plotting, if I could get the plot right I would be able to set up the volume integral. I have also tried to figure out how to do the surface integral and chose to use a task template as it is a bit more convinient when you find the syntax hard.

I would say I am familiar with the VectorCalculus:-SurfaceInt in cartesian for when i have intersection of two surfaces given in terms of z=

 

but this kind of problem is new to me.

 


 

Surface Integration over a Surface Defined Parametrically

 

Formulate and evaluate the surface integral of f(x, y, z) over a surface defined parametrically.

NULL

 

Surface Integral on a Surface Defined Parametrically

 

 

  Integrand

"f(x,y,z)="

   

 

 

 

   " x(u,v)="

   

 

 

 

"y(u,v)="

   

 

 

 

   " z(u,v)="

   

 

 

 

 

 

`&equiv;`(F(u, v), f(x(u, v), y(u, v), z(u, v)))

`&equiv;`(LinearAlgebra[Norm](N), sqrt((`&PartialD;`(y, z)/`&PartialD;`(u, v))^2+(`&PartialD;`(z, x)/`&PartialD;`(u, v))^2+(`&PartialD;`(x, y)/`&PartialD;`(u, v))^2))

 

 

 

"&int;(&int;)[S]f &DifferentialD;sigma =(&int;)[u=a]^(u=b)(&int;)[v=g(u)]^(v=h(u))F(u,v)||N|| &DifferentialD;v &DifferentialD;u"

"="

"b="

"&int;(&int;)[S]f &DifferentialD;sigma=""(&int;)[v=a]^(v=b)(&int;)[u=G(v)]^(u=H(v))F(u,v)||N|| &DifferentialD;u &DifferentialD;v"

"="

"a="

 

 

NULLNULL

 

NULL

NULL

 

NULL

                                

 

 

NULL

with(plots):

p1 := plot3d([2*cos(u)*sin(v), 2*sin(u)*sin(v), 2*cos(v)], u = 0 .. 2*Pi, v = 0 .. Pi, color = green, transparency = .55):

p2 := plot3d([cos(u), sin(u), z], u = 0 .. 2*Pi, z = -2 .. 2, color = red, filled = true):

display(p1, p2)

 

p3 := plots:-sphereplot(2, theta = 0 .. 2*Pi, phi = 0 .. Pi, color = green, transparency = .55):

p4 := plots:-cylinderplot(1, theta = 0 .. 2*Pi, z = -2 .. 2, color = red):

plots:-display(p1, p2)

 

``

NULL


 

Download surface_int.mw

A population p(t) governed by the logistic equation with a constant rate of harvesting satisfies the initial value problem diff(p(t), t) = (2/5)*p(t)*(1-(1/100)*p(t))-h, p(0) = a. This model is typically analyzed by setting the derivative equal to zero and finding the two equilibrium solutions p = 50+`&+-`(5*sqrt(100-10*h)). A sketch of solutions p(t) for different values of a suggests that the larger equilibrium is stable; the smaller, unstable.

 

When a is less that the unstable equilibrium, p(t) becomes zero at a time t[e], and the population becomes extinct. If p(t) is not interpreted as pertaining to a population, its graph exists beyond t[e], and actually has a vertical asymptote between the two branches of its graph.

 

In the worksheet "Logistic Model with Harvesting", two questions are investigated, namely,

 

  1. How does the location of this vertical asymptote depend on on a and h?
  2. How does the extinction time t[e], the time at which p(t) = 0, depend on a and h?

To answer the second question, an explicit solution p = p(a, h, t), readily provided by Maple, is set equal to zero and solved for t[e] = t[e](a, h). It turns out to be difficult both to graph the surface t[e](a, h) and to obtain a contour map of the level sets of this function. Instead, we solve for a = a(t[e], h) and obtain a graph of a(h) with t[e] as a slider-controlled parameter.

 

To answer the first question, the explicit solution, which has the form alpha*tan(phi(a, h, t))*beta(h)+50, exhibits its vertical asymptote when phi(a, h, t) = -(1/2)*Pi. Solving this equation for t[a] = t[a](a, h) gives the time at which the vertical asymptote is located, a function that is as difficult to graph as t[e]. Again the remedy is to solve for, and graph, a = a(h), with t[a] as a slider-controlled parameter.

 

Download the worksheet: Logistic_with_Harvesting.mw

First 1038 1039 1040 1041 1042 1043 1044 Last Page 1040 of 2247