【运动学】基于matlab GUI模拟鱼类目标追击问题【含Matlab源码 166期】

一、获取代码方式

获取代码方式1：
完整代码已上传我的资源：【运动学】基于matlab GUI模拟鱼类目标追击问题【含Matlab源码 166期】

获取代码方式2：
通过订阅紫极神光博客付费专栏，凭支付凭证，私信博主，可获得此代码。

备注：
订阅紫极神光博客付费专栏，可免费获得1份代码（有效期为订阅日起，三天内有效）；

二、部分源代码

function varargout = TorpedoAndAim(varargin)
% TORPEDOANDAIM MATLAB code for TorpedoAndAim.fig
%      TORPEDOANDAIM, by itself, creates a new TORPEDOANDAIM or raises the existing
%      singleton*.
%
%      H = TORPEDOANDAIM returns the handle to a new TORPEDOANDAIM or the handle to
%      the existing singleton*.
%
%      TORPEDOANDAIM('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in TORPEDOANDAIM.M with the given input arguments.
%
%      TORPEDOANDAIM('Property','Value',...) creates a new TORPEDOANDAIM or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before TorpedoAndAim_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to TorpedoAndAim_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help TorpedoAndAim

% Last Modified by GUIDE v2.5 22-Jun-2021 20:00:58

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @TorpedoAndAim_OpeningFcn, ...
                   'gui_OutputFcn',  @TorpedoAndAim_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 TorpedoAndAim is made visible.
function TorpedoAndAim_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to TorpedoAndAim (see VARARGIN)

% Choose default command line output for TorpedoAndAim
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes TorpedoAndAim wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = TorpedoAndAim_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;


% --- Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
AimSpeed=str2double(get(handles.edit1,'string'));  %目标初始速度
AimSpeedAngel=str2double(get(handles.edit2,'string'));  %目标速度与x方向夹角
TorpedoSpeed=str2double(get(handles.edit3,'string'));    %鱼雷速度 
AimOriginX=str2double(get(handles.edit4,'string'));   %目标初始位置
AimOriginY=str2double(get(handles.edit5,'string'));
TorpedoOriginX=str2double(get(handles.edit6,'string'));  %鱼雷初始位置
TorpedoOriginY=str2double(get(handles.edit7,'string'));

%-------------%%输入完毕—————————————

AimSpeedAngel=AimSpeedAngel/180*pi;        %角度转弧度
AimSpeedX=AimSpeed*cos(AimSpeedAngel);       %目标速度x分量
AimSpeedY=AimSpeed*sin(AimSpeedAngel);     %目标速度y分量
TorpedoX=TorpedoOriginX;
TorpedoY=TorpedoOriginY;
t=0;t0=0.1;
axes(handles.axes1);
while(1)
    t=t+t0;
    set(handles.text12,'string',[num2str(t),'s']);
    AimX=AimOriginX+AimSpeedX*t;
    AimY=AimOriginY+AimSpeedY*t;
    ATAngel=atan((AimY-TorpedoY)/(AimX-TorpedoX));    %舷角
    if AimX>=TorpedoX&&AimY>=TorpedoY       %%鱼雷路径优化
        TorpedoX=TorpedoX+TorpedoSpeed*cos(ATAngel)*t0;
        TorpedoY=TorpedoY+TorpedoSpeed*abs(sin(ATAngel))*t0;
    elseif AimX<TorpedoX&&AimY>=TorpedoY
        TorpedoX=TorpedoX-TorpedoSpeed*cos(ATAngel)*t0;
        TorpedoY=TorpedoY+TorpedoSpeed*abs(sin(ATAngel))*t0;
    elseif AimX>=TorpedoX&&AimY<TorpedoY
        TorpedoX=TorpedoX+TorpedoSpeed*cos(ATAngel)*t0;
        TorpedoY=TorpedoY-TorpedoSpeed*abs(sin(ATAngel))*t0;
    else
        TorpedoX=TorpedoX-TorpedoSpeed*cos(ATAngel)*t0;
        TorpedoY=TorpedoY-TorpedoSpeed*abs(sin(ATAngel))*t0;   
    end
    h1=plot(TorpedoX,TorpedoY,'*');             %鱼雷路径为***线
    xlabel('x方向','Fontsize',16);
    ylabel('y方向','Fontsize',16);
    hold on 
    h2=plot(AimX,AimY,'.');                     %目标路径为...线
    r=(AimY-TorpedoY)^2+(AimX-TorpedoX)^2;      %鱼目距离
    if(r)<=1                                    %击中判定
        set(handles.text11,'string','成功击中目标!');
        break;
    end
    if(t>60)                                    %丢失判定
        set(handles.text11,'string','超时!丢失目标!');
        break;
    end
    pause(0.01);
end


function edit1_Callback(hObject, eventdata, handles)
% hObject    handle to edit1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: get(hObject,'String') returns contents of edit1 as text
%        str2double(get(hObject,'String')) returns contents of edit1 as a double


% --- Executes during object creation, after setting all properties.
function edit1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to edit1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: edit controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end



  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
  
71
  
72
  
73
  
74
  
75
  
76
  
77
  
78
  
79
  
80
  
81
  
82
  
83
  
84
  
85
  
86
  
87
  
88
  
89
  
90
  
91
  
92
  
93
  
94
  
95
  
96
  
97
  
98
  
99
  
100
  
101
  
102
  
103
  
104
  
105
  
106
  
107
  
108
  
109
  
110
  
111
  
112
  
113
  
114
  
115
  
116
  
117
  
118
  
119
  
120
  
121
  
122
  
123
  
124
  
125
  
126
  
127
  
128
  
129
  
130
  
131
  
132
  
133
  
134
  
135
  
136
  
137
  
138
  
139
  
140
  
141
  
142
  
143
  
144
  
145
  
146
  
147
  
148
  
149
  
150
  
151
  
152
  
153
  
154
  
155
  
156
 

三、运行结果

四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 门云阁.MATLAB物理计算与可视化[M].清华大学出版社，2013.

文章来源: qq912100926.blog.csdn.net，作者：海神之光，版权归原作者所有，如需转载，请联系作者。

原文链接：qq912100926.blog.csdn.net/article/details/122219320