一、简介
基于matlab GUI模拟投篮系统（角度+力度可调）
二、源代码
%% -------------------- copy right --------------------
%
% date : 2021-3-3
% description : several uicontrols and 3D bascket ring, allow to change
% view angle freely with four default view angles
%
%% -------------------- global setting --------------------
clear all;
h = figure('numbertitle','off','name','Shoot Backetball 3D');
%% -------------------- axis setting --------------------
axis tight;
axis([-10, 10, -10, 10, 0, 5]);
%axis off
%% -------------------- draw basket --------------------
hold on;
r = 2;
[a, b, c] = cylinder(r, 30);
mesh((a+8), b, (c/4)+2.8)
%% -------------------- draw background & wall --------------------
% draw ground
ground_x = [-10 10 10 -10];
ground_y = [-10 -10 10 10];
h_ground = fill(ground_x, ground_y, [1 0.4 0]);
two_pts_line_width = 2;
three_pts_line_width = 3;
% draw 2 points and 3 points lines
z_line = [0 0];
x_side_line = [-5 10];
x_mid_line = [-5 -5];
y_mid_line = [-3 3];
y_left_line = [-3 -5];
y_right_line = [3 5];
plot3(x_mid_line, y_mid_line, z_line, 'LineWidth', two_pts_line_width, 'Color', 'w');
plot3(x_side_line, y_left_line, z_line, 'LineWidth', two_pts_line_width, 'Color', 'w');
plot3(x_side_line, y_right_line, z_line, 'LineWidth', two_pts_line_width, 'Color', 'w');
t = 0:pi/50:10*pi;
line((3*sin(t) - 5), 3*cos(t), 'LineWidth', two_pts_line_width, 'Color', 'w');
line((20*sin(t) + 10), 10*cos(t), 'LineWidth', three_pts_line_width, 'Color', 'w');
% draw board
board_x = [0, 0, 0, 0, 0];
board_y = [0, 0, 10, 10, 0];
board_z = [1, 3, 3, 1, 1];
plot3((board_x+10), (board_y-5), (board_z+2), 'LineWidth', 3, 'Color', 'b');
small_board_x = [0, 0, 0, 0, 0];
small_board_y = [0, 0, 4, 4, 0];
small_board_z = [1, 2, 2, 1, 1];
plot3((small_board_x+10), (small_board_y-2), (small_board_z+2), 'LineWidth', 2, 'Color', 'b');
grid on
%% -------------------- user interface control --------------------
% close pushbutton
uicontrol(h, 'Style', 'pushbutton','Position', [250 0 50 30], 'String', 'Close', ...
'CallBack', 'close', 'BackgroundColor', 'r', 'FontWeight', 'bold');
% height angle slide
slide_height_an = uicontrol(h, 'Style', 'slider', 'Position', [10 370 140 20], ...
'Min', 0, 'Max', 90, 'Value', 45, 'BackgroundColor', 'y', ...
'CallBack', 'set(text_height_cur,''String'',num2str(get(slide_height_an,''Value'')))');
text_height_min = uicontrol(h, 'Style', 'text', 'Position', [10 390 40 20], ...
'String', num2str(get(slide_height_an, 'Min')));
text_height_max = uicontrol(h, 'Style', 'text', 'Position', [110 390 40 20], ...
'String', num2str(get(slide_height_an, 'Max')));
text_height_cur = uicontrol(h, 'Style', 'text', 'Position', [60 390 40 20], ...
'String', num2str(get(slide_height_an, 'Value')), ...
'BackgroundColor', 'y', 'FontAngle', 'italic', 'FontWeight', 'bold');
% direction angle slide
slide_direct_an = uicontrol(h, 'Style', 'slider', 'Position', [410 370 140 20], ...
'Min', -90, 'Max', 90, 'Value', 0, 'BackgroundColor', 'c', ...
'CallBack', 'set(text_direct_cur,''String'',num2str(get(slide_direct_an,''Value'')))');
text_direct_min = uicontrol(h, 'Style', 'text', 'Position', [410 390 40 20], ...
'String', num2str(get(slide_direct_an, 'Min')));
text_direct_max = uicontrol(h, 'Style', 'text', 'Position', [510 390 40 20], ...
'String', num2str(get(slide_direct_an, 'Max')));
text_direct_cur = uicontrol(h, 'Style', 'text', 'Position', [460 390 40 20], ...
'String', num2str(get(slide_direct_an, 'Value')), ...
'BackgroundColor', 'c', 'FontAngle', 'italic', 'FontWeight', 'bold');
% velocity edit
text_v = uicontrol(h, 'Style', 'text', 'Position', [210 390 20 20], 'String', 'm/s');
edit_v = uicontrol(h, 'Style', 'edit', 'Position', [170 390 40 20], 'String', '6', ...
'CallBack', 'get(edit_v, ''String'')', 'BackgroundColor', 'w');
function victory = sun_is_fool (place, height, angle_y, angle_z, velocity, gravity)
x = 0:0.01:10;
y = 0:0.01:10;
z = 0:0.01:10;
miss_y = 8; %左右角度误差量
miss_v = 0.25; %速度误差量
miss_z = 10; %上下误差量
victory = 0;
angle_z = angle_z + miss_z * (rand - 0.5);
angle_y = angle_y + miss_y * (rand - 0.5);
velocity = velocity + miss_v * (rand - 0.5);
vx = velocity * cosd(angle_y) * cosd(angle_z);
vy = velocity * sind(-angle_y) * cosd(angle_z);
vz = velocity * sind(angle_z);
x(1) = -10;
y(1) = place;
z(1) = height;
% variables for audio playing
t_audio = 2;
[yy, fs] = audioread('shots.wav');
% end of variables for audio playing
for t = 2:500
x(t) = x(t-1) + vx * 0.02;
y(t) = y(t-1) + vy * 0.02;
z(t) = z(t-1) + vz * 0.02 - 0.5 * gravity * 0.02^2;
vz = vz - gravity * 0.02;
place = (x(t) - 8)^2 + y(t)^2;
if z(t) < 0.4
z(t) = 0.4;
vz = - vz * 0.4;
if vx ~= 0
vx = vx * 0.4;
end
if vy ~= 0
vy = vy * 0.4;
end
end
if place < 2 && z(t-1) >= 3.05 &&z(t) <= 3.05
vx = 0;
vy = 0;
victory = 1;
t_audio = t;
end
if place >= 2 && place <= 9 && z(t-1) >= 3.45 && z(t) <= 3.45;
vz = - vz * 0.4;
if x(t) <= 9 && x(t) >=7
if vy > 0
vy = vy - rand;
elseif vy < 0
vy = vy + rand;
end
else
if vx > 0
vx = vx - rand;
elseif vx < 0
vx = vx + rand;
end
end
end
if x(t-1) <= 9 && x(t) >= 9
vx = - vx * 0.65;
end
if abs(y(t-1)) <= 9 && abs(y(t)) >= 9
vy = - vy * 0.65;
end
end
x(501) = -1000;
y(501) = -1000;
z(501) = -1000;
%画球球
[x_b, y_b, z_b] = sphere(30);
X_b = x_b + x(1);
Y_b = y_b + y(1);
Z_b = z_b ./ 2.5 + z(1);
h = mesh(X_b, Y_b, Z_b);
for k = 2:501
%绘制篮球
X = x_b + x(k);
Y = y_b + y(k);
Z = z_b ./ 2.5 + z(k);
set(h, 'XData', X);
set(h, 'YData', Y);
set(h, 'ZData', Z);
% add audio
if (t_audio ~= 2) && (k == t_audio)
audioplayer(yy, fs);
end
% end of audio
drawnow;
end
三、运行结果
四、备注
版本：2014a