Use surd,

h := t-> surd(1+t^3*cos(t),5);

Alec

Add single quotes, 'f[1](a,b)' or use

plot3d(f[1],0..256,0..256);

You could also create a Matrix,

A:=Matrix(256,(i,j)->(i-1)&*(j-1));

and then browse it (right button etc.), or do something like

plots[matrixplot](A,style=patchnogrid);

I would, probably, use densityplot,

plots[densityplot](f[1],0..256,0..256,
    colorstyle=HUE, axes=boxed);

Also, it is better to use trunc instead of floor, and 256 instead of 255.

By the way, I've just noticed another thing - replacing f[1] with f produces  a completely different plot! Isn't that amazing?

f := (a, b) -> trunc(a) &* trunc(b);

plots[densityplot](f,0..256,0..256,
    colorstyle=HUE, axes=boxed, style=patchnogrid);

At the first glance, seems to be another appearance of the evalf bug. But then, looking at the plot

plots[densityplot](`*`,0..256,0..256,
    colorstyle=HUE, axes=boxed, style=patchnogrid);

identical to the plot above, I've started to think that it may be a new bug?!

Alec

There are 2 functions in GF for doing that - input and output. For example,

G:=GF(2,8);
                                 8    6    5    3
               G := Z[2] [T] / <T  + T  + T  + T  + 1>
G:-input(9);

                                     3
                                1 + T

G:-output(%);

                                  9

G:-variable;

                                  T

If you need matrices, see my Matrix Algebra Over Finite Fields package.

Alec

An example would be useful, so that it could be copied and pasted in the Maple. Without it, frankly, I don't understand what you are doing.

If it is the same sequence, then you could do something like

a:={1,2,3}:
b:=4,5:
{seq(seq(i*j,i in a), j in b)};

                        {4, 5, 8, 10, 12, 15}

or

{seq(i, i in LinearAlgebra:-KroneckerProduct(
    Matrix([op(a)]), Matrix([b])))};

                        {4, 5, 8, 10, 12, 15}

or

`union`(seq(map(`*`,a,i), i in b));

                        {4, 5, 8, 10, 12, 15}

and many other ways.

Alec

It is still busy today. It looks as if it was using Maple 11 though - isn't it strange?

Alec

Consider this example:

F:=piecewise(x<1,0,1-1/sqrt(x));

It satisfies all of your conditions, and the limit is infinity.

Alec

Here is how that looks in Maple Wiki (at the end of the page.)

Should I add an arrow over ∇?

Alec

Mathematica seems to be using bold letters - at least in the pdf of Paul Abbot's course. I didn't check the notebooks though.

Alec

No, it is not correct. And you can't cancel sum terms in the numerator and the denominator of a fraction.

Alec

Or, you could type

rot `#mover(mi(E),mo(→))` = -`#mover(mi(B),mo(•))`

Then select it, click right mouse button, scroll down to 2-D Math, Convert To, 2-D Math. Then select it again and type Ctrl+I Ctrl+B (or click I and B at the top so that I was unselected and B was selected).

Edit: It seems to be more complicated with an additional arrow over B.

Alec

For example, you could do

f:=(m,n)->fsolve(BesselJ(m+1,x)*x-m*BesselJ(m,x),
    x=BesselJZeros(m,n)..BesselJZeros(m,n+1)):
f(3,1);
                             8.015236598

Alec

with(Statistics):
X:=RandomVariable(Normal(75,21)):
T:=Vector[row]([seq(Mean(Sample(X,49)),i=1..10000)]):
Mean(T);
                             74.96692326
StandardDeviation(T);
                             2.990235020

So my guess is that the mean is 75 and the standard deviation is 21/sqrt(49)=3.

Alec

Just tried to see it on MapleNet and get the following message instead,

MapleNet is Busy -

MapleNet is currently experiencing high traffic and cannot start a new Oracle. Please try again soon. /maplenet/primes/worksheet/127_phase coloring.mw .
 

Alec

Maple NOT switch!

There is goto though :) So you could use something like

a:=a2:
proc()
local k;
if member(a,[a1,a2,a3],k) then goto(k) else return fi;
1: b1; return 1; 
2: b2; return 2;
3: b3; return 3; 
end();
                                  2

Alec

_rest may be not available in Maple 10, too.

Alec