FindFit

1 Parameter

plotDA = ListPlot[DA, PlotStyle→PointSize[0.02], DisplayFunction→Identity] ;

fDA = FindFit[DA, a * Power[x, 4] + b * Power[x, 2] + c, {a, b, c}, x] ;

lineDA = Plot[a * Power[x, 4] + b * Power[x, 2] + c/.fDA, {x, -100, 100}, DisplayFunction→Identity] ;

SDA = Show[plotDA, lineDA, DisplayFunction→$DisplayFunction] ; <br />

a * Power[x, 4] + b * Power[x, 2] + c/.fDA

2 Parameter

{20, 2.5, 345, 26}

{20, 3, 360, 34}

{40, 2.5, 413, 38}

{40, 3, 435, 50}

DA1 = {{20, 2.5, 26}, {20, 3, 34}, {40, 2.5, 38}, {40, 3, 50}} ;

DA2 = {{20, 2.5, 345}, {20, 3, 360}, {40, 2.5, 413}, {40, 3, 435}} ; <br />

fDA1 = FindFit[DA1, a * x^2 + b * x + c * y^2 + d * y + e, {a, b, c, d, e}, {x, y}] ;

fDA2 = FindFit[DA2, a * x^2 + b * x + c * y^2 + d * y + e, {a, b, c, d, e}, {x, y}] ;

a * x^2 + b * x + c * y^2 + d * y + e/.fDA1

a * x^2 + b * x + c * y^2 + d * y + e/.fDA2

-8.00377 + 0.11448 x + 0.00975867 x^2 + 2.99452 y + 3.09191 y^2

191.965 + 2.83797 x + 0.0122838 x^2 + 34.8819 y + 0.385112 y^2

2 Parameter FindFit Formula

x : L (AD변환값)

y : H (AD변환값)

결과 : 거리

fDA1 = FindFit[DA, b * x + d * y + e, {b, d, e}, {x, y}] ;

b * x + d * y + e/.fDA1

fDA2 = FindFit[DA, a * x^2 + b * x + c * y^2 + d * y + e, {a, b, c, d, e}, {x, y}] ;

a * x^2 + b * x + c * y^2 + d * y + e/.fDA2

13.6265 + 0.162754 * x - 0.02001 * y

15.2976 + 0.883439 * x - 0.0545297 * x^2 - 0.0490826 * y + 0.0000427046 * y * 2