/* Definition of the elements */
qfType:QUADRUPOLE, L=3.1, K1:=kf;
qdType:QUADRUPOLE, L=3.1, K1:=kd;
MBType:RBEND, L=14.3, ANGLE:=ANGLE1;
/* Definition of the the sequence */
fodo:SEQUENCE, REFER=entry, L=106.9;
qf1: qfType, at=0.0;
MB1: MBType, at=6.77;
MB2: MBType, at=22.43;
MB3: MBType, at=38.09;
qd1: qdType, at=53.45;
MB4: MBType, at=60.22;
MB5: MBType, at=75.88;
MB6: MBType, at=91.54;
ENDSEQUENCE;
/* Definition of the strengths */
kf=+0.00878;
kd=-0.00878;
ANGLE1:=0.0051;
/* 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;