I don't recall encountering this bug.  I think you'll have to be much more specific: which version of Maple are you using, under what operating system, Standard or Classic GUI, Document or Worksheet mode, and how are you "inserting" the standard math? 

Also, if you want to specify the rows and columns to delete rather than the ones to keep, you might use DeleteRow and DeleteColumn in the LinearAlgebra package.

Also, if you want to specify the rows and columns to delete rather than the ones to keep, you might use DeleteRow and DeleteColumn in the LinearAlgebra package.

In that case, it's not so hard.  Just solve your set of equations, and substitute in some random values.

In that case, it's not so hard.  Just solve your set of equations, and substitute in some random values.

> fsolve(dT, 0 .. 50);

27.36040182

> fsolve(dT, 0 .. 50);

27.36040182

No...  You might try a Lucas-Lehmer test.  But with highly-optimized specialized software that took days.

.Yes, you're right (because the median of the r^2 values is the square of the median of the r values).

.Yes, you're right (because the median of the r^2 values is the square of the median of the r values).

There are several different versions of Gradient.  Try the one in the VectorCalculus package.  For example:

> with(VectorCalculus):
   Gradient(x^2 + y^2 + z^2, [x,y,z]);.

                           _        _        _
                       2 x e  + 2 y e  + 2 z e
                            x        y        z
 

If you don't like this "basis format" notation, insert the command

> BasisFormat(false):

after the with(VectorCalculus):

There are several different versions of Gradient.  Try the one in the VectorCalculus package.  For example:

> with(VectorCalculus):
   Gradient(x^2 + y^2 + z^2, [x,y,z]);.

                           _        _        _
                       2 x e  + 2 y e  + 2 z e
                            x        y        z
 

If you don't like this "basis format" notation, insert the command

> BasisFormat(false):

after the with(VectorCalculus):

Actually this doesn't minimize the sum of the distances, it's a more complicated function that it minimizes.  For the sum of the distances, you'd want to use

add(abs(sqrt((L[i,1]-CX)^2 + (L[i,2]-CY)^2) - r), i=1..nops(L))

Moreover, if you did minimize the sum of the distances from the points to the circle, the result would be simply the median distance from the centre to the points.

Actually this doesn't minimize the sum of the distances, it's a more complicated function that it minimizes.  For the sum of the distances, you'd want to use

add(abs(sqrt((L[i,1]-CX)^2 + (L[i,2]-CY)^2) - r), i=1..nops(L))

Moreover, if you did minimize the sum of the distances from the points to the circle, the result would be simply the median distance from the centre to the points.

Instead of a TextArea, you could also use a Slider, something like this:

G2:= proc()
   local s,t;
   s:= time();
   while time() < s + 20 do
     t:= time();
     while time() < t+1 do end do:
     Maplets:-Tools:-Set(SL1(value)=round(t+1-s));
   end do;
 end;
with(Maplets[Elements]):
 maplet2 := Maplet([[
    Slider['SL1'](0..20,showticks,'majorticks'=10, 'minorticks'=1),
    Button("Go", Action(Evaluate('function'='G2()'))),
    Button("Done", Shutdown())
 ]]):
 Maplets[Display](maplet2);

Unfortunately, the new components introduced in Maple 12, such as Volume Gauge and Rotary Gauge, are not in the Maplets package.