```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 HanlonOn 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?>
```