!******************************************************************** ! ! Diffraction & IBS Limited Ring ! ! v29_05 Friday,19,May,2000 ! for Beta and ETA calculation ! first theme at Kashiwa Campus!! ! !******************************************************************** MOMENTUM=1.0 GEV ; MARK MARKI = () MARKR = () MARKN = () MARKNE = () MARKD = () MARKL = () MARKB = () MARKM = () MARKA = () MARKU = () ; 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 ) ; 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 = 0.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 ) 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 ) ; QUAD 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 =-.5300430130929 ) QDLB2 =(L =.4 K1 =1.7453499353732 ) QDLB3 =(L =.4 K1 =-.7962000969796 ) QDLB4 =(L =.4 K1 =-.050490756321 ) QDLB5 =(L =.4 K1 =-.0308279405486 ) QDLB6 =(L =.4 K1 =-.3180287012188 ) QDLB7 =(L =.4 K1 =.3535937604445 ) QDRB7 =(L =.4 K1 =.3535937604445 ) QDRB6 =(L =.4 K1 =-.3180287012188 ) QDRB5 =(L =.4 K1 =-.0308279405486 ) QDRB4 =(L =.4 K1 =-.050490756321 ) QDRB3 =(L =.4 K1 =-.7962000969796 ) QDRB2 =(L =.4 K1 =1.7453499353732 ) QDRB1 =(L =.3 K1 =-.5300430130929 ) 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 ) ; MONI MON = () ; BEND STRH = ( L = 0 ) STRV = ( L = 0 ROTATE = -90 DEG) ; !300,5.773502691896269,.173205080756887,.002816913204201 BEND B2I =(L =.0115 ANGLE =-.0014084566021 E2 =1 ) B1 =(L =.023 ANGLE =.0028169132042 E1 =.5 E2 =.5 ) B2 =(L =.023 ANGLE =-.0028169132042 E1 =.5 E2 =.5 ) B2F =(L =.0115 ANGLE =-.0014084566021 E1 =1 ) ; LINE MONI = (DDD MON DDD) ! MONI = (MON) 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) STER = (DDD STRH DDD STRV DDD) STEA = (STRH STRV) PLU27L = (B1 B2) U27LH = (DBID B2I MARKA 58*PLU27L MARKA 58*PLU27L MARKA 58*PLU27L MARKA 58*PLU27L MARKA 58*PLU27L MARKA 2*PLU27L B1 B2F) NCELL = (MARKN SD D2 QD D3 SF D4 QF D5 B D5 QF D4 SF D3 QD D2 SD MARKNE ) NCELLA = (MARKN STEA SD D2 QDA1 MONI D3 SFH STEA SFH D4 QFA1 MONI D5 B D5 QFA2 MONI D4 SFH STEA SFH D3 QDA2 MONI D2 SD MARKNE ) NCELLB = (MARKN STEA SD D2 QDB1 MONI D3 SFH STEA SFH D4 QFB1 MONI D5 B D5 QFB2 MONI D4 SFH STEA SFH D3 QDB2 MONI D2 SD MARKNE ) NCELLC = (MARKN STEA SD D2 QDC1 MONI D3 SFH STEA SFH D4 QFC1 MONI D5 B D5 QFC2 MONI D4 SFH STEA SFH D3 QDC2 MONI D2 SD MARKNE ) NCELLD = (MARKN STEA SD D2 QDD1 MONI D3 SFH STEA SFH D4 QFD1 MONI D5 B D5 QFD2 MONI D4 SFH STEA SFH D3 QDD2 MONI D2 SD MARKNE ) NCELLE = (MARKN STEA SD D2 QDE1 MONI D3 SFH STEA SFH D4 QFE1 MONI D5 B D5 QFE2 MONI D4 SFH STEA SFH D3 QDE2 MONI D2 SD MARKNE ) NCELLF = (MARKN STEA SD D2 QDF1 MONI D3 SFH STEA SFH D4 QFF1 MONI D5 B D5 QFF2 MONI D4 SFH STEA SFH D3 QDF2 MONI D2 SD MARKNE ) NCELLG = (MARKN STEA SD D2 QDG1 MONI D3 SFH STEA SFH D4 QFG1 MONI D5 B D5 QFG2 MONI D4 SFH STEA SFH D3 QDG2 MONI D2 SD MARKNE ) NCELLH = (MARKN STEA SD D2 QDH1 MONI D3 SFH STEA SFH D4 QFH1 MONI D5 B D5 QFH2 MONI D4 SFH STEA SFH D3 QDH2 MONI D2 SD MARKNE ) NCELLI = (MARKN STEA SD D2 QDI1 MONI D3 SFH STEA SFH D4 QFI1 MONI D5 B D5 QFI2 MONI D4 SFH STEA SFH D3 QDI2 MONI D2 SD MARKNE ) NCELLJ = (MARKN STEA SD D2 QDJ1 MONI D3 SFH STEA SFH D4 QFJ1 MONI D5 B D5 QFJ2 MONI D4 SFH STEA SFH D3 QDJ2 MONI D2 SD MARKNE ) NCELLK = (MARKN STEA SD D2 QDK1 MONI D3 SFH STEA SFH D4 QFK1 MONI D5 B D5 QFK2 MONI D4 SFH STEA SFH D3 QDK2 MONI D2 SD MARKNE ) NCELLL = (MARKN STEA SD D2 QDL1 MONI D3 SFH STEA SFH D4 QFL1 MONI D5 B D5 QFL2 MONI D4 SFH STEA SFH D3 QDL2 MONI D2 SD MARKNE ) NCELLM = (MARKN STEA SD D2 QDM1 MONI D3 SFH STEA SFH D4 QFM1 MONI D5 B D5 QFM2 MONI D4 SFH STEA SFH D3 QDM2 MONI D2 SD MARKNE ) NCELLN = (MARKN STEA SD D2 QDN1 MONI D3 SFH STEA SFH D4 QFN1 MONI D5 B D5 QFN2 MONI D4 SFH STEA SFH D3 QDN2 MONI D2 SD MARKNE ) NCELLO = (MARKN STEA SD D2 QDO1 MONI D3 SFH STEA SFH D4 QFO1 MONI D5 B D5 QFO2 MONI D4 SFH STEA SFH D3 QDO2 MONI D2 SD MARKNE ) NCELLP = (MARKN STEA SD D2 QDP1 MONI D3 SFH STEA SFH D4 QFP1 MONI D5 B D5 QFP2 MONI D4 SFH STEA SFH D3 QDP2 MONI D2 SD MARKNE ) NCELLQ = (MARKN STEA SD D2 QDQ1 MONI D3 SFH STEA SFH D4 QFQ1 MONI D5 B D5 QFQ2 MONI D4 SFH STEA SFH D3 QDQ2 MONI D2 SD MARKNE ) NCELLR = (MARKN STEA SD D2 QDR1 MONI D3 SFH STEA SFH D4 QFR1 MONI D5 B D5 QFR2 MONI D4 SFH STEA SFH D3 QDR2 MONI D2 SD MARKNE ) NCELLS = (MARKN STEA SD D2 QDS1 MONI D3 SFH STEA SFH D4 QFS1 MONI D5 B D5 QFS2 MONI D4 SFH STEA SFH D3 QDS2 MONI D2 SD MARKNE ) NCELLT = (MARKN STEA SD D2 QDT1 MONI D3 SFH STEA SFH D4 QFT1 MONI D5 B D5 QFT2 MONI D4 SFH STEA SFH D3 QDT2 MONI D2 SD MARKNE ) DBML = (DBLM) LCELLU =( MARKN STER SD D2 QURA1 MONI D3 SFH STEA SFH DA1L QURA2 DA2L QURA3 MONI DA3L BH MARKD DB1L QURB1 DB2L STER QURB2 MONI DB3L STER QURB3 MONI DB4L DB4L2 STER QURB4 MONI DB5L STER QURB5 MONI DB6L QURB6 DB7L STER QURB7 MONI STER DS1 MONI BS1 STER DS2 MONI BS2 STER DS3 MONI BS3 STER DS4 MONI BS4 STER DS5 MONI BS5 STER DS6 MONI BS6 STER DS7 MONI BS7 STER DS8 STER MONI QULB7 STER DB7L QULB6 DB6L MONI QULB5 STER DB5L MONI QULB4 STER DB4L2 DB4L MONI QULB3 STER DB3L MONI QULB2 STER DB2L QULB1 DB1L MARKD BH DA3L MONI QULA3 DA2L QULA2 DA1L SFH STEA SFH D3 MONI QULA1 D2 SD MARKN ) LCELLUL = (MARKN SD D2 QULA1 MONI D3 SFH STEA SFH DA1L QULA2 DA2L QULA3 MONI DA3L BH MARKD DB1L QULB1 DB2L STER QULB2 MONI DB3L STER QULB3 MONI DB4L DB4L2 STER QULB4 MONI DB5L STER QULB5 MONI DB6L QULB6 DB7L STER QULB7 MONI STER 29*DBML DBLL MARKL ) LCELLDL = (MARKN STEA SD D2 QDLA1 MONI D3 SFH STEA SFH DA1L QDLA2 DA2L QDLA3 MONI DA3L BH MARKD DB1L QDLB1 DB2L STER QDLB2 MONI DB3L STER QDLB3 MONI DB4LH CAVI DB4LH DB4L2 STER QDLB4 MONI DB5L STER QDLB5 MONI DB6L QDLB6 DB7L STER QDLB7 MONI STER ! 29*DBML DBLL MARKU U27LH MARKL ) LCELLDR = (MARKN SD D2 QDRA1 MONI D3 SFH STEA SFH DA1L QDRA2 DA2L QDRA3 MONI DA3L BH MARKD DB1L QDRB1 DB2L STER QDRB2 MONI DB3L STER QDRB3 MONI DB4L DB4L2 STER QDRB4 MONI DB5L STER QDRB5 MONI DB6L QDRB6 DB7L STER QDRB7 MONI STER ! 29*DBML DBLL MARKU U27LH MARKL ) LCELLUR = (MARKN STER SD D2 QURA1 MONI D3 SFH STEA SFH DA1L QURA2 DA2L QURA3 MONI DA3L BH MARKD DB1L QURB1 DB2L STER QURB2 MONI DB3L STER QURB3 MONI DB4L DB4L2 STER QURB4 MONI DB5L STER QURB5 MONI DB6L QURB6 DB7L STER QURB7 MONI STER 29*DBML DBLL MARKL ) SCELLLU = (MARKN STEA SD MONI D2 QLUA1 D3 MONI SFH STEA SFH DJ1L QLUA2 DJ2L QLUA3 DJ3L BH MARKD DK1L QLUB1 DK2L QLUB2 MONI DK3L STER QLUB3 DK4L STER QLUB4 MONI DLL MARKL ) SCELLLD = (MARKN SD MONI D2 QLDA1 D3 MONI SFH STEA SFH DJ1L QLDA2 DJ2L QLDA3 DJ3L BH MARKD DK1L QLDB1 DK2L QLDB2 MONI DK3L STER QLDB3 DK4L STER QLDB4 MONI DLL MARKL ) SCELLRD = (MARKN STEA SD MONI D2 QRDA1 D3 MONI SFH STEA SFH DJ1L QRDA2 DJ2L QRDA3 DJ3L BH MARKD DK1L QRDB1 DK2L QRDB2 MONI DK3L STER QRDB3 DK4L STER QRDB4 MONI DLL MARKL ) SCELLRU = (MARKN SD MONI D2 QRUA1 D3 MONI SFH STEA SFH DJ1L QRUA2 DJ2L QRUA3 DJ3L BH MARKD DK1L QRUB1 DK2L QRUB2 MONI DK3L STER QRUB3 DK4L STER QRUB4 MONI DLL MARKL ) SCELLR = (MARKN SCELLRU -SCELLRL MARKN ) SCELLL = (MARKN SCELLLU -SCELLLD MARKN ) LCELLD = (MARKN LCELLDR -LCELLDL MARKN ) ;