Level 10 aba_a_langs
% level 10 aba_a_langs
m = 1;
phi = 2.6;
G = [0;-10*m];
mu_w = 0.75;
F1 = [15;25];
abs_v=2;
v=abs_v*[cos(phi);sin(phi)];
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
%eenheidsvector helling
ev_helling = [cos(phi);sin(phi)]
%dotproduct van a en de ev helling
a_langs = dot (ev_helling, a_c)
abs_a_langs = abs(dot (ev_helling, a_c))
% level 10 aba_a_langs
m = 1;
phi = 2.6;
G = [0;-10*m];
mu_w = 0.75;
F1 = [15;25];
abs_v=2;
v=abs_v*[cos(phi);sin(phi)];
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
%eenheidsvector helling
ev_helling = [cos(phi);sin(phi)]
%dotproduct van a en de ev helling
a_langs = dot (ev_helling, a_c)
abs_a_langs = abs(dot (ev_helling, a_c))
