clear all;close all;clc;count = 1; %Declaring the balls initial conditions
R_Ball = 2;initpos.x = 0;initpos.y = 2.4;initvel.x = 2;initvel.y = 4;gravity.x = 0;gravity.y = 9.81;restitution = 0.7;GroundBall_friction = 0.2;%Animation timestep
dt = 0.001;%Executing the animation
pos.x = initpos.x; % initial position
pos.y = initpos.y; % initial positionvel.x = initvel.x; % initial velocity-x
vel.y = initvel.y; % initial velocity-y
t_arc = linspace(0,(2*vel.y)/gravity.y,2000);for k = 1:2000%Updating the ball's position
vel.x = vel.x;vel.y = vel.y - gravity.y*t_arc(k);pos.x = pos.x + vel.x*t_arc(k);pos.y = pos.y + vel.y*t_arc(k) - (1/2)*gravity.y*(t_arc(k).^2);if vel.y < 0 && pos.y < 0vel.y = (-1)*(restitution)*vel.y;vel.x = vel.x + GroundBall_friction*(restitution - 1)*vel.x;endpos.y = max(0, pos.y);clf;%Drawing the frame
subplot(2,1,1)hold online([0 30],[0 0]);rectangle('position', [pos.x pos.y R_Ball R_Ball],'Curvature',[1 1],'FaceColor','r');posxx(count) = pos.x;posyy(count) = pos.y;plot(posxx + 1/2*R_Ball, posyy + 1/2*R_Ball,'b');axis([0 30 0 10]);hold offsubplot(2,1,2)hold onvelyy(count) = vel.y;velxx(count) = vel.x;plot(posxx,velxx,'r','LineWidth',2);plot(posxx,velyy,'b','LineWidth',2);count = count+1;legend('Velocity.X','Velocity.Y');hold offaxis([0 30 -10 10]);%Refresh rate
pause(dt)end
This is my code, I want to export(save) it in an MP4 format so I can play the video for a presentation. I'm unaware how to do so, any help is appreciated.
Best Answer