华中科技大学数值分析-数值分析实验程序4页.docx

Function t_charpt1_1%数值试验1.1病态问题%输入：0 20之间的扰动项及小的扰动常数%输出：加扰动后得到的全部根Result=inputdlg(请输入扰动项：在0 20之间的整数:,charpt1_1,119);Numb=str2num(char(result);if (Numb20)|(Numb0) errordlg(请输入正确的扰动项：0 20之间的整数!); return;endresult=inputdlg(请输入(0 1)之间的扰动常数：,charpt1_1,1,0.00001);ess=str2num(char(result);ve=zeros(1,21);ve(21-Numb)=ess;root=roots(poly(1:20)+ve);disp(对扰动项,num2str(Numb),加扰动,num2str(ess),得到的全部根为:);disp(num2str(root);fun