|
|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
椭球方程为一般二次曲面方程:f=a*x*x+b*y*y+c*z*z+d*2*x*y+e*2*x*z+f*2*y*z+p*2*x+q*2*y+*r*2*z+g;; K0 @9 V0 J' ^! c) ?: q$ b+ A
需要拟合出系数[a b c d e f p q r g];
8 T2 ?5 c8 w, _& V o已知测量数据x y z:
- H+ N! M% F! [4 l9 e- M' R 76.561 -125.92 187.94# T* d# A3 V6 E
321.38 193.05 133.073 ^) B, A, W6 K; U4 c9 G' d
2.3395 439.42 94.384 G6 M& r5 U3 L9 @0 G4 `3 \
-201.23 119.15 138.61
' D) Q0 G' ~8 e' W. [ 352.77 422.41 -86.162
+ k$ O; s1 C# `7 k9 h! H 371.4 119.72 167.8
5 G% A! T) m5 l; J' ` 361.08 -106.7 -136.33; F, Q) Q* r# N! [. o8 @( z9 w+ i
320.15 195.71 -414.889 h! T( E3 ~# z+ g) o- O4 J: |
66.5 -105.1 -423.75
7 V8 S7 G/ {& K# F+ L. K3 B 283.17 -214.49 -45.219
: D% d' W( {" T" g7 m3 c* Q -14.378 -109.17 175.694 u- p1 \3 u6 G( b! z' u
-215.19 -79.986 -163.08# ^* N9 v/ q, l4 g6 @
! g: L1 n! x0 O5 s9 {8 r4 Y
程序如下:
6 l* E% A: G0 C- txdata = [m(:,2) m(:,3) m(:,4)];" n6 v7 o1 e8 R. @& i
ydata = [0 0 0 0 0 0 0 0 0 0 0 0]';
$ M1 {5 E" J6 u% M! r4 u3 kk=[0 0 0 0 0 0 0 0 0 0];
' D. z7 _9 c' V- P8 x. cF = @(k,xdata) k(1)*xdata(:,1).*xdata(:,1) + k(2)*xdata(:,2).*xdata(:,2) + k(3)*xdata(:,3).*xdata(:,3) + k(4)*2*xdata(:,1).*xdata(:,2) + k(5)*2*xdata(:,1).*xdata(:,3) + k(6)*2*xdata(:,2).*xdata(:,3) + k(7)*2*xdata(:,1) + k(8)*2*xdata(:,2) + k(9)*2*xdata(:,3) + k(10);
4 E% x% |/ |! @5 _5 Rk0=ones(1,10);% P3 _7 N" G2 R% [. B( i
[k,resnorm]=lsqcurvefit(F,k0,xdata,ydata);. \9 J- L- {% [( S6 S' `1 J% ?9 i: g
8 S9 y& h- X" ^9 k8 z最后结果趋近于零,为什么?求指教; `+ y# P/ O& z/ {9 H, V' M
|
|