data=Import["/Users/troyday/Desktop/GauseData.txt","Table"]

Solve[(64/(1+k))==2.1,k]

ListPlot[data,PlotStyle->{Red,PointSize[.02]}]
Plot[(64/(1+31 Exp[-0.7944 t])),{t,0,16},PlotRange->{0,80},Frame->True,FrameLabel->{"Days","Volume"},LabelStyle->Directive[FontSize->14]]
Show[%,%%]

Export["1.eps",%87,"EPS"]

Plot[(64/(1+31 Exp[-0.7944 t])),{t,0,25}]