1 | % set synchro |
---|
2 | |
---|
3 | %cas='classique' |
---|
4 | cas='spécial'; |
---|
5 | |
---|
6 | |
---|
7 | % délai messages |
---|
8 | precharge=0; |
---|
9 | inj =32000; |
---|
10 | soft =32000+0.522; |
---|
11 | |
---|
12 | % délai LT1 |
---|
13 | delay(1)=0.1; |
---|
14 | delay(2)=78.1; |
---|
15 | delay(3)=79.5; |
---|
16 | delay(4)=75.5; |
---|
17 | delay(5)=79.5; |
---|
18 | delay(6)=78.1; |
---|
19 | % délai BOO |
---|
20 | delay(7)=51.0; |
---|
21 | delay(8)=79.56; % réglé sur 79.56 (longeur de cable) |
---|
22 | delay(9)=75.0; |
---|
23 | delay(10)=75.0; |
---|
24 | |
---|
25 | delay(11)=0; |
---|
26 | % délai alim boo |
---|
27 | dt=1000; |
---|
28 | alim(1)=dt; |
---|
29 | alim(2)=dt-210; |
---|
30 | alim(3)=dt-200; |
---|
31 | alim(4)=dt; |
---|
32 | alim(5)=dt; |
---|
33 | alim(6)=dt; |
---|
34 | |
---|
35 | % pause |
---|
36 | tout = 0.5; |
---|
37 | |
---|
38 | if strcmp( cas, 'classique') |
---|
39 | |
---|
40 | action = 'Synchro classique chargée'; |
---|
41 | |
---|
42 | elseif strcmp( cas, 'spécial') |
---|
43 | |
---|
44 | delay=delay+inj-dt; |
---|
45 | delay(11)=0; % spécial DCCT sur alim et soft |
---|
46 | soft=dt+0.522; |
---|
47 | inj=dt; % 980 le 23 avril |
---|
48 | action = 'Synchro spécial chargée'; |
---|
49 | |
---|
50 | else |
---|
51 | |
---|
52 | disp('Rien chargé') |
---|
53 | return |
---|
54 | |
---|
55 | end |
---|
56 | |
---|
57 | % délai messages |
---|
58 | tango_write_attribute2('ANS/SY/CENTRAL', 'TPcTimeDelay',precharge); pause(tout); |
---|
59 | tango_write_attribute2('ANS/SY/CENTRAL', 'TInjTimeDelay',inj); pause(tout); |
---|
60 | tango_write_attribute2('ANS/SY/CENTRAL', 'TSoftTimeDelay',soft); pause(tout); |
---|
61 | |
---|
62 | % délai LT1 |
---|
63 | tango_write_attribute2('LT1/SY/LOCAL.LINAC.1', 'lpmTimeDelay',delay(1)); pause(tout); |
---|
64 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceTimeDelay',delay(2)); pause(tout); |
---|
65 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1TimeDelay',delay(3)); pause(tout); |
---|
66 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2TimeDelay',delay(4)); pause(tout); |
---|
67 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscTimeDelay',delay(5)); pause(tout); |
---|
68 | tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'oscTimeDelay',delay(6)); pause(tout); |
---|
69 | |
---|
70 | % délai BOO |
---|
71 | tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'sep-p.trigTimeDelay',delay(7)); pause(tout); |
---|
72 | tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'k.trigTimeDelay',delay(8)); pause(tout); |
---|
73 | tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-bta.trigTimeDelay',delay(9)); pause(tout); |
---|
74 | tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btd.trigTimeDelay',delay(9)); pause(tout); |
---|
75 | %tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btc.trigTimeDelay',delay(9)); pause(tout); |
---|
76 | %tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btb.trigTimeDelay',delay(9)); pause(tout); |
---|
77 | %tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'NODTimeDelay',delay(10)); pause(tout); |
---|
78 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booTimeDelay',delay(11)); pause(tout); |
---|
79 | |
---|
80 | % délai alim boo |
---|
81 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'dpTimeDelay',alim(1));pause(tout); |
---|
82 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qfTimeDelay',alim(2));pause(tout); |
---|
83 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qdTimeDelay',alim(3));pause(tout); |
---|
84 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sfTimeDelay',alim(4));pause(tout); |
---|
85 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sdTimeDelay',alim(5));pause(tout); |
---|
86 | %tango_write_attribute2('BOO/SY/LOCAL.RF.1' , 'rfTimeDelay',alim(6));pause(tout); |
---|
87 | |
---|
88 | disp(action) |
---|