α

Wurf

f(

Zeige die Weite

Funktion

h = 1.78 (slider from 0 to 2, step 0.01)
c: h
v0 = 27.5 (slider from 0 to 30, step 0.1)
α = 0.7330382858376183 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
a: (-0.5 * 10 / ((v0 * cos(α)))^(2))
b: tan(α)
f(x) = (a * x^(2)) + (b * x) + c
L = Solve(f(x) = 0)
x0 = 0 (slider from -5 to 5)
A, B = Root(f)
x1: x(B)
g(x) = If[x0 ≤ x ≤ x1, f(x)]
C = Extremum(f)
Text1: "f(x) = " + f + ""
i = Segment((0, h), (1, h))
m: f'(0)
k = Segment((0, h), (1, h + m))
β = Angle(i, k)
d = Circle((0, h), 1)
D = Intersect(d, k)
j = Segment((0, h), D)
E = Intersect(k, j)
Z = 1 (slider from -5 to 5)
e: f(40)
r: random()
t = 0 (slider from 0 to 77.13, step 0.1)
H: (t, f(t))
N = Sequence(Intersect[Element[L, i], xAxis], i, 1, Length[L])
W = Element(N, 2)
w: x(W)
xWert = 0 (slider from -5 to 100)
Eingabefeld1 = Textfield(xWert)
yWert: f(xWert)
Text3: ") = " + yWert + ""
Text4: "" + w + ""
l = false