source: MML/trunk/machine/SOLEIL/common/synchro/linac.m

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

To have a stable version on the server.
  • Property svn:executable set to *
File size: 2.2 KB
Line 
1function linac(mode)
2% switch linac
3
4
5load('synchro_offset_lin', 'inj_offset' , 'ext_offset', 'lin_fin');
6tout=0.;
7
8
9switch mode  % Get Tag of selected object
10    case 'soft'
11    % switch to soft
12        event=int32(5) ;% adresse de l'injection
13        tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'lpmEvent',event); pause(tout);
14        tango_write_attribute2('LIN/SY/LOCAL.SPM.1', 'spmLinacEvent',int16(0));
15        tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',int32(1)); pause(tout);
16        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceEvent',event); pause(tout);
17        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1Event',event); pause(tout);
18        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2Event',event); pause(tout);
19        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscEvent',event); pause(tout);
20        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booEvent',event); pause(tout);
21    % special modulateur
22        temp=tango_read_attribute2('ANS/SY/CENTRAL', 'TPcTimeDelay');pc=temp.value(1);
23        temp=tango_read_attribute2('ANS/SY/CENTRAL', 'TSoftTimeDelay');soft=temp.value(1);
24        delay=inj_offset+soft-pc;
25        tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareTimeDelay',delay);
26        display('ok change 3Hz to soft')
27       
28    case '3Hz'
29    % switch to 3Hz
30        event=int32(2) ;% adresse de l'injection
31        tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'lpmEvent',int32(2)); pause(tout);
32        tango_write_attribute2('LIN/SY/LOCAL.SPM.1', 'spmLinacEvent',int16(0));
33        tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',event); pause(tout);
34        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceEvent',event); pause(tout);
35        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1Event',event); pause(tout);
36        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2Event',event); pause(tout);
37        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscEvent',event); pause(tout);
38        tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booEvent',event); pause(tout);
39    % special modulateur
40        delay=inj_offset+0;
41        tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareTimeDelay',delay);
42        display('ok change soft to 3Hz')
43end
44
Note: See TracBrowser for help on using the repository browser.