Commit 2daee9c0 authored by Simone Liuzzo's avatar Simone Liuzzo
Browse files

modify drift length after SB instead of SB marker length

parent 2e9bb229
......@@ -32,7 +32,7 @@ function [ r, arc ] = ShortBend( r,idnum,varargin )
% 2PW parameters
LSB=0.0488588; % (0.063+0.038)/2; % m
AngSB_def=2.09988e-3;% rad +2.122e-3; % rad
Dist_sourcepoint_fromQF8=0.10825;
Dist_sourcepoint_fromQF8=0.10825 - 0.0095574; % position from drawing
p=inputParser;
addRequired(p,'r',@iscell);
......@@ -220,10 +220,13 @@ indB3=findcells(r,'FamName',BndToChange3{:});%
v1=atVariableBuilder(r,...
{@(ar,deltabend)Vary3Bend(ar,deltabend,indB1,indB2,indB3)},{[0.0, 0.0]'});
% change of length of drift to fix geometry
indsmb=findcells(r,'FamName','SBM-BM\w*');%
inddr=findcells(r,'Class','Drift');%
inddrchange = inddr(find(inddr-indsmb>0,1,'first'));
v2=atVariableBuilder(r,...
{@(ar,deltabend)atsetfieldvalues(ar,indsmb,'Length',deltabend)},{0.045});
{@(ar,deltabend)atsetfieldvalues(ar,inddrchange,'Length',deltabend)},{0.045});
indqf4=find(atgetcells(r,'FamName','QF4\w*'));
pb0qf=atgetfieldvalues(r,indqf4,'PolynomB',{1,2});% r{indqf4(1)}.PolynomB(2);
......
Markdown is supported
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