... z=(r*ones(1,nt)).*(ones(nr,1)*exp(i*t));88: 89: % Use high point resolution for the 90 : % outer contour 91 : touter=pi/180*linspace(t1,t2,10*nt); 92 : zouter=r2*exp(i*touter); 93 : 94 :% Compute the series coefficients and 95 : % evaluate ... %===============================================88: 89: function animpen(t,th,titl,tim,trac) 90 : % 91 : % animpen(t,th,titl,tim,trac) 92 : % ~~~~~~~~~~~~~~~~~~~~~~~~~~ 93 : % This function plots theta versus t and animates 94 : % the pendulum ... blanks.188: %1 89: % prompt - A string preceding the 190 : % data entry. It is set 191 : % to ’ ? ’ if no value of 192 : % prompt is given. 193 : % a1,a2, ,a_nargout - The output variables 194 : % that...