level 10 a_P_x
m = 2;
phi = 2.7;
G = [0;-10*m];
mu_w = 0.25;
F1 = [25;20];
%Eenheidsvector loodrecht
ev_lood = [cos(phi-(0.5*pi)); sin(phi-(0.5*pi))];
%F1 in loodrecht richting door dotproduct
f1_lood = dot(ev_lood,F1);
%G kracht in loodrecht richting door dotproduct
g_lood = -dot(G,ev_lood);
%Totale kracht loodrecht
abs_lood = g_lood - f1_lood
%absolute waarde van Fnormaal
% %wanneer deze negatief is zijn Fn en Fw dus 0
% Fn=[0;0]
% Fw=[0;0]
Fn = abs_lood*ev_lood
%Fwrijving
Fw=-mu_w * abs_lood
%Gebruik hier F = m*a dus: a=F/m
a_c = (Fw+G+F1+Fn)/m
a_P_x = a_c(1)
m = 2;
phi = 2.7;
G = [0;-10*m];
mu_w = 0.25;
F1 = [25;20];
%Eenheidsvector loodrecht
ev_lood = [cos(phi-(0.5*pi)); sin(phi-(0.5*pi))];
%F1 in loodrecht richting door dotproduct
f1_lood = dot(ev_lood,F1);
%G kracht in loodrecht richting door dotproduct
g_lood = -dot(G,ev_lood);
%Totale kracht loodrecht
abs_lood = g_lood - f1_lood
%absolute waarde van Fnormaal
% %wanneer deze negatief is zijn Fn en Fw dus 0
% Fn=[0;0]
% Fw=[0;0]
Fn = abs_lood*ev_lood
%Fwrijving
Fw=-mu_w * abs_lood
%Gebruik hier F = m*a dus: a=F/m
a_c = (Fw+G+F1+Fn)/m
a_P_x = a_c(1)
