@nMaple I forgot that you were running Maple 17, sorry.

Change the appropriate line to,

h := Z->plots:-display(`if`(Z>10,fB(min(Z,20)),NULL),
                       `if`(Z>5,fC(min(Z,10)),NULL),
                       `if`(Z>0,fA(min(Z,5)),plot3d([[0,0,0]],h=0..1,phi=0..Pi)),
                       axes = normal, scaling = constrained):

@want to be a permanent vegan Use Comments on the original Question to add additional information, or else if the question point has not significantly changed then a new, duplicate Question may get flagged for removal (as a Duplicate).

Reposting because nobody's answered the original is just spamming.

@want to be a permanent vegan Why are you spamming this site with multiple posts on the same question?

@nMaple Maple will export such animations as animated .gif files. You can do that by right-clicking on the plot, or with some programmatic commands.

Here is leaner code. It executes faster, saves to a much smaller file, and is a bit less hard on the poor Java GUI. The idea is that each of the three pieces is a surface which is linear in z. So the plot3d calls only need to use a value of 3 for the grid, in that dimension.

Download athing2.mw

@nMaple Please let me know or not, whether this is the kind of thing you want to do.

(This file is 25MB, since it has the 40 frame animation saved from two methods.)

Download athing1.mw

@nMaple I'm pretty sure that you misunderstood my meaning, or at best misapplied the idea I was trying to convey.

That name is a bit unusual. It seems to be `Νu` rather than just Nu, so I assigned it to `var` to avoid cut&paste issues, etc.

@nMaple In Maple 17 you could try it as, say,

A := plot3d([2*cos(phi), 2*sin(phi), z], z = 0 .. 5, phi = 0 .. 2*Pi):

B := plot3d([8*cos(phi), 8*sin(phi), z], z = 10 .. 20, phi = 0 .. 2*Pi):

C := plot3d([(2+6*((z-5)*(1/5)))*cos(phi), (2+6*((z-5)*(1/5)))*sin(phi), z],
             z = 5 .. 10, phi = 0 .. 2*Pi):

plots[display](A, B, C, axes = normal, scaling = constrained,
               style=surface, glossiness=1.0, lightmodel=Light4);

@tomleslie It is not true what you wrote in the other thread, that the way with uses LA=LinearAlgebra; is incorrect. There are several valid ways of utilizing uses. The problem in the earlier thread was that neither valid way was being used for one call (to Transpose).

The problem(s) here are different. The while i<>j look like a problem(in at least understanding). Also the abs(x-p) should probably be LinearAlgebra:-Norm(x-p) or similar. I haven't considered further.

@sunflower You need that to be LinearAlgebra:-Transpose or LA:-Transpose (since for the latter you are already doing uses LA=LinearAlgebra.

I don't really understand why you are doing those LinearSolve calls on hard-coded b, but perhaps you intend to do something more general with it later on. You certainly don't need to print(x) if you are just going to return x.

What do you expect to happen if any of the L[i,i] are zero?

acer

@Carl Love It's possible that this too would produce the kinds of Matrix he's after. Eigenvalues will return purely real values in this case. Statistics:-Sample is fast enough that this might do (even if tweaks are required).

GUE:= proc(N::posint)
uses LA= LinearAlgebra, ST= Statistics;
local R,G1,G2,C,H;
     R:= ST:-Distribution(Normal(0,1));
     G1:= ST:-Sample(R, [N,N]);
     G2:= ST:-Sample(R, [N,N]);
     H:= Matrix(LA:-MatrixAdd(G1,G2,1,I),shape=hermitian);
     convert(LA:-Eigenvalues(H)/sqrt(4.0*N), list)[];
end proc:

Similalry for the second curve,

Download flat2.mw

@Adri van der Meer In the Standard GUI one could also use the typeset symbol for arc-degrees.

sol:=dsolve({diff(y(x),x,x)+y(x)=0,y(0)=0,D(y)(0)=0.5},numeric):

plots:-odeplot(sol, x=0..10,
               tickmarks=[[seq(i*Pi/2=(i*180/2*`°`),i=1..8)],default]);

@ecterrab The new version is nicer, thanks.

The code inlined in your earlier Comment, now revised and updated, no longer shows the earlier assignment to `print/+`. You might wish to consider adding that print extension as before, so that some behaviour related to automatic simplification appears prettyprinted as before.

restart:

__fixplus:=module() option package; export `+`; end module:

`print/+`:=eval(:-`+`):

with(__fixplus):

macro(__fixplus:-`+`=:-`+`):

'1/2*(x+y)';

                                  1     1  
                                  - x + - y
                                  2     2  

Note that automatic simplification did not occur above. It merely seemed to, due to the printing mechanism.

lprint(eval(%,1));
  (1/2)*(x+y)

The case of procedure bodies is improved over before, to be sure. It's not exactly the same now as in stock Maple, though. Calls to infix `+` in the proc body are now calls to prefix :-`+`. And here too without automatic simplification.

proc(a,b) 1/2*(a+b); end proc;

                     proc(a, b) 1/2*:-`+`(a, b) end proc;

This is an interesting way to disable a class of automatic simplifications.