MATLAB CODE:
clear
clf
P=2000;
v=.3;
th=0:.1:90;
R=linspace(.02,.1,length(th));
[z,r]=meshgrid(R.*cosd(th),R.*sind(th));
stressz=(-3*P.*z.^3)./(2*pi*R.^5);
stressr=(P/(2*pi)).*((1-2*v)./(R.*(R+z))-(3.*r.^2.*z./(R.^5)));
plot3(r,z,stressz)
zlabel('\sigma_z')
xlabel('r')
ylabel('z')
figure
plot3(r,z,stressr)
zlabel('\sigma_r')
xlabel('r')
ylabel('z')
PLOTS:
15. In the solution of elasticity pfa normal point load applied to the surface of a...