函数[H, H, ZH, Z] = fun123(muH)
清晰的所有;
关闭所有;
clc;
抽搐;
兰特(“状态”总和(100 *时钟));
numreps = 1;
为j = 1: numreps
选择= odeset (“RelTol”1 e-6“统计数据”,“上”);
啊= 800;
啊= 0.16;
bH = 0.73;
bh = 0.73;
alphaH = 1.62;
alphah = 1.62;
lambdaH = 6.6 * 10 ^ 6;
lambdah = 6.6 * 10 ^ 6;
rH = 124 * 52个;
rh = 124 * 52个;
mu = 117 * 52个;
mu = 117 * 52个;
muZ = 45 * 52个;
撒下= 6 * 10 ^ 9;
撒下= 6 * 10 ^ 9;
phiH = 1 * 10 ^ 4;
phih = 1 * 10 ^ 4;
varrhoH1 = 10 ^ 2;
varrhoH = varrhoH1 * lambdaH;
varrhoh1 = 10 ^ 2;
varrhoh = varrhoh1 * lambdah;
KH = 1 * 10 ^ 5;
Kh = 1 * 10 ^ 5;
KZH = 5.6 * 10 ^ 6;
KZh = 5.6 * 10 ^ 6;
G = @(t, x, ah, ah, bh, bh, muh, alpha,...
ah, lambda, lambda, rh, rh, phih,...
varrhoh, varrhoh, muZ, betaH, betaH, Kh, Kh, KZH, KZH)...
[啊* x (2) * exp (kh * x (2)) - bH * x (1) - alphaH * x (3);...
啊* x (1) - (bh +啊* exp (kh * x (2))) * (2) - alphah * x (4);...
rH * x (3) * exp (-KZH * x (3)) + lambdaH * x (3) * (x(1)。/ (varrhoH + x (1))) + x (5) * 8 * (x (1) / (x (1) + (2))) - x (3) * (bH + mu) - alphaH * x (1) * (x(3)。/ x (1) + (x (3) / x (1)) ^ 2 * ((phiH + 1) / phiH));...
rh * x (4) * exp (-KZh * x (4)) + lambdah * x (4) * (x(2)。/ (varrhoh + x (2))) + x (5) * 8 * (x (2) / (x (1) + (2))) - x (4) * (bh +啊* exp (kh * x (2)) + mu)——alphah * x (2) * (x(4)。/ x (2) + (x(4)。/ x (2)) ^ 2 * ((phih + 1) / phih));...
lambdaH * x (3) + lambdaH * x (4) - (5) * (muZ + 8 * (x (1) / (x (1) + (2))) + 8 * (x (2) / (x (1) + (2)))) - (lambdaH * x (3) * (x(1)。/(varrhoH + x(1))) + lambda * x(4) * (x(2))/ (varrhoh + x (2)))));
tspan = [0:0.00001:80];
X0 = [100 100 10 10 500];
(t, xa) =数值(@ (t, x) G (t, x,啊,啊,黑洞,黑洞,mu, mu,...
α, α h, lambda, lambda, rh, rh, phih,...
varrhoh, varrhoh, muZ, betaH, betaH, Kh, Kh, KZH, KZH)...
tspan x0,选项);
H = xa(: 1)”;
h = xa (:, 2) ';
Zh型= xa (:, 3) ';
ZH型= xa (:, 4) ';
Z = xa (:, 5) ';
结束
结束