%% Varying the Temperature for Redeye (T1D) %Clear workspace clc clear all globalvariables_Redeye Varmat_Redeye RO_Dev = 0; % Fianl Oocyte development time %RO_DevTime = 4900*(SST^-2.29); %Make it between 6 and 15 (Roel & Melo 1990) RO_DevTime1 = 15; RO_DevTime2 = 6; Starve(1) = 0; RpM3(1) = 0; %Pre-assign matrix Ram = 7; %number of years the fish live %Froese et al. 2010 j = 1; %number of times fish feed M = 365; %number of days in a year N = (M*Ram*j); %number of days * number of years * number of feedings fn = 7; %number of values for f Vn = 39; %number of variables in matrix n = (N-1)*fn; %Max number of rows in matrix RNC = zeros (Vn,n); %Figure_Hold % Setting up the Matrix for saving Redeye_label2; fname = 'RedeyeadultfT_WBL_CBR_W.csv'; txt=sprintf('%s,', hdrR{:}); txt(end)=''; dlmwrite(['D:\UCT\PhD\Model output\',fname],txt,''); mydata_Etrumeus_whiteheadi for f1 = [0.7 1.0]; Parameters_Redeye Startvalue_Redeye for d = 2:1:N; %2191 if they eat once a day if RL(d-1) < RLj; T1D(d) = 19.5; f = 0.7; elseif RL(d-1) >= RLp; T1D(d) = 21.5; f = f1; else T1D(d) = 14.5; f = 0.7; end TK(d) = T1D(d)+273; Rparameter_calc Starve(d) = Starve(d-1) + 0; Spawn = 0; if f1 == 0.7; Condit = 1; else Condit = 2; end Redeye Redeye_Save2 fprintf('d = %f\nTemp = %f\nLength = %f\nWet Weight = %f\n\n',d,T1D(d),RL(d),RW_ww(d)); end %RPrint end %hold off % copy file to R plotting folder %copyfile('RedeyeTemp.csv','d:/UCT/PhD 2010-2015/Model/Redeye/R plotting/')