0001 function set_bump_test3_2009
0002
0003
0004
0005
0006 tango_read_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k1.trigStepDelay');
0007 tango_read_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k2.trigStepDelay');
0008 tango_read_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k3.trigStepDelay');
0009 tango_read_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k4.trigStepDelay');
0010
0011 tango_read_attribute2('ANS-C01/EP/AL_K.1', 'voltage' );
0012 tango_read_attribute2('ANS-C01/EP/AL_K.2', 'voltage');
0013 tango_read_attribute2('ANS-C01/EP/AL_K.3', 'voltage');
0014 tango_read_attribute2('ANS-C01/EP/AL_K.4', 'voltage');
0015
0016
0017
0018 delai0 =5621670;
0019 voltage0=3000;
0020 r=1.04;
0021 r1=1.010 ;
0022
0023 k=-3;
0024
0025
0026 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k1.trigStepDelay',delai0-0 );
0027 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k2.trigStepDelay',delai0+3 );
0028 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k3.trigStepDelay',delai0+4 + k);
0029 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k4.trigStepDelay',delai0+0 + k);
0030
0031
0032 tango_write_attribute2('ANS-C01/EP/AL_K.1', 'voltage',5591*r-10 );
0033 tango_write_attribute2('ANS-C01/EP/AL_K.2', 'voltage',5630*r+10);
0034 tango_write_attribute2('ANS-C01/EP/AL_K.3', 'voltage',5592*r-10);
0035 tango_write_attribute2('ANS-C01/EP/AL_K.4', 'voltage',5566*r+05);
0036
0037
0038
0039 return
0040
0041
0042