기하하학특강 
수학과 홍명진  (2006160038)



data={{Log[1],Log[71]},{Log[1/2],Log[250]},{Log[1/4],Log[895]},{Log[1/8],Log[2568]}}

data1=N[{{Log[1],Log[71]},{Log[1/2],Log[250]},{Log[1/4],Log[895]},{Log[1/8],Log[2568]}}]

line=Fit[data,{1,x},x]

Show[ListPlot[data,PlotStyle->Orange,AspectRatio->Automatic],Plot[{line},{x,-3,1}]]