mg

K

F_e

Értékek

100N

talaj: xAxis
A = Point(talaj)
α = 0.3490658503988659 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
P: A + (50.0, 0.0)
P' = Rotate(P, α, A)
l = Ray(A, P')
β = Angle(talaj, l)
N_1 = Point(l)
A' = Mirror(A, N_1)
lfel = Ray(N_1, A')
c = Circle(N_1, 50.0)
N_2 = Intersect(c, lfel)
poligon1, n_1, n_2, n_3, n_4, N_3, N_4 = Polygon(N_1, N_2, 4.0)
Kp = Midpoint(N_1, N_3)
m = 30 (slider from 0 to 50, step 0.1)
szöveg0: "m=" + m + "kg"
g = 10
mg = Vector((0.0, 0.0), (0.0, -(m * g)))
Kp' = Translate(Kp, mg)
mgt = Vector(Kp, Kp')
lm = OrthogonalLine(Kp, l)
lp = Line(Kp, l)
lps = Line(Kp', lp)
Ks = Intersect(lps, lm)
K = Mirror(Ks, Kp)
k = Vector(Kp, K)
lms = Line(Kp', lm)
E = Intersect(lp, lms)
e = Vector(Kp, E)
s1 = Segment(K, E)
s2 = Segment(E, Kp')
γ = Angle(E, K, Kp)
δ = Angle(E, Kp', Kp)
szöveg1: "mg=" + (Length[mg]) + "N"
szöveg2: "K=" + (Length[k]) + "N"
szöveg3: "F_e=" + (Length[e]) + "N"
a = true
B = (739.0007999787837, 454.08046617438373)
C = Point(Circle[B, 10.0 * g])
b = Segment(B, C)