[thread display] [new arrival display] [word search] [past log] [管理用]
| Subject | ： input file |
| Date | ： 2006/01/30(Mon) 20:10:50 |
| Contributor | ： Kentaro Harada < > |
****************************************************************************
input
****************************************************************************
!********************************************************************
!*
!* NSLS XRING
!*
!********************************************************************
MOMENTUM=2.8GeV
;
MARK MKN =()
MKL =()
;
MONI PM =()
;
CAVI CAVI=(VOLT= 1.12MV HARM = 30 )!FREQ = 58.88MHZ)
;
BEND B =(L = 2.7 K1 = -0.0724921758 ANGLE = .39269908 E1 = 0.5 E2=0.5)
;
QUAD
Q1 =(L = .45 K1 = -0.675839592 )
Q2 =(L = .8 K1 = 1.069849888 )
Q3 =(L = .4132 K1 = -0.57926284872 )
Q4 =(L = .225 K1 = 0.2923738695 )
;
SEXT SF =(L =0 K2 = 0 )
SD =(L =0 K2 = 0 )
;
DRIFT D1 =(L = 2.25 )
D2 =(L = 0.685 )
D3 =(L = 0.3484 )
D4 =(L = 0.70825)
D5 =(L = 0.9 )
D6 =(L = 0.25 )
;
LINE
NCELLH =(MKN D1 Q1 D2 Q2 D3 Q3 D4
B
D5 SD D5 SF D6 Q4
MKL)
NCELL =(NCELLH -NCELLH)
RING =(4*NCELL CAVI 4*NCELL )
;
!
! display for tk
!
ON LOG;
ON RAD FLUC COD RFSW RADCOD;
FFS;
Get["modules_general.n"];
$FORM = "15.10";
PageWidth = 1999;
USE RING;
cell calc emit;
type MKN;
disp Q4;
type Q4;
Print[Twiss["BX","Q4"]];
Print[Twiss["BY","Q4*"]];
Print[Twiss[{"BX","BY"},{15,15.5,16}]];
Print[LINE[{"POSITION","NAME","ELEMENT","S","L","K1"},"Q4"]];
Print[LINE["GEO",16]];
Print[LINE["LENGTH"]];
disp all;
stop;
stop;