【GUI应用】Matlab实现矩阵计算器
界面设计
效果展示
主体源码
%%矩阵相加a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib | ja ~= jb |(ia ~= ib & ja ~= jb) c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a+b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end%%矩阵相减a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib | ja ~= jb |(ia ~= ib & ja ~= jb) c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a-b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%矩阵点乘a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib | ja ~= jb |(ia ~= ib & ja ~= jb) c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a.*b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%矩阵相乘a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ja ~= ib c='error.Inner matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a*b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%矩阵点除a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib | ja ~= jb |(ia ~= ib & ja ~= jb) c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a./b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%矩阵左除a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a\b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%矩阵右除a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = a/b ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%矩阵求秩a=str2num(get(handles.edit1,'string'));c=a';set(handles.text1,'string',num2str(c))
a=str2num(get(handles.edit1,'string')); result =rank(a) ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);
%%求逆a=str2num(get(handles.edit1,'string'));[ia ja]=size(a);if ia~= ja c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else if abs(det(a))<1e-6 c='error.Matrix is singular to working precision.'; set(handles.text1,'String',c) guidata(hObject, handles); else result = inv(a) ; c = num2str(result); set(handles.text1,'String',c) guidata(hObject, handles); endend
%%求行列式a=str2num(get(handles.edit1,'string'));[ia ja]=size(a);if ia ~= ja c='error.Matrix dimensions must agree.'; set(handles.text1,'String',c) guidata(hObject, handles);else result = det(a) ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end
%%求2-范数a=str2num(get(handles.edit1,'string'));result = norm(a);c = num2str(result);set(handles.text1,'String',c)guidata(hObject, handles)
%%求LU分解a=str2num(get(handles.edit1,'string'));[L,U,P]=lu(a);result = [L;U;P] ;c= num2str(result);set(handles.text1,'String',c)guidata(hObject, handles)
%%求AX=Ba=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib c='error.'; set(handles.text1,'String',c) guidata(hObject, handles);else if ia ~=ja c='error.Matrix must be square.'; set(handles.text1,'String',c) guidata(hObject, handles); else if det(a) == 0 c='error.Matrix is singular to working precision.'; set(handles.text1,'String',c) guidata(hObject, handles); else result = a\b ; c = num2str(result); set(handles.text1,'String',c) guidata(hObject, handles); end endend
a=str2num(get(handles.edit1,'string'));result = rref(a);c= num2str(result);set(handles.text1,'String',c)guidata(hObject, handles);
%%求特征值a=str2num(get(handles.edit1,'string'));[ia ja]=size(a);if ia ~= ja c='error.Matrix must be square .'; set(handles.text1,'String',c) guidata(hObject, handles);else result = eig(a) ; c= num2str(result); set(handles.text1,'String',c) guidata(hObject, handles);end%阶梯形a=str2num(get(handles.edit1,'string'));b=str2num(get(handles.edit2,'string'));[ia ja]=size(a);[ib jb]=size(b);if ia ~= ib c='error.Matrix dimensions must agree.'; set(handles.edit34,'String',c) guidata(hObject, handles);else result = rref(a) ; c= num2str(result); set(handles.edit34,'String',c) guidata(hObject, handles);end%%求转置a=str2num(get(handles.edit1,'string'));[ia ja]=size(a);if ia ~= ja c='error.Matrix must be square .'; set(handles.edit34,'String',c) guidata(hObject, handles);else result =a' ; c= num2str(result); set(handles.edit34,'String',c) guidata(hObject, handles);end
菜单结构设计
菜单的设计只做点拨，不要照搬！！！通过Menu Editor创建如图所示的菜单。“File”菜单调用简易计算器、科学计算器、程序员计算器及退出；“Help”菜单调用程序说明和版权所有。
“File”菜单设计
通过设置简易计算器、科学计算器和程序员计算器所在面板的可视性属性，实现点击“File”菜单下的“简易计算器”、“科学计算器”和“程序员计算器”选项调用相应的计算器模块。调用简易计算器模块时，只需设置简易计算器所在面板的可视化属性值为“on”，其他计算器的可视化属性值为“off”；设置“简易计算器”菜单项的被选中（checked）属性值为“on”，其余菜单项的checked属性值为“off”。其余模块调用的原理与其类似。代码如下：
function simple_Callback(hObject, eventdata, handles)set(handles.science_clc,'Visible','off');set(handles.simple_clc,'Visible','on');set(handles.clc_p,'Visible','off');set(handles.jy_clc,'Position',[103.8 20.769 84.0 33.692]);set(handles.simple,'checked','on');set(handles.science,'checked','off');set(handles.programmer,'checked','off');