read in ESRF lattice
0001 %read in ESRF lattice 0002 r=esrf; 0003 0004 %create element from kick map and plot kick map 0005 U35elem=atidtable('U35',1,'U35.mat',6.04,'IDTablePass'); 0006 xtable=U35elem.xtable; 0007 ytable=U35elem.ytable; 0008 xkick=U35elem.xkick; 0009 ykick=U35elem.ykick; 0010 surf(xtable,ytable,xkick) 0011 figure 0012 surf(xtable,ytable,ykick) 0013 0014 %add kick map to lattice 0015 esrf_U35 = add_ID(r,U35elem); 0016 0017 %compute optics with and without kick map 0018 [p0,t0]=atlinopt(r,0,1); 0019 [pU35,tU35]=atlinopt(esrf_U35,0,1); 0020 0021 %write out tune change due to undulator 0022 t0-tU35