[thread display] [new arrival display] [word search] [past log] [管理用]
| Subject | ： input file |
| Date | ： 2006/01/30(Mon) 20:12:53 |
| Contributor | ： Kentaro Harada < > |
!********************************************************************
!*
!* NSLS XRING
!*
!********************************************************************
MOMENTUM=2.5GeV
;
MARK MKN =()
MKL =()
;
MONI PM =()
;
CAVI CAVI=(VOLT= 1.12MV HARM = 30 )
;
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.2 K2 = 0 )
SD =(L =0.2 K2 = 0 )
;
DRIFT D1 =(L = 2.25 )
D2 =(L = 0.685 )
D3 =(L = 0.3484 )
D4 =(L = 0.70825)
D5 =(L = 0.8 )
D7 =(L = 0.7 )
D6 =(L = 0.15 )
;
LINE
NCELLH =(MKN D1 Q1 D2 Q2 D3 Q3 D4
B
D5 SD D7 SF D6 Q4
MKL)
NCELL =(NCELLH -NCELLH)
RING =(4*NCELL CAVI 4*NCELL )
;
!
! to write graph!
!
ON LOG;
ON RAD FLUC COD RFSW RADCOD;
FFS;
$FORM = "15.10";
PageWidth = 1999;
USE RING;
cell calc emit;
$DisplayFunction=TopDrawer;
draw bx q*;
out 15 draw bx & by q* end;
FFS["draw bx by & ex b*",12];
FFS["draw nx & ny & epx b*",13];
FFS["draw geo",14];
w = KBMainFrame["sample", namae, Title->"Optics Plot!"];
c1=Canvas[namae,Width->640,Height->400];
$DisplayFunction=CanvasDrawer;
Canvas$Widget=c1;
pl=OpticsPlot[{{"BX"},{"BY"},{"EX"}}];
TkWait[];
stop;
stop;