Context Navigation

IPAC3.m

Last change on this file was 404, checked in by hodnevuc, 9 years ago

File size: 436 bytes

Line
1	function IPAC3(num)
2	if exist(['pch' num2str(num) '.mat'],'file')~=2
3	pitch=0.1:0.1:10;
4	plen=0.1:0.1:10;
5	i=round(rem(num,100));
6	j=round((num-i)/100);
7	i=i+1;
8	j=j+1;
9	[nu_Hz,SP_spec_1,SP_spec_N,lamX,E_total,sum_tr]=GFWnew(['PrSelect=2; x0_mm=' num2str(3+pitch(i)cos(30/180pi)sin(30/180pi)) '; pulse_len_ps=' num2str(plen(i)) '; ThetaDiv=100; phiDiv=20; el_mm=' num2str(pitch(j)) ';']);
10
11	save(['pch' num2str(num) '.mat'])
12	end

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