source: MML/trunk/machine/SOLEIL/common/synchro/load_synchro_rafale.m @ 4

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: 14.5 KB
Line 
1function load_synchro_rafale(Directory,file,DirName)
2%
3
4pwdold = pwd;
5cd(Directory);
6load(file)
7cd(pwdold);
8
9tout=0.;
10
11    display('off set')
12    if isfield(timing,'inj_offset');inj_offset=timing.inj_offset;
13       if isfield(timing,'ext_offset');ext_offset=timing.ext_offset;
14           if isfield(timing,'lin_fin'   );lin_fin   =timing.lin_fin;
15              FileName = [DirName 'synchro_offset_lin.mat'];
16             % save(FileName, 'inj_offset' , 'ext_offset', 'lin_fin');   
17             
18           end
19       end
20    end
21    display('Clk')
22    % set address to value never used (prevent collision when swap adress)
23    tango_write_attribute2('ANS/SY/CENTRAL', 'TPcTimeDelay',290000);
24    tango_write_attribute2('ANS/SY/CENTRAL', 'TInjTimeDelay',290010);
25    tango_write_attribute2('ANS/SY/CENTRAL', 'TSoftTimeDelay',290020);
26    tango_write_attribute2('ANS/SY/CENTRAL', 'TSprTimeDelay',290030);
27    tango_write_attribute2('ANS/SY/CENTRAL', 'ExtractionOffsetTimeValue',290080);
28   
29    tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'oscStepDelay',timing.sdc1(1));pause(tout);
30    tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'lpmStepDelay',timing.lin_lpm(1));pause(tout);
31    tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareStepDelay',timing.lin_modulateur(1));
32    if isfield(timing,'lin_spm');tango_write_attribute2('LIN/SY/LOCAL.SPM.1', 'spmLinacStepDelay',timing.lin_spm(1));pause(tout);end
33    if isfield(timing,'lin_alim');tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'libre.1StepDelay',timing.lin_alim(1));pause(tout);end
34    tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-bta.trigStepDelay',timing.boo_bpm(1));pause(tout);
35    tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btd.trigStepDelay',timing.boo_bpm(1));pause(tout);
36    tango_write_attribute2('BOO/SY/LOCAL.DG.2', 'bpm-btb.trigStepDelay',timing.boo_bpm(1));pause(tout);
37    tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-btc.trigStepDelay',timing.boo_bpm(1));pause(tout);     
38    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceStepDelay',timing.lt1_emittance(1));pause(tout);
39    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1StepDelay',timing.lt1_mc1(1));pause(tout);
40    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2StepDelay',timing.lt1_mc2(1));pause(tout);
41    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscStepDelay',timing.lt1_osc(1));pause(tout);
42    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booStepDelay',timing.boo_dcct(1));pause(tout);
43    tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-onde.trigStepDelay',timing.boo_nod(1));pause(tout);
44    tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'sep-p.trigStepDelay',timing.boo_sep_p_inj(1));pause(tout);
45    tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'k.trigStepDelay',timing.boo_k_inj(1));pause(tout);
46    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'dpStepDelay',timing.boo_dp(1));pause(tout);
47    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qfStepDelay',timing.boo_qf(1));pause(tout);
48    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qdStepDelay',timing.boo_qd(1));pause(tout);
49    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sfStepDelay',timing.boo_sf(1));pause(tout);
50    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sdStepDelay',timing.boo_sd(1));pause(tout);
51    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'compStepDelay',timing.boo_cp(1));pause(tout);
52    tango_write_attribute2('BOO/SY/LOCAL.RF.1', 'rfStepDelay',timing.boo_rf(1));pause(tout);
53    tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'spareStepDelay',timing.sdc2(1));pause(tout);
54    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'dof.trigStepDelay',timing.boo_dof_ext(1));pause(tout);
55    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-p.trigStepDelay',timing.boo_sep_p_ext(1));pause(tout);
56    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-a.trigStepDelay',timing.boo_sep_a_ext(1));pause(tout);
57    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'k.trigStepDelay',timing.boo_k_ext(1));pause(tout);
58    if isfield(timing,'boo_mrsv');tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'emittanceStepDelay',timing.boo_mrsv(1));pause(tout);end
59    tango_write_attribute2('LT2/SY/LOCAL.DG.2', 'bpm.trigStepDelay',timing.lt2_bpm(1));pause(tout);
60    tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'osc-fctStepDelay',timing.lt2_osc(1));pause(tout);
61    tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'mrsvStepDelay',timing.lt2_emittance(1));pause(tout);
62   
63    tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k1.trigStepDelay',timing.ans_k1_inj(1));pause(tout);
64    tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k2.trigStepDelay',timing.ans_k2_inj(1));pause(tout);
65    tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k3.trigStepDelay',timing.ans_k3_inj(1));pause(tout);
66    tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k4.trigStepDelay',timing.ans_k4_inj(1));pause(tout);
67    tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.2', 'sep-p.trigStepDelay',timing.ans_sep_p_inj(1));pause(tout);
68    tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.2', 'sep-a.trigStepDelay',timing.ans_sep_a_inj(1));pause(tout);
69    tango_write_attribute2('ANS-C01/SY/LOCAL.DG.2', 'bpm.trigStepDelay',timing.ans_bpm01(1));pause(tout);
70    tango_write_attribute2('ANS-C02/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm02(1));pause(tout);
71    tango_write_attribute2('ANS-C03/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm03(1));pause(tout);
72    tango_write_attribute2('ANS-C04/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm04(1));pause(tout);
73    tango_write_attribute2('ANS-C05/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm05(1));pause(tout);
74    tango_write_attribute2('ANS-C06/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm06(1));pause(tout);
75    tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm07(1));pause(tout);
76    tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm08(1));pause(tout);
77    tango_write_attribute2('ANS-C09/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm09(1));pause(tout);
78    tango_write_attribute2('ANS-C10/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm10(1));pause(tout); 
79    tango_write_attribute2('ANS-C11/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm11(1));pause(tout); 
80    tango_write_attribute2('ANS-C12/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm12(1));pause(tout); 
81    tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm13(1));pause(tout); 
82    tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm14(1));pause(tout); 
83    tango_write_attribute2('ANS-C15/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm15(1));pause(tout); 
84    tango_write_attribute2('ANS-C16/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm16(1));pause(tout);   
85   
86    tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'perteStepDelay',timing.ans_dcct(1));pause(tout); 
87    if isfield(timing,'ans_nod') ;tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.pmStepDelay',timing.ans_nod(1));pause(tout);end 
88    if isfield(timing,'ans_fbt') ;tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'libre.1StepDelay',timing.ans_fbt(1));pause(tout);end
89   
90    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 
91    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 
92    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 
93
94    display('Event')
95    tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'oscEvent',int32(timing.sdc1(2)));pause(tout);
96    tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'lpmEvent',int32(timing.lin_lpm(2)));pause(tout);
97    tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',int32(timing.lin_modulateur(2)));
98    if isfield(timing,'lin_spm');tango_write_attribute2('LIN/SY/LOCAL.SPM.1', 'spmLinacEvent',int32(timing.lin_spm(2)));pause(tout);end
99    if isfield(timing,'lin_alim');tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'libre.1Event',int32(timing.lin_alim(2)));pause(tout);end
100    tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-bta.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
101    tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btd.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
102    tango_write_attribute2('BOO/SY/LOCAL.DG.2', 'bpm-btb.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
103    tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-btc.trigEvent',int32(timing.boo_bpm(2)));pause(tout);     
104    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceEvent',int32(timing.lt1_emittance(2)));pause(tout);
105    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1Event',int32(timing.lt1_mc1(2)));pause(tout);
106    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2Event',int32(timing.lt1_mc2(2)));pause(tout);
107    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscEvent',int32(timing.lt1_osc(2)));pause(tout);
108    tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booEvent',int32(timing.boo_dcct(2)));pause(tout);
109    tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-onde.trigEvent',int32(timing.boo_nod(2)));pause(tout);
110    tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'sep-p.trigEvent',int32(timing.boo_sep_p_inj(2)));pause(tout);
111    tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'k.trigEvent',int32(timing.boo_k_inj(2)));pause(tout);
112    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'dpEvent',int32(timing.boo_dp(2)));pause(tout);
113    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qfEvent',int32(timing.boo_qf(2)));pause(tout);
114    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qdEvent',int32(timing.boo_qd(2)));pause(tout);
115    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sfEvent',int32(timing.boo_sf(2)));pause(tout);
116    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sdEvent',int32(timing.boo_sd(2)));pause(tout);
117    tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'compEvent',int32(timing.boo_cp(2)));pause(tout);
118    tango_write_attribute2('BOO/SY/LOCAL.RF.1', 'rfEvent',int32(timing.boo_rf(2)));pause(tout);
119    tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'spareEvent',int32(timing.sdc2(2)));pause(tout);
120    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'dof.trigEvent',int32(timing.boo_dof_ext(2)));pause(tout);
121    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-p.trigEvent',int32(timing.boo_sep_p_ext(2)));pause(tout);
122    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-a.trigEvent',int32(timing.boo_sep_a_ext(2)));pause(tout);
123    tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'k.trigEvent',int32(timing.boo_k_ext(2)));pause(tout);
124    tango_write_attribute2('LT2/SY/LOCAL.DG.2', 'bpm.trigEvent',int32(timing.lt2_bpm(2)));pause(tout);
125    tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'osc-fctEvent',int32(timing.lt2_osc(2)));pause(tout);
126    tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'mrsvEvent',int32(timing.lt2_emittance(2)));pause(tout);
127    if isfield(timing,'boo_mrsv');tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'emittanceEvent',int32(timing.boo_mrsv(2)));pause(tout);end
128    arg.svalue={'k1.trig','k2.trig','k3.trig','k4.trig'};
129    arg.lvalue=int32([timing.ans_k1_inj(2) timing.ans_k2_inj(2) timing.ans_k3_inj(2) timing.ans_k4_inj(2)]);
130    tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.1','SetEventsNumbers',arg);% chagement groupé address sans update
131    tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.1', 'Update');pause(tout);
132   
133    arg.svalue={'sep-p.trig','sep-a.trig'};
134    arg.lvalue=int32([timing.ans_sep_p_inj(2) timing.ans_sep_a_inj(2)]);
135    tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.2','SetEventsNumbers',arg);% chagement groupé address sans update
136    tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.2', 'Update');pause(tout);
137   
138   
139    tango_write_attribute2('ANS-C01/SY/LOCAL.DG.2', 'bpm.trigEvent',int32(timing.ans_bpm01(2)));pause(tout);
140    tango_write_attribute2('ANS-C02/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm02(2)));pause(tout);
141    tango_write_attribute2('ANS-C03/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm03(2)));pause(tout);
142    tango_write_attribute2('ANS-C04/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm04(2)));pause(tout);
143    tango_write_attribute2('ANS-C05/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm05(2)));pause(tout);
144    tango_write_attribute2('ANS-C06/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm06(2)));pause(tout);
145    tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm07(2)));pause(tout);
146    tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm08(2)));pause(tout);
147    tango_write_attribute2('ANS-C09/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm09(2)));pause(tout);
148    tango_write_attribute2('ANS-C10/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm10(2)));pause(tout); 
149    tango_write_attribute2('ANS-C11/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm11(2)));pause(tout); 
150    tango_write_attribute2('ANS-C12/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm12(2)));pause(tout); 
151    tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm13(2)));pause(tout); 
152    tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm14(2)));pause(tout); 
153    tango_write_attribute2('ANS-C15/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm15(2)));pause(tout); 
154    tango_write_attribute2('ANS-C16/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm16(2)));pause(tout); 
155   
156    tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'perteEvent',int32(timing.ans_dcct(2)));pause(tout);
157    if isfield(timing,'ans_nod') ;tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.pmEvent',int32(timing.ans_nod(2)));pause(tout);end 
158    if isfield(timing,'ans_fbt') ;tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'libre.1Event',int32(timing.ans_fbt(2)));pause(tout);end
159   
160    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 
161    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 
162    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 
163   
164    % apply good value
165    tango_write_attribute2('ANS/SY/CENTRAL', 'TPcStepDelay',timing.central_pc);
166    tango_write_attribute2('ANS/SY/CENTRAL', 'TInjStepDelay',timing.central_inj);
167    tango_write_attribute2('ANS/SY/CENTRAL', 'TSoftStepDelay',timing.central_soft);
168    tango_write_attribute2('ANS/SY/CENTRAL', 'TSprStepDelay',timing.central_spare);
169    tango_write_attribute2('ANS/SY/CENTRAL', 'ExtractionOffsetClkStepValue',timing.central_ext);
170 
171   
172display('OK')
173
174
Note: See TracBrowser for help on using the repository browser.