63 lines
1.9 KiB
Plaintext
63 lines
1.9 KiB
Plaintext
!-----------------------------------
|
|
! collimator
|
|
|
|
|
|
R56 = -000e-6;
|
|
|
|
MATCH,RMATRIX,SEQUENCE=swissFEL,range=SARCL02$start/SARCL02$end,betx=10,alfx=0,bety=10,alfy=0;
|
|
VARY,NAME=sarcl02.mqua130.k1,STEP=0.0001;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl02.mqua210,re56=R56*0.5;
|
|
LMDIF,CALLS=100,TOLERANCE=1.e-21;
|
|
ENDMATCH;
|
|
|
|
|
|
sarcl02.mqua210.k1=-sarcl02.mqua130.k1*0.9;
|
|
|
|
MATCH,SEQUENCE=swissfel,range=sarcl02$start/sarma01.mqua010,betx=10,alfx=0,bety=10,alfy=0;
|
|
VARY,NAME=sarcl02.mqua250.k1,STEP=0.0001;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl02.dbpm260$end,dpx=0;
|
|
LMDIF,CALLS=100,TOLERANCE=1.e-21;
|
|
ENDMATCH;
|
|
|
|
|
|
sarcl02.mqua310.k1=sarcl02.mqua250.k1;
|
|
sarcl02.mqua350.k1=sarcl02.mqua210.k1;
|
|
sarcl02.mqua460.k1=sarcl02.mqua130.k1;
|
|
|
|
|
|
dL=0.625+0.25;
|
|
bx0=25;
|
|
bx=bx0+dL*dL/bx0;
|
|
ax=-dL/bx0;
|
|
by0=0.8;
|
|
by=by0+dL*dL/by0;
|
|
ay=-dL/by0;
|
|
|
|
|
|
twiss,sequence=swissfel,range=sarcl02.mqsk300/sarma01.mqua010,betx=bx,alfx=ax,bety=by,alfy=ay;
|
|
|
|
nbetx= table(twiss,sarma01$start,betx);
|
|
nalfx=-table(twiss,sarma01$start,alfx);
|
|
nbety= table(twiss,sarma01$start,bety);
|
|
nalfy=-table(twiss,sarma01$start,alfy);
|
|
|
|
|
|
MATCH,SEQUENCE=swissfel,range=s30cb10.mqua430$start/sarma01.mqua010,beta0=initcon;
|
|
VARY,NAME=sarcl01.mqua020.k1,STEP=0.0001;
|
|
VARY,NAME=sarcl01.mqua050.k1,STEP=0.0001;
|
|
VARY,NAME=sarcl01.mqua080.k1,STEP=0.0001;
|
|
VARY,NAME=sarcl01.mqua100.k1,STEP=0.0001;
|
|
VARY,NAME=sarcl01.mqua140.k1,STEP=0.0001;
|
|
VARY,NAME=sarcl01.mqua190.k1,STEP=0.0001;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl02$start,betx=nbetx;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl02$start,alfx=nalfx;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl02$start,bety=nbety;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl02$start,alfy=nalfy;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl01.mqua050,bety<30;
|
|
CONSTRAINT,SEQUENCE=swissfel,range=sarcl01.mqua190,betx<30;
|
|
LMDIF,CALLS=100,TOLERANCE=1.e-21;
|
|
ENDMATCH;
|
|
|
|
|
|
|
|
twiss,sequence=swissfel,range=s30cb10.mqua430$start/sarma01.mqua010,rmatrix,beta0=initcon; |