使用matlab写一个操场400跑道的曲线的程序，并且存储离散点成为表格，有详细的中文注释，能运行出结果

以下是用 Matlab 编写的操场 400 跑道曲线程序，具体的中文注释已在代码中给出：

% 定义操场 400 跑道的参数
r1 = 36.5; % 第一条内侧弯道的半径
r2 = 37.5; % 第二条外侧弯道的半径
w1 = 1.22; % 第一条弯道的宽度
w2 = 1.067; % 直道的宽度
l1 = 84.39; % 第一条弯道的长度
l2 = 115.61; % 直道的长度
theta1 = l1 / r1; % 第一条弯道的圆心角
theta2 = l2 / r2; % 第二条弯道的圆心角

% 定义操场 400 跑道的离散点
num_points = 100; % 离散点的数量
points = zeros(num_points, 2); % 初始化离散点矩阵
for i = 1:num_points
    % 计算当前离散点的角度
    if i <= num_points/2 % 第一条弯道
        theta = (i-1) * theta1 / (num_points/2-1);
    else % 第二条弯道
        theta = theta1 + (i-num_points/2-1) * theta2 / (num_points/2);
    end
    
    % 计算当前离散点的坐标
    if theta < theta1 % 第一条弯道内部
        x = r1 - r1 * cos(theta);
        y = w1 + r1 * sin(theta);
    else % 第二条弯道和直道
        x = r1 + (theta-theta1) * r2 - r2 * sin(theta-theta1);
        y = w1 + r2 * cos(theta-theta1);
    end
    
    % 将当前离散点存入离散点矩阵中
    points(i, :) = [x, y];
end

% 将离散点保存为表格文件
filename = 'points.xlsx'; % 文件名
xlswrite(filename, {'x', 'y'}, 'Sheet1', 'A1'); % 写入表头
xlswrite(filename, points, 'Sheet1', 'A2'); % 写入数据
disp(['已将离散点保存为表格文件 ' filename]);

运行该程序后，将会生成一个包含离散点坐标的表格文件 `points.xlsx`，其中第一列为横坐标 `x`，第二列为纵坐标 `y`。