Context Navigation

ManipBump.m

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

Line
1	function ManipBump(X)
2	idDevServMainPS1='ans-c05/ei/l-hu640_PS1';
3	idDevServCHE='ans-c05/ei/l-hu640_Corr2';
4	idDevServCHS='ans-c05/ei/l-hu640_corr1';
5	idDevServCVE='ans-c05/ei/l-hu640_corr4';
6	idDevServCVS='ans-c05/ei/l-hu640_corr3';
7
8	devemit = 'ANS-C02/DG/PHC-EMIT';
9	fprintf('%s\n','BUMP[mm] Current[A] EpsZ[nm.rd] EpsX[pm.rd] Couplage[%] SigX[mic] SigZ[mic] TuneX TuneZ')
10	PS1=0;
11	CVE=0;
12	CHE=0;
13	CVS=0;
14	CHS=0;
15
16	idSetCurrentSync(idDevServMainPS1, PS1, 0.3);
17	idSetCurrentSync(idDevServCVE, CVE, 0.01);
18	idSetCurrentSync(idDevServCHE, CHE, 0.01);
19	idSetCurrentSync(idDevServCVS, CVS, 0.01);
20	idSetCurrentSync(idDevServCHS, CHS, 0.01);
21
22	pause(5);
23	EmittanceV=readattribute([devemit '/EmittanceV']);
24	EmittanceH=readattribute([devemit '/EmittanceH']);
25	Couplage=readattribute([devemit '/Coupling']);
26	SigH=readattribute([devemit '/SrcPointSigmaH']);
27	SigV=readattribute([devemit '/SrcPointSigmaV']);
28	Tune=gettune;
29	fprintf('%8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\n',X,PS1,EmittanceV,EmittanceH, Couplage, SigH, SigV,Tune(1),Tune(2));
30	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31	PS1=-300;
32	CVE=-.0383;
33	CHE=-.032;
34	CVS=-.0143;
35	CHS=-.0685;
36
37	idSetCurrentSync(idDevServMainPS1, PS1, 0.3);
38	idSetCurrentSync(idDevServCVE, CVE, 0.01);
39	idSetCurrentSync(idDevServCHE, CHE, 0.01);
40	idSetCurrentSync(idDevServCVS, CVS, 0.01);
41	idSetCurrentSync(idDevServCHS, CHS, 0.01);
42
43	pause(5);
44	EmittanceV=readattribute([devemit '/EmittanceV']);
45	EmittanceH=readattribute([devemit '/EmittanceH']);
46	Couplage=readattribute([devemit '/Coupling']);
47	SigH=readattribute([devemit '/SrcPointSigmaH']);
48	SigV=readattribute([devemit '/SrcPointSigmaV']);
49	Tune=gettune;
50	fprintf('%8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\n',X,PS1,EmittanceV,EmittanceH, Couplage, SigH, SigV,Tune(1),Tune(2));
51	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52	PS1=-600;
53	CVE=-.0478;
54	CHE=-.0609;
55	CVS=-.0072;
56	CHS=-.1183;
57
58	idSetCurrentSync(idDevServMainPS1, PS1, 0.3);
59	idSetCurrentSync(idDevServCVE, CVE, 0.01);
60	idSetCurrentSync(idDevServCHE, CHE, 0.01);
61	idSetCurrentSync(idDevServCVS, CVS, 0.01);
62	idSetCurrentSync(idDevServCHS, CHS, 0.01);
63
64	pause(5);
65	EmittanceV=readattribute([devemit '/EmittanceV']);
66	EmittanceH=readattribute([devemit '/EmittanceH']);
67	Couplage=readattribute([devemit '/Coupling']);
68	SigH=readattribute([devemit '/SrcPointSigmaH']);
69	SigV=readattribute([devemit '/SrcPointSigmaV']);
70	Tune=gettune;
71	fprintf('%8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\n',X,PS1,EmittanceV,EmittanceH, Couplage, SigH, SigV,Tune(1),Tune(2));
72	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73	PS1=600;
74	CVE=.0645;
75	CHE=.0772;
76	CVS=.0191;
77	CHS=.1609;
78	idSetCurrentSync(idDevServMainPS1, PS1, 0.3);
79	idSetCurrentSync(idDevServCVE, CVE, 0.01);
80	idSetCurrentSync(idDevServCHE, CHE, 0.01);
81	idSetCurrentSync(idDevServCVS, CVS, 0.01);
82	idSetCurrentSync(idDevServCHS, CHS, 0.01);
83
84	pause(5);
85	EmittanceV=readattribute([devemit '/EmittanceV']);
86	EmittanceH=readattribute([devemit '/EmittanceH']);
87	Couplage=readattribute([devemit '/Coupling']);
88	SigH=readattribute([devemit '/SrcPointSigmaH']);
89	SigV=readattribute([devemit '/SrcPointSigmaV']);
90	Tune=gettune;
91	fprintf('%8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\n',X,PS1,EmittanceV,EmittanceH, Couplage, SigH, SigV,Tune(1),Tune(2));
92	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93	PS1=300;
94	CVE=.0388;
95	CHE=.0285;
96	CVS=.0195;
97	CHS=.0898;
98
99	idSetCurrentSync(idDevServMainPS1, PS1, 0.3);
100	idSetCurrentSync(idDevServCVE, CVE, 0.01);
101	idSetCurrentSync(idDevServCHE, CHE, 0.01);
102	idSetCurrentSync(idDevServCVS, CVS, 0.01);
103	idSetCurrentSync(idDevServCHS, CHS, 0.01);
104
105	pause(5);
106	EmittanceV=readattribute([devemit '/EmittanceV']);
107	EmittanceH=readattribute([devemit '/EmittanceH']);
108	Couplage=readattribute([devemit '/Coupling']);
109	SigH=readattribute([devemit '/SrcPointSigmaH']);
110	SigV=readattribute([devemit '/SrcPointSigmaV']);
111	Tune=gettune;
112	fprintf('%8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\n',X,PS1,EmittanceV,EmittanceH, Couplage, SigH, SigV,Tune(1),Tune(2));
113	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114	PS1=0;
115	CVE=0;
116	CHE=0;
117	CVS=0;
118	CHS=0;
119
120	idSetCurrentSync(idDevServMainPS1, 0, 0.3);
121	idSetCurrentSync(idDevServCVE, CVE, 0.01);
122	idSetCurrentSync(idDevServCHE, CHE, 0.01);
123	idSetCurrentSync(idDevServCVS, CVS, 0.01);
124	idSetCurrentSync(idDevServCHS, CHS, 0.01);
125
126	pause(5);
127	EmittanceV=readattribute([devemit '/EmittanceV']);
128	EmittanceH=readattribute([devemit '/EmittanceH']);
129	Couplage=readattribute([devemit '/Coupling']);
130	SigH=readattribute([devemit '/SrcPointSigmaH']);
131	SigV=readattribute([devemit '/SrcPointSigmaV']);
132	Tune=gettune;
133	fprintf('%8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\t %8.4f\n',X,PS1,EmittanceV,EmittanceH, Couplage, SigH, SigV,Tune(1),Tune(2));

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

Context Navigation

source: MML/trunk/machine/SOLEIL/StorageRing/bpm/ManipBump.m

Download in other formats: