Open a new blank Worksheet, and from the main menubar select Format -> Styles...

That should pop up a small window titled "Style Management". In its list box scroll down until you see "Maple Input". Select that. Then press click on the "Modify" button in that popup.

That should raise another popup window titled "Character Style" with an entry box filled in already with "Maple Input", and default "Courier New" grayed out. On the left of this second popup is a button "Color". Press it, and a color choose pops up. Select the bright red square. The press the "OK" button in that second popup, which dismisses it. Then press the "OK" button in the first popup, which dismisses it.

The 1D Maple Notation in execution groups and their prompts should now appear in bright red.

Now you need to make this blank worksheet your new default style. From the menubar select Format -> Manage Style Sets...

In the popup titled "Style Set Management" which appears click on the button "New Style Set". That raises another popup, titled "Choose Styles". In this popup clickon the "Unselect All" button to clear all the check boxes. Scroll down and toggle the check box "Maple Input". Then click on the "OK" button, which should make the file-manager popup appear, to allow you to save the style as a .mw file. Give it a name of your choice, and click on the "Save" button which dismisses the file-manager popup. You should now be back in the "Style Set Management" popup. Ckick the radio-button for "User-defined Style Set", and then click on the button "Browse" and find and choose the file which you previously saved. Then click on the "OK" button to finish.

At this point your new custom style (.mw file) sheet will get used for all new Worksheets, even if you close the whole GUI down and relaunch.

See here.

acer

In Maple 2015 you can programmatically insert a PlotComponent which contains the animation and then also set it playing programmatically.

When it's playing, you can still click on it with the mouse to get the usual menubar controls, so as to stop it, etc.

Here's a command for doing that. It needs at least Maple 2015.0 to execute the procedure.

Note that only one such insertion can be done per execution group.

Both the examples play the animation immediately upon insertion. The second one also loops (ie. replays continuously).

The MapleNet backend for rendering uploaded worksheets seems pretty old, and doesn't show the components. So below I've inserted then by hand into this posting. In the actual worksheet there is a border around each PlotComnent (and the code could be adjusted to repress that, too).

Download autoplay.mw

I have another, unfinished, fancier version which also has all the buttons to play/pause/etc right beside the PlotComponent. Not sure how much demand there'd be for that...

acer

I don't know whether I accurately transcribed your "solution" given in terms of abbreviated Chebyshev polynomials (which I assign to `OP` below). But here is how it can be converted to rational form, both for your "solution" OP as well as for a better approximation.

I also show the continued fraction form (though I use only the explicit rational polynomial form for the plotting).

Download chebpade.mw

acer

The conversion fore and aft (to diff, and then back to D) like Carl suggests seems like a sensible way to proceeed, since as you say you know it works ok for diff form.

I suppose that one could write a program which figured out which modifications of the equation (eq) could be utilized as below. The evaluation at a point (eg, at (x,t)) might also need temporary handling. It seems like more work than fun...

eq := D[2](u) = a^2*D[1,1](u);

                                         2           
                        eq := D[2](u) = a  D[1, 1](u)

expr := D[2,2](u);

                             expr := D[2, 2](u)

eval( expr, [D[2](eq)] ) assuming a::constant;

                               2              
                              a  D[1, 1, 2](u)

eval( %, [D[1,1](eq)] ) assuming a::constant;

                              4                 
                             a  D[1, 1, 1, 1](u)

acer

You can use timelimit on a call to int, which is not builtin.

The sentence you've quoted from the timelimit help page is about the fact that the kernel will not poll the time resources whilst inside a call to a kernel builtin. But once control returns from such then the resource query may be done.

The Library command int makes use of kernel builtins, here and there, but this doe not bar you from managing it with timelimit in general.

  restart:

  st,str := time(),time[real]():

  timelimit(3, int((a+a*sin(f*x+e))^(1/2)*(c+d*sin(f*x+e))^(5/2),x) );
Error, (in gcd/DIVIDE) time expired

  time()-st, time[real]()-str;

                          3.136, 3.169

Sure, you might get unlucky and still get the kernel locked in some huge (builtin) expand call, etc, resulting in the kernel not stopping until a longer time interval than your supplied limit has elapsed.

But the fact that that a Library command ever invokes a builtin doesn't by itself imply that you cannot use timelimit to manage it. Also, the kernel will take into account the resources spent inside (returned) builtin calls -- it just won't poll and stop within them. That's my understanding, at least.

acer

This is without "extra parameters". (Sorry to belabor this point, but I'm not sure still that we're talking about the same thing. By "extra parameters" I'm imagining that some of the numeric coefficients in your f[i] expressions are parameters which could vary; in the dsolve,parameters sense.)

Note that the compiled Newtonc is still using J3,f3,s3c as globals, which is not exactly the same as compiling all four procedures together. This is just something to start with...

Download NewtonRaphsoncompile_1.mw

acer

I made some changes. Mostly I had to guess at things.

For example I guessed that the loop to compute tx in the last part was intended as some sort of bisection thingy.

You don't need to load evalf using with. And it makes no sense to try that. Other packages like plots are loaded using with, not whit as you misspelled it in some places.

The lower end of a range passed to fsolve, in the first code part, needed to be less than 4.

It's slightly crazy that your code is loading the deprecated linalg package. I guess you saw that in a book or something, which is a shame.

The procedure dsnumsort is very poor. Did that come from a book too? It's methodology is awful. It's not surprising that you got confused trying to utilize it. I guessed at your purpose and utilized 2-argument eval instead. (How about using output=listprocedure for dsolve numeric, and perhaps make life easier?)

M11MAS94modif.mw

acer

Here's another way (where evalf/RoofOf will use fsolve, under the hood...), which happens to work for this particular example.

c := x+sin(x)+ln(t):
F := x+x^2:
plot(subs(x=solve(c,x),F),t=0..10,view=-1..6);

I have deliberately gone for simplicity here, rather than efficiency. Other ways are faster. But this is simple.

acer

Yes, you can replace those two calls to ArrayTools:-Copy with a single indexed assignment.

restart;

A := LinearAlgebra:-RandomVector[row](10):
B := Vector[row](10):

B[[2,3,8,9]] := A[[2,3,8,9]]:

B;

                     [0, 27, 8, 0, 0, 0, 0, 92, -31, 0]

acer

restart:

s := { x>4, y>4 }:

sbar := solve( map( `not`, s ) );

                          sbar := {x <= 4, y <= 4}

convert(s, RealRange);

       {x::(RealRange(Open(4), infinity)), y::(RealRange(Open(4), infinity))}

convert( sbar, RealRange );

             {x::(RealRange(-infinity, 4)), y::(RealRange(-infinity, 4))}

Is is a small list of precomputed primes, used for quick look-up.

restart:
kernelopts(opaquemodules=false):
isprime:-special_primes;

[2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 

  73, 79, 83, 89, 97, 979073763359, 987715808641, 1203502041253, 987709929361, 

  987714327601, 902164268009, 18945002166578281, 987723662641, 987674160001]

acer

The ssystem command can execute a command on the host OS, and is available across platforms and Maple interfaces.

acer

How about using `isolate` instead of `solve`?

rhs(isolate(Eq1, diff(y1(t), t, t)));

acer

So you working in Matlab, with Maple as the engine for its Symbolic Toolbox, is that right?

And you want results from Maple (invoked from within Matlab) to be printed in the Matlab interface as something which then cut&pastes as 1D Maple Notation input? Is that right?

Perhaps it might help to first issue the (Maple command) interface(prettyprint=0)

acer

Looks like a bug.

Try it instead as,

LinearAlgebra:-Eigenvectors( convert(A,rational) );

I will submit a bug report.

acer