# Wolfram Language™

## Truncated Distribution with Quantities

The diameter of an American cranberry follows a normal distribution with mean 16 mm and standard deviation 1.6 mm. A fruit must be at least 15 mm across to be sold as whole; otherwise, it is used in the production of cranberry sauce. Find the size distribution of the fruits being sold as whole.

In:= ```cran\[ScriptCapitalD] = NormalDistribution[Quantity[16, "Millimeters"], Quantity[1.6, "Millimeters"]]; \[ScriptCapitalD] = TruncatedDistribution[{Quantity[15, "Millimeters"], \[Infinity]}, cran\[ScriptCapitalD]];```

Compare probability density functions.

In:= ```Plot[{PDF[cran\[ScriptCapitalD], Quantity[x, "Milimeters"]], PDF[\[ScriptCapitalD], Quantity[x, "Milimeters"]]}, {x, 10, 22}, PlotLegends -> {"cran\[ScriptCapitalD]", "\[ScriptCapitalD]"}, Filling -> Axis, AxesLabel -> {"mm"}]```
Out= Assuming that a one-pound package of cranberries has volume around 30 in3, find the average lower and upper bounds for the number of cranberries in such a package.

In:= ```lowerbound = Floor[NExpectation[ Divide[Quantity[30, "Inches"^3], Volume[Cuboid[{0, 0, 0}, {x, x, x}]]], x \[Distributed] \[ScriptCapitalD]]]```
Out= In:= ```upperbound = Ceiling[NExpectation[ Divide[Quantity[30, "Inches"^3], Volume[Ball[{0, 0, 0}, x/2]]], x \[Distributed] \[ScriptCapitalD]]]```
Out= 