0001 function locid_simul = make_tail_simulid_jd(tail)
0002
0003
0004
0005 if isstruct(tail) && ~isempty(fieldnames(tail)) && tail.mode > 0,
0006 if isinf(tail.dtn),
0007 locid_simul = 'st';
0008 else
0009 locid_simul = ['ft_dtn_',num2str(tail.dtn)];
0010 end
0011
0012 if tail.mode == 1,
0013 locid_simul = [locid_simul,'_gauss_fwhm_',num2str(tail.bfwhm(1))];
0014 elseif tail.mode == 2,
0015 if isinf(tail.dtn),
0016 error('No static model for linear tail. Please specify dtn.')
0017 end
0018 locid_simul = [locid_simul,'_lt_Nmax_',num2str(abs(tail.bNparmax_tail(1))),'_opt_',num2str(real(tail.bopt_tail(1)))];
0019 elseif tail.mode == 3,
0020 locid_simul = [locid_simul,'_ct_Nmax_',num2str(abs(tail.bNparmax_tail(1))),'_n_',num2str(tail.bn_tail(1)),...
0021 '_P_',num2str(tail.bP_tail(1)),'_opt_',num2str(tail.bopt_tail(1))];
0022 else
0023 error('tail parameters not consistent.')
0024 end
0025 else
0026 locid_simul = '';
0027 end