0001 function set_bump_test5_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.0 ;
0022
0023 k=-0;
0024
0025 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k1.trigStepDelay',delai0-0 + k);
0026 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k2.trigStepDelay',delai0+2 + k);
0027 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k3.trigStepDelay',delai0+3 + k);
0028 tango_write_attribute2('ANS-C01/SY/LOCAL.Ainj.1', 'k4.trigStepDelay',delai0-2 + k);
0029
0030
0031 tango_write_attribute2('ANS-C01/EP/AL_K.1', 'voltage',5591*r-10 - 10);
0032 tango_write_attribute2('ANS-C01/EP/AL_K.2', 'voltage',5630*r+10 - 10 );
0033 tango_write_attribute2('ANS-C01/EP/AL_K.3', 'voltage',(5592*r-10 + 20)*r1 );
0034 tango_write_attribute2('ANS-C01/EP/AL_K.4', 'voltage',(5566*r+05 - 15)*r1 );
0035
0036
0037
0038 return
0039
0040
0041