PSD Distance

plotLM = ListPlot[LM, PlotStyle→PointSize[0.02], DisplayFunction→Identity] ;

plotDL = ListPlot[DL, PlotStyle→PointSize[0.02], DisplayFunction→Identity] ;

plotCT = ListPlot[CT, PlotStyle→PointSize[0.02], DisplayFunction→Identity] ;

plotDR = ListPlot[DR, PlotStyle→PointSize[0.02], DisplayFunction→Identity] ;

plotRM = ListPlot[RM, PlotStyle→PointSize[0.02], DisplayFunction→Identity] ; <br />

fLM = FindFit[LM, a/(x + b) + c, {a, b, c}, x] ;

lineLM = Plot[a/(x + b) + c/.fLM, {x, 600, 100}, DisplayFunction→Identity] ;

SLM = Show[plotLM, lineLM, DisplayFunction→$DisplayFunction] ; <br />

fDL = FindFit[DL, a/(x + b) + c, {a, b, c}, x] ;

lineDL = Plot[a/(x + b) + c/.fDL, {x, 600, 100}, DisplayFunction→Identity] ;

SDL = Show[plotDL, lineDL, DisplayFunction→$DisplayFunction] ; <br />

fCT = FindFit[CT, a/(x + b) + c, {a, b, c}, x] ;

lineCT = Plot[a/(x + b) + c/.fCT, {x, 600, 100}, DisplayFunction→Identity] ;

SCT = Show[plotCT, lineCT, DisplayFunction→$DisplayFunction] ; <br />

fDR = FindFit[DR, a/(x + b) + c, {a, b, c}, x] ;

lineDR = Plot[a/(x + b) + c/.fDR, {x, 600, 100}, DisplayFunction→Identity] ;

SDR = Show[plotDR, lineDR, DisplayFunction→$DisplayFunction] ; <br />

fRM = FindFit[RM, a/(x + b) + c, {a, b, c}, x] ;

lineRM = Plot[a/(x + b) + c/.fRM, {x, 600, 100}, DisplayFunction→Identity] ;

SRM = Show[plotRM, lineRM, DisplayFunction→$DisplayFunction] ; <br />

a/(x + b) + c/.fLM

a/(x + b) + c/.fDL

a/(x + b) + c/.fCT

a/(x + b) + c/.fDR

a/(x + b) + c/.fRM

[Graphics:HTMLFiles/index_31.gif]

[Graphics:HTMLFiles/index_32.gif]

[Graphics:HTMLFiles/index_33.gif]

[Graphics:HTMLFiles/index_34.gif]

[Graphics:HTMLFiles/index_35.gif]

-34.5832 + 30005.7/(12.9544 + x)

-34.526 + 34290./(36.7759 + x)

-36.7929 + 34853.9/(48.6732 + x)

-24.4738 + 28347.2/(23.7706 + x)

-40.2408 + 33804.3/(54.101 + x)

UltraSonic Distance

Solve[40 == -97.0373 + 0.188568 * x, x]

x→726.726

plotpoints1 = ListPlot[points, PlotStyle→PointSize[0.02]] ;

f1 = FindFit[points, e x + k, {e, f, k}, x] ;

plotline = Plot[e x + k/.f1, {x, 650, 10900}] ;

Show[plotpoints, plotline] ;

e x + k/.f1

[Graphics:HTMLFiles/index_49.gif]

[Graphics:HTMLFiles/index_50.gif]

[Graphics:HTMLFiles/index_51.gif]

-97.0373 + 0.188568 x

All Data

plotpoints = ListPlot[points, PlotStyle→PointSize[0.02]] ;

f1 = FindFit[points, e x + f/x + k, {e, f, k}, x] ;

plotline = Plot[e x + f/x + k/.f1, {x, 650, 10900}] ;

Show[plotpoints, plotline] ;

e x + f/x + k/.f1

[Graphics:HTMLFiles/index_60.gif]

[Graphics:HTMLFiles/index_61.gif]

[Graphics:HTMLFiles/index_62.gif]

-60.2674 - 19985.8/x + 0.171728 x