De code in matlab die mij brengt tot 56MJ/kg. Ik heb niet zo veel kennis van numerieke integratie, maar kan mij inbeelden dat het lastig is voor een integratie algoritme.
Code: Selecteer alles
rp = 6356752;
re = 6378137;
m = 5.97e24;
G = 6.67e-11;
w = 7.2722e-5;
a = re;
b = re;
c = rp;
x = 0;
y = re;
z = 0;
fun1 = @(u)(x.^2 ./ (a.^2 + u)) + (y.^2 ./ (b.^2 + u)) + (z.^2 ./ (c.^2 + u)) - 1;
u_ev = fzero(fun1,[0.000000001,1]);
integrand = @(lam)(1 - (x.^2 ./ (a.^2 + lam)) - (y.^2 ./ (b.^2 + lam)) - (z.^2 ./ (c.^2 + lam))) ./ (((a.^2 + lam) .* (b.^2 + lam) .* (c.^2 + lam)).^0.5);
uitkomst = (3 ./ 4) .* G .* m .* integral(integrand, 0, Inf);
uitkomst = (3 ./ 4) .* G .* m .* ( integral(integrand, 0, Inf) ...
+ integral(integrand, 0, 1e10) ...
+ integral(integrand, 1e10, 1e11, 'AbsTol',1e-15) ...
+ integral(integrand, 1e11, 5e11, 'AbsTol',1e-15) ...
+ integral(integrand, 5e11, 8e11, 'AbsTol',1e-15) ...
+ integral(integrand, 8e11, 1e12, 'AbsTol',1e-15) ...
+ integral(integrand, 1e12, 2e12, 'AbsTol',1e-15) ...
+ integral(integrand, 2e12, 3e12, 'AbsTol',1e-15) ...
+ integral(integrand, 3e12, 4e12, 'AbsTol',1e-15) ...
+ integral(integrand, 4e12, 5e12, 'AbsTol',1e-15) ...
+ integral(integrand, 5e12, 6e12, 'AbsTol',1e-15) ...
+ integral(integrand, 7e12, 8e12, 'AbsTol',1e-15) ...
+ integral(integrand, 8e12, 9e12, 'AbsTol',1e-15) ...
+ integral(integrand, 9e12, 1e13, 'AbsTol',1e-15) ...
+ integral(integrand, 1e13, 2e13, 'AbsTol',1e-15) ...
+ integral(integrand, 2e13, 3e13, 'AbsTol',1e-15) ...
+ integral(integrand, 3e13, 4e13, 'AbsTol',1e-15) ...
+ integral(integrand, 4e13, 5e13, 'AbsTol',1e-15) ...
+ integral(integrand, 5e13, 6e13, 'AbsTol',1e-15) ...
+ integral(integrand, 6e13, 7e13, 'AbsTol',1e-15) ...
+ integral(integrand, 7e13, 8e13, 'AbsTol',1e-15) ...
+ integral(integrand, 8e13, 9e13, 'AbsTol',1e-15) ...
+ integral(integrand, 9e13, 1e14, 'AbsTol',1e-15) ...
+ integral(integrand, 1e14, 1e15, 'AbsTol',1e-15) ...
+ integral(integrand, 1e15, 1e16, 'AbsTol',1e-15) ...
+ integral(integrand, 1e16, Inf));