1 | function load_synchro_rafale(Directory,file,DirName) |
---|
2 | % |
---|
3 | |
---|
4 | pwdold = pwd; |
---|
5 | cd(Directory); |
---|
6 | load(file) |
---|
7 | cd(pwdold); |
---|
8 | |
---|
9 | |
---|
10 | tout=0.; |
---|
11 | |
---|
12 | display('off set') |
---|
13 | if isfield(timing,'inj_offset');inj_offset=timing.inj_offset; |
---|
14 | if isfield(timing,'ext_offset');ext_offset=timing.ext_offset; |
---|
15 | if isfield(timing,'lin_fin' ); |
---|
16 | |
---|
17 | lin_fin =timing.lin_fin; |
---|
18 | FileName = [DirName 'synchro_offset_lin']; |
---|
19 | save(FileName, 'inj_offset' , 'ext_offset', 'lin_fin'); |
---|
20 | |
---|
21 | end |
---|
22 | end |
---|
23 | end |
---|
24 | display('Clk') |
---|
25 | % set address to value never used (prevent collision when swap adress) |
---|
26 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'dof.trigStepDelay',timing.boo_dof_ext(1));pause(tout); |
---|
27 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-p.trigStepDelay',timing.boo_sep_p_ext(1));pause(tout); |
---|
28 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-a.trigStepDelay',timing.boo_sep_a_ext(1));pause(tout); |
---|
29 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'k.trigStepDelay',timing.boo_k_ext(1));pause(tout); |
---|
30 | if isfield(timing,'boo_mrsv');tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'emittanceStepDelay',timing.boo_mrsv(1));pause(tout);end |
---|
31 | tango_write_attribute2('LT2/SY/LOCAL.DG.2', 'bpm.trigStepDelay',timing.lt2_bpm(1));pause(tout); |
---|
32 | tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'osc-fctStepDelay',timing.lt2_osc(1));pause(tout); |
---|
33 | tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'mrsvStepDelay',timing.lt2_emittance(1));pause(tout); |
---|
34 | |
---|
35 | tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k1.trigStepDelay',timing.ans_k1_inj(1));pause(tout); |
---|
36 | tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k2.trigStepDelay',timing.ans_k2_inj(1));pause(tout); |
---|
37 | tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k3.trigStepDelay',timing.ans_k3_inj(1));pause(tout); |
---|
38 | tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k4.trigStepDelay',timing.ans_k4_inj(1));pause(tout); |
---|
39 | tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.2', 'sep-p.trigStepDelay',timing.ans_sep_p_inj(1));pause(tout); |
---|
40 | tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.2', 'sep-a.trigStepDelay',timing.ans_sep_a_inj(1));pause(tout); |
---|
41 | tango_write_attribute2('ANS-C01/SY/LOCAL.DG.2', 'bpm.trigStepDelay',timing.ans_bpm01(1));pause(tout); |
---|
42 | tango_write_attribute2('ANS-C02/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm02(1));pause(tout); |
---|
43 | tango_write_attribute2('ANS-C03/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm03(1));pause(tout); |
---|
44 | tango_write_attribute2('ANS-C04/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm04(1));pause(tout); |
---|
45 | tango_write_attribute2('ANS-C05/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm05(1));pause(tout); |
---|
46 | tango_write_attribute2('ANS-C06/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm06(1));pause(tout); |
---|
47 | tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm07(1));pause(tout); |
---|
48 | tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm08(1));pause(tout); |
---|
49 | tango_write_attribute2('ANS-C09/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm09(1));pause(tout); |
---|
50 | tango_write_attribute2('ANS-C10/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm10(1));pause(tout); |
---|
51 | tango_write_attribute2('ANS-C11/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm11(1));pause(tout); |
---|
52 | tango_write_attribute2('ANS-C12/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm12(1));pause(tout); |
---|
53 | tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm13(1));pause(tout); |
---|
54 | tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm14(1));pause(tout); |
---|
55 | tango_write_attribute2('ANS-C15/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm15(1));pause(tout); |
---|
56 | tango_write_attribute2('ANS-C16/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm16(1));pause(tout); |
---|
57 | tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'dcctStepDelay',timing.ans_dcct(1));pause(tout); |
---|
58 | if isfield(timing,'ans_nod') ;tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'perteStepDelay',timing.ans_nod(1));pause(tout);end |
---|
59 | |
---|
60 | |
---|
61 | if isfield(timing,'ans_k_hv_pc') ;tango_write_attribute2('ANS-C01/SY/LOCAL.EP.1', 'k-hv.pcStepDelay',timing.ans_k_hv_pc(1));pause(tout);end |
---|
62 | if isfield(timing,'ans_k_v') ;tango_write_attribute2('ANS-C01/SY/LOCAL.EP.1', 'k-v.trigStepDelay',timing.ans_k_v(1));pause(tout);end |
---|
63 | if isfield(timing,'ans_k_h') ;tango_write_attribute2('ANS-C01/SY/LOCAL.EP.1', 'k-h.trigStepDelay',timing.ans_k_h(1));pause(tout);end |
---|
64 | |
---|
65 | display('Event') |
---|
66 | tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'oscEvent',int32(timing.sdc1(2)));pause(tout); |
---|
67 | tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'lpmEvent',int32(timing.lin_lpm(2)));pause(tout); |
---|
68 | tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',int32(timing.lin_modulateur(2))); |
---|
69 | if isfield(timing,'lin_spm');tango_write_attribute2('LIN/SY/LOCAL.SPM.1', 'spmLinacEvent',int32(timing.lin_spm(2)));pause(tout);end |
---|
70 | if isfield(timing,'lin_alim');tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',int32(timing.lin_alim(2)));pause(tout);end |
---|
71 | tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-bta.trigEvent',int32(timing.boo_bpm(2)));pause(tout); |
---|
72 | tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btd.trigEvent',int32(timing.boo_bpm(2)));pause(tout); |
---|
73 | tango_write_attribute2('BOO/SY/LOCAL.DG.2', 'bpm-btb.trigEvent',int32(timing.boo_bpm(2)));pause(tout); |
---|
74 | tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-btc.trigEvent',int32(timing.boo_bpm(2)));pause(tout); |
---|
75 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceEvent',int32(timing.lt1_emittance(2)));pause(tout); |
---|
76 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1Event',int32(timing.lt1_mc1(2)));pause(tout); |
---|
77 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2Event',int32(timing.lt1_mc2(2)));pause(tout); |
---|
78 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscEvent',int32(timing.lt1_osc(2)));pause(tout); |
---|
79 | tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booEvent',int32(timing.boo_dcct(2)));pause(tout); |
---|
80 | tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-onde.trigEvent',int32(timing.boo_nod(2)));pause(tout); |
---|
81 | tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'sep-p.trigEvent',int32(timing.boo_sep_p_inj(2)));pause(tout); |
---|
82 | tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'k.trigEvent',int32(timing.boo_k_inj(2)));pause(tout); |
---|
83 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'dpEvent',int32(timing.boo_dp(2)));pause(tout); |
---|
84 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qfEvent',int32(timing.boo_qf(2)));pause(tout); |
---|
85 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qdEvent',int32(timing.boo_qd(2)));pause(tout); |
---|
86 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sfEvent',int32(timing.boo_sf(2)));pause(tout); |
---|
87 | tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sdEvent',int32(timing.boo_sd(2)));pause(tout); |
---|
88 | tango_write_attribute2('BOO/SY/LOCAL.RF.1', 'rfEvent',int32(timing.boo_rf(2)));pause(tout); |
---|
89 | tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'spareEvent',int32(timing.sdc2(2)));pause(tout); |
---|
90 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'dof.trigEvent',int32(timing.boo_dof_ext(2)));pause(tout); |
---|
91 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-p.trigEvent',int32(timing.boo_sep_p_ext(2)));pause(tout); |
---|
92 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-a.trigEvent',int32(timing.boo_sep_a_ext(2)));pause(tout); |
---|
93 | tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'k.trigEvent',int32(timing.boo_k_ext(2)));pause(tout); |
---|
94 | tango_write_attribute2('LT2/SY/LOCAL.DG.2', 'bpm.trigEvent',int32(timing.lt2_bpm(2)));pause(tout); |
---|
95 | tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'osc-fctEvent',int32(timing.lt2_osc(2)));pause(tout); |
---|
96 | tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'mrsvEvent',int32(timing.lt2_emittance(2)));pause(tout); |
---|
97 | if isfield(timing,'boo_mrsv');tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'emittanceEvent',int32(timing.boo_mrsv(2)));pause(tout);end |
---|
98 | arg.svalue={'k1.trig','k2.trig','k3.trig','k4.trig'}; |
---|
99 | arg.lvalue=int32([timing.ans_k1_inj(2) timing.ans_k2_inj(2) timing.ans_k3_inj(2) timing.ans_k4_inj(2)]); |
---|
100 | tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.1','SetEventsNumbers',arg);% chagement groupé address sans update |
---|
101 | tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.1', 'Update');pause(tout); |
---|
102 | |
---|
103 | arg.svalue={'sep-p.trig','sep-a.trig'}; |
---|
104 | arg.lvalue=int32([timing.ans_sep_p_inj(2) timing.ans_sep_a_inj(2)]); |
---|
105 | tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.2','SetEventsNumbers',arg);% chagement groupé address sans update |
---|
106 | tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.2', 'Update');pause(tout); |
---|
107 | |
---|
108 | |
---|
109 | tango_write_attribute2('ANS-C01/SY/LOCAL.DG.2', 'bpm.trigEvent',int32(timing.ans_bpm01(2)));pause(tout); |
---|
110 | tango_write_attribute2('ANS-C02/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm02(2)));pause(tout); |
---|
111 | tango_write_attribute2('ANS-C03/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm03(2)));pause(tout); |
---|
112 | tango_write_attribute2('ANS-C04/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm04(2)));pause(tout); |
---|
113 | tango_write_attribute2('ANS-C05/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm05(2)));pause(tout); |
---|
114 | tango_write_attribute2('ANS-C06/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm06(2)));pause(tout); |
---|
115 | tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm07(2)));pause(tout); |
---|
116 | tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm08(2)));pause(tout); |
---|
117 | tango_write_attribute2('ANS-C09/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm09(2)));pause(tout); |
---|
118 | tango_write_attribute2('ANS-C10/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm10(2)));pause(tout); |
---|
119 | tango_write_attribute2('ANS-C11/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm11(2)));pause(tout); |
---|
120 | tango_write_attribute2('ANS-C12/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm12(2)));pause(tout); |
---|
121 | tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm13(2)));pause(tout); |
---|
122 | tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm14(2)));pause(tout); |
---|
123 | tango_write_attribute2('ANS-C15/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm15(2)));pause(tout); |
---|
124 | tango_write_attribute2('ANS-C16/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm16(2)));pause(tout); |
---|
125 | tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'dcctEvent',int32(timing.ans_dcct(2)));pause(tout); |
---|
126 | if isfield(timing,'ans_nod') ;tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'perteEvent',int32(timing.ans_nod(2)));pause(tout);end |
---|
127 | |
---|
128 | if isfield(timing,'ans_k_hv_pc') ;tango_write_attribute2('ANS-C01/SY/LOCAL.EP.1', 'k-hv.pcEvent',int32(timing.ans_k_hv_pc(2)));pause(tout);end |
---|
129 | if isfield(timing,'ans_k_v') ;tango_write_attribute2('ANS-C01/SY/LOCAL.EP.1', 'k-v.trigEvent',int32(timing.ans_k_v(2)));pause(tout);end |
---|
130 | if isfield(timing,'ans_k_h') ;tango_write_attribute2('ANS-C01/SY/LOCAL.EP.1', 'k-h.trigEvent',int32(timing.ans_k_h(2)));pause(tout);end |
---|
131 | |
---|
132 | % apply good value |
---|
133 | tango_write_attribute2('ANS/SY/CENTRAL', 'TPcStepDelay',timing.central_pc); |
---|
134 | tango_write_attribute2('ANS/SY/CENTRAL', 'TInjStepDelay',timing.central_inj); |
---|
135 | tango_write_attribute2('ANS/SY/CENTRAL', 'TSoftStepDelay',timing.central_soft); |
---|
136 | tango_write_attribute2('ANS/SY/CENTRAL', 'TSprStepDelay',timing.central_spare); |
---|
137 | tango_write_attribute2('ANS/SY/CENTRAL', 'ExtractionOffsetClkStepValue',timing.central_ext); |
---|
138 | |
---|
139 | |
---|
140 | display('OK') |
---|
141 | |
---|
142 | |
---|