jacobc.m

本系统采用VC开发.可实现点云数据的处理,图像缩放,生成曲面.

function [f,J]=jacobc(sys,mod,nbr,p,np,cpar)
%JACOBC Evaluates the camera model and approximates the partial derivates
%with respect to the estimated parameters.
%3-D coordinates and camera parameters. 
%
%Usage:
%   [f,J]=jacobc(sys,mod,nbr,p)
%
%where       
%   sys  = system configuration information (see configc.m) 
%   mod  = matrix for the 3-D coordinates of the control points (n x 3)
%   nbr  = number of points per frame
%   p    = parameter vector (8+N*6 x 1)
%          p(1:8) contains the camera intrinsic parameters
%          p(9...) contains the camera position and orientation for
%          each N images. 
%   f    = synthetic image coordinates
%   J    = Jacobian matrix evaluated at p.

%   Version 2.1b  25.08.1998
%   Janne Heikkila, University of Oulu, Finland

delta=1e-10;
if nargin==4
  np=8;
end
if nargin<6
  cpar=[];
end

n=length(p);
t=(n-np)/6;
ind=[1 cumsum(nbr)+1];
f=frames(sys,mod,nbr,p,np,cpar);
m=length(f)*2;
J=(zeros(m,n));
p=p(:);

for i=1:np
  q=p;
  q(i)=q(i)+delta;
  g=frames(sys,mod,nbr,q,np,cpar);
  J(:,i)=(g(:)-f(:))/delta;
end
 
for j=1:t
  for i=1:6
    q=[p(1:np);p(np+1+(j-1)*6:np+j*6)];
    q(i+np)=q(i+np)+delta;
    g=frames(sys,mod(ind(j):ind(j+1)-1,:),nbr(j),q,np,cpar);
    r=f(ind(j):ind(j+1)-1,:);
    J(ind(j):ind(j+1)-1,np+i+(j-1)*6)=(g(:,1)-r(:,1))/delta;
    J(ind(j)+m/2:ind(j+1)-1+m/2,np+i+(j-1)*6)=(g(:,2)-r(:,2))/delta;
  end
end
J=sparse(J);
f=f(:);