... R=[X(j);Y(j);Z(j)];535:536:%=================================================5 37: 538:function R=rads539: % R=rads540: % Radii for the problem solutions541:542:R=[ 543: 0 .70 45 3.2903 0.8263544: 3.2932 0 .70 74 0.8295545: 0 .77 83 3.4 977 0. 376 7546: 3.4994 0 .78 00 ... rdat(4,2)=0; 173 : 174 :u=2*pi*sin(w1)^2; v=sin(w2)^2; 175 : z=interp1(zdat(:,1),zdat(:,2),v); 176 : rho=interp1(rdat(:,1),rdat(:,2),v); 177 : x=rho*cos(u); y=rho*sin(u); 178 : r=r0(:)+m*[x;y;z]; 179 :180:%===========================================181:182:function ... U=cornrpts([0,Rad,Rad+Len,U],Nu)/U; 273 : V=linspace(0,1,Nv); 274 : [X,Y,Z]=cylpts(U,V,Rad,Len,R0,Vc); 275 : surfmany(x,y,z,X,Y,Z), title(titl) 276 : colormap([1 1 0]), shg 277 : 278 :%=========================================== 279 :280:function...