nr. 477 - 2011 - Institut for Natur, Systemer og Modeller (NSM)

170 matlab Code
%options = odeset(’RelTol’,1e-6,’AbsTol’,1e-6);
[t,M] = ode15s(@modelT1DmareeG_full,tspan,M);
figure
plot(t,M)
xlabel(’t’)
ylabel(’M(t), Ma(t), Ba(t), Bn(t),C(t)’)
legend(’M(t)’,’Ma(t)’,’Ba(t)’,’Bn(t)’,’C(t)’,2)
C.3 The Function-File for Model C
The following is the function-file that contains Model C.
function Mdot = mareemodelfuld6C(t,M)
Mdot = zeros(6,1);
global A b c d e f1 f2 a k k_c l x2 x3 x4
%defines parameter values
A = 2*10^7/(1e9);
a = 5*10^4;
b = 0.09;
c = 0.1;
d = 0.5;
e = 1*10^-8;
f1 = 1*10^-5;
f2 = 1*10^-5;
h = 5*10^-9;
k = 0.4;
k_c = 1;
l = 0.41;
m = 25;
r0 = 0.04;
a0 = 0.022;
t1 = (365*log((r0-0.036)/0.036)-30*log((r0-0.0007)/0.0007))/(log((0.0007*(r0-0.036))...
/(0.036*(r0-0.0007))))
p1 = log((r0-0.036)/0.036)/(30-t1)
t2 = (365*log((a0-0.018)/0.018)-30*log((a0-0.001)/0.001))/(log((0.001*(a0-0.018))...
/(0.018*(a0-0.001))))
p2 = log((a0-0.018)/0.018)/(30-t2)
x5 = 1*10^7;
Mdot(1,1) = a + (b + k) * M(2,1) - c * M(1,1) - f1 * M(1,1) * M(3,1)...
- e * M(1,1) * (M(1,1) + M(2,1));
Mdot(2,1) = f1 * M(1) * M(3) - k * M(2) - e * M(2) * (M(1) + M(2));
Mdot(3,1) = (a0*(1+exp(-p2*t2))/(1+exp(p2*(t-t2)))+0.001)*M(6)...
+ (4*10^7 *exp(-((t-9)/3)^2)/(1e9))*M(6) + (A*M(5)/(k_c + M(5)))*M(6)...
- f1 * M(3) * M(1) - f2 * M(2) * M(3) - d * M(3);
Mdot(4,1) = d*M(3) - f1*M(1)*M(4) - f2*M(2)*M(4);