syms R h; a1 = 0; a2 = atan(R./(R+h)); r1 = h; r2 = sqrt(R.^2+(R+h).^2); integrand = @(r,a)(h.*sin(a)/((r.^2).*(r.^2+h.^2-2.*r.*h.*cos(a)))); f = quad2d(integrand,r1,r2,a1,a2); ezsurf(f,[0.001,5]);
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)