runtotest_atmatch macro match dba test lattice beta functions and dispersion using
SOURCE CODE
0001 function [bx]=betx(Seq,indx)
0002 % get value of betx for Seq(indx)
0003
0004 T=twissring(Seq,0,indx);
0005 b=cat(1,T.beta);
0006 bx=b(:,1)';
0007
0008 end