基于Matlab的科学计算器设计

function varargout = jisuanqi4(varargin) gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @jisuanqi4_OpeningFcn, ... 'gui_OutputFcn', @jisuanqi4_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []); if nargin && ischar(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end % End initialization code - DO NOT EDIT % --- Executes just before jisuanqi4 is made visible. function jisuanqi4_OpeningFcn(hObject, eventdata, handles, varargin) handles.output = hObject; javaFrame = get(hObject,'JavaFrame'); javaFrame.setFigureIcon(javax.swing.ImageIcon('icon1.jpg')); global op op=zeros(1,7); handles.exp=' '; guidata(hObject, handles); function varargout = jisuanqi4_OutputFcn(hObject, eventdata, handles) varargout{1} = handles.output; % --- Executes on button press in num7. function num7_Callback(hObject, eventdata, handles) global op m='7'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num8_Callback(hObject, eventdata, handles) global op m='8'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 %计算状态、其他进制、长度小于20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num9_Callback(hObject, eventdata, handles) global op m='9'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 %计算状态、其他进制、长度小于20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num4_Callback(hObject, eventdata, handles) global op m='4'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num5_Callback(hObject, eventdata, handles) global op m='5'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num6_Callback(hObject, eventdata, handles) global op m='6'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num2_Callback(hObject, eventdata, handles) global op m='2'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num3_Callback(hObject, eventdata, handles) global op m='3'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num0_Callback(hObject, eventdata, handles) global op m='0'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num1_Callback(hObject, eventdata, handles) global op m='1'; n=[m '.']; a=op; str=get(handles.xianshi,'string'); if ~a(5)%初始状态 if (~a(1))&&(~a(2)) set(handles.xianshi,'string',n) else set(handles.xianshi,'string',m) end elseif (~a(1))&&(~a(2)) %计算状态%十进制 if length(str)<20 %数的长度小于20 if a(6) %小数 set(handles.xianshi,'string',[str m]) else %整数 set(handles.xianshi,'string',[str(1:end-1) n]) end end elseif length(str)<20 set(handles.xianshi,'string',[str m]) end a([3 5])=[0 1]; op=a; function num_fuhao_Callback(hObject, eventdata, handles) global op str=get(handles.xianshi,'string'); if strcmp(str(1),'-') set(handles.xianshi,'string',str(2:end)) elseif (~a(1))&&(~a(2)) set(handles.xianshi,'string',['-' str]) end op(3)=0; function dot_Callback(hObject, eventdata, handles) global op if isequal(op([1 2 6]),[0 0 0]) %十进制整数 op(6)=1; end op(5)=1; function numb_Callback(hOb