机床数控技术课程设计说明书

机床数控技术课程设计说明书指导老师：姓名：班级：学号：2014/01/10目录一课设任务 (1)二课设要求 (1)（一）DDA第四象限直线插补 (1)（二）逐点比较法第2～1象限顺圆弧插补 (2)（一）DDA第四象限直线插补 (5) (5)（二）逐点比较法第1～2象限逆圆弧插补 (6) (6)六源程序 (6)function varargout = f2(varargin) (6)% F2 MATLAB code for f2.fig (6)% F2, by itself, creates a new F2 or raises the existing (6)% singleton*. (6)% (6)% H = F2 returns the handle to a new F2 or the handle to (6)% the existing singleton*. (6)% (6)% F2('CALLBACK',hObject,eventData,handles,...) calls the local (6)% function named CALLBACK in F2.M with the given input arguments. (6)% (6)% F2('Property','Value',...) creates a new F2 or raises the (6)% existing singleton*. Starting from the left, property value pairs are (6)% applied to the GUI before f2_OpeningFcn gets called. An (6)% unrecognized property name or invalid value makes property application (7)% stop. All inputs are passed to f2_OpeningFcn via varargin. (7)% (7)% *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one (7)% instance to run (singleton)". (7)% (7)% See also: GUIDE, GUIDATA, GUIHANDLES (7)% Edit the above text to modify the response to help f2 (7)% Last Modified by GUIDE v2.5 09-Jan-2014 10:52:17 (7)% Begin initialization code - DO NOT EDIT (7)gui_Singleton = 1; (7)gui_State = struct('gui_Name', mfilename, ... .. (7)'gui_Singleton', gui_Singleton, ... . (7)'gui_OpeningFcn', @f2_OpeningFcn, ... (7)'gui_OutputFcn', @f2_OutputFcn, ... . (7)'gui_LayoutFcn', [] , ... (7)'gui_Callback', []); (7)if nargin && ischar(varargin{1}) (7)gui_State.gui_Callback = str2func(varargin{1}); (7)end (7)if nargout (7)[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); (7)else (7)gui_mainfcn(gui_State, varargin{:}); (7)end (7)% End initialization code - DO NOT EDIT (7)% --- Executes just before f2 is made visible. (7)function f2_OpeningFcn(hObject, eventdata, handles, varargin) (7)% This function has no output args, see OutputFcn. (7)% hObject handle to figure (7)% eventdata reserved - to be defined in a future version of MATLAB (7)% handles structure with handles and user data (see GUIDATA) (7)% varargin command line arguments to f2 (see VARARGIN) (7)% Choose default command line output for f2 (7)handles.output = hObject; (7)% Update handles structure (7)guidata(hObject, handles); (8)% UIWAIT makes f2 wait for user response (see UIRESUME) (8)% uiwait(handles.figure1); (8)% --- Outputs from this function are returned to the command line. (8)function varargout = f2_OutputFcn(hObject, eventdata, handles) (8)% varargout cell array for returning output args (see VARARGOUT); (8)% hObject handle to figure (8)% eventdata reserved - to be defined in a future version of MATLAB (8)% handles structure with handles and user data (see GUIDATA) (8)% Get default command line output from handles structure (8)varargout{1} = handles.output; (8)% --- Executes on button press in pushbutton1. (8)function pushbutton1_Callback(hObject, eventdata, handles) %绘制直线 (8)global x1 y1 x2 y2 L N x y Mx My Jvx Jrx1 Jrx2 Jrx3 Jvy Jry1 Jry2 Jry3 X Y; (8)x1=str2double(get(handles.edit1,'string')); (8)y1=str2double(get(handles.edit2,'string')); (8)x2=str2double(get(handles.edit3,'string')); (8)y2=str2double(get(handles.edit4,'string')); (8)L=str2double(get(handles.edit7,'string')); (8)N=str2double(get(handles.edit6,'string')); (8)if x1<=0|y1>=0|x2<=0|y2>=0 (8)set(handles.text11,'string','直线不在第四象限!');%判断直线是否在第四象限 (8)else (8)if x1==x2 (8)y=y1:(y2-y1)/100:y2; (8)x=y.*0+x1; (8)plot(x,y,'k'); (8)hold on; (8)else (8)x=x1:(x2-x1)/100:x2; (8)plot(x,y,'k'); (8)hold on; (8)end (8)xmin=min(x); (8)xmax=max(x); (8)ymin=min(y); (8)ymax=max(y); (8)axis equal; (9)axis([xmin-L xmax+L ymin-L ymax+L]); %定义坐标轴的边界 (9)set(handles.text11,'string','绘图完成'); (9)Mx=ceil(abs(x2-x1)/L); %计算插补步数 (9)My=ceil(abs(y2-y1)/L); (9)Jvx=abs(x2-x1); %给寄存器赋值 (9)Jrx2=2^N-1; (9)Jrx3=2^(N-1); (9)Jvy=abs(y2-y1); (9)Jry1=0; (9)Jry2=2^N-1; (9)Jry3=2^(N-1); (9)X=x1; (9)Y=y1; (9)end (9)% hObject handle to pushbutton1 (see GCBO) (9)% eventdata reserved - to be defined in a future version of MATLAB (9)% handles structure with handles and user data (see GUIDATA) (9)function edit1_Callback(hObject, eventdata, handles) (9)% hObject handle to edit1 (see GCBO) (9)% eventdata reserved - to be defined in a future version of MATLAB (9)% handles structure with handles and user data (see GUIDATA) (9)% Hints: get(hObject,'String') returns contents of edit1 as text (9)% str2double(get(hObject,'String')) returns contents of edit1 as a double (9)% --- Executes during object creation, after setting all properties. (9)function edit1_CreateFcn(hObject, eventdata, handles) (9)% hObject handle to edit1 (see GCBO) (9)% eventdata reserved - to be defined in a future version of MATLAB (9)% handles empty - handles not created until after all CreateFcns called (9)% Hint: edit controls usually have a white background on Windows. (9)% See ISPC and COMPUTER. (9)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (9)set(hObject,'BackgroundColor','white'); (9)end (9)function edit2_Callback(hObject, eventdata, handles) (10)% hObject handle to edit2 (see GCBO) (10)% eventdata reserved - to be defined in a future version of MATLAB (10)% handles structure with handles and user data (see GUIDATA) (10)% Hints: get(hObject,'String') returns contents of edit2 as text (10)% str2double(get(hObject,'String')) returns contents of edit2 as a double (10)% --- Executes during object creation, after setting all properties. (10)function edit2_CreateFcn(hObject, eventdata, handles) (10)% hObject handle to edit2 (see GCBO) (10)% eventdata reserved - to be defined in a future version of MATLAB (10)% handles empty - handles not created until after all CreateFcns called (10)% Hint: edit controls usually have a white background on Windows. (10)% See ISPC and COMPUTER. (10)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (10)set(hObject,'BackgroundColor','white'); (10)end (10)function edit3_Callback(hObject, eventdata, handles) (10)% hObject handle to edit3 (see GCBO) (10)% eventdata reserved - to be defined in a future version of MATLAB (10)% handles structure with handles and user data (see GUIDATA) (10)% Hints: get(hObject,'String') returns contents of edit3 as text (10)% str2double(get(hObject,'String')) returns contents of edit3 as a double (10)% --- Executes during object creation, after setting all properties. (10)function edit3_CreateFcn(hObject, eventdata, handles) (10)% hObject handle to edit3 (see GCBO) (10)% eventdata reserved - to be defined in a future version of MATLAB (10)% handles empty - handles not created until after all CreateFcns called (10)% Hint: edit controls usually have a white background on Windows. (10)% See ISPC and COMPUTER. (10)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (10)set(hObject,'BackgroundColor','white'); (10)end (10)function edit4_Callback(hObject, eventdata, handles) (11)% hObject handle to edit4 (see GCBO) (11)% eventdata reserved - to be defined in a future version of MATLAB (11)% handles structure with handles and user data (see GUIDATA) (11)% Hints: get(hObject,'String') returns contents of edit4 as text (11)% str2double(get(hObject,'String')) returns contents of edit4 as a double (11)% --- Executes during object creation, after setting all properties. (11)function edit4_CreateFcn(hObject, eventdata, handles) (11)% hObject handle to edit4 (see GCBO) (11)% eventdata reserved - to be defined in a future version of MATLAB (11)% handles empty - handles not created until after all CreateFcns called (11)% Hint: edit controls usually have a white background on Windows. (11)% See ISPC and COMPUTER. (11)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (11)set(hObject,'BackgroundColor','white'); (11)end (11)function edit5_Callback(hObject, eventdata, handles) (11)% hObject handle to edit5 (see GCBO) (11)% eventdata reserved - to be defined in a future version of MATLAB (11)% handles structure with handles and user data (see GUIDATA) (11)% Hints: get(hObject,'String') returns contents of edit5 as text (11)% str2double(get(hObject,'String')) returns contents of edit5 as a double (11)% --- Executes during object creation, after setting all properties. (11)function edit5_CreateFcn(hObject, eventdata, handles) (11)% hObject handle to edit5 (see GCBO) (11)% eventdata reserved - to be defined in a future version of MATLAB (11)% handles empty - handles not created until after all CreateFcns called (11)% Hint: edit controls usually have a white background on Windows. (11)% See ISPC and COMPUTER. (11)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (11)set(hObject,'BackgroundColor','white'); (12)end (12)function edit6_Callback(hObject, eventdata, handles) (12)% hObject handle to edit6 (see GCBO) (12)% eventdata reserved - to be defined in a future version of MATLAB (12)% handles structure with handles and user data (see GUIDATA) (12)% Hints: get(hObject,'String') returns contents of edit6 as text (12)% str2double(get(hObject,'String')) returns contents of edit6 as a double (12)% --- Executes during object creation, after setting all properties. (12)function edit6_CreateFcn(hObject, eventdata, handles) (12)% hObject handle to edit6 (see GCBO) (12)% eventdata reserved - to be defined in a future version of MATLAB (12)% handles empty - handles not created until after all CreateFcns called (12)% Hint: edit controls usually have a white background on Windows. (12)% See ISPC and COMPUTER. (12)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (12)set(hObject,'BackgroundColor','white'); (12)end (12)function edit7_Callback(hObject, eventdata, handles) (12)% hObject handle to edit7 (see GCBO) (12)% eventdata reserved - to be defined in a future version of MATLAB (12)% handles structure with handles and user data (see GUIDATA) (12)% Hints: get(hObject,'String') returns contents of edit7 as text (12)% str2double(get(hObject,'String')) returns contents of edit7 as a double (12)% --- Executes during object creation, after setting all properties. (12)function edit7_CreateFcn(hObject, eventdata, handles) (12)% hObject handle to edit7 (see GCBO) (12)% eventdata reserved - to be defined in a future version of MATLAB (12)% handles empty - handles not created until after all CreateFcns called (12)% Hint: edit controls usually have a white background on Windows. (12)% See ISPC and COMPUTER. (13)if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) (13)set(hObject,'BackgroundColor','white'); (13)end (13)% --- Executes on button press in pushbutton2. (13)function pushbutton2_Callback(hObject, eventdata, handles) %直线单步插补 (13)% hObject handle to pushbutton2 (see GCBO) (13)% eventdata reserved - to be defined in a future version of MATLAB (13)% handles structure with handles and user data (see GUIDATA) (13)global x1 y1 x2 y2 L N x y Mx My Jvx Jrx1 Jrx2 Jrx3 Jvy Jry1 Jry2 Jry3 X Y; (13)if (get(handles.radiobutton1,'Value')==0)... . (13)&(get(handles.radiobutton2,'Value')==0)... . (13)&(get(handles.radiobutton3,'Value')==0) (13)set(handles.text11,'string','请选择插补方式'); (13)else (13)if (Mx<=0)&(My<=0) (13)set(handles.text11,'string','插补结束'); (13)else (13)Jrx1=Jvx+Jrx1; (13)Jry1=Jvy+Jry1; (13)Jrx2=Jvx+Jrx2; (13)Jry2=Jvy+Jry2; (13)Jrx3=Jvx+Jrx3; (13)Jry3=Jvy+Jry3; (13)if get(handles.radiobutton1,'Value')==1 %普通DDA (13)if (x1<=x2)&(y1<=y2) %转化后直线在第一象限 (13)if (Jrx1>=2^N) (13)Jrx1=Jrx1-2^N; (13)X=X+L; (13)x=linspace(X-L,X,100); (13)Mx=Mx-1; (13)else (13)x=zeros(1,100)+X; (13)end (13)if (Jry1>=2^N) (13)Jry1=Jry1-2^N; (13)y=linspace(Y-L,Y,100); (13)My=My-1; (13)else (13)y=zeros(1,100)+Y; (13)end (13)plot(x,y,'r'); (13)hold on; (14)elseif (x1>x2)&(y1<=y2) %转化后直线在第二象限 (14)if (Jrx1>=2^N) (14)Jrx1=Jrx1-2^N; (14)X=X-L; (14)x=linspace(X+L,X,100); (14)Mx=Mx-1; (14)else (14)x=zeros(1,100)+X; (14)end (14)if (Jry1>=2^N) (14)Jry1=Jry1-2^N; (14)Y=Y+L; (14)y=linspace(Y-L,Y,100); (14)My=My-1; (14)else (14)y=zeros(1,100)+Y; (14)end (14)plot(x,y,'r'); (14)hold on; (14)elseif (x1>x2)&(y1>y2) %转化后直线在第三象限 (14)if (Jrx1>=2^N) (14)Jrx1=Jrx1-2^N; (14)X=X-L; (14)x=linspace(X+L,X,100); (14)Mx=Mx-1; (14)else (14)x=zeros(1,100)+X; (14)end (14)if (Jry1>=2^N) (14)Jry1=Jry1-2^N; (14)Y=Y-L; (14)y=linspace(Y+L,Y,100); (14)My=My-1; (14)y=zeros(1,100)+Y; (14)end (14)plot(x,y,'r'); (14)hold on; (14)else %转化后直线在第四象限 (14)if (Jrx1>=2^N) (14)Jrx1=Jrx1-2^N; (14)X=X+L; (14)x=linspace(X-L,X,100); (14)Mx=Mx-1; (14)else (15)x=zeros(1,100)+X; (15)end (15)if (Jry1>=2^N) (15)Jry1=Jry1-2^N; (15)Y=Y-L; (15)y=linspace(Y+L,Y,100); (15)My=My-1; (15)else (15)y=zeros(1,100)+Y; (15)end (15)plot(x,y,'r'); (15)hold on; (15)end (15)elseif get(handles.radiobutton2,'Value')==1 %全加载 (15)if (x1<=x2)&(y1<=y2) (15)if (Jrx2>=2^N) (15)Jrx2=Jrx2-2^N; (15)X=X+L; (15)x=linspace(X-L,X,100); (15)else (15)x=zeros(1,100)+X; (15)end (15)if (Jry2>=2^N) (15)Jry2=Jry2-2^N; (15)Y=Y+L; (15)y=linspace(Y-L,Y,100); (15)My=My-1; (15)else (15)y=zeros(1,100)+Y; (15)end (15)plot(x,y,'r'); (15)hold on; (15)elseif (x1>x2)&(y1<=y2) (15)if (Jrx2>=2^N) (15)Jrx2=Jrx2-2^N; (15)X=X-L; (15)x=linspace(X+L,X,100); (15)Mx=Mx-1; (15)else (15)x=zeros(1,100)+X; (15)end (15)if (Jry2>=2^N) (15)Jry2=Jry2-2^N; (16)Y=Y+L; (16)y=linspace(Y-L,Y,100); (16)My=My-1; (16)else (16)y=zeros(1,100)+Y; (16)end (16)plot(x,y,'r'); (16)hold on; (16)elseif (x1>x2)&(y1>y2) (16)if (Jrx2>=2^N) (16)Jrx2=Jrx2-2^N; (16)X=X-L; (16)x=linspace(X+L,X,100); (16)Mx=Mx-1; (16)else (16)x=zeros(1,100)+X; (16)end (16)if (Jry2>=2^N) (16)Jry2=Jry2-2^N; (16)y=linspace(Y+L,Y,100); (16)My=My-1; (16)else (16)y=zeros(1,100)+Y; (16)end (16)plot(x,y,'r'); (16)hold on; (16)else (16)if (Jrx2>=2^N) (16)Jrx2=Jrx2-2^N; (16)X=X+L; (16)x=linspace(X-L,X,100); (16)Mx=Mx-1; (16)else (16)x=zeros(1,100)+X; (16)end (16)if (Jry2>=2^N) (16)Jry2=Jry2-2^N; (16)Y=Y-L; (16)y=linspace(Y+L,Y,100); (16)My=My-1; (16)else (16)y=zeros(1,100)+Y; (16)end (17)plot(x,y,'r'); (17)hold on; (17)end (17)else %半加载 (17)if (x1<=x2)&(y1<=y2) (17)if (Jrx3>=2^N) (17)Jrx3=Jrx3-2^N; (17)X=X+L; (17)x=linspace(X-L,X,100); (17)Mx=Mx-1; (17)else (17)x=zeros(1,100)+X; (17)end (17)if (Jry3>=2^N) (17)Jry3=Jry3-2^N; (17)Y=Y+L; (17)y=linspace(Y-L,Y,100); (17)My=My-1; (17)else (17)end (17)plot(x,y,'r'); (17)hold on; (17)elseif (x1>x2)&(y1<=y2) (17)if (Jrx3>=2^N) (17)Jrx3=Jrx3-2^N; (17)X=X-L; (17)x=linspace(X+L,X,100); (17)Mx=Mx-1; (17)else (17)x=zeros(1,100)+X; (17)end (17)if (Jry3>=2^N) (17)Jry3=Jry3-2^N; (17)Y=Y+L; (17)y=linspace(Y-L,Y,100); (17)My=My-1; (17)else (17)y=zeros(1,100)+Y; (17)end (17)plot(x,y,'r'); (17)hold on; (17)elseif (x1>x2)&(y1>y2) (17)if (Jrx3>=2^N) (18)Jrx3=Jrx3-2^N; (18)X=X-L; (18)x=linspace(X+L,X,100); (18)Mx=Mx-1; (18)else (18)x=zeros(1,100)+X; (18)end (18)if (Jry3>=2^N) (18)Jry3=Jry3-2^N; (18)Y=Y-L; (18)y=linspace(Y+L,Y,100); (18)My=My-1; (18)else (18)y=zeros(1,100)+Y; (18)end (18)plot(x,y,'r'); (18)hold on; (18)else (18)if (Jrx3>=2^N) (18)X=X+L; (18)x=linspace(X-L,X,100); (18)Mx=Mx-1; (18)else (18)x=zeros(1,100)+X; (18)end (18)if (Jry3>=2^N) (18)Jry3=Jry3-2^N; (18)Y=Y-L; (18)y=linspace(Y+L,Y,100); (18)My=My-1; (18)else (18)y=zeros(1,100)+Y; (18)end (18)plot(x,y,'r'); (18)hold on; (18)end (18)end (18)end (18)end (18)% --- Executes on button press in pushbutton3. (18)function pushbutton3_Callback(hObject, eventdata, handles) %直线连续插补 (19)% hObject handle to pushbutton3 (see GCBO) (19)% eventdata reserved - to be defined in a future version of MATLAB (19)% handles structure with handles and user data (see GUIDATA) (19)global x1 y1 x2 y2 L N x y Mx My Jvx Jrx1 Jrx2 Jrx3 Jvy Jry1 Jry2 Jry3 X Y; (19)if (get(handles.radiobutton1,'Value')==0)... . (19)&(get(handles.radiobutton2,'Value')==0)... . (19)&(get(handles.radiobutton3,'Value')==0) (19)set(handles.text11,'string','请选择插补方式'); (19)else (19)while (Mx>0)|(My>0) (19)Jrx1=Jvx+Jrx1; (19)Jry1=Jvy+Jry1; (19)Jrx2=Jvx+Jrx2; (19)Jry2=Jvy+Jry2; (19)Jrx3=Jvx+Jrx3; (19)Jry3=Jvy+Jry3; (19)if get(handles.radiobutton1,'Value')==1 (19)if (x1<=x2)&(y1<=y2) (19)if (Jrx1>=2^N) (19)Jrx1=Jrx1-2^N; (19)X=X+L; (19)Mx=Mx-1; (19)else (19)x=zeros(1,100)+X; (19)end (19)if (Jry1>=2^N) (19)Jry1=Jry1-2^N; (19)Y=Y+L; (19)y=linspace(Y-L,Y,100); (19)My=My-1; (19)else (19)y=zeros(1,100)+Y; (19)end (19)plot(x,y,'r'); (19)hold on; (19)pause(0.1); (19)elseif (x1>x2)&(y1<=y2) (19)if (Jrx1>=2^N) (19)Jrx1=Jrx1-2^N; (19)X=X-L; (19)x=linspace(X+L,X,100); (19)Mx=Mx-1; (19)else (20)x=zeros(1,100)+X; (20)end (20)if (Jry1>=2^N) (20)Jry1=Jry1-2^N; (20)Y=Y+L; (20)y=linspace(Y-L,Y,100); (20)My=My-1; (20)else (20)y=zeros(1,100)+Y; (20)end (20)plot(x,y,'r'); (20)hold on; (20)pause(0.1); (20)elseif (x1>x2)&(y1>y2) (20)if (Jrx1>=2^N) (20)Jrx1=Jrx1-2^N; (20)X=X-L; (20)x=linspace(X+L,X,100); (20)Mx=Mx-1; (20)else (20)x=zeros(1,100)+X; (20)if (Jry1>=2^N) (20)Jry1=Jry1-2^N; (20)Y=Y-L; (20)y=linspace(Y+L,Y,100); (20)My=My-1; (20)else (20)y=zeros(1,100)+Y; (20)end (20)plot(x,y,'r'); (20)hold on; (20)pause(0.1); (20)else (20)if (Jrx1>=2^N) (20)Jrx1=Jrx1-2^N; (20)X=X+L; (20)x=linspace(X-L,X,100); (20)Mx=Mx-1; (20)else (20)x=zeros(1,100)+X; (20)end (20)if (Jry1>=2^N) (20)Jry1=Jry1-2^N; (21)Y=Y-L; (21)y=linspace(Y+L,Y,100); (21)My=My-1; (21)else (21)y=zeros(1,100)+Y; (21)end (21)plot(x,y,'r'); (21)hold on; (21)pause(0.1); (21)end (21)elseif get(handles.radiobutton2,'Value')==1 (21)if (x1<=x2)&(y1<=y2) (21)if (Jrx2>=2^N) (21)Jrx2=Jrx2-2^N; (21)X=X+L; (21)x=linspace(X-L,X,100); (21)Mx=Mx-1; (21)else (21)x=zeros(1,100)+X; (21)end (21)if (Jry2>=2^N) (21)Y=Y+L; (21)y=linspace(Y-L,Y,100); (21)My=My-1; (21)else (21)y=zeros(1,100)+Y; (21)end (21)plot(x,y,'r'); (21)hold on; (21)pause(0.1); (21)elseif (x1>x2)&(y1<=y2) (21)if (Jrx2>=2^N) (21)Jrx2=Jrx2-2^N; (21)X=X-L; (21)x=linspace(X+L,X,100); (21)Mx=Mx-1; (21)else (21)x=zeros(1,100)+X; (21)end (21)if (Jry2>=2^N) (21)Jry2=Jry2-2^N; (21)Y=Y+L; (21)y=linspace(Y-L,Y,100); (22)My=My-1; (22)else (22)y=zeros(1,100)+Y; (22)end (22)plot(x,y,'r'); (22)hold on; (22)pause(0.1); (22)elseif (x1>x2)&(y1>y2) (22)if (Jrx2>=2^N) (22)Jrx2=Jrx2-2^N; (22)X=X-L; (22)x=linspace(X+L,X,100); (22)Mx=Mx-1; (22)else (22)x=zeros(1,100)+X; (22)end (22)if (Jry2>=2^N) (22)Jry2=Jry2-2^N; (22)Y=Y-L; (22)y=linspace(Y+L,Y,100); (22)My=My-1; (22)y=zeros(1,100)+Y; (22)end (22)plot(x,y,'r'); (22)hold on; (22)pause(0.1); (22)else (22)if (Jrx2>=2^N) (22)Jrx2=Jrx2-2^N; (22)X=X+L; (22)x=linspace(X-L,X,100); (22)Mx=Mx-1; (22)else (22)x=zeros(1,100)+X; (22)end (22)if (Jry2>=2^N) (22)Jry2=Jry2-2^N; (22)Y=Y-L; (22)y=linspace(Y+L,Y,100); (22)My=My-1; (22)else (22)y=zeros(1,100)+Y; (22)end (23)plot(x,y,'r'); (23)hold on; (23)pause(0.1); (23)end (23)else (23)if (x1<=x2)&(y1<=y2) (23)if (Jrx3>=2^N) (23)Jrx3=Jrx3-2^N; (23)X=X+L; (23)x=linspace(X-L,X,100); (23)Mx=Mx-1; (23)else (23)x=zeros(1,100)+X; (23)end (23)if (Jry3>=2^N) (23)Jry3=Jry3-2^N; (23)Y=Y+L; (23)y=linspace(Y-L,Y,100); (23)My=My-1; (23)else (23)y=zeros(1,100)+Y; (23)plot(x,y,'r'); (23)hold on; (23)pause(0.1); (23)elseif (x1>x2)&(y1<=y2) (23)if (Jrx3>=2^N) (23)Jrx3=Jrx3-2^N; (23)X=X-L; (23)x=linspace(X+L,X,100); (23)Mx=Mx-1; (23)else (23)x=zeros(1,100)+X; (23)end (23)if (Jry3>=2^N) (23)Jry3=Jry3-2^N; (23)Y=Y+L; (23)y=linspace(Y-L,Y,100); (23)My=My-1; (23)else (23)y=zeros(1,100)+Y; (23)end (23)plot(x,y,'r'); (23)hold on; (24)pause(0.1); (24)elseif (x1>x2)&(y1>y2) (24)if (Jrx3>=2^N) (24)Jrx3=Jrx3-2^N; (24)X=X-L; (24)x=linspace(X+L,X,100); (24)Mx=Mx-1; (24)else (24)x=zeros(1,100)+X; (24)end (24)if (Jry3>=2^N) (24)Jry3=Jry3-2^N; (24)Y=Y-L; (24)y=linspace(Y+L,Y,100); (24)My=My-1; (24)else (24)y=zeros(1,100)+Y; (24)end (24)plot(x,y,'r'); (24)hold on; (24)pause(0.1); (24)if (Jrx3>=2^N) (24)Jrx3=Jrx3-2^N; (24)X=X+L; (24)x=linspace(X-L,X,100); (24)Mx=Mx-1; (24)else (24)x=zeros(1,100)+X; (24)end (24)if (Jry3>=2^N) (24)Jry3=Jry3-2^N; (24)Y=Y-L; (24)y=linspace(Y+L,Y,100); (24)My=My-1; (24)else (24)y=zeros(1,100)+Y; (24)end (24)plot(x,y,'r'); (24)hold on; (24)pause(0.1); (24)end (24)end (24)end (25)set(handles.text11,'string','插补结束'); (25)end (25)% --- Executes on button press in pushbutton3. (25)function pushbutton4_Callback(hObject, eventdata, handles) %绘制圆弧 (25)% hObject handle to pushbutton3 (see GCBO) (25)% eventdata reserved - to be defined in a future version of MATLAB (25)% handles structure with handles and user data (see GUIDATA) (25)global x1 y1 x y r x2 y2 A x0 y0 M F X Y Mx My L a1 a2 a ; (25)x1=str2double(get(handles.edit1,'string')); (25)y1=str2double(get(handles.edit2,'string')); (25)x2=str2double(get(handles.edit3,'string')); (25)y2=str2double(get(handles.edit4,'string')); (25)r=str2double(get(handles.edit5,'string')); (25)L=str2double(get(handles.edit7,'string')); (25)A=sqrt(r^2-((x2-x1)^2+(y2-y1)^2)/4); %圆心到弦中点的长度 (25)if sqrt(((x2-x1)^2+(y2-y1)^2))>(2*r) (25)set(handles.text11,'string','无法构成圆弧'); (25)else (25)x0=(x1+x2)/2+A*(y1-y2)/sqrt((x2-x1)^2+(y2-y1)^2); %圆心坐标 (25)y0=(y1+y2)/2-A*(x1-x2)/sqrt((x2-x1)^2+(y2-y1)^2); (25)a1=atan((y1-y0)/(x1-x0)); (25)a2=atan((y2-y0)/(x2-x0)); (25)if (x1<x0&y1>y0) (25)a1=pi-abs(a1); (25)else (25)a1=a1; (25)end (25)if (x2<x0&y0<y2) (25)a2=pi-abs(a2); (25)elseif(x2<x0&y2<y0) (25)a2=pi+a2; (25)else (25)a2=a2; (25)end (25)a=a1:0.01:a2; (25)x=x0+r.*cos(a); (25)y=y0+r.*sin(a); (25)plot(x,y,'k'); (25)xmin=min([x,x0]); (25)xmax=max([x,x0]); (25)ymin=min([y,y0]); (25)ymax=max([y,y0]); (26)axis equal; (26)axis([xmin-L xmax+L ymin-L ymax+L]); %坐标轴边界 (26)hold on; (26)set(handles.text11,'string','画图完成'); (26)F=0; (26)X=x1; (26)Y=y1; (26)if(y1<=y0&x1>x0) (26)Mx=ceil((x1-x2)/L)+ceil(2*abs(x0+r-x1)/L); (26)elseif(x2<x0&y0>=y2) (26)Mx=ceil((x1-x2)/L)+ceil(2*abs(x2-x0+r)/L); (26)else (26)Mx=ceil((x1-x2)/L); (26)end (26)if (x2<x0&x0<x1) (26)My=ceil(abs(y0+r-y1)/L)+ceil(abs(y0+r-y2)/L); (26)else (26)My=ceil(abs(y1-y2)/L); (26)end (26)M=Mx+My; %计算插补步数 (26)end (26)% --- Executes on button press in pushbutton3. (26)function pushbutton5_Callback(hObject, eventdata, handles) (26)% hObject handle to pushbutton3 (see GCBO) (26)% eventdata reserved - to be defined in a future version of MATLAB (26)% handles structure with handles and user data (see GUIDATA) (26)global x y r x0 y0 M F X Y L; (26)if M<=0 (26)set(handles.text11,'string','插补结束!'); (26)else (26)if X>=x0 (26)if Y>=y0 %相对于圆心在第一象限内插补 (26)if F>=0 %圆外 (26)X=X-L; (26)x=linspace(X+L,X,100); (26)y=x.*0+Y; (26)plot(x,y,'r') (26)F=(X-x0)^2+(Y-y0)^2-r^2; (26)else %圆内 (26)Y=Y+L; (26)y=linspace(Y-L,Y,100); (26)x=y.*0+X; (26)plot(x,y,'r') (27)F=(X-x0)^2+(Y-y0)^2-r^2; (27)end (27)else %相对于圆心在第四象限内插补 (27)if F>=0 %圆外 (27)Y=Y+L; (27)y=linspace(Y-L,Y,100); (27)x=y.*0+X; (27)plot(x,y,'r'); (27)F=(X-x0)^2+(Y-y0)^2-r^2; (27)else %圆内 (27)X=X+L; (27)x=linspace(X-L,X,100); (27)y=x.*0+Y; (27)plot(x,y,'r'); (27)F=(X-x0)^2+(Y-y0)^2-r^2; (27)end (27)end (27)else (27)if Y>=y0; %第二象限 (27)if F>=0 %圆外 (27)Y=Y-L; (27)y=linspace(Y+L,Y,100); (27)x=y.*0+X; (27)F=(X-x0)^2+(Y-y0)^2-r^2; (27)else %圆内 (27)X=X-L; (27)x=linspace(X+L,X,100); (27)y=x.*0+Y; (27)plot(x,y,'r'); (27)F=(X-x0)^2+(Y-y0)^2-r^2; (27)end (27)else %第三象限 (27)if F>=0 %圆外 (27)X=X+L; (27)x=linspace(X-L,X,100); (27)y=x.*0+Y; (27)plot(x,y,'r'); (27)F=(X-x0)^2+(Y-y0)^2-r^2; (27)else %圆内 (27)Y=Y-L; (27)y=linspace(Y+L,Y,100); (27)x=y.*0+X; (27)plot(x,y,'r'); (28)F=(X-x0)^2+(Y-y0)^2-r^2; (28)end (28)end (28)end (28)M=M-1; (28)end (28)% --- Executes on button press in pushbutton6. (28)function pushbutton6_Callback(hObject, eventdata, handles) (28)% hObject handle to pushbutton6 (see GCBO) (28)% eventdata reserved - to be defined in a future version of MATLAB (28)% handles structure with handles and user data (see GUIDATA) (28)global x y r x0 y0 M F X Y L; (28)while M>0 (28)if X>=x0 (28)if Y>=y0 %相对于圆心在第一象限内插补 (28)if F>=0 %圆外 (28)X=X-L; (28)x=linspace(X+L,X,100); (28)y=x.*0+Y; (28)plot(x,y,'r') (28)F=(X-x0)^2+(Y-y0)^2-r^2; (28)else %圆内 (28)Y=Y+L; (28)。