source:
MML/trunk/machine/SOLEIL/StorageRing/Lattices/lowalpha_dec08/appliquer_S.m
@
4
Last change on this file since 4 was 4, checked in by , 10 years ago | |
---|---|
File size: 191 bytes |
Line | |
---|---|
1 | function appliquer_S(IS) |
2 | for 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); |
9 | end |
Note: See TracBrowser
for help on using the repository browser.