% Define initial parametersA = 0.1; % Amplitudeomega = 10; % Angular frequencyphi = pi/4; % Initial phase% Define time range and step sizet_start = 0;t_end = 10;dt = 0.01;t = t_start:dt:t_end;% Initialize figurefigure;axis([t_start t_end -A A]);% Loop through time stepsfor i = 1:length(t) % Calculate displacement at current time step y = A*sin(omega*t(i) + phi).*exp(-t(i)); % Update plot plot(t(1:i),y(1:i),'LineWidth',2); xlabel('Time'); ylabel('Displacement'); title('Water Skipping Model'); % Update plot in real-time drawnow; % Pause to control animation speed pause(0.01);end

这段代码是一个用于模拟水面上跳跃石头的模型，通过绘制时间和位移之间的关系曲线来展示模拟过程。代码中首先定义了初始参数，包括振幅、角频率和初始相位等。然后定义了时间范围和步长，并初始化了绘图。

在循环中，通过计算当前时间步的位移，更新绘图，并在实时中更新绘图以控制动画速度。循环中的每一次迭代都会更新绘图，并暂停一段时间以控制动画的速度。

该模型可以通过调整初始参数和时间范围等来进行修改和扩展。