单自由度受迫振动matlab代码

以下是单自由度受迫振动的MATLAB代码，其中包含了数值解法：

% 定义常数
m = 1; % 质量
k = 1; % 劲度系数
F0 = 1; % 外力振幅
omega = 2; % 外力频率
gamma = 0.1; % 阻尼系数

% 定义时间范围和时间步长
t_start = 0;
t_end = 50;
dt = 0.1;

% 初始化变量
x = 0; % 位移
v = 0; % 速度

% 循环计算
for t = t_start:dt:t_end
    % 计算加速度
    a = -k/m*x - gamma/m*v + F0/m*sin(omega*t);

    % 使用欧拉数值解法更新速度和位移
    v = v + a*dt;
    x = x + v*dt;

    % 输出结果
    fprintf('t = %.1f, x = %.4f, v = %.4f\n', t, x, v);
end

可以通过修改代码中的常数和时间范围来调整模拟的参数。

相关问题

单自由度受迫振动matlab

### 单自由度受迫振动系统的MATLAB仿真

对于单自由度(SDOF)受迫振动系统，可以描述为质量-弹簧-阻尼器模型。该系统受到外部周期力的作用，其运动方程可以用二阶微分方程表示：

\[m\ddot{x} + c\dot{x} + kx = F_0 \sin(\omega t)\]

其中 \(m\) 是质量，\(c\) 表示阻尼系数，而 \(k\) 则代表弹簧刚度；右侧项中的 \(F_0\) 和 \(\omega\) 分别对应外加正弦激励的幅值与角频率。

为了便于数值求解，在实际编程之前先转换成状态空间形式的一阶常微分方程组:

设速度变量 \(v=\dot{x}\)，则有如下两个一阶ODEs组成的状态向量表达式：
\[\begin{cases}
\dot{x}= v \\
\dot{v}=(F_0 \sin(\omega t)-cv-kx)/m
\end{cases}\]

下面给出一段简单的MATLAB代码来模拟上述过程并绘制位移响应曲线图。

% 参数设置
m = 275; % 质量[kg], 参考给定的质量参数[^2]
c = 10;  % 阻尼系数[N·s/m] (假设值)
k = 2.8e4; % 弹簧刚度[N/m]
F0 = 100; % 外部激振力幅度[N](设定值)
w = sqrt(k / m); % 自然圆频率(rad/s)

% 时间范围定义
tspan = [0 10]; 

% 初始条件(位置和速度均为零)
y0 = [0 ; 0];

% 定义函数句柄用于ode45求解器调用
f = @(t,y)[y(2); (-c*y(2) - k*y(1)+F0*sin(w*t))/m ];

% 使用ode45进行积分计算
[t,y]= ode45(f,tspan,y0);

% 绘制结果图形
figure;
plot(t,y(:,1));
xlabel('Time(s)');
ylabel('Displacement(m)');
title('Response of SDOF Forced Vibration System');
grid on;

这段程序实现了对具有特定质量和刚性的SDOF强迫振动系统的建模，并通过`ode45()`函数进行了时间域内的动态特性分析。所选参数基于提供的参考资料中提到的数据，但请注意这里的阻尼比以及外界激励的具体情况都是人为指定的例子，可以根据实际情况调整这些输入以适应不同的应用场景需求。

三自由度的受迫振动 matlab代码

三自由度的受迫振动是指系统中有三个自由度（即有三个可以独立变化的参数），并且受到外力的驱动而产生振动。这是一种常见的力学振动问题，可以用数学模型和matlab代码来求解。

假设有一个三自由度的受迫振动系统，其运动方程可以表示为：

m1 * x1'' + c1 * x1' + k1 * x1 - k2 * (x2 - x1) + F * cos(ω * t) = 0
m2 * x2'' + c2 * x2' - k2 * (x2 - x1) + k3 * (x3 - x2) = 0
m3 * x3'' + c3 * x3' + k3 * (x3 - x2) = 0

其中，m1、m2、m3分别为质量，c1、c2、c3为阻尼系数，k1、k2、k3为刚度系数， F为外力振幅，ω为外力频率，t为时间。

下面给出一个简单的matlab代码来求解上述三自由度的受迫振动问题：

% 定义系统参数
m1 = 1;
m2 = 1;
m3 = 1;
c1 = 0.1;
c2 = 0.1;
c3 = 0.1;
k1 = 1;
k2 = 1;
k3 = 1;
F = 1;
ω = 2;
t = 0:0.01:10; % 时间范围

% 定义初始条件
x1_0 = 0;
x2_0 = 0;
x3_0 = 0;
x1_dot_0 = 0;
x2_dot_0 = 0;
x3_dot_0 = 0;

% 定义运动方程
F1 = @(x1, x2) -k1 * x1 + k2 * (x2 - x1) - F * cos(ω * t);
F2 = @(x1, x2, x3) -k2 * (x2 - x1) + k3 * (x3 - x2);
F3 = @(x2, x3) k3 * (x3 - x2);

% 使用ode45函数求解运动方程
[t, solution] = ode45(@(t, x) [...
    x(2); ...
    F1(x(1), x(2)) / m1 - c1 * x(2) / m1; ...
    x(4); ...
    F2(x(1), x(2), x(3)) / m2 - c2 * x(4) / m2; ...
    x(6); ...
    F3(x(2), x(3)) / m3 - c3 * x(6) / m3], t, [x1_0, x1_dot_0, x2_0, x2_dot_0, x3_0, x3_dot_0]);

% 绘制位移-时间曲线
figure;
plot(t, solution(:, 1), 'r-', 'LineWidth', 1.5);
hold on;
plot(t, solution(:, 3), 'g-', 'LineWidth', 1.5);
hold on;
plot(t, solution(:, 5), 'b-', 'LineWidth', 1.5);
xlabel('时间');
ylabel('位移');
title('三自由度受迫振动');
legend('x1', 'x2', 'x3');

以上代码使用ode45函数求解了三自由度受迫振动的运动方程，并绘制出了位移-时间曲线。可以根据具体需求修改系统参数和初始条件来求解不同的问题。