Date: Nov 25, 2012 4:59 AM
Author: Bob Hanlon
Subject: Re: How to use a function "Manipulate" to SmoothHistogram3D

data = {{4000., 3.54036*^-9}, {5000., 5.22417*^-8}, {5500.,
5.63087*^-8},
{6000., 6.0201*^-7}, {6500., 6.55389*^-7}};

Manipulate[
SmoothHistogram3D[data, {bw, ker}, dfun,
PlotLabel -> Style["Smooth Histogram 3D\n", Bold, 14],
AxesLabel -> (Style[#, Bold, 12] & /@
{"x", "y", "dfun "})],
{{bw, "Silverman", "Bandwidth"}, {
"LeastSquaresCrossValidation",
"Oversmooth",
"Scott",
"SheatherJones",
"Silverman",
"StandardDeviation",
"StandardGaussian"}},
{{ker, "Gaussian", "Kernel"}, {
"Biweight",
"Cosine",
"Epanechnikov",
"Gaussian",
"Rectangular",
"SemiCircle",
"Triangular",
"Triweight"}},
{{dfun, "PDF", "Distribution\nFunction (dfun)"}, {
"PDF" -> "Probability Density Function",
"CDF" -> "Cumulative Density Function",
"SF" -> "Survival Function",
"HF" -> "Hazard Function",
"CHF" -> "Cumulative Hazard Function"},
ControlType -> PopupMenu}]


Bob Hanlon


On Sat, Nov 24, 2012 at 2:31 AM, <heliumm.00@gmail.com> wrote:
> How to use a function "Manipulate" to SmoothHistogram3D[data[[1]]], I imported data from Excel. Data is: {4000., 3.54036*10^-9}, {5000., 5.22417*10^-8}, {5500., 5.63087*10^-8}, {6000., 6.0201*10^-7}, {6500., 6.55389*10^-7}.
> How to animate SmoothHistogram3D?
>