Math Forum / Math Software / Mathematica / December 2006

Taken directly from the help system
NestWhile[f, expr, test, m, max] applies f at most max times.
NestWhile[f, expr, test, m, max, n] applies f an extra n times.
NestWhile[f, expr, test, m, max, -n] returns the result found when f had

{{0,0,0},{{0,0,13},{0,1,9},{0,2,5},{0,3,1}},{{1,0,4},{1,1,0}}}//
   Flatten//Partition[#,3]&
{{0, 0, 0}, {0, 0, 13}, {0, 1, 9}, {0, 2, 5}, {0, 3, 1},
 {1, 0, 4}, {1, 1, 0}}

I want to regularize a function, I want that it is C^inf and with
compact support (proof function for distributions).
I start with:
a = -1; b = 1;

I am new to mathematica and I am looking to integrate the cumulative
distribution function.  I am looking to integrate from 0 to T where
sigma and mu vary by time.   I am not sure how to set this up.  If I use
mu * t and for mu and sigma * square root of t for sigma mathematica

Can anyone please tell how can I use Latex labels in Mathematica
graphics.
Purnendu

I want to apply transformation rules to those elements of a list which
are not lists themselves. The structure of the list is unknown in
advance.
The following simple examples illustrate my my problems with ReplaceAll

Use PlotRange
Plot[10x(1-x),{x,0,1},
   Frame->True,Axes->False];
Plot[10x(1-x),{x,0,1},

I'm not sure if the following is possible or whether it exists somewhere
between the realms of fantasy and science fiction.  I have been unable to do
it.
Given a list, set, vector (whatever you want to call it) consisting of

poly=(w-w1) (w + 2  q +en^2 +  s w^3) + r;
Collect[poly,w]
s*w^4 - s*w1*w^3 + w^2 + (en^2 + 2*q - w1)*w + r - en^2*w1 - 2*q*w1
soln=Transpose[{Re[w],Im[w]}/.

Stratocaster wrote ..

I'm having this problem. I want to plot a number of maclaurin
polynomials and I want to do it like this:
Plot[Table[Normal[Series[Sin[x], {x, 0, i}]], {i, 5}], {x, -15, 15}]
This gives me a bunch of error messages. However, if I first print the

Please, try this with Mathematica (5.2):
<< Graphics`Graphics`
PolarPlot[Sin[t]^2 Cos[t]^2, {t, 0, 2Pi}]
PolarPlot[Sin[t]^2 Cos[t]^2, {t, 0, 21}]

Looking for a method to convert a mathematica Graphics3D object into a
CAD/CAM file.  Any ideas?
Steve

I tried it also on 5.1 in Windows98 and it also crashed there. It does not
crash if there is a complete cycle. The following works properly in 5.1 and
5.2.
Needs["DiscreteMath`GraphPlot`"];

Looking at Out[6] and Out[8] it seems --unfortunately- that
HermiteH[Range[0,p],x] simply performs a map over Range[0,p] because if
the recurrence relation for hermite polynomials was used, we would
expect Out[6] about twice smaller than Out[8] (i think). The redefined