OPTION,-ECHO,-TRACE,-DEBUG,-INTER,INFO,WARN;

CALL,"vepp4.mad";

USE,RING2;
SELECT,FULL;

BEAM,PARTICLE=ELECTORN,ENERGY=1.8;

TWISS,SAVE=TWISS,TUNES=TTNS;

PLOT,TABLE=TWISS,FILENAME="chrom",HAXIS=S,VAXIS1=BETX,BETY,VAXIS2=DX;


HARMON;
HCHROMATICITY;
ENDHARM;

STOP;