... mat=[null(v’),v]; 33 2: if det(mat)<0, mat(:,1)=-mat(:,1); end 33 3: 33 4:%=========================================== 33 5: 33 6:function [xmin,fmin,m,ntype]=nelmed( 33 7: F,x0,dx,epsx,epsf,M,ifpr,varargin) 33 8: ... R=[X(j);Y(j);Z(j)]; 535 : 536 :%================================================= 537 : 538 :function R=rads 539 : % R=rads540: % Radii for the problem solutions541:542:R=[ 5 43: 0.7045 3. 29 03 0.82 63 544: 3. 2 932 0.7074 0.8295545: 0.77 83 3.4977 0 .37 67546: 3. 4994 0.7800 0 .37 55547: ... form 34 9: % F(x,p1,p2, ) where x is vector 35 0: % in n space and p1,p2, are any 35 1: % auxiliary parameters needed to 35 2: % define F 35 3: % x0 - starting vector to initiate 35 4: % the search 35 5:...