Koordinatensystem anzeigen

Winkel

\frac{F s}{N m}

π

α

0

N

S

zum löschen Strg-F drücken

A = (-5, 5)
B = (5, 5)
C = (5, 7)
D = (-5, 7)
poly1, a, b, c, d = Polygon(A, B, C, D)
E = (-5, -7)
F = (5, -7)
G = (5, -5)
H = (-5, -5)
poly2, e, f, g, h = Polygon(E, F, G, H)
O = Intersect(xAxis, yAxis)
k = Circle(O, 2)
Drehung = Point(k)
I' = Mirror(Drehung, O)
p = Circle(Drehung, 0.3)
q = Circle(I', 0.3)
i: y = x - x(I') + y(I')
j: y = -(x - x(I')) + y(I')
J, K = Intersect(q, i)
L, M = Intersect(q, j)
l = Segment(J, K)
m = Segment(L, M)
N_1 = (6.942767718867869, -7.400625967924922)
P = (6.942767718867869, 6.599374032075078)
n = Segment(Drehung, I')
r = OrthogonalLine(O, n)
s = Circle(O, 0.3)
S_1, T = Intersect(s, n)
U, V = Intersect(k, r)
poly3, s_1, u_1, t = Polygon(U, T, S_1)
poly4, s_2, v_1, t_1 = Polygon(V, T, S_1)
b_1 = OrthogonalLine(Drehung, yAxis)
c_1 = OrthogonalLine(U, xAxis)
I = Intersect(b_1, yAxis)
I'_1 = Mirror(I, O)
W = Intersect(xAxis, c_1)
W' = Mirror(W, O)
d_1 = Segment(O, I)
e_1 = Segment(O, I'_1)
f_1 = Segment(O, W)
g_1 = Segment(O, W')
O_g = (7, 0)
Q: (x(O_g), y(O_g) - 7)
R: (x(O_g), y(O_g) + 7)
Z: (x(O_g) + 7, y(O_g))
u = Vector(Q, R)
v = Vector(O_g, Z)
a_1 = Segment(O_g, (x(R), y(R) / 2))
Stärke = Point(a_1)
w = Vector(O_g, Stärke)
w' = Rotate(w, 270°)
D' = Translate(Drehung, w')
z = Vector(Drehung, D')
I'' = Translate(I', Vector[-w'])
w_1 = Vector(I', I'')
I'_2 = Translate(I, w')
A_1 = Translate(I'_1, Vector[-w'])
h_1 = Segment(I, Drehung)
i_1 = Segment(I'_1, I')
U' = Translate(U, w)
V' = Translate(V, Vector[-w])
W'_1 = Translate(W, w)
W'' = Translate(W', Vector[-w])
z_1 = Vector(U, U')
j_1 = Segment(W, U)
k_1 = Segment(W', V)
l_1 = Vector(V, V')
Probemagnet = true
Spule = false
Koordinatensystem = true
Vektor = true
Hebel = true
B_1 = (2, 0)
α = Angle(B_1, O, Drehung)
C_1: (x(O_g) + α + 0.03, Length[w] y(I))
winkel = true
m_1 = Vector(A, H)
bfeldvektor = false
D_1: (x(O_g) + α - 0.03, Length[w] y(I))
E_1: (x(O_g) + α, Length[w] abs(y(I)))
graph_e = false
F_1: (x(O_g) + α + 0.03, If[y(I) ≥ 0, Length[w] y(I), 0])
graph_f = false