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

data1={{4.198`,1.935`},{4.793`,2.008`},{5.156`,2.075`},{5.402`,2.132`},{5.595`,2.172`},{5.749`,2.215`},{5.883`,2.255`},{6.003`,2.288`},{6.107`,2.33`},{6.195`,2.347`},{6.277`,2.383`},{6.361`,2.397`},{6.427`,2.43`},{6.483`,2.446`},{6.538`,2.463`},{6.577`,2.488`},{6.609`,2.504`},{6.65`,2.521`},{6.694`,2.529`},{6.719`,2.546`},{6.751`,2.563`},{6.785`,2.571`}}

data2={{4.078`,1.901`},{4.69`,1.98`},{5.039`,2.061`},{5.285`,2.112`},{5.487`,2.155`},{5.638`,2.212`},{5.783`,2.255`},{5.9`,2.289`},{5.996`,2.323`},{6.089`,2.362`},{6.166`,2.388`},{6.248`,2.427`},{6.297`,2.452`},{6.386`,2.486`},{6.449`,2.514`},{6.493`,2.55`},{6.554`,2.564`},{6.594`,2.587`},{6.634`,2.621`},{6.687`,2.654`}}

ListPlot[{data1,data2},PlotStyle->{Red, Blue},Frame->True,FrameLabel->{"Log A","Log S"},LabelStyle->Directive[FontSize->14]]

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

Length[data2]

firstder1=Table[((data1[[i,2]]-data1[[i+1,2]])/(data1[[i,1]]-data1[[i+1,1]])),{i,1,21}]
firstder2=Table[{data2[[i,1]],((data2[[i,2]]-data2[[i+1,2]])/(data2[[i,1]]-data2[[i+1,1]]))},{i,1,19}]

ListPlot[firstder1,PlotStyle->Black,Frame->True,FrameLabel->{"Log A","Rate of change of Log S"},LabelStyle->Directive[FontSize->14]]
ListPlot[firstder2,PlotStyle->Black,Frame->True,FrameLabel->{"Log A","Slope of line segment"},LabelStyle->Directive[FontSize->14]]

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

ListPlot[{data2},Joined->True,PlotStyle->{Black}]
ListPlot[{data2},PlotStyle->Blue,Frame->True,FrameLabel->{"Log A","Rate of change of Log S"},LabelStyle->{Directive[FontSize->14]}]
Show[%,%%]

Export["4.eps",%38,"EPS"]