0001 function load_synchro_rafale(Directory,file,DirName)
0002
0003
0004 pwdold = pwd;
0005 cd(Directory);
0006 load(file)
0007 cd(pwdold);
0008
0009
0010 tout=0.;
0011
0012 display('off set')
0013 if isfield(timing,'inj_offset');inj_offset=timing.inj_offset;
0014 if isfield(timing,'ext_offset');ext_offset=timing.ext_offset;
0015 if isfield(timing,'lin_fin' );
0016
0017 lin_fin =timing.lin_fin;
0018 FileName = [DirName 'synchro_offset_lin'];
0019 save(FileName, 'inj_offset' , 'ext_offset', 'lin_fin');
0020
0021 end
0022 end
0023 end
0024 display('Clk')
0025
0026 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'dof.trigStepDelay',timing.boo_dof_ext(1));pause(tout);
0027 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-p.trigStepDelay',timing.boo_sep_p_ext(1));pause(tout);
0028 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-a.trigStepDelay',timing.boo_sep_a_ext(1));pause(tout);
0029 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'k.trigStepDelay',timing.boo_k_ext(1));pause(tout);
0030 if isfield(timing,'boo_mrsv');tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'emittanceStepDelay',timing.boo_mrsv(1));pause(tout);end
0031 tango_write_attribute2('LT2/SY/LOCAL.DG.2', 'bpm.trigStepDelay',timing.lt2_bpm(1));pause(tout);
0032 tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'osc-fctStepDelay',timing.lt2_osc(1));pause(tout);
0033 tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'mrsvStepDelay',timing.lt2_emittance(1));pause(tout);
0034
0035 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k1.trigStepDelay',timing.ans_k1_inj(1));pause(tout);
0036 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k2.trigStepDelay',timing.ans_k2_inj(1));pause(tout);
0037 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k3.trigStepDelay',timing.ans_k3_inj(1));pause(tout);
0038 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k4.trigStepDelay',timing.ans_k4_inj(1));pause(tout);
0039 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.2', 'sep-p.trigStepDelay',timing.ans_sep_p_inj(1));pause(tout);
0040 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.2', 'sep-a.trigStepDelay',timing.ans_sep_a_inj(1));pause(tout);
0041 tango_write_attribute2('ANS-C01/SY/LOCAL.DG.2', 'bpm.trigStepDelay',timing.ans_bpm01(1));pause(tout);
0042 tango_write_attribute2('ANS-C02/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm02(1));pause(tout);
0043 tango_write_attribute2('ANS-C03/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm03(1));pause(tout);
0044 tango_write_attribute2('ANS-C04/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm04(1));pause(tout);
0045 tango_write_attribute2('ANS-C05/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm05(1));pause(tout);
0046 tango_write_attribute2('ANS-C06/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm06(1));pause(tout);
0047 tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm07(1));pause(tout);
0048 tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm08(1));pause(tout);
0049 tango_write_attribute2('ANS-C09/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm09(1));pause(tout);
0050 tango_write_attribute2('ANS-C10/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm10(1));pause(tout);
0051 tango_write_attribute2('ANS-C11/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm11(1));pause(tout);
0052 tango_write_attribute2('ANS-C12/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm12(1));pause(tout);
0053 tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm13(1));pause(tout);
0054 tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm14(1));pause(tout);
0055 tango_write_attribute2('ANS-C15/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm15(1));pause(tout);
0056 tango_write_attribute2('ANS-C16/SY/LOCAL.DG.1', 'bpm.trigStepDelay',timing.ans_bpm16(1));pause(tout);
0057 tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'dcctStepDelay',timing.ans_dcct(1));pause(tout);
0058 if isfield(timing,'ans_nod') ;tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'perteStepDelay',timing.ans_nod(1));pause(tout);end
0059
0060
0061 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
0062 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
0063 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
0064
0065 display('Event')
0066 tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'oscEvent',int32(timing.sdc1(2)));pause(tout);
0067 tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'lpmEvent',int32(timing.lin_lpm(2)));pause(tout);
0068 tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',int32(timing.lin_modulateur(2)));
0069 if isfield(timing,'lin_spm');tango_write_attribute2('LIN/SY/LOCAL.SPM.1', 'spmLinacEvent',int32(timing.lin_spm(2)));pause(tout);end
0070 if isfield(timing,'lin_alim');tango_write_attribute2('LIN/SY/LOCAL.LPM.1', 'spareEvent',int32(timing.lin_alim(2)));pause(tout);end
0071 tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-bta.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
0072 tango_write_attribute2('BOO/SY/LOCAL.DG.1', 'bpm-btd.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
0073 tango_write_attribute2('BOO/SY/LOCAL.DG.2', 'bpm-btb.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
0074 tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-btc.trigEvent',int32(timing.boo_bpm(2)));pause(tout);
0075 tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'emittanceEvent',int32(timing.lt1_emittance(2)));pause(tout);
0076 tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.1Event',int32(timing.lt1_mc1(2)));pause(tout);
0077 tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'mc.2Event',int32(timing.lt1_mc2(2)));pause(tout);
0078 tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'oscEvent',int32(timing.lt1_osc(2)));pause(tout);
0079 tango_write_attribute2('LT1/SY/LOCAL.DG.1', 'dcct-booEvent',int32(timing.boo_dcct(2)));pause(tout);
0080 tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'bpm-onde.trigEvent',int32(timing.boo_nod(2)));pause(tout);
0081 tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'sep-p.trigEvent',int32(timing.boo_sep_p_inj(2)));pause(tout);
0082 tango_write_attribute2('BOO/SY/LOCAL.Binj.1', 'k.trigEvent',int32(timing.boo_k_inj(2)));pause(tout);
0083 tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'dpEvent',int32(timing.boo_dp(2)));pause(tout);
0084 tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qfEvent',int32(timing.boo_qf(2)));pause(tout);
0085 tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'qdEvent',int32(timing.boo_qd(2)));pause(tout);
0086 tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sfEvent',int32(timing.boo_sf(2)));pause(tout);
0087 tango_write_attribute2('BOO/SY/LOCAL.ALIM.1', 'sdEvent',int32(timing.boo_sd(2)));pause(tout);
0088 tango_write_attribute2('BOO/SY/LOCAL.RF.1', 'rfEvent',int32(timing.boo_rf(2)));pause(tout);
0089 tango_write_attribute2('ANS/SY/LOCAL.SDC.1', 'spareEvent',int32(timing.sdc2(2)));pause(tout);
0090 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'dof.trigEvent',int32(timing.boo_dof_ext(2)));pause(tout);
0091 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-p.trigEvent',int32(timing.boo_sep_p_ext(2)));pause(tout);
0092 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'sep-a.trigEvent',int32(timing.boo_sep_a_ext(2)));pause(tout);
0093 tango_write_attribute2('BOO/SY/LOCAL.Bext.1', 'k.trigEvent',int32(timing.boo_k_ext(2)));pause(tout);
0094 tango_write_attribute2('LT2/SY/LOCAL.DG.2', 'bpm.trigEvent',int32(timing.lt2_bpm(2)));pause(tout);
0095 tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'osc-fctEvent',int32(timing.lt2_osc(2)));pause(tout);
0096 tango_write_attribute2('LT2/SY/LOCAL.DG.1', 'mrsvEvent',int32(timing.lt2_emittance(2)));pause(tout);
0097 if isfield(timing,'boo_mrsv');tango_write_attribute2('BOO/SY/LOCAL.DG.3', 'emittanceEvent',int32(timing.boo_mrsv(2)));pause(tout);end
0098 arg.svalue={'k1.trig','k2.trig','k3.trig','k4.trig'};
0099 arg.lvalue=int32([timing.ans_k1_inj(2) timing.ans_k2_inj(2) timing.ans_k3_inj(2) timing.ans_k4_inj(2)]);
0100 tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.1','SetEventsNumbers',arg);
0101 tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.1', 'Update');pause(tout);
0102
0103 arg.svalue={'sep-p.trig','sep-a.trig'};
0104 arg.lvalue=int32([timing.ans_sep_p_inj(2) timing.ans_sep_a_inj(2)]);
0105 tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.2','SetEventsNumbers',arg);
0106 tango_command_inout2('ANS-C01/SY/LOCAL.Ainj.2', 'Update');pause(tout);
0107
0108
0109 tango_write_attribute2('ANS-C01/SY/LOCAL.DG.2', 'bpm.trigEvent',int32(timing.ans_bpm01(2)));pause(tout);
0110 tango_write_attribute2('ANS-C02/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm02(2)));pause(tout);
0111 tango_write_attribute2('ANS-C03/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm03(2)));pause(tout);
0112 tango_write_attribute2('ANS-C04/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm04(2)));pause(tout);
0113 tango_write_attribute2('ANS-C05/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm05(2)));pause(tout);
0114 tango_write_attribute2('ANS-C06/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm06(2)));pause(tout);
0115 tango_write_attribute2('ANS-C07/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm07(2)));pause(tout);
0116 tango_write_attribute2('ANS-C08/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm08(2)));pause(tout);
0117 tango_write_attribute2('ANS-C09/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm09(2)));pause(tout);
0118 tango_write_attribute2('ANS-C10/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm10(2)));pause(tout);
0119 tango_write_attribute2('ANS-C11/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm11(2)));pause(tout);
0120 tango_write_attribute2('ANS-C12/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm12(2)));pause(tout);
0121 tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm13(2)));pause(tout);
0122 tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm14(2)));pause(tout);
0123 tango_write_attribute2('ANS-C15/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm15(2)));pause(tout);
0124 tango_write_attribute2('ANS-C16/SY/LOCAL.DG.1', 'bpm.trigEvent',int32(timing.ans_bpm16(2)));pause(tout);
0125 tango_write_attribute2('ANS-C13/SY/LOCAL.DG.1', 'dcctEvent',int32(timing.ans_dcct(2)));pause(tout);
0126 if isfield(timing,'ans_nod') ;tango_write_attribute2('ANS-C14/SY/LOCAL.DG.1', 'perteEvent',int32(timing.ans_nod(2)));pause(tout);end
0127
0128 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
0129 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
0130 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
0131
0132
0133 tango_write_attribute2('ANS/SY/CENTRAL', 'TPcStepDelay',timing.central_pc);
0134 tango_write_attribute2('ANS/SY/CENTRAL', 'TInjStepDelay',timing.central_inj);
0135 tango_write_attribute2('ANS/SY/CENTRAL', 'TSoftStepDelay',timing.central_soft);
0136 tango_write_attribute2('ANS/SY/CENTRAL', 'TSprStepDelay',timing.central_spare);
0137 tango_write_attribute2('ANS/SY/CENTRAL', 'ExtractionOffsetClkStepValue',timing.central_ext);
0138
0139
0140 display('OK')
0141
0142