change data plotting of falling_sphere_two_way_coupling case

simply plot particle's omega-z and pos-y of actual case instead of
comparing omega-z of actual case to a case without torque coupling
(requiring a 2nd simulation with modified setup)
This commit is contained in:
danielque
2023-01-10 12:23:29 +01:00
parent 29410326d1
commit 4283ff09e7

View File

@ -1,33 +1,39 @@
clear all; clear all;
clc; clc;
%% Script to plot the angular velocities and the particle positions % plot the angular velocity and the particle position
A = importdata('../../DEM/post/angular_velocity_no_coupling.txt',' ',1); A = importdata('../../DEM/post/angular_velocity.txt',' ',1);
B = importdata('../../DEM/post/position_no_coupling.txt',' ',1); B = importdata('../../DEM/post/position.txt',' ',1);
C = importdata('../../DEM/post/angular_velocity.txt',' ',1);
D = importdata('../../DEM/post/position.txt',' ',1);
pos1 = B.data(); omega = A.data();
omega1 = A.data(); pos = B.data();
pos2 = D.data();
omega2 = C.data();
time = omega1(:,1); time1 = omega(:,1);
omegax1 = omega1(:,2); omegax = omega(:,2);
omegay1 = omega1(:,3); omegay = omega(:,3);
omegaz1 = omega1(:,4); omegaz = omega(:,4);
time2 = omega2(:,1); time2 = pos(:,1);
omegax2 = omega2(:,2); posx = pos(:,2);
omegay2 = omega2(:,3); posy = pos(:,3);
omegaz2 = omega2(:,4); posz = pos(:,4);
figure figure(1)
plot(time,omegaz1,'-.-',time2,omegaz2,'Linewidth',1.5) plot(time1,omegaz,'-.-','Linewidth',1.5)
xlabel('Time (s)') xlabel('Time (s)')
ylabel('Angular velocity (1/s)') ylabel('Angular velocity (1/s)')
legend('One-way coupling','Two-way coupling') legend('Two-way torque coupling')
axis([0 0.5 0 11]) axis([0 0.5 0 11])
set(gca,'FontSize',12) set(gca,'FontSize',12)
print('angular_velocity_compare.eps') print('angular_velocity.eps')
figure(2)
plot(time2,posy,'-.-','Linewidth',1.5)
xlabel('Time (s)')
ylabel('Y-position (m)')
legend('Two-way torque coupling')
axis([0 0.5 0 0.1])
set(gca,'FontSize',12)
print('position.eps')