data=Import["/Users/troyday/Desktop/Untitled Set 1.txt","Table"]

dataH=Table[{data[[i,1]],data[[i,1]]*data[[i,2]]},{i,1,Length[data]}]

ListPlot[{data},PlotStyle->{Blue},Frame->True,FrameLabel->{"Harvest effort, h (L/hr)","Steady state biomass, N (g/L)"},LabelStyle->Directive[FontSize->14]]

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

ListPlot[{dataH},PlotStyle->{Red},Frame->True,FrameLabel->{"Harvest effort, h (L/hr)","Total harvest rate, H (g/hr)"},LabelStyle->Directive[FontSize->14]]

Export["2.eps",%22,"EPS"]