imake_launch_KSTAR_jd

 This function creates a launch structure based on the launched angles and
 posision in KSTAR.

0001 function launch = imake_launch_KSTAR_jd(external,opt_gui,style)
0002 %
0003 % This function creates a launch structure based on the launched angles and
0004 % posision in KSTAR.
0005 %
0006 launch = struct;
0007 %
0008 launch.type = 'EC';
0009 %
0010 if ~isempty(external),
0011     %
0012     % TODO (see for example imake_launch_EAST_jd)
0013     %
0014 else
0015     %
0016     l_opt = iselect_jd({'110 GHz','170 GHz'},'Specify launcher',opt_gui,style,1);%{'84 GHz','110 GHz','140 GHz','170 GHz'}
0017     %
0018     if l_opt == 1,% 110 GHz
0019         %
0020         launch.id = '110GHz';
0021         %
0022         launch.omega_rf = 2*pi*1e9*(110);
0023         %
0024         launch.yP_L = 1e6*(0.3);
0025         %
0026         launch.yZ_L = -0.252;  
0027         launch.yR_L = 2.8;  
0028         launch.yphi_L = pi/180*(0);  
0029         %
0030         launch.yalpha_L = pi/180*(180);  
0031         launch.ybeta_L = pi/180*(90);
0032         %
0033         launch.w0 = 0.02; 
0034         launch.z0 = 0;% flat mirror
0035         %
0036     elseif l_opt == 2,% 170 GHz
0037         %
0038         launch.id = '170GHz';
0039         %
0040         launch.omega_rf = 2*pi*1e9*(170);
0041         %
0042         launch.yP_L = 1e6*(0.8);
0043         %
0044         launch.yZ_L = -0.252;  
0045         launch.yR_L = 2.8;  
0046         launch.yphi_L = pi/180*(0);  
0047         %
0048         launch.yalpha_L = pi/180*(180);  
0049         launch.ybeta_L = pi/180*(90);
0050         %
0051         launch.w0 = 0.02; 
0052         launch.z0 = 0;% flat mirror
0053         %
0054     end
0055     %
0056     launch.dNpar0 = NaN;%Calculated from waist and focal point
0057     %
0058 end
0059 %