function [prdData, info] = predict_Atractosteus_spatula(par, data, auxData) % unpack par, data, auxData cPar = parscomp_st(par); vars_pull(par); vars_pull(cPar); vars_pull(data); vars_pull(auxData); %% compute temperature correction factors TC_ah = tempcorr(temp.ah, T_ref, T_A); TC_ab = tempcorr(temp.ab, T_ref, T_A); TC_ap = tempcorr(temp.ap, T_ref, T_A); TC_am = tempcorr(temp.am, T_ref, T_A); TC_Ri = tempcorr(temp.Ri, T_ref, T_A); TC_tW = tempcorr(temp.tW, T_ref, T_A); %% zero-variate data % life cycle pars_tp = [g; k; l_T; v_Hb; v_Hp]; % compose parameter vector [t_p, t_b, l_p, l_b, info] = get_tp(pars_tp, f); % -, scaled times & lengths at f % initial pars_UE0 = [V_Hb; g; k_J; k_M; v]; % compose parameter vector U_E0 = initial_scaled_reserve(f, pars_UE0); % d.cm^2, initial scaled reserve % hatch [U_H aUL] = ode45(@dget_aul, [0; U_Hh; U_Hb], [0 U_E0 1e-10], [], kap, v, k_J, g, L_m); aT_h = aUL(2,1)/ TC_ah; % d, age at hatch at f and T L_h = aUL(2,3); % cm, structural length at f Lw_h = L_h/ del_M; % cm, S-V length at hatch at f % birth L_b = L_m * l_b; % cm, structural length at birth at f Lw_b = L_b/ del_M; % cm, physical length at birth at f aT_b = t_b/ k_M/ TC_ab; % d, age at birth at f and T % puberty aT_p = t_p/ k_M/ TC_ap; % d, age at puberty at f and T % ultimate l_i = f - l_T; % -, scaled ultimate length at f L_i = L_m * l_i; % cm, ultimate structural length at f Lw_i = L_i/ del_M; % cm, ultimate physical length at f Ww_i = L_i^3 * (1 + f * w); % g, ultimate wet weight % reproduction pars_R = [kap; kap_R; g; k_J; k_M; L_T; v; U_Hb; U_Hp]; % compose parameter vector at T RT_i = TC_Ri * reprod_rate(L_i, f, pars_R); % #/d, ultimate reproduction rate at T % life span pars_tm = [g; l_T; h_a/ k_M^2; s_G]; % compose parameter vector at T_ref t_m = get_tm_s(pars_tm, f, l_b); % -, scaled mean life span at T_ref aT_m = t_m/ k_M/ TC_am; % d, mean life span at T %% pack to output prdData.ah = aT_h; prdData.ab = aT_b; prdData.ap = aT_p; prdData.am = aT_m; prdData.Lh = Lw_h; prdData.Lb = Lw_b; prdData.Li = Lw_i; prdData.Wwi = Ww_i; prdData.Ri = RT_i; %% uni-variate data f = f_tW; ir_B = 3/ k_M + 3 * f * L_m/ v; r_B = 1/ ir_B; % d, 1/von Bert growth rate L_0 = (8.7/ (1 + f * w))^(1/3); L_i = (f * L_m - L_T); % ultimate physical length at f L = L_i - (L_i - L_0) * exp( - TC_tW * r_B * tW(:,1)); % cm, expected physical length at time EWw = L.^3 * (1 + f * w); % g, wet weight %% pack to output prdData.tW = EWw;