integration_doubt.mw
Hello all,

I am trying to solve for the first-order derivative of a function f2 w.r.t variable a when it is equated to 0. the function f2 is a summation of two integrals as shown in the file. Kindly help me if there is any way to obtain solutions without numerical settings. Can functionalities like the Leibnitz rule be done in MAPLE? Thanks for your advice/help. 

Could you please give an example of a code where I can add outputs from a loop to a list. I am using the break command to end the loop so I don't have the number of elements in advance.

Edit: I have also changed the title accordingly. There was more to this question, somehow which was omitted. I am writing it again. My code looks like below: 
if ...
do H[i]:=int(K);
...
... end do;
end if;

I want an array of H[i]'s. The loop breaks when a condition is met, so I can't create an array with a given dimension beforehand. Thank you.

How do I find with maple's help  for which parameter m does the equation:

x^2+2*m*x-6*x=m^3 have one of its roots equal to the square of the other root?

Thanks!

I wrote the following orders

With(GeM):
gem_decl_vars(indeps=[t,x], deps=[u(t,x)]);
gem_decl_eqs([diff(u(t,x),t,t)+a∗diff(u(t,x),x,x)+b∗
u(t,x)+c∗(u(t,x))^3=0],solve_for=[diff(u(t,x),t,t)])

det_eqs:=gem_conslaw_det_eqs([t,x,u(t,x),diff(u(t,x),
t),diff(u(t,x),x)]):
CL_multipliers:=gem_conslaw_multipliers();
simplified_eqs:=DEtools[rifsimp](det_eqs,
CL_multipliers, mindim=1)

in maple 17, but the program cannot calculate and gives me an error. Does anyone help me to solve this problem.

.

BTW "recusant" is an old word, religious in origin, for someone who refuses to do what they're told, or believe what they're told to believe.

Here's my problem:

phi := (1+sqrt(5))/2;

plots[pointplot]([seq([n, sin(n*phi)], n = 1000 .. 2000)], symbol = point, axes = boxed, labels = [n, typeset('sin(n*phi)')], labeldirections = [horizontal, vertical])

produces a label sin( n phi ).  I want it to say sin( phi n ). 

I've tried the noncommuting times &*  (which prints &*) and the matrix product . (which prints as a function call).

Is there a way to typeset this product in the order that I want?  Here "n" is the variable and "phi" is the constant (yes that looks weird, but so does the graph).  I suspect that there is; I think "typeset" is probably much more powerful than I have been kludging it as.  Help?

screenshot:

I have this function : r(theta) = sec[t(theta)] = sec * (theta - (Pi/2) * (2/Pi *(theta + Pi/4))).

Since this function is in terms of (theta,r(theta)) ... how would I graph this in terms of Cartesian Co-ordinates instead of Polar ? 

Hi, I have animated plot visualizing the moving of point from location a to location b. I need line to be plotted in trace of moved point in area. Please see the code that I implement below. Many Thanks

restart:
with(plots):
with(Statistics):
L:=[[0],[34,7],[39,8,6], [45,2,3,7]]:
animate(( PointPlot, [L[trunc(t)]], t=1..3, frames=50), symbol=solidcircle,symbolsize=40);

Sorry for this simple question but I am new to Maple and need to do just this one thing...

Lets say I have a function f_p(x) which draws out some envelope when I change p. I wanted to calculate this euqation by hand but this does not seem possible, since f is too complex. How can I use Maple to find the area under any Enevelope? Or maybe a bit simpler: How can I just find the envelope and save it to use it later?

I am sorry,since I don't know anything about Maple and I need that fast...

Hi,
I want to solve the following equation and, assuming x=x_r+Ix_i where x_r and x_i are real and imaginary part of x,  plot x_r and x_i versus y . How can I do in Maple?

x^6+x^4*(1.02-0.50e-2*y)+x^2*(-0.4950e-2*y+0.625e-5*y^2)+0.625e-5*y^2=0

Thanks

I have number 0.12

I use convert(0.12,string), result ".12" lost 0. Why?

Please help me @acer

vector_dynamics.mw

Hi everyone
I am a learner using the maple program and I have a problem drawing multiple lines with different styles. I have tried the following:

restart; with(VectorCalculus); with(LinearAlgebra); with(DEtools);
F0 := 0; zeta := .25; w := 1; Omega := 1; m := 1;

ode1 := diff(x(t), t) = y(t); ode2 := diff(y(t), t) = F0*cos(Omega*t)/m-2*zeta*w*y(t)-w^2*x(t);

DEplot([ode1, ode2], [x(t), y(t)], t = 0 .. 10, x = -100 .. 100, y = -100 .. 100, [[x(0) = 0, y(0) = 50], [x(0) = 9, y(0) = 25], [x(0) = 85, y(0) = 20], [x(0) = .25, y(0) = .5], [x(0) = 7, y(0) = 5]], linestyle = [dash, dashdot, dot, longdash, spacedash], linecolor = [red, green, black, navy, maroon], thickness = 2, axes = normal, labels = [x(t), y(t)], arrows = medium, stepsize = 0.1e-1);

I would like to obtain in the graph that each trajectory has a different type of line.

On the other hand I wonder: Is it possible to use the options boxed and normal at the same time?

Greetings and thank you all

Euler's equation, when x=i,
e^ix = cosx + isinx
leads to the impossible result that e is a complex number.

Did Euler create that equation to check if anybody else was blind in one eye?

maxcharheight.mw

The above worksheet contains some computations I needed for a paper I am writing for the next issue of Maple Transactions.  The computations are within reach of hand computation (which is why I know the right answers).  I wanted Maple to be able to do them, however.

I couldn't make Maple do anything but verify that I was right (this is useful, I will admit).  But can anyone find any artful ways to simplify or solve any of those steps?  I suspect that this is quite hard in general, but with these things involving phi = (1+sqrt(5))/2 it's likely that others would find some "art" useful.  By the way, phi is not built-in to Maple, as far as I know.  Any more votes for including it?

There is an undocumented feature reported here that is useful: asympt works with "leadterm" and this turns out to be necessary.  I forget how I found out that leadterm works with asympt.  It's not in ?asympt, though I think that it should be.

-r

This worksheet creates geodesics in the Poincare disk by transformation of a series of circles of diminishing radii in the complex plane.

The intersections of the geodesics are meant to create the first few pentagonal uniform tilings in the Poincare disk.

I do not know the mathematically correct way to create such a display, so the radii of the circles are only a trial and error approximation.

What Maple code will provide the radii of the complex circles which produce an accurate uniform pentagonal tiling?

Is there a better overall strategy for producing uniform tilings of the Poincare disk? 

HyperbolicTiling.mw