Commit 2267ba8c authored by Simone Liuzzo's avatar Simone Liuzzo
Browse files

modified names SMB to SBM. marker at center is SBM-BM\w*

parent a8969a63
......@@ -63,9 +63,9 @@ dr25ind=findcells(ARCA,'FamName','DR_25\w*');
% add Short Bend at correct locations
welems={...
atdrift('DMB',ARCA{dr25ind}.Length-Dist_sourcepoint_fromQF8-LSB/2);...
atsbend('SMB',LSB/2,AngSB/2,0,'BndMPoleSymplectic4Pass');...
atsbend('SBM',LSB/2,AngSB/2,0,'BndMPoleSymplectic4Pass');...
atmarker(['SBM' '-BM' num2str(idnum,'%.2d')]);...
atsbend('SMB',LSB/2,AngSB/2,0,'BndMPoleSymplectic4Pass');...
atsbend('SBM',LSB/2,AngSB/2,0,'BndMPoleSymplectic4Pass');...
atdrift('DMB',Dist_sourcepoint_fromQF8-LSB/2);...
};
......@@ -79,7 +79,7 @@ ARCAW=[...
arc0=ARCAW;
arc0SB=ARCAW;
arc0=atsetfieldvalues(arc0,atgetcells(arc0,'FamName','SMB'),'BendingAngle',0); % no minibend
arc0=atsetfieldvalues(arc0,atgetcells(arc0,'FamName','SBM'),'BendingAngle',0); % no minibend
% remove ~1mrad from DQ2C and DQ1B to keep total angle constant
i1=find(atgetcells(ARCAW,'FamName','\w*DQ2C\w*'));
......@@ -172,8 +172,8 @@ function [rok,d]=matchSurveyml(r,r0,r0sb,BndToChange,BndToChange2,BndToChange3,p
% match the survey
idpos=findcells(r,'FamName','SBM');
idpos0=findcells(r0,'FamName','SBM');
idpos=findcells(r,'FamName','SBM-BM\w*');
idpos0=findcells(r0,'FamName','SBM-BM\w*');
%idpos=[1:idpos-10,(idpos+10):length(r)];
%idpos0=[1:idpos0-10,(idpos0+10):length(r0)];
......@@ -218,7 +218,7 @@ indB3=findcells(r,'FamName',BndToChange3{:});%
v1=atVariableBuilder(r,...
{@(ar,deltabend)Vary3Bend(ar,deltabend,indB1,indB2,indB3)},{[0.0, 0.0]'});
indsmb=findcells(r,'FamName','SMB');%
indsmb=findcells(r,'FamName','SBM-BM\w*');%
v2=atVariableBuilder(r,...
{@(ar,deltabend)atsetfieldvalues(ar,indsmb,'Length',deltabend)},{0.045});
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment