! Damping ring 3.2 km lattice: DMC3 ! Wang Dou 19 January 2011 ! OPTION,-ECHO,DOUBLE call filename="DMC3.xsif" !call,filename="k1_3.2km60.temp" Dou: subroutine simplex, calls=1000,tol=1.0E-7 migrad, calls=1000,tol=1.0E-7 endsub !COMMENT USE, ARCCELL call,filename="DMC3.kvals.90.xsif" !K1.QARCF=0.3 !K1.QARCD=-0.3 CELL VARY, K1.QARCF, STEP=1E-4, LOWER=0.0, UPPER=+1.9 VARY, K1.QARCD, STEP=1E-4, LOWER=-1.9, UPPER=0.0 VARY, LENGTHBF, STEP=1E-1, LOWER=3.0, UPPER=3.0 VARY, LENGTHBD, STEP=1E-1, LOWER=0.5, UPPER=0.5 CONSTRAINT, #E, MUX=0.1745 CONSTRAINT, #E, MUY=0.167 !CONSTRAINT, #S/#E, DX<0.36!,BETY<50,BETX<50!,BETX>2.0 Do times=10 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" !comment USE, ARCCELL !USE, ARC print, full twiss,save plot, table=twiss, range=#s/#e, haxis=s,vaxis1=betx, bety,vaxis2= DX,colour=100 !endcomment !ENDCOMMENT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !COMMENT USE, RFCELL call,filename="DMC3.kvals.90.xsif" !K1.QRFCF=0.3 !K1.QRFCD=-0.3 CELL VARY, K1.QRFCF, STEP=1E-4, LOWER=0.0, UPPER=+0.7 VARY, K1.QRFCD, STEP=1E-4, LOWER=-0.7, UPPER=0.0 ! VARY, LDRFC1, STEP=1E-2, LOWER=2.5, UPPER=3.5 !VARY, LDRFC2, STEP=1E-2, LOWER=2.5, UPPER=3.5 !VARY, LDRFC3, STEP=1E-2, LOWER=2.5, UPPER=3.5 !CONSTRAINT, #E, MUX=0.2 !CONSTRAINT, #E, MUY=0.2 CONSTRAINT, #S/#E, BETY<33, BETX<33 Do times=10 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment USE, RFCELL !USE,RFSEC print, full twiss,save plot, table=twiss, range=#s/#e, haxis=s,vaxis1=betx, bety,colour=100 endcomment !ENDCOMMENT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !COMMENT USE, CCHCELL call,filename="DMC3.kvals.90.xsif" !K1.QCCHF=0.3 !K1.QCCHD=-0.3 CELL VARY, K1.QCCHF, STEP=1E-3, LOWER=0.0, UPPER=+0.7 VARY, K1.QCCHD, STEP=1E-3, LOWER=-0.7, UPPER=0.0 VARY, LDCCH1, STEP=1E-4, LOWER=3, UPPER=3 VARY, LDCCH2, STEP=1E-4, LOWER=1.5, UPPER=1.5 VARY, LDCCH3, STEP=1E-4, LOWER=0.5, UPPER=0.5 VARY, LDCCH4, STEP=1E-4, LOWER=0.5, UPPER=0.5 CONSTRAINT, #E, MUX=0.15 CONSTRAINT, #E, MUY=0.11 ! CONSTRAINT, #S/#E, BETY<40, BETX<40,DX<0.1 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" !ENDCOMMENT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !COMMENT USE, WIGCELL call,filename="DMC3.kvals.90.xsif" !K1.QWIGCF=0.3 !K1.QWIGCD=-0.3 ! MATCH,DX=0,DPX=0,BETX=14.5,BETY=6.5,ALFX=0,ALFY=0 CELL VARY, K1.QWIGCF, STEP=1E-4, LOWER=0.0, UPPER=+0.7 VARY, K1.QWIGCD, STEP=1E-4, LOWER=-0.7, UPPER=0.0 VARY, LDWIGC1, STEP=1E-2, LOWER=0.5, UPPER=0.5 VARY, LDWIGC2, STEP=1E-2, LOWER=0.5, UPPER=0.5 !CONSTRAINT, #E,MUX=0.15,MUY=0.15!DX=0,DPX=0!,,,BETX=14.5,BETY=6.5! ! CONSTRAINT, QWIGCD[1], DPX=0!ABETY=6.5!1 CONSTRAINT, #S/#E,BETX<15,BETY<15!DX<0.1 Do times=10 Dou enddo ! VALUE, LWIG,WANGLE ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" !comment USE, WIGCELL !USE, WIGSEC print, full twiss,DX=0,DPX=0,save!,BETX=ENDWIG[BETX],BETY=ENDWIG[BETY],ALFX=0,ALFY=0 plot, table=twiss, range=#s/#e,haxis=s,vaxis1=betx, bety,vaxis2=DX,colour=100 !endcomment !ENDCOMMENT USE, WIGCELL SAVEBETA, LABEL=ENDWIG, PLACE=#E TWISS,SAVE VALUE, ENDWIG[BETX],ENDWIG[DX] !*********************************************** !COMMENT USE, IJ0 ! K1.QINJ1=-0.2 ! K1.QINJ2=0.2 call,filename="DMC3.kvals.90.xsif" CELL VARY, K1.QINJ1, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 VARY, K1.QINJ2, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 ! VARY, LDINJ1, STEP=1E-3, LOWER=10, UPPER=10 ! VARY, LDINJ2, STEP=1E-3, LOWER=5, UPPER=5 CONSTRAINT, #E, MUX=0.2499, MUY=0.3001 CONSTRAINT, #S/#E,BETY<75,BETX<75!,DX<0.1 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment !USE, IJ0 !USE, IJK USE, INJEXT print, full twiss,save plot, table=twiss, range=#s/#e, haxis=s,vaxis1=betx, bety ,colour=100 endcomment !ENDCOMMENT !*********************************************** !COMMENT USE, PHT call,filename="DMC3.kvals.90.xsif" K1.QPHT1=0.2 K1.QPHT2=-0.2 K1.QPHT3=0.2 K1.QPHT4=-0.2 K1.QPHT5=0.2 K1.QPHT6=-0.2 CELL VARY, LDPHT, STEP=1E-2, LOWER=6, UPPER=6 VARY, K1.QPHT1, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QPHT2, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QPHT3, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QPHT4, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QPHT5, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QPHT6, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, MUX=0.24, MUY=0.24 CONSTRAINT, #S/#E,BETY<43,BETX<43!,BETX>10,BETY>10 Do times=100 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" ! comment USE, PHT print, full twiss,save plot, table=twiss, range=#s/#e, haxis=s,vaxis1=betx, bety ,colour=100 ! endcomment !ENDCOMMENT USE, PHT SAVEBETA, LABEL=PHTW, PLACE=#E TWISS, SAVE USE, ARCCELL SAVEBETA, LABEL=ENDARC, PLACE=#E TWISS,SAVE VALUE, ENDARC[BETX],ENDARC[DX],PHTW[BETX] !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! USE, DSP !COMMENT !call,filename="DMC3.kvals.90.xsif" !K1.QDSP1=K1.QARCD !K1.QDSP2=K1.QARCF !K1.QDSP3=K1.QARCD !K1.QDSP4=K1.QARCF MATCH,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & DX=ENDARC[DX], DPX=ENDARC[DPX] VARY, K0DSP, STEP=1E-4, LOWER=0.0, UPPER=0.2 VARY, K1.QDSP1, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSP2, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSP3, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSP4, STEP=1E-3, LOWER=-0.1, UPPER=+0.9 CONSTRAINT, #E,ALFX=0!, BETX=ENDARC[BETX] CONSTRAINT, #E, ALFY=0!, BETY=ENDARC[BETY] CONSTRAINT, #E, DX=0.0, DPX=0.0! CONSTRAINT, #S/#E,BETY<24,BETX<24 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K..*" ! comment USE, DSP !USE,DSPPHT print, full twiss,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & DX=ENDARC[DX], DPX=ENDARC[DPX],save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 ! endcomment !ENDCOMMENT USE, DSP SAVEBETA, LABEL=ENDDSP, PLACE=#E TWISS, LINE=ARCCELL,SAVE VALUE,ENDDSP[BETX]-ENDARC[BETX],ENDDSP[ALFX]-ENDARC[ALFX],& ENDDSP[BETY]-ENDARC[BETY],ENDDSP[ALFY]-ENDARC[ALFY],& ENDDSP[DX],ENDDSP[DPX] !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! call,filename="DMC3.kvals.90.xsif" USE, MDSPPHT MATCH, BETX=ENDDSP[BETX], ALFX=ENDDSP[ALFX], & BETY=ENDDSP[BETY], ALFY=ENDDSP[ALFY], & DX=0, DPX=0 !VARY, LDMDP, STEP=1E-2, LOWER=1.0, UPPER=12.0 !VARY, LDMDP2, STEP=1E-2, LOWER=1.0, UPPER=12.0 VARY, K1.QMDP1, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMDP2, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMDP3, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMDP4, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, LINE=PHT ! CONSTRAINT, #S/#E,BETX<45!,BETY>6 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K..*" ! comment USE,MDPTEST print, full twiss,LINE=ARCCELL,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 ! endcomment ! ------------------------------------------------------------------------------ !COMMENT call,filename="DMC3.kvals.90.xsif" USE, MPI MATCH, LINE=PHT ! VARY, LDMPI1, STEP=1E-2, LOWER=1.0, UPPER=6.0 ! VARY, LDMPI2, STEP=1E-2, LOWER=5.0, UPPER=6.0 ! VARY, LDMPI3, STEP=1E-2, LOWER=3.0, UPPER=4.0 VARY, K1.QMPI1, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMPI2, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMPI3, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMPI4, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, LINE=IJ0 ! CONSTRAINT, #S/#E,BETY<43,BETX<43 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" ! comment !USE, MPI USE,MPIINJEXT print, full twiss,LINE=PHT,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,colour=100 ! endcomment !ENDCOMMENT ! ------------------------------------------------------------------------------ !COMMENT call,filename="DMC3.kvals.90.xsif" USE, IFD ! K1.QIFD=0.3 CELL VARY, K1.QIFD, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QIFD2, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, MUX=0.15 CONSTRAINT, #E, MUY=0.15 CONSTRAINT, #S/#E,BETY>10,BETX>10 Do times=10 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment USE, IFD print, full twiss,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,colour=100 endcomment ! ENDCOMMENT ! ------------------------------------------------------------------------------ !COMMENT call,filename="DMC3.kvals.90.xsif" USE, MIF MATCH, LINE=IJ0 VARY, K1.QMIF1, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMIF2, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMIF3, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMIF4, STEP=1E-6, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, LINE=IFD Do times=10 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment !USE, MIF USE, MIFT print, full twiss,LINE=IJ0,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,colour=100 endcomment !ENDCOMMENT ! ------------------------------------------------------------------------------ !COMMENT call,filename="DMC3.kvals.90.xsif" USE, MIC MATCH, LINE=IJ0 VARY, K1.QMIC1, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMIC2, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMIC3, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMIC4, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, LINE=CCHCELL CONSTRAINT, #S/#E,BETY<49,BETX<49 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment !USE, MIC USE, MICT print, full twiss,LINE=IJ0,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,colour=100 endcomment !ENDCOMMENT ! ------------------------------------------------------------------------------ ! COMMENT call,filename="DMC3.kvals.90.xsif" USE, MFC MATCH, LINE=IFD VARY, LDMFC, STEP=1E-2, LOWER=5.0, UPPER=15.0 ! VARY, LDMFC2, STEP=1E-3, LOWER=6.0, UPPER=7.0 !VARY, LDMFC3, STEP=1E-3, LOWER=4.4, UPPER=4.5 !VARY, LDMFC4, STEP=1E-3, LOWER=3.0, UPPER=4.0 VARY, K1.QMFC1, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMFC2, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMFC3, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMFC4, STEP=1E-4, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E,LINE=CCHCELL CONSTRAINT, #S/#E,BETY<50,BETX<50 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment ! USE, MFC USE, MFCT print, full twiss,LINE=IFD,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,colour=100 endcomment !ENDCOMMENT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !COMMENT USE, DSPC call,filename="DMC3.kvals.90.xsif" MATCH,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & DX=ENDARC[DX], DPX=ENDARC[DPX] VARY, K0DSPC, STEP=1E-2, LOWER=0.1, UPPER=0.9 VARY, LDSPC, STEP=1E-2, LOWER=2.2, UPPER=2.2 VARY, LDSPC1, STEP=1E-2, LOWER=3.6, UPPER=3.6 VARY, LDSPC2, STEP=1E-2, LOWER=3.1, UPPER=3.1 VARY, LDSPC3, STEP=1E-2, LOWER=2.6, UPPER=2.6 VARY, K1.QDSPC4, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSPC5, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QDSPC6, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QDSPC7, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QDSPC1, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSPC2, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSPC3, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 ! WEIGHT,DPX=500!, DX=50 CONSTRAINT, #E,LINE=CCHCELL CONSTRAINT, BDSPC2, DX=0.0, DPX=0.0 CONSTRAINT, #S/#E,BETY<65,BETX<65 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" ! comment !USE, DSPC USE,DSPCT print, full twiss,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & DX=ENDARC[DX], DPX=ENDARC[DPX],save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 ! endcomment !ENDCOMMENT !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! call,filename="DMC3.kvals.90.xsif" USE, MDSPC MATCH, BETX=ENDDSP[BETX], ALFX=ENDDSP[ALFX], & BETY=ENDDSP[BETY], ALFY=ENDDSP[ALFY], & DX=0, DPX=0 ! VARY, LDMDC, STEP=1E-2, LOWER=1.0, UPPER=12.0 ! VARY, LDMDC1, STEP=1E-2, LOWER=1.0, UPPER=12.0 ! VARY, LDMDC2, STEP=1E-2, LOWER=1.0, UPPER=12.0 ! VARY, LDMDC3, STEP=1E-2, LOWER=1.0, UPPER=12.0 VARY, K1.QMDC1, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMDC2, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMDC3, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMDC4, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, LINE=CCHCELL ! CONSTRAINT, #S/#E,BETX<62,BETY<62 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K..*" ! comment USE,MDCTEST print, full twiss,LINE=ARCCELL,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 ! endcomment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! call,filename="DMC3.kvals.90.xsif" USE, MDSPW MATCH, BETX=ENDDSP[BETX], ALFX=ENDDSP[ALFX], & BETY=ENDDSP[BETY], ALFY=ENDDSP[ALFY], & DX=0, DPX=0 !VARY, LDMDW, STEP=1E-2, LOWER=0.0, UPPER=2.0 !VARY, LDMDW1, STEP=1E-2, LOWER=0.0, UPPER=4.0 !VARY, LDMDW2, STEP=1E-2, LOWER=1.0, UPPER=4.0 VARY, K1.QMDW1, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMDW2, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMDW3, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 ! VARY, K1.QMDW4, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 CONSTRAINT, #E, LINE=WIGCELL ! CONSTRAINT, #S/#E,BETX<40,BETY<40 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K..*" ! comment USE,MDWTEST print, full twiss,LINE=ARCCELL,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 ! endcomment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !COMMENT USE, DSPW call,filename="DMC3.kvals.90.xsif" MATCH,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & DX=ENDARC[DX], DPX=ENDARC[DPX] VARY, K0DSPW, STEP=1E-2, LOWER=0.3, UPPER=0.5 VARY, LDSPW, STEP=1E-2, LOWER=2.6, UPPER=2.6 VARY, LDSPW1, STEP=1E-2, LOWER=3.5, UPPER=3.5 VARY, LDSPW2, STEP=1E-2, LOWER=2.0, UPPER=2.0 VARY, LDSPW3, STEP=1E-2, LOWER=2.5, UPPER=2.5 VARY, K1.QDSPW4, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSPW5, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QDSPW6, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QDSPW7, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QDSPW1, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSPW2, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 VARY, K1.QDSPW3, STEP=1E-3, LOWER=-0.9, UPPER=+0.9 CONSTRAINT, BDSPW2, DX=0.0, DPX=0.0 CONSTRAINT, #E,BETX=ENDWIG[BETX],ALFX=ENDWIG[ALFX],& BETY=ENDWIG[BETY],ALFY=ENDWIG[ALFY]!LINE=WIGCELL ! CONSTRAINT, #S/#E,BETY<65,BETX<65 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment !USE, DSWC USE,DSPWT print, full twiss,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & DX=ENDARC[DX], DPX=ENDARC[DPX],save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 endcomment !ENDCOMMENT ! ------------------------------------------------------------------------------ !COMMENT USE, MPR call,filename="DMC3.kvals.90.xsif" MATCH, LINE=PHT VARY, K1.QMPR1, STEP=1E-5, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMPR2, STEP=1E-5, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMPR3, STEP=1E-5, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMPR4, STEP=1E-5, LOWER=-0.7, UPPER=+0.7 VARY, LDMPR, STEP=1E-2, LOWER=4.8, UPPER=4.8 ! VARY, LDMPR2, STEP=1E-2, LOWER=4, UPPER=6 CONSTRAINT, #E, LINE=RFCELL Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment ! USE,MPR USE,MPRT print, full twiss,LINE=PHT,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 endcomment !ENDCOMMENT ! ------------------------------------------------------------------------------ !COMMENT USE, MRC call,filename="DMC3.kvals.90.xsif" MATCH, LINE=RFCELL VARY, LDMRC, STEP=1E-2, LOWER=7, UPPER=7 VARY, K1.QMRC1, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMRC2, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMRC3, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMRC4, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E, LINE=CCH ! CONSTRAINT, #S/#E,,BETY<50,BETX<50 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" comment ! USE,MRC USE,MRCT print, full twiss,LINE=RFCELL,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 endcomment !ENDCOMMENT ! ------------------------------------------------------------------------------ !COMMENT USE, MCW call,filename="DMC3.kvals.90.xsif" MATCH,LINE=CCH VARY, LDMCW, STEP=1E-2, LOWER=8.3, UPPER=8.3 ! VARY, LDMCW2, STEP=1E-2, LOWER=3.0, UPPER=10.0 ! VARY, LDMCW3, STEP=1E-2, LOWER=3.0, UPPER=10.0 ! VARY, LDMCW4, STEP=1E-2, LOWER=3.0, UPPER=10.0 VARY, K1.QMCW1, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMCW2, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMCW3, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 VARY, K1.QMCW4, STEP=1E-3, LOWER=-0.7, UPPER=+0.7 CONSTRAINT, #E,LINE=WIGCELL ! CONSTRAINT, #S/#E,BETY<52,BETX<52 Do times=5 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" ! comment !USE,MCW USE,MCWT print, full twiss,LINE=CCH,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 ! endcomment !ENDCOMMENT !*********************************************** USE,STRSECIt SAVEBETA, LABEL=ENDSECI, PLACE=#E TWISS,BETX=ENDDSP[BETX], ALFX=ENDDSP[ALFX], & BETY=ENDDSP[BETY], ALFY=ENDDSP[ALFY],SAVE USE,STRSECW SAVEBETA, LABEL=ENDSECW, PLACE=#E TWISS,BETX=ENDDSP[BETX], ALFX=ENDDSP[ALFX], & BETY=ENDDSP[BETY], ALFY=ENDDSP[ALFY],SAVE value,ENDSECI[MUX],ENDSECI[MUY],ENDSECW[MUX],ENDSECW[MUY] COMMENT USE, PHT call,filename="DMC3.kvals.90.xsif" CELL ! VARY, LDPHT, STEP=1E-2, LOWER=6, UPPER=6 VARY, K1.QPHT1, STEP=1E-4, LOWER=-0.0, UPPER=+0.7 VARY, K1.QPHT2, STEP=1E-4, LOWER=-0.7, UPPER=+0.0 VARY, K1.QPHT3, STEP=1E-4, LOWER=-0.0, UPPER=+0.7 VARY, K1.QPHT4, STEP=1E-4, LOWER=-0.7, UPPER=+0.0 VARY, K1.QPHT5, STEP=1E-4, LOWER=-0.0, UPPER=+0.7 VARY, K1.QPHT6, STEP=1E-4, LOWER=-0.7, UPPER=+0.0 ! CONSTRAINT, #E, MUX=0.24+(5.5-ENDSECW[MUX]), & ! MUY=0.24+(5.0-ENDSECW[MUY]) CONSTRAINT, #E,BETX=PHTW[BETX], ALFX=PHTW[ALFX], & BETY=PHTW[BETY], ALFY=PHTW[ALFY] CONSTRAINT, #S/#E,BETY<53,BETX<53!,BETX>10,BETY>10 Do times=10 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" !comment USE, PHT print, full twiss,save plot, table=twiss, range=#s/#e, haxis=s,vaxis1=betx, bety ,colour=100 ! endcomment USE, PHTI call,filename="DMC3.kvals.90.xsif" K1.QPHTI1=K1.QPHT1 K1.QPHTI2=K1.QPHT2 K1.QPHTI3=K1.QPHT3 K1.QPHTI4=K1.QPHT4 K1.QPHTI5=K1.QPHT5 K1.QPHTI6=K1.QPHT6 CELL ! VARY, LDPHTI, STEP=1E-2, LOWER=3, UPPER=6 VARY, K1.QPHTI1, STEP=1E-4, LOWER=-0.0, UPPER=+0.7 VARY, K1.QPHTI2, STEP=1E-4, LOWER=-0.7, UPPER=+0.0 VARY, K1.QPHTI3, STEP=1E-4, LOWER=-0.0, UPPER=+0.7 VARY, K1.QPHTI4, STEP=1E-4, LOWER=-0.7, UPPER=+0.0 VARY, K1.QPHTI5, STEP=1E-4, LOWER=-0.0, UPPER=+0.7 VARY, K1.QPHTI6, STEP=1E-4, LOWER=-0.7, UPPER=+0.0 ! CONSTRAINT, #E, MUX=0.24+(3.0-ENDSECI[MUX]), & ! MUY=0.24+(2.5-ENDSECI[MUY]) CONSTRAINT, #E,BETX=PHTW[BETX], ALFX=PHTW[ALFX], & BETY=PHTW[BETY], ALFY=PHTW[ALFY] CONSTRAINT, #S/#E,BETY<43,BETX<43!,BETX>10,BETY>10 Do times=100 Dou enddo ENDMATCH save,filename="DMC3.kvals.90.xsif",pattern="K1..*" !comment USE, PHTI print, full twiss,save plot, table=twiss, range=#s/#e, haxis=s,vaxis1=betx, bety ,colour=100 ! endcomment ENDCOMMENT !!!!!!!!!!!!!!!! call,filename="DMC3.kvals.90.xsif" !comment !USE,STRSECI !USE,STRSECW USE, ERING print, full ! twiss,BETX=ENDARC[BETX], ALFX=ENDARC[ALFX], & ! BETY=ENDARC[BETY], ALFY=ENDARC[ALFY], & ! DX=ENDARC[DX], DPX=ENDARC[DPX],save twiss,save plot,table=twiss,range=#s/#e,haxis=s,vaxis1=betx,bety,vaxis2=DX,colour=100 stop RFVOLT=2.75 RFPHSE=0.5 beam,energy=5.0,particle=electron,radiate emit !survey bmpm stop !endcomment USE, ERING BEAM, PARTICLE=ELECTRON, ENERGY=5, & EX=1E-6,EY=1E-6,ET=30E-6 HARMON!,FX=1,FY=1,FE=1 hvary, K2.SARCF, step=0.1 hvary, K2.SARCD, step=0.1 HTUNE, qx'=-0.21, qy'=0.23 !hweight, qx''=1, qy''=1, qx'''=10, qy'''=10 !hvary, K2.SARCF2, step=0.01 !hvary, K2.SARCD2, step=0.01 !hcell, qx'=-0.21, qy'=0.21,qx''=0,qy''=0!,qx'''=0,qy'''=0 save,filename="k2_3.2km60new.temp",pattern="K2..*" ENDHARM print, full !twiss, deltap=-0.008:0.008:0.002,tunes,save twiss, tape ! plot,table=tunes,haxis=deltap,vaxis1=qx,bety,vaxis2=qy,colour=100 STOP