Last change
on this file since 4 was
4,
checked in by zhangj, 10 years ago
|
Initial import--MML version from SOLEIL@2013
|
File size:
744 bytes
|
Line | |
---|
1 | %function tune(istart) |
---|
2 | |
---|
3 | % reglage delta tune à 110 MeV |
---|
4 | |
---|
5 | dtune = [0.0 0.0]; % dnu H et dnu V |
---|
6 | |
---|
7 | m1 =[ 0.88 0.125 ; 0.2 0.716 ] ; |
---|
8 | kqp = m1*dtune' ; % DI QPF et QPD en A |
---|
9 | sprintf(' Courant delta-quadrupole dQPF: %g A et dQPD: %g A', kqp) |
---|
10 | |
---|
11 | |
---|
12 | temp = tango_read_attribute2('BOO/AE/QF', 'current'); |
---|
13 | qpf_inj = temp.value(2) + kqp(1); |
---|
14 | tango_write_attribute('BOO/AE/QF', 'current', qpf_inj); |
---|
15 | if (tango_error == -1) |
---|
16 | %- handle error |
---|
17 | tango_print_error_stack; |
---|
18 | return |
---|
19 | end |
---|
20 | temp=tango_read_attribute2('BOO/AE/QD', 'current'); |
---|
21 | qpd_inj = temp.value(2) + kqp(2); |
---|
22 | tango_write_attribute('BOO/AE/QD', 'current', qpd_inj); |
---|
23 | if (tango_error == -1) |
---|
24 | %- handle error |
---|
25 | tango_print_error_stack; |
---|
26 | return |
---|
27 | end |
---|
28 | |
---|
29 | |
---|
30 | |
---|
Note: See
TracBrowser
for help on using the repository browser.