!+

!     Matching & DA survey

!-



 ON  LOG;

 ON  RFSW RADCOD RAD COD FLUC DAPERT BIPOL;

 FFS;

  Get["modules3.n"];

  Get["modules8.n"];

  Get["modules9.n"];	

  $FORM = "15.10";

  PageWidth = 1999;

  datafile =OpenWrite["datasUMPW.txt"];





      tuneulx = 19.40;

      tuneuly =  8.71;

      tunelx  = 14.26;

      tunely  = 12.19;



      maxrhoU60N  = 4.513890;

      maxrhoU52N  = 5.292757;

      maxrhoU46N  = 5.920283;

      maxrhoU80N  = 3.549383;

      maxrhoUMPW  = 1.448644;

      maxrhoU46L  = 5.920283;

      maxrhoU24S  = 3.194445;

      maxrhoU26S  = 3.044330;

      rhoU60N  = 1E10;

      rhoU52N  = 1E10;

      rhoU46N  = 1E10;

      rhoU80N  = 1E10;

      rhoUMPW  = 1E10;

      rhoU46L  = 1E10;

      rhoU24S  = 1E10;

      rhoU26S  = 1E10;

 

  rhoo= 1/maxrhoUMPW/maxrhoUMPW/10;



Do[

  rhoUMPW = 1/Sqrt[rhooo];

  SetTotalTune[tunelx,tunely,tuneulx,tuneuly];

  MatchingRingTune[];

  Print[rhoUMPW];

  FFS["disp MARKR"];

  DAsv2[];

,{rhooo,rhoo,11.5*rhoo,rhoo}];

!  disp MARK*.*;

!  disp;

! WriteGraphs[];

SAVE;

stop;

stop;

stop;