生成一段用Newmark-beta积分法求三自由度非线性弹簧振子系统在随机激励下的响应的matlab代码

以下是一段用Newmark-beta积分法求三自由度非线性弹簧振子系统在随机激励下的响应的MATLAB代码：

function [t,y] = NonlinearSpringOscillator(beta,gamma,m,k,dt,tmax,F)
% beta: Newmark-beta方法的参数
% gamma: Newmark-beta方法的参数
% m: 质量矩阵
% k: 刚度矩阵
% dt: 时间步长
% tmax: 最大时间
% F: 随机激励力

n = tmax/dt; % 时间步数
t = linspace(0,tmax,n+1)'; % 时间向量
y = zeros(n+1,6); % 位移和速度矩阵
y(1,:) = [0;0;0;0;0;0]; % 初始条件

for i = 1:n
    % 计算加速度向量
    a = (F(i,:)'-k*y(i,1:3)')/m;
    
    % 计算位移和速度向量
    if i == 1
        y(i+1,1:3) = y(i,1:3) + y(i,4:6)*dt + 0.5*a*dt^2; % 第一步采用欧拉法
        y(i+1,4:6) = y(i,4:6) + a*dt;
    else
        y(i+1,1:3) = (m+beta*dt^2*k)\(F(i,:)'+k*(y(i,1:3)'+dt*y(i,4:6)'+0.5*dt^2*((1-2*beta)*y(i,1:3)'+2*beta*y(i-1,1:3)'))); % 计算位移
        y(i+1,4:6) = gamma*dt*(y(i+1,1:3)-y(i,1:3))/dt + (1-gamma)*y(i,4:6) + dt*(1-gamma)*a'; % 计算速度
    end
end

end

注：本代码假设质量矩阵、刚度矩阵和激励力矩阵都是时间不变的常数矩阵。