In[]:=
xyCoords={{0.,0.},{2.16,2.22104},{4.32,3.17666},{6.48,3.91381},{8.64,4.52599},{10.8,5.04849},{12.96,5.49951},{15.12,5.89023},{17.28,6.22847},{19.44,6.52016},{21.6,6.77017},{23.76,6.98262},{25.92,7.16116},{28.08,7.30909},{30.24,7.42943},{32.4,7.52497},{34.56,7.5983},{36.72,7.65181},{38.88,7.68767},{41.04,7.7079},{43.2,7.71429},{45.36,7.70839},{47.52,7.69156},{49.68,7.66489},{51.84,7.62922},{54.,7.58514},{56.16,7.53295},{58.32,7.47268},{60.48,7.40407},{62.64,7.32661},{64.8,7.23952},{66.96,7.14174},{69.12,7.03198},{71.28,6.90874},{73.44,6.77029},{75.6,6.61472},{77.76,6.43994},{79.92,6.24374},{82.08,6.02374},{84.24,5.77745},{86.4,5.50229},{88.56,5.19558},{90.72,4.8545},{92.88,4.47615},{95.04,4.05744},{97.2,3.59503},{99.36,3.08504},{101.52,2.52237},{103.68,1.8984},{105.84,1.18962},{108.,0.}};​​Labeled[ListLinePlot[xyCoords,AspectRatioAutomatic],{"LENGTH FROM NOSE, FEET","OFFSET FROM CENTERLINE, FEET"},{Bottom,Left},RotateLabelTrue]​​curve=Interpolation[xyCoords];​​hullForm=RevolutionPlot3D[curve[t],{t,0,108},RevolutionAxis{1,0,0},AxesFalse,BoxedFalse]​​DiscretizeGraphics[hullForm]​​Area[DiscretizeGraphics[hullForm]]​​Volume[DiscretizeGraphics[hullForm]]​​
Out[]=
OFFSET FROM CENTERLINE, FEET
0
20
40
60
80
100
4
​
LENGTH FROM NOSE, FEET
Out[]=
DiscretizeGraphics
:Value of option PlotRange -> {{Automatic,Automatic},{Automatic,Automatic},{Automatic,Automatic}} is not All, Full, Automatic, a positive machine number, or an appropriate list of range specifications.
DiscretizeGraphics
:Value of option PlotRange -> {{Automatic,Automatic},{Automatic,Automatic},{Automatic,Automatic}} is not All, Full, Automatic, a positive machine number, or an appropriate list of range specifications.
DiscretizeGraphics
:Value of option PlotRange -> {{Automatic,Automatic},{Automatic,Automatic},{Automatic,Automatic}} is not All, Full, Automatic, a positive machine number, or an appropriate list of range specifications.
DiscretizeGraphics
:Value of option PlotRange -> {{Automatic,Automatic},{Automatic,Automatic},{Automatic,Automatic}} is not All, Full, Automatic, a positive machine number, or an appropriate list of range specifications.
Out[]=
4074.24
DiscretizeGraphics
:Value of option PlotRange -> {{Automatic,Automatic},{Automatic,Automatic},{Automatic,Automatic}} is not All, Full, Automatic, a positive machine number, or an appropriate list of range specifications.
DiscretizeGraphics
:Value of option PlotRange -> {{Automatic,Automatic},{Automatic,Automatic},{Automatic,Automatic}} is not All, Full, Automatic, a positive machine number, or an appropriate list of range specifications.
Out[]=
Undefined