SWITCH 3 VERSIONE "4.0 11/90" @-------------------VOLUMES-----------------@ CMSE : pgon(phi=-15^,dphi=360^,npdv=12,nz=2, z1=-cmse_highz,rmin1=cmse_in,rmax1=cmse_out, z2= cmse_highz,rmin2=cmse_in,rmax2=cmse_out); CYC_ : pgon(phi=-15^,dphi=360^,npdv=12,nz=2, z1=-cyc_highz,rmin1=cyc_in,rmax1=cmse_out, z2= cyc_highz,rmin2=cyc_in,rmax2=cmse_out); CYF_ : pgon(phi=-15^,dphi=360^,npdv=12,nz=4, z1= cyf_z1,rmin1=cyf_r1,rmax1=cyf_r2, z2= cyf_z2,rmin2=cyf_r1,rmax2=cyf_r2, z3= cyf_z3,rmin3=cyf_r1,rmax3=cyf_r3, z4= cyf_z4,rmin4=cyf_r1,rmax4=cyf_r3); COIL : tube(rmin=coil_rinn,rmax=coil_rout,dz=coil_length) ; CVAC : tube(rmin=cvac_rinn,rmax=cvac_rout,dz=cvac_length); CTUB : tube(rmin=ctub_rinn,rmax=cvac_rout,dz=cvac_length); @------------------VACUUM TUBE IN CMSE--------------------@ CVAC.0 : CVAC IN (CTUB); CVAC.CMSE.1 : CVAC.0; @------------------COIL IN CMSE--------------------@ COIL.CMSE.1 : COIL MBY MOVZ=coil_length*3; COIL.CMSE.2 : COIL MBY MOVZ=coil_length; COIL.CMSE.3 : COIL MBY MOVZ=-coil_length; COIL.CMSE.4 : COIL MBY MOVZ=-coil_length*3; @------------------RETURN YOKE IN CMSE--------------------@ CYC_.CMSE.1 : CYC_ MBY MOVZ=4.*cyc_highz; CYC_.CMSE.2 : CYC_ MBY MOVZ=2.*cyc_highz; CYC_.CMSE.3 : CYC_ ; CYC_.CMSE.4 : CYC_ MBY MOVZ=-2.*cyc_highz; CYC_.CMSE.5 : CYC_ MBY MOVZ=-4.*cyc_highz; CYF_.CMSE.1 : CYF_; CYF_.CMSE.2 : CYF_ MBY ROTY=180^; @------------------ASSEMBLY CMSE--------------------@ CMSE.0 : CMSE IN (CYC_.CMSE.1 ASB CYC_.CMSE.2 ASB CYC_.CMSE.3 ASB CYC_.CMSE.4 ASB CYC_.CMSE.5 ASB CYF_.CMSE.1 ASB CYF_.CMSE.2 ASB COIL.CMSE.1 ASB COIL.CMSE.2 ASB COIL.CMSE.3 ASB COIL.CMSE.4 ASB CVAC.CMSE.1); @------------------MATERIALS--------------------------------@ MATERIALE CMSE {"CMS-air.15"}; MATERIALE CVAC {"Vacuum.16"}; MATERIALE CTUB {"Beam tube Beryl.5"}; MATERIALE COIL {"Coil average .90"}; MATERIALE CYC_ {"Yoke-air.15"}; MATERIALE CYF_ {"Yoke-air.15"};