imake_launch_aloha_jd

 This function creates the launch structure from ALOHA data

0001 function launch = imake_launch_aloha_jd(basestr,aloha,opt_gui)
0002 %
0003 % This function creates the launch structure from ALOHA data
0004 %
0005 launchsfile = ['get_launchs_',basestr];
0006 %
0007 if exist(launchsfile,'file'),
0008     %
0009     launchs = feval(launchsfile);
0010     %
0011     if length(launchs) == 1,
0012         ilaunch = 1;
0013     else
0014         launchstr = 'Select antenna : \n';
0015         for ilaunch = 1:length(launchs),
0016             launchstr = [launchstr,'(',num2str(ilaunch),') : ',launchs{ilaunch}.id,'\n'];
0017         end
0018         %
0019         ilaunch = input_dke_yp(launchstr,1,1:ilaunch);
0020         %
0021     end
0022     %
0023     launch = launchs{ilaunch};
0024     %
0025 else %default values
0026     %
0027     freq_GHz = 3.7;
0028     %
0029     launch.id = 'Default';
0030     launch.type = 'LH';
0031     %
0032     launch.omega_rf = freq_GHz*2*pi*1e9;%wave angular frequency (rad/s) [1,1]
0033     launch.directivity = 0.7;%Antenna directivity [1,1]
0034     launch.dNpar0 = 0.2;%ray spectral width for Fokker-Planck calculations [1,n_lobe]
0035     %
0036     launch.rZ0 = 0;%vertical launching positions (m) [1,m_pol]
0037     %
0038     launch.m0 = 0;%initial poloidal mode number [1,1]
0039     launch.phi0 = 0;%toroidal angle position [1,1]
0040     launch.i_ref = -1;%Initial radial position index [1,1]
0041     launch.LFS = 1;% (-1) high field side launching, (1) low field side launching [1,1]
0042     launch.mmode = -1;% (-1) for slow wave, (1) for fast wave
0043     %
0044 end
0045 %
0046 launch.frequency_GHz = launch.omega_rf/(2*pi*1e9);
0047 launch = imod_struct_jd(rmfield(launch,'omega_rf'),'launch',1,opt_gui);
0048 launch.omega_rf = launch.frequency_GHz*(2*pi*1e9);
0049 launch = rmfield(launch,'frequency_GHz');
0050 %
0051 P_tot_0 = sum(antenna.dP_nz)*antenna.dnz/1e6;
0052 P_tot = input_dke_yp('Confirm the total power (MW) : ',P_tot_0);
0053 redfac = P_tot/P_tot_0;
0054 %
0055 [bNpar0,bdNpar0,bPlhtot] = proc_aloha_spec_jd(antenna.nz,NaN,antenna.dP_nz,redfac,param,opt_optim);
0056 %
0057 launch.bdNpar0 = bdNpar0;
0058 launch.bNpar0 = bNpar0;
0059 launch.bPlhtot = bPlhtot;
0060 %
0061 
0062 
0063 
0064 
0065 
0066     
0067     
0068