/* Definition of the elements */ qfType:QUADRUPOLE, L=0.01, K1:=kf; qdType:QUADRUPOLE, L=0.01, K1:=kd; MBType:RBEND, L=53.43, ANGLE:=ANGLE1; /* Definition of the the sequence */ fodo:SEQUENCE, REFER=entry, L=106.9; qf1: qfType, at=0.0; MB1: MBType, at=0.01; qd1: qdType, at=53.45; MB2: MBType, at=53.46; ENDSEQUENCE; /* Definition of the strengths */ kf=+2.7218; kd=-2.7218; ANGLE1:=0.01905; /* Definition of the beam */ beam, particle=proton, energy=7000; /* Activation of the sequence */ use, sequence=fodo; /* Computations and plots */ twiss; plot, HAXIS=s, VAXIS=betx, bety; plot, HAXIS=s, VAXIS=dx, dy; quit;