%% Starvation study for Redeye %Clear workspace clc clear all % Deleting the previous file %delete('Redeyef.csv') delete('D:/UCT/PhD 2010-2015/Model output/Redeyestarve.csv') %creating open matrixes for the values %i = 3; %O_Dev = 0; dbstop if error globalvariables_Redeye Varmat_Redeye RO_Dev(1) = 0; % Final Oocyte development time %RO_DevTime = 4900*(RST^-2.29); %Make it between 11 and 18 RO_DevTime = 18; Starve(1) = 0; RpM3(1) = 0; %Test variables Rkap = 0.7; % Pethybridge et al.2013 %Rkap = 0.65; %Pecquirine 2009 mydata_Etrumeus_whiteheadi %Parameters_Redeye %Pre-assign matrix Ram = 10; %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 = 8; %number of values for f Vn = 38; %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_label; fname = 'Redeyestarve.csv'; txt=sprintf('%s,', hdrR{:}); txt(end)=''; dlmwrite(['D:\UCT\PhD\Model output\',fname],txt,''); Parameters_Redeye Startvalue_Redeye for d = 2:1:N; %2191 if they eat once a day T1D(d) = 20; %Reference Temperature Rparameter_calc if RLv(d-1) >= RLvp if RO_Dev(d-1) == 11; f = 0; Starve(d) = Starve(d-1) + 1; Redeye RO_Dev(d) = 11; else f = 1; Starve(d) = Starve(d-1) + 0; Redeye end else f = 1; Starve(d) = Starve(d-1) + 0; Redeye end Redeye_Save fprintf('d = %f\nf = %f\nStarve(d) = %f\nER = %f\nLength = %f\nWet Weight = %f\n\n',d,f,Starve(d),RER(d),RL(d),RW_ww(d)); end %hold off