1 | %============================================================= |
---|
2 | function [varargout] = CORInit_Orb(varargin) |
---|
3 | %============================================================= |
---|
4 | %Initialize COR structure for SPEAR ORBIT program |
---|
5 | |
---|
6 | %COR=CORInit_Orb(COR); |
---|
7 | |
---|
8 | COR=varargin{1}; |
---|
9 | |
---|
10 | %horizontal |
---|
11 | COR(1).AOFamily='HCM'; |
---|
12 | ntxcor=size(COR(1).name,1); |
---|
13 | COR(1).mode=0; %...display to show name, toggle for cor.ifit |
---|
14 | COR(1).wt= ones(ntxcor,1); %...fitting weights |
---|
15 | COR(1).fit= zeros(ntxcor,1); %...result of fitting |
---|
16 | COR(1).save= zeros(ntxcor,1); %...for corrector restore |
---|
17 | COR(1).saveflag=0; %...correctors not saved |
---|
18 | COR(1).fract=0.7; %...fraction of correction |
---|
19 | COR(1).id=1; %...initialize cor selection |
---|
20 | COR(1).scalemode=0; %...0=manual mode, 1=autoscale |
---|
21 | COR(1).ylim=25.0; %...25 amp vertical axis scale |
---|
22 | COR(1).status=(1:ntxcor)'; %...initial status vector |
---|
23 | COR(1).avail =(1:ntxcor)'; %...initial availability vector (in response matrix) |
---|
24 | COR(1).ifit =(1:ntxcor)'; %...initial fitting index vector |
---|
25 | COR(1).ibump =[]; %...initial corrrector bump index vector |
---|
26 | COR(1).bumpref =[]; %...initial corrrector values for bump |
---|
27 | COR(1).ATindex=family2atindex(COR(1).AOFamily); %load AT indices |
---|
28 | |
---|
29 | |
---|
30 | %vertical |
---|
31 | COR(2).AOFamily='VCM'; |
---|
32 | ntycor=size(COR(2).name,1); |
---|
33 | COR(2).mode=0; %...display to show name, toggle for cor.ifit |
---|
34 | COR(2).wt= ones(ntycor,1); %...weights for fitting |
---|
35 | COR(2).fit= zeros(ntycor,1); %...result of fitting |
---|
36 | COR(2).save= zeros(ntycor,1); %...for corrector reset |
---|
37 | COR(2).saveflag=0; %...correctors not saved |
---|
38 | COR(2).fract=0.7; %...fraction of correction |
---|
39 | COR(2).id=1; %...initialize corrector selection |
---|
40 | COR(2).scalemode=0; %...0=manual mode, 1=autoscale |
---|
41 | COR(2).ylim=50.0; %...5 amp vertical axis scale |
---|
42 | COR(2).status=(1:ntycor)'; %...initial status vector |
---|
43 | COR(2).avail =(1:ntycor)'; %...initial availability vector (in response matrix) |
---|
44 | COR(2).ifit =(1:ntycor)'; %...initial fitting index vector |
---|
45 | COR(2).ibump =[]; %...initial corrrector bump index vector |
---|
46 | COR(2).bumpref =[]; %...initial corrrector values for bump |
---|
47 | COR(2).ATindex=family2atindex(COR(1).AOFamily); %load AT indices |
---|
48 | |
---|
49 | varargout{1}=COR; |
---|