load_corcalib.m 745 Bytes
Newer Older
Simone Liuzzo's avatar
Simone Liuzzo committed
1 2 3 4 5 6 7
function varargout=load_corcalib(varargin)
%LOAD_CORCALIB			loads corrector calibration
%
%[H,V,S,Q]=LOAD_CORCALIB(OPTICS,...);
%
%The OPTICS argument may be one of the following:
%
8
%- 'sy', 'ebs'
Simone Liuzzo's avatar
Simone Liuzzo committed
9 10 11 12 13
%
%H,V : hor./vert. steerer calibration in radians/A
%
%[COEF1,...]=LOAD_CORCALIB(MACH,PLANE1,...) returns the selected calibs
%
14 15
%PLANE : 'h' for horizontal steerers	[1x1]
%        'v' for horizontal steerers	[1x1]
Simone Liuzzo's avatar
Simone Liuzzo committed
16 17 18 19 20
%        's' for skew quad correctors	[32x1]
%        'q' for normal quad correctors	[1x1]
%
%

21
mach = varargin{1};
Simone Liuzzo's avatar
Simone Liuzzo committed
22

23 24
if strcmp(mach,'ebs')				% default values
   disp('no calibrations');
Simone Liuzzo's avatar
Simone Liuzzo committed
25
elseif strcmp(mach,'sy')
26
    disp('Using default calibration');
Simone Liuzzo's avatar
Simone Liuzzo committed
27 28 29 30 31 32
    h=3.79587e-3;
    v=3.93469e-3;
    q=[];
    s=[];
end

33
varargout={h,v,s,q};