source: MML/trunk/machine/SOLEIL/StorageRing/Lattices/lowalpha_dec08/appliquer_S.m @ 17

Last change on this file since 17 was 17, checked in by zhangj, 10 years ago

To have a stable version on the server.
  • Property svn:executable set to *
File size: 191 bytes
Line 
1function appliquer_S(IS)
2for iS = 1:10
3    iS
4    Name = ['S' num2str(iS)];
5    A = IS(iS);
6    %s = getfamilydata((Name));
7    %B = A * ones(length(s.DeviceList),1);
8    setsp((Name),A);
9end
Note: See TracBrowser for help on using the repository browser.