Level 10 versnelling op helling met wrijvingskracht
% level 10 aba_a_langs
m = 4;
phi = 0.1;
G = [0;-10*m];
mu_w = 0.75;
F1 = [15;-15];
abs_v=2;
v=abs_v*[cos(phi);sin(phi)];
%Wanneer +0.5 pi en wanneer -0.5pi ???
ev_lood = [cos(phi-(0.5*pi)); sin(phi-(0.5*pi))]
g_flood = -dot(G,ev_lood);
f1_lood = dot(ev_lood,F1);
abs_lood = g_flood - f1_lood
%positief? negatief?-> 0
%Fnormaal % waarom niet loodrecht totaal in de min
Fn = abs_lood*ev_lood
%Fwrijving
Fw=-mu_w * abs_lood * (v/abs_v)
%versnelling a
a_c = (Fw+G+F1+Fn)/m
abs_a_P=norm(a_c)
% level 10 aba_a_langs
m = 4;
phi = 0.1;
G = [0;-10*m];
mu_w = 0.75;
F1 = [15;-15];
abs_v=2;
v=abs_v*[cos(phi);sin(phi)];
%Wanneer +0.5 pi en wanneer -0.5pi ???
ev_lood = [cos(phi-(0.5*pi)); sin(phi-(0.5*pi))]
g_flood = -dot(G,ev_lood);
f1_lood = dot(ev_lood,F1);
abs_lood = g_flood - f1_lood
%positief? negatief?-> 0
%Fnormaal % waarom niet loodrecht totaal in de min
Fn = abs_lood*ev_lood
%Fwrijving
Fw=-mu_w * abs_lood * (v/abs_v)
%versnelling a
a_c = (Fw+G+F1+Fn)/m
abs_a_P=norm(a_c)
