-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathHelixFit.m
56 lines (53 loc) · 1.71 KB
/
HelixFit.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
function [x_centre, y_centre,Z_p,a,v,th] = HelixFit(Z,vaxis)
x=Z(1,:);
y=Z(2,:);
z=Z(3,:);
if vaxis=='x'
[x_centre, y_centre, r, sq_error] = circleFit ( [y;z] );
fprintf('vaxis is x default\n');
a=r;
[v,th,resnorm,Z_p] = curveFit(x_centre,y_centre,a,x,y,z);
elseif vaxis=='y'
[x_centre, y_centre, r, sq_error] = circleFit ( [x;z] );
fprintf('vaxis is y default\n');
a=r;
[v,th,resnorm,Z_p] = curveFit(x_centre,y_centre,a,y,x,z);
elseif vaxis=='z'
[x_centre, y_centre, r, sq_error] = circleFit ( [x;y] );
fprintf('vaxis is z default\n');
a=r;
[v,th,resnorm,Z_p] = curveFit(x_centre,y_centre,a,z,x,y);
else
[x_centre, y_centre, r, sq_error] = circleFit ( [y;z] );
centre(1,1)=x_centre;
centre(1,2)=y_centre;
centre(1,3)=r;
centre(1,4)=sq_error;
[x_centre, y_centre, r, sq_error] = circleFit ( [x;z] );
centre(2,1)=x_centre;
centre(2,2)=y_centre;
centre(2,3)=r;
centre(2,4)=sq_error;
[x_centre, y_centre, r, sq_error] = circleFit ( [x;y] );
centre(3,1)=x_centre;
centre(3,2)=y_centre;
centre(3,3)=r;
centre(3,4)=sq_error;
min_index=find(centre(:,4)==min(centre(:,4)));
if min_index==1
fprintf('vaxis is x\n');
a=centre(min_index,3);
[v,th,resnorm,Z_p] = curveFit(x_centre,y_centre,a,x,y,z);
elseif min_index==2
fprintf('vaxis is y\n');
a=centre(min_index,3);
%[v,th,resnorm,Z_p] = curveFit(a,y,x,z);
[v,th,resnorm,Z_p] = curveFit(x_centre,y_centre,a,y,x,z);
else min_index==3
fprintf('vaxis is z\n');
a=centre(min_index,3);
%[v,th,resnorm,Z_p] = curveFit(a,z,x,y);
[v,th,resnorm,Z_p] = curveFit(x_centre,y_centre,a,z,x,y);
end
end
end