!******************************************************************** ! ! Diffraction & IBS Limited Ring ! ! v29_31 Wednesday,22,Nov,2000 ! for Circular Undulator ! !******************************************************************** MOMENTUM=1.0 GEV ; MARK MARKI = () MARKR = () MARKN = () MARKNE = () MARKD = () MARKL = () MARKB = () MARKM = () MARKA = () MARKU = () MKU60NI = () MKU60NC = () MKU60NF = () ; CAVI CAVI=(VOLT=0.7 MV FREQ=500.1 MHZ) ; BEND BH =(L = 0.40 ANGLE = 7.5 DEG E1 = 0.5 E2 = 0.5 ) B =(L = 0.80 ANGLE = 15.0 DEG E1 = 0.5 E2 = 0.5 ) BB =(L = 0.40 ANGLE = 7.5 DEG E1 = 1.0 E2 = 0.0 ) BS1 =(L = 0.50 ANGLE = -20/1000 E1 = 0.5 E2 = 0.5 ) BS2 =(L = 0.50 ANGLE = 50/1000 E1 = 0.5 E2 = 0.5 ) BS3 =(L = 0.50 ANGLE = -45/1000 E1 = 0.5 E2 = 0.5 ) BS4 =(L = 0.50 ANGLE = 50/1000 E1 = 0.5 E2 = 0.5 ) BS5 =(L = 0.50 ANGLE = -42.5/1000 E1 = 0.5 E2 = 0.5 ) BS6 =(L = 0.50 ANGLE = 50/1000 E1 = 0.5 E2 = 0.5 ) BS7 =(L = 0.50 ANGLE = -42.5/1000 E1 = 0.5 E2 = 0.5 ) ; TEST TD2 = (L = 0.2 ) TD3 = (L = 0.25 ) TD4 = (L = 0.2 ) TD5 = (L = 0.53 ) ; DRIFT D2 = (L = 0.2 ) D3 = (L = 0.25 ) D4 = (L = 0.2 ) D5 = (L = 0.53 ) DDD = (L = 1E-10 ) DA1L = (L = 0.2 ) DA2L = (L = 0.2 ) DA3L = (L = 0.53 ) DB1L =(L =.2 ) DB2L =(L =.3 ) DB3L =(L =.2 ) DB4L =(L =2.0 ) DB4LH =(L = 1.0) DB4L2 =(L =0.3) DB5L =(L =5.3) DB6L =(L =.35 ) DB7L =(L =.35 ) DBLL = (L =1*(0.377416292741-0.32)/4) DBLM = (L = 14.5) DBID =(L = 1.03635 ) D2 =(L =.2 ) D3 =(L =.25 ) DS1 =(L = 0.75 - 0.25 ) DS2 =(L = 6.5 - 0.5 ) DS3 =(L = 1.7 - 0.5 ) DS4 =(L = 6.7 - 0.5 ) DS5 =(L = 1.7 - 0.5 ) DS6 =(L = 6.7 - 0.5 ) DS7 =(L = 4.007251 - 0.5 ) DS8 =(L = 0.979016 - 0.25 ) DU60NI = (L = 6.0/2 - 4.98/2 ) DU60NH = (L = 4.98 / 2 ) DU60NF = (L = 6.0/2 - 4.98/2 ) DJ1L =(L =.2 ) DJ2L =(L =.2 ) DJ3L =(L =.2 ) DK1L =(L =.2 ) DK2L =(L =.2 ) DK3L =(L =.7 ) DK4L =(L =.2 ) DLL =(L = 1 ) ; SEXT SF =(L =.2 K2 =29.8424804865968 ) SFH =(L =.1 K2 =14.9212402432984 ) SD =(L =.2 K2 =-24.4423215023308 ) ! with U60N def max SFH =(L =.1 K2 =14.8960934273828 ) SD =(L =.2 K2 =-24.4516296508989 ) ; QUAD QS1 =(L =.1 K1 = 0 ) QS2 =(L =.1 K1 = 0 ) QS3 =(L =.1 K1 = 0 ) QD =(L =.3 K1 =-.691457890618 ) QF =(L =.4 K1 =1.5190240503441 ) QLDB4 =(L =.35 K1 =1.4637391046 ) QLDB3 =(L =.4 K1 =-1.7470706219873 ) QLDB2 =(L =.35 K1 =1.9234509112895 ) QLDB1 =(L =.4 K1 =-.7740106904263 ) QLDA3 =(L =.3 K1 =.6013887503572 ) QLDA2 =(L =.2 K1 =1.0629320220076 ) QLDA1 =(L =.3 K1 =-.691457890618 ) QDF1 =(L =.3 K1 =-.691457890618 ) QFF1 =(L =.4 K1 =1.5190240503441 ) QFF2 =(L =.4 K1 =1.5190240503441 ) QDF2 =(L =.3 K1 =-.691457890618 ) QDG1 =(L =.3 K1 =-.691457890618 ) QFG1 =(L =.4 K1 =1.5190240503441 ) QFG2 =(L =.4 K1 =1.5190240503441 ) QDG2 =(L =.3 K1 =-.691457890618 ) QDH1 =(L =.3 K1 =-.691457890618 ) QFH1 =(L =.4 K1 =1.5190240503441 ) QFH2 =(L =.4 K1 =1.5190240503441 ) QDH2 =(L =.3 K1 =-.691457890618 ) QDI1 =(L =.3 K1 =-.691457890618 ) QFI1 =(L =.4 K1 =1.5190240503441 ) QFI2 =(L =.4 K1 =1.5190240503441 ) QDI2 =(L =.3 K1 =-.691457890618 ) QDJ1 =(L =.3 K1 =-.691457890618 ) QFJ1 =(L =.4 K1 =1.5190240503441 ) QFJ2 =(L =.4 K1 =1.5190240503441 ) QDJ2 =(L =.3 K1 =-.691457890618 ) QDLA1 =(L =.3 K1 =-.691457890618 ) QDLA2 =(L =.2 K1 =.8922697427839 ) QDLA3 =(L =.2 K1 =.6993394712946 ) QDLB1 =(L =.3 K1 =-1.0683174753665 ) QDLB2 =(L =.4 K1 =1.7974790782121 ) QDLB3 =(L =.4 K1 =-.7865764447298 ) QDLB4 =(L =.4 K1 =-.0631552392035 ) QDLB5 =(L =.4 K1 =.3064281706477 ) QDLB6 =(L =.4 K1 =-.6472295378725 ) QDLB7 =(L =.4 K1 =.3639907665886 ) QDRB7 =(L =.4 K1 =.3639907665886 ) QDRB6 =(L =.4 K1 =-.6472295378725 ) QDRB5 =(L =.4 K1 =.3064281706477 ) QDRB4 =(L =.4 K1 =-.0631552392035 ) QDRB3 =(L =.4 K1 =-.7865764447298 ) QDRB2 =(L =.4 K1 =1.7974790782121 ) QDRB1 =(L =.3 K1 =-1.0683174753665 ) QDRA3 =(L =.2 K1 =.6993394712946 ) QDRA2 =(L =.2 K1 =.8922697427839 ) QDRA1 =(L =.3 K1 =-.691457890618 ) QDK1 =(L =.3 K1 =-.691457890618 ) QFK1 =(L =.4 K1 =1.5190240503441 ) QFK2 =(L =.4 K1 =1.5190240503441 ) QDK2 =(L =.3 K1 =-.691457890618 ) QDL1 =(L =.3 K1 =-.691457890618 ) QFL1 =(L =.4 K1 =1.5190240503441 ) QFL2 =(L =.4 K1 =1.5190240503441 ) QDL2 =(L =.3 K1 =-.691457890618 ) QDM1 =(L =.3 K1 =-.691457890618 ) QFM1 =(L =.4 K1 =1.5190240503441 ) QFM2 =(L =.4 K1 =1.5190240503441 ) QDM2 =(L =.3 K1 =-.691457890618 ) QDN1 =(L =.3 K1 =-.691457890618 ) QFN1 =(L =.4 K1 =1.5190240503441 ) QFN2 =(L =.4 K1 =1.5190240503441 ) QDN2 =(L =.3 K1 =-.691457890618 ) QDO1 =(L =.3 K1 =-.691457890618 ) QFO1 =(L =.4 K1 =1.5190240503441 ) QFO2 =(L =.4 K1 =1.5190240503441 ) QDO2 =(L =.3 K1 =-.691457890618 ) QRDA1 =(L =.3 K1 =-.691457890618 ) QRDA2 =(L =.2 K1 =1.0629320220076 ) QRDA3 =(L =.3 K1 =.6013887503572 ) QRDB1 =(L =.4 K1 =-.7740106904263 ) QRDB2 =(L =.35 K1 =1.9234509112895 ) QRDB3 =(L =.4 K1 =-1.7470706219873 ) QRDB4 =(L =.35 K1 =1.4637391046 ) QRUB4 =(L =.35 K1 =1.4637391046 ) QRUB3 =(L =.4 K1 =-1.7470706219873 ) QRUB2 =(L =.35 K1 =1.9234509112895 ) QRUB1 =(L =.4 K1 =-.7740106904263 ) QRUA3 =(L =.3 K1 =.6013887503572 ) QRUA2 =(L =.2 K1 =1.0629320220076 ) QRUA1 =(L =.3 K1 =-.691457890618 ) QDP1 =(L =.3 K1 =-.691457890618 ) QFP1 =(L =.4 K1 =1.5190240503441 ) QFP2 =(L =.4 K1 =1.5190240503441 ) QDP2 =(L =.3 K1 =-.691457890618 ) QDQ1 =(L =.3 K1 =-.691457890618 ) QFQ1 =(L =.4 K1 =1.5190240503441 ) QFQ2 =(L =.4 K1 =1.5190240503441 ) QDQ2 =(L =.3 K1 =-.691457890618 ) QDR1 =(L =.3 K1 =-.691457890618 ) QFR1 =(L =.4 K1 =1.5190240503441 ) QFR2 =(L =.4 K1 =1.5190240503441 ) QDR2 =(L =.3 K1 =-.691457890618 ) QDS1 =(L =.3 K1 =-.691457890618 ) QFS1 =(L =.4 K1 =1.5190240503441 ) QFS2 =(L =.4 K1 =1.5190240503441 ) QDS2 =(L =.3 K1 =-.691457890618 ) QDT1 =(L =.3 K1 =-.691457890618 ) QFT1 =(L =.4 K1 =1.5190240503441 ) QFT2 =(L =.4 K1 =1.5190240503441 ) QDT2 =(L =.3 K1 =-.691457890618 ) QURA1 =(L =.3 K1 =-.691457890618 ) QURA2 =(L =.2 K1 =.8922697427839 ) QURA3 =(L =.2 K1 =.6993394712946 ) QURB1 =(L =.3 K1 =-1.0514781553974 ) QURB2 =(L =.4 K1 =1.8055417951893 ) QURB3 =(L =.4 K1 =-.7881539644717 ) QURB4 =(L =.4 K1 =-.085311214544 ) QURB5 =(L =.4 K1 =.2999235335902 ) QURB6 =(L =.4 K1 =-.6310274999758 ) QURB7 =(L =.4 K1 =.3590929656615 ) QULB7 =(L =.4 K1 =.3576930994677 ) QULB6 =(L =.4 K1 =-.6276787563214 ) QULB5 =(L =.4 K1 =.2993431130197 ) QULB4 =(L =.4 K1 =-.0848624234006 ) QULB3 =(L =.4 K1 =-.7860491247756 ) QULB2 =(L =.4 K1 =1.8074515942476 ) QULB1 =(L =.3 K1 =-1.0491681412183 ) QULA3 =(L =.2 K1 =.6993394712946 ) QULA2 =(L =.2 K1 =.8922697427839 ) QULA1 =(L =.3 K1 =-.691457890618 ) QDA1 =(L =.3 K1 =-.691457890618 ) QFA1 =(L =.4 K1 =1.5190240503441 ) QFA2 =(L =.4 K1 =1.5190240503441 ) QDA2 =(L =.3 K1 =-.691457890618 ) QDB1 =(L =.3 K1 =-.691457890618 ) QFB1 =(L =.4 K1 =1.5190240503441 ) QFB2 =(L =.4 K1 =1.5190240503441 ) QDB2 =(L =.3 K1 =-.691457890618 ) QDC1 =(L =.3 K1 =-.691457890618 ) QFC1 =(L =.4 K1 =1.5190240503441 ) QFC2 =(L =.4 K1 =1.5190240503441 ) QDC2 =(L =.3 K1 =-.691457890618 ) QDD1 =(L =.3 K1 =-.691457890618 ) QFD1 =(L =.4 K1 =1.5190240503441 ) QFD2 =(L =.4 K1 =1.5190240503441 ) QDD2 =(L =.3 K1 =-.691457890618 ) QDE1 =(L =.3 K1 =-.691457890618 ) QFE1 =(L =.4 K1 =1.5190240503441 ) QFE2 =(L =.4 K1 =1.5190240503441 ) QDE2 =(L =.3 K1 =-.691457890618 ) QLUA1 =(L =.3 K1 =-.691457890618 ) QLUA2 =(L =.2 K1 =1.0629320220076 ) QLUA3 =(L =.3 K1 =.6013887503572 ) QLUB1 =(L =.4 K1 =-.7740106904263 ) QLUB2 =(L =.35 K1 =1.9234509112895 ) QLUB3 =(L =.4 K1 =-1.7470706219873 ) QLUB4 =(L =.35 K1 =1.4637391046 ) ; BEND BU60NI =(L =.015 ANGLE =-.0023497696483 E2 =1 ) BU60N1 =(L =.03 ANGLE =.0046995392966 E1 =.5 E2 =.5 ) BU60N2 =(L =.03 ANGLE =-.0046995392966 E1 =.5 E2 =.5 ) BU60NF =(L =.015 ANGLE =-.0023497696483 E1 =1 ) ; KUND U60N =(L = 4.98 RHO=8.196 KX=104.719757 ) U60N =(L = 4.98 RHO=25.9185675035 KX=104.719757 ) U60N =(L = 4.98 RHO= 18.3271948404 KX=104.719757 ) U60N =(L = 4.98 RHO= 1E10 KX=104.719757 ) ; LINE ! PU60N =(BU60N1 BU60N2) ! U60N =(MKU60NI BU60NI 82*PU60N BU60N1 BU60NF MKU60NF) RING = (MARKI -SCELLLD NCELLF NCELLG NCELLH NCELLI NCELLJ LCELLDL -LCELLDR NCELLK NCELLL NCELLM NCELLN NCELLO SCELLRD -SCELLRU NCELLP NCELLQ NCELLR NCELLS NCELLT LCELLU NCELLA NCELLB NCELLC NCELLD NCELLE SCELLLU MARKR) NCELL = (MARKN SD D2 QD D3 SF D4 QF D5 B D5 QF D4 SF D3 QD D2 SD MARKNE ) TNCELL = (MARKN SD UTEST UTEST QD TD3 SF TD4 QF TD5 B TD5 QF TD4 SF TD3 QD TD2 SD MARKNE ) NCELLA = (MARKN SD D2 QDA1 D3 SFH SFH D4 QFA1 D5 B D5 QFA2 D4 SFH SFH D3 QDA2 D2 SD MARKNE ) NCELLB = (MARKN SD D2 QDB1 D3 SFH SFH D4 QFB1 D5 B D5 QFB2 D4 SFH SFH D3 QDB2 D2 SD MARKNE ) NCELLC = (MARKN SD D2 QDC1 D3 SFH SFH D4 QFC1 D5 B D5 QFC2 D4 SFH SFH D3 QDC2 D2 SD MARKNE ) NCELLD = (MARKN SD D2 QDD1 D3 SFH SFH D4 QFD1 D5 B D5 QFD2 D4 SFH SFH D3 QDD2 D2 SD MARKNE ) NCELLE = (MARKN SD D2 QDE1 D3 SFH SFH D4 QFE1 D5 B D5 QFE2 D4 SFH SFH D3 QDE2 D2 SD MARKNE ) NCELLF = (MARKN SD D2 QDF1 D3 SFH SFH D4 QFF1 D5 B D5 QFF2 D4 SFH SFH D3 QDF2 D2 SD MARKNE ) NCELLG = (MARKN SD D2 QDG1 D3 SFH SFH D4 QFG1 D5 B D5 QFG2 D4 SFH SFH D3 QDG2 D2 SD MARKNE ) NCELLH = (MARKN SD D2 QDH1 D3 SFH SFH D4 QFH1 D5 B D5 QFH2 D4 SFH SFH D3 QDH2 D2 SD MARKNE ) NCELLI = (MARKN SD D2 QDI1 D3 SFH SFH D4 QFI1 D5 B D5 QFI2 D4 SFH SFH D3 QDI2 D2 SD MARKNE ) NCELLJ = (MARKN SD D2 QDJ1 D3 SFH SFH D4 QFJ1 D5 B D5 QFJ2 D4 SFH SFH D3 QDJ2 D2 SD MARKNE ) NCELLK = (MARKN SD D2 QDK1 D3 SFH SFH D4 QFK1 D5 B D5 QFK2 D4 SFH SFH D3 QDK2 D2 SD MARKNE ) NCELLL = (MARKN SD D2 QDL1 D3 SFH SFH D4 QFL1 D5 B D5 QFL2 D4 SFH SFH D3 QDL2 D2 SD MARKNE ) NCELLM = (MARKN SD D2 QDM1 D3 SFH SFH D4 QFM1 D5 B D5 QFM2 D4 SFH SFH D3 QDM2 D2 SD MARKNE ) NCELLN = (MARKN SD D2 QDN1 D3 SFH SFH D4 QFN1 D5 B D5 QFN2 D4 SFH SFH D3 QDN2 D2 SD MARKNE ) NCELLO = (MARKN SD D2 QDO1 D3 SFH SFH D4 QFO1 D5 B D5 QFO2 D4 SFH SFH D3 QDO2 D2 SD MARKNE ) NCELLP = (MARKN SD D2 QDP1 D3 SFH SFH D4 QFP1 D5 B D5 QFP2 D4 SFH SFH D3 QDP2 D2 SD MARKNE ) NCELLQ = (MARKN SD D2 QDQ1 D3 SFH SFH D4 QFQ1 D5 B D5 QFQ2 D4 SFH SFH D3 QDQ2 D2 SD MARKNE ) NCELLR = (MARKN SD D2 QDR1 D3 SFH SFH D4 QFR1 D5 B D5 QFR2 D4 SFH SFH D3 QDR2 D2 SD MARKNE ) NCELLS = (MARKN SD D2 QDS1 D3 SFH SFH D4 QFS1 D5 B D5 QFS2 D4 SFH SFH D3 QDS2 D2 SD MARKNE ) NCELLT = (MARKN SD D2 QDT1 D3 SFH SFH D4 QFT1 D5 B D5 QFT2 D4 SFH SFH D3 QDT2 D2 SD MARKNE ) DBML = (DBLM) LCELLU =( MARKN SD D2 QURA1 D3 SFH SFH DA1L QURA2 DA2L QURA3 DA3L BH MARKD DB1L QURB1 DB2L QURB2 DB3L QURB3 DB4L DB4L2 QURB4 DB5L QURB5 DB6L QURB6 DB7L QURB7 DS1 BS1 DU60NI U60N DU60NF BS2 DS3 BS3 DS4 BS4 DS5 BS5 DS6 BS6 DS7 BS7 DS8 QULB7 DB7L QULB6 DB6L QULB5 DB5L QULB4 DB4L2 DB4L QULB3 DB3L QULB2 DB2L QULB1 DB1L MARKD BH DA3L QULA3 DA2L QULA2 DA1L SFH SFH D3 QULA1 D2 SD MARKN ) LCELLUL = (MARKN SD D2 QULA1 D3 SFH SFH DA1L QULA2 DA2L QULA3 DA3L BH MARKD DB1L QULB1 DB2L QULB2 DB3L QULB3 DB4L DB4L2 QULB4 DB5L QULB5 DB6L QULB6 DB7L QULB7 DBML DBLL MARKL ) LCELLDL = (MARKN SD D2 QDLA1 D3 SFH SFH DA1L QDLA2 DA2L QDLA3 DA3L BH MARKD DB1L QDLB1 DB2L QDLB2 DB3L QDLB3 DB4LH CAVI DB4LH DB4L2 QDLB4 DB5L QDLB5 DB6L QDLB6 DB7L QDLB7 DBML DBLL MARKL ) LCELLDR = (MARKN SD D2 QDRA1 D3 SFH SFH DA1L QDRA2 DA2L QDRA3 DA3L BH MARKD DB1L QDRB1 DB2L QDRB2 DB3L QDRB3 DB4L DB4L2 QDRB4 DB5L QDRB5 DB6L QDRB6 DB7L QDRB7 DBML DBLL MARKL ) LCELLUR = (MARKN SD D2 QURA1 D3 SFH SFH DA1L QURA2 DA2L QURA3 DA3L BH MARKD DB1L QURB1 DB2L QURB2 DB3L QURB3 DB4L DB4L2 QURB4 DB5L QURB5 DB6L QURB6 DB7L QURB7 DBML DBLL MARKL ) SCELLLU = (MARKN SD D2 QLUA1 D3 SFH SFH DJ1L QLUA2 DJ2L QLUA3 DJ3L BH MARKD DK1L QLUB1 DK2L QLUB2 DK3L QLUB3 DK4L QLUB4 DLL MARKL ) SCELLLD = (MARKN SD D2 QLDA1 D3 SFH SFH DJ1L QLDA2 DJ2L QLDA3 DJ3L BH MARKD DK1L QLDB1 DK2L QLDB2 DK3L QLDB3 DK4L QLDB4 DLL MARKL ) SCELLRD = (MARKN SD D2 QRDA1 D3 SFH SFH DJ1L QRDA2 DJ2L QRDA3 DJ3L BH MARKD DK1L QRDB1 DK2L QRDB2 DK3L QRDB3 DK4L QRDB4 DLL MARKL ) SCELLRU = (MARKN SD D2 QRUA1 D3 SFH SFH DJ1L QRUA2 DJ2L QRUA3 DJ3L BH MARKD DK1L QRUB1 DK2L QRUB2 DK3L QRUB3 DK4L QRUB4 DLL MARKL ) SCELLR = (MARKN SCELLRU -SCELLRD MARKN ) SCELLL = (MARKN SCELLLU -SCELLLD MARKN ) LCELLD = (MARKN LCELLDR -LCELLDL MARKN ) ;