Sakrij točke

Mjerenje

v - t graf

a - t graf

x - t graf

R = (1.25, 1)
t = 0 (slider from 0 to 6, step 1.0E-4)
stocke = false
h = If(0 ≤ x ≤ 3, Function[-0.5 * x^(2) + 3 * x, 0, 3], If[3 < x ≤ 6, Function[0.5 * x^(2) - 3 * x + 9, 3, 6]])
O: (h(t), -2)
D = (6.75, 9)
E = (6.75, 3.25)
G = (13, 3.25)
H = (13, 9)
mnogokut1, d, e, g_1, h_1 = Polygon(D, E, G, H)
v = Derivative(h)
tekst1 = Text("t = " + t + " s")
A: (0, y(O))
p(x) = -2
chkmjerenje = false
S: (x(R), y(R) - 0.5)
Q: (x(R) - 0.5, y(R))
T: (x(Q), y(Q) - 0.5)
mnogokut3, q, r, s, t_1 = Polygon(Q, R, S, T)
U: (x(R) - 0.25, y(R) - 0.25)
tekst3 = Text(x(U) + " m")
B: (x(U) + 0.5, y(U))
K: (x(U) - 0.5, y(U))
L: (x(R), y(R) - 0.25)
a = Segment(B, L)
M: (x(Q), y(Q) - 0.25)
b = Segment(K, M)
acc = Derivative(v)
polozaj = Sequence((h(i), -2), i, 0, t, 1)
nt1 = Sequence((Cell[1, i], Cell[2, i]), i, 1, 4)
nt2 = Sequence((Cell[1, i], Cell[2, i]), i, 4, 7)
c = false
g = false
tekst2 = Text("x = -0.5 t² + 3t; 0 s ≤ t ≤ 3 s")
tekst4 = Text("x = 0.5 t² - 3t +9; 3 s ≤ t ≤ 6 s")
tekst6 = Text("v = -t +3; 0 s ≤ t ≤ 3 s")
tekst5 = Text("v = t -3; 3 s ≤ t ≤ 6 s")
i = false
tekst7 = Text("a = -1; 0 s ≤ t ≤ 3 s")
tekst8 = Text("a = 1; 3 s ≤ t ≤ 6 s")
f = If(0 ≤ x ≤ 3, FitPoly[nt1, 2], If[3 < x ≤ 6, FitPoly[nt2, 2]])