Context Navigation

set66MeV.m @ 17

Last change on this file since 17 was 17, checked in by zhangj, 10 years ago
To have a stable version on the server.
Property svn:executable set to ``*
File size: 1.1 KB

Line
1	% scale some setpoint pour le mode linac dÃ©gradÃ© MeV
2
3	%%
4	E1=110; % Nominal
5	E2=69; % dÃ©gradÃ©e
6
7
8	%% save start value only once warning to not over write
9	HCOR=getsp('HCOR');
10	VCOR=getsp('VCOR');
11	temp=tango_read_attribute2('BOO-C01/EP/AL_K.Inj','voltage');kicker=temp.value(2);
12	temp=tango_read_attribute2('BOO-C22/EP/AL_SEP_P.Inj','voltage');septum=temp.value(2);
13	temp=tango_read_attribute('LT1/AE/CV.2', 'current');cv2=temp.value(2);
14	temp=tango_read_attribute('LT1/AE/CV.3', 'current');cv3=temp.value(2);
15	save data_110MeV.mat HCOR VCOR kicker septum cv2 cv3
16
17	return
18
19	%% Apply scaling
20	r=E2/E1
21	kicker1=6600 *r;
22	sept1 =194.9*r;
23	HCOR1=HCOR*r;
24	VCOR1=VCOR*r;
25	cv21=cv2*r;
26	cv31=cv3*r;
27
28	writeattribute('BOO-C01/EP/AL_K.Inj/voltage',kicker1);
29	writeattribute('BOO-C22/EP/AL_SEP_P.Inj/voltage',sept1);
30	setsp('HCOR', HCOR1);
31	setsp('VCOR', VCOR1);
32
33
34	tango_write_attribute('LT1/AE/CV.2', 'current', cv21 );
35	tango_write_attribute('LT1/AE/CV.3', 'current', cv31 );
36
37	setsp('HCOR', HCOR);
38	setsp('VCOR', VCOR);
39
40
41	tango_write_attribute('LT1/AE/CV.2', 'current', cv2 );
42	tango_write_attribute('LT1/AE/CV.3', 'current', cv3 );

Note: See TracBrowser for help on using the repository browser.