Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

The directional derivative of a scalar function f(x), computed in the direction u in Cartesian coordinates, is defined by

Please write for me a code with following problem:

Write the equation of the plane wich passes through the two points A(2, -1, 0), B(0, 1, -2) and makes an angle 60 degrees with the plane x + 2y +z + 4 = 0.

Thank you very much.

Pease write for me a code with problem:

Find the equation of the plane (P1) which passes through the point M(1; 2; 3), perpendicular to the plane (P2): 5x -2y +5z + 10 = 0 and make an angle 45 degrees with the plane (P3): x - 4y -8z = 0.

Thank you very much.

After loong time calculations i obtained results and manually fitted them. Of course, as usually happens, kernel broke and all i have is output (output in rtable form). So i decided simply export-import them and continue my manipulations.

All i see is "export to ml form". So i did it. And after that i tried to reimport them via

MathML[Import]

I want to connect Maple to a database with around 10 000 time series.
I have played around with Microsoft Access, SQL Server and MySQL.
However, none of them seems to be up to the task.

One of the problems that I had was that the connection (tcp-ip) between
Maple and the database was very slow also the databases them self did not
handle the large amount of data very well. Maples database
examples are not very helpful either. They only show "cute" examples

How to change "Scaling" in order to during "zoom in" coordinates x and y zoomed in user defined way?

Problem. Write the equation of the line Delta which parallel to the planes 

(P): 3x +12y -3z -5 = 0, (Q): 3x -4y +9z + 7 = 0

and cuts two the lines

(d1): x = 2t -5, y = -4t + 3, z = 3t -1

(d2): x = -2m + 3,  y = 3m  - 1, z = 4m + 2.

This is my idea.

1) Put A(2t -5, -4t + 3, 3t -1) and B(-2m + 3, 3m  - 1, 4m + 2).

2) Find coordinates of vector AB.

3) Because Delta parallel to the planes (P...

There is a cool option of dropping one graph from multigraph (after that it goes as separated one). How to get  this dropped structure itself? I.e. i have "graph" component with command AllPlots that itself is

AllPlots:=plots[display](AllPlotsStructure,...);

AllPlotsStructure is a list of plot/textplot.

After all i removed one structure by drag-and-drop on component. How to update AllPlotsStructure correctly?

HI,

 

I want to create a Textbox which will be opened in the beginning of a Maple code. In this Textbox I want to write an integer, which will be used for a following calculation.

I already found this code:

 

> restart; with(Maplets[Elements]);
print(`output redirected...`); # input placeholder
> maplet := Maplet([["Insert Text", BoxCell(TextBox['IB1'](1 .. 10))], [Button("OK", Shutdown(['IB1'])), Button("Cancel", Shutdown())]]);

I tried to solve a non linear coupled boundary value problem in MAPLE using DSolve command. The code is :

alias(eta = e, theta = t)

Eq[1] := 5*(diff(F(e), `$`(e, 3)))+(m+3)*F(e)*(diff(F(e), `$`(e, 2)))-(2*m+1)*(diff(F(e), e))^2-(4*m+2)*H(e)-(m-2)*e*(diff(H(e), e)) = 0

Eq[2] := diff(H(e), e) = t(e)

Eq[3] := 5*(diff(t(e), `$`(e, 2)))/Pr-(m+3)*F(e)*(diff(t(e), e))-5*m*(diff(F(e), e))*t(e) = 0

BCs := [F(0), (D(F))(0), (D(F))(infinity), t(0)-1, t(infinity), H(infinity)]

Postage_Stamp_proble.mw

Hi

I have a program which I need to exit a loop when an error is thrown. it should then output the value of a. but it doesn't....

 

Suppose that you wish to animate the whole view of a plot. By whole view, I mean that it includes the axes and is not just a rotation of a plotted object such as a surface.

One simple way to do this is to call plots:-animate (or plots:-display on a list of plots supplied in a list, with its `insequence=true` option). The option `orientation` would contain the parameter that governs the animation (or generates the sequence).

But that entails recreating the same plot each time. The plot data might not even change. The key thing that changes is the ORIENTATION() descriptor within each 3d plot object in the reulting data structure. So this is inefficient in two key ways, in the worst case scenario.

1) It may even compute the plot's numeric results, as many times as there are frames in the resulting animation.

2) It stores as many instances of the grid of computed numeric data as there are frames.

We'd like to do better, if possible, reducing down to a single computation of the data, and a single instance of storage of a grid of data.

To keep this understandable, I'll consider the simple case of plotting a single 3d surface. More complicated cases can be handled with revisions to the techniques.

Avoiding problem 1) can be done in more than one way. Instead of plotting an expression, a procedure could be plotted, where that procedure has `option remember` so that it automatically stores computed results an immediately returns precomputed stored result when the arguments (x and y values) have been used already.

Another way to avoid problem 1) is to generate the unrotated plot once, and then to use plottools:-rotate to generate the other grids without necessitating recomputation of the surface. But this rotates only objects in the plot, and does alter the view of the axes.

But both 1) and 2) can be solved together by simply re-using the grid of computed data from an initial plot3d call, and then constructing each frame's plot data structure component "manually". The only thing that has to change, in each, is the ORIENTATION(...) subobject.

At 300 frames, the difference in the following example (Intel i7, Windows 7 Pro 64bit, Maple 15.01) is a 10-fold speedup and a seven-fold reduction is memory allocation, for the creation of the animation structure. I'm not inlining all the plots into this post, as they all look the same.

restart:
P:=1+x+1*x^2-1*y+1*y^2+1*x*y:

st,ba:=time(),kernelopts(bytesalloc):

plots:-animate(plot3d,[P,x=-5..5,y=-5..5,orientation=[A,45,45],
                       axes=normal,labels=[x,y,z]],
               A=0..360,frames=300);

time()-st,kernelopts(bytesalloc)-ba;

                                1.217, 25685408
restart:
P:=1+x+1*x^2-1*y+1*y^2+1*x*y:

st,ba:=time(),kernelopts(bytesalloc):

g:=plot3d(P,x=-5..5,y=-5..5,orientation=[-47,666,-47],
          axes=normal,labels=[x,y,z]):

plots:-display([seq(PLOT3D(GRID(op([1,1..2],g),op([1,3],g)),
                           remove(type,[op(g)],
                                  specfunc(anything,{GRID,ORIENTATION}))[],
                           ORIENTATION(A,45,45)),
                    A=0..360,360.0/300)],
               insequence=true);

time()-st,kernelopts(bytesalloc)-ba;

                                0.125, 3538296

By creating the entire animation data structure manually, we can get a further factor of 3 improvement in speed and a further factor of 3 reduction in memory allocation.

restart:
P:=1+x+1*x^2-1*y+1*y^2+1*x*y:

st,ba:=time(),kernelopts(bytesalloc):

g:=plot3d(P,x=-5..5,y=-5..5,orientation=[-47,666,-47],
          axes=normal,labels=[x,y,z]):

PLOT3D(ANIMATE(seq([GRID(op([1,1..2],g),op([1,3],g)),
                           remove(type,[op(g)],
                                  specfunc(anything,{GRID,ORIENTATION}))[],
                           ORIENTATION(A,45,45)],
                    A=0..360,360.0/300)));

time()-st,kernelopts(bytesalloc)-ba;

                                0.046, 1179432                            

Unfortunately, control over the orientation is missing from Plot Components, otherwise such an "animation" could be programmed into a Button. That might be a nice functionality improvement, although it wouldn't be very nice unless accompanied by a way to export all a Plot Component's views to GIF (or mpeg!).

The above example produces animations each of 300 frames. Here's a 60-frame version:

Hello,

I am trying to run maple file for k=1, k=2 ....

My do-loop did not work. What I would like to do is to solve the ODE then have new inc and solve it again.

I should have U(405) then U(770) ....

 

> restart;

> with(DEtools); with(plots);

> lambda := 0.1; delta := .5;

tau := 40;

> for k to 3 do 365*k end do;

> ode := diff(U(t), t) = -lambda(t)*U(t)*U(t);

> inc1 := U(0) = 100;

Need to do in maple smth like that:


I am searching for an analytical solution, if one exists, of a first-order differential equation of the Chini type, which is a generalization of the Abel type. The equation I'm trying to solve is very closely related to one presented in Maple's help files and which does admit an integral representation, namely the equation reported by Kamke as number 152 (according to the reference given in Maple). The equation I'm grappling with is similar to Kamke152 but with the forcing...

First 1650 1651 1652 1653 1654 1655 1656 Last Page 1652 of 2253