a = 1 (slider from 0.1 to 1, step 0.0010)
B = 1.455 (slider from 0 to 1.5, step 0.0010)
φ = -0.9326603190344698 (slider from -3.141592653589793 to 3.141592653589793, step 0.02454369260617026)
A = Intersect(xAxis, yAxis)
A1: A + (a, 0.0)
gold = 0.6180339887498949
A2: A + ((1.0 - gold) * a, gold * a)
A3: A2 + (a, 0.0)
Ω, a_2, a_3, a_1, a_4 = Polygon(A2, A3, A1, A)
b = Segment(A2, A1)
c = Segment(A3, A)
C = Intersect(b, c)
D = Midpoint(A2, C)
E = Midpoint(A3, C)
F = Midpoint(A1, C)
G = Midpoint(A, C)
C1: C + (0.0, a^(2.0))
S = Vector(C, C1)
B_1: C + (B; φ + 3.141592653589793 / 2.0 * rad)
B_2: D + (B; φ + 3.141592653589793 / 2.0 * rad)
B_3: E + (B; φ + 3.141592653589793 / 2.0 * rad)
B_4: F + (B; φ + 3.141592653589793 / 2.0 * rad)
B_5: G + (B; φ + 3.141592653589793 / 2.0 * rad)
b_5 = Vector(G, B_5)
b_1 = Vector(C, B_1)
b_4 = Vector(F, B_4)
b_3 = Vector(E, B_3)
b_2 = Vector(D, B_2)
Φ: B * Length[S] * cos(φ)
P1: C + ((1.0 - gold) * a, gold * a) / 10.0
P2: C + (0.0, gold * a) / 10.0
P3: P2 + ((1.0 - gold) * a, gold * a) / 10.0
angle_1, p2, p3, p1, c_1 = Polygon(P2, P3, P1, C)
P5: C - (a * gold / 10.0, 0.0)
P6: C + (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * a / 10.0 * gold, a / 10.0 * gold)
angle_2, p5, p6, p2_1, c_2 = Polygon(P5, P6, P2, C)
β = Angle(C1, C, B_1)
l = Segment(E, B_3)
m = Segment(D, B_2)
n = Segment(C, B_1)
p = Segment(F, B_4)
q = Segment(G, B_5)
B_3r = Intersect(l, a_3)
B_2r = Intersect(m, a_3)
B_1r = Intersect(n, a_3)
B_4r = Intersect(p, a_3)
B_5r = Intersect(q, a_3)
B_3l = Intersect(a_4, l)
B_2l = Intersect(m, a_4)
B_1l = Intersect(n, a_4)
B_4l = Intersect(p, a_4)
B_5l = Intersect(q, a_4)
R = Intersect(a_1, xAxis)
T = Intersect(a_1, xAxis)
B_4D = Intersect(p, a_1)
B_3d = Intersect(l, a_1)
B_1d = Intersect(n, a_1)
B_2d = Intersect(m, a_1)
B_5d = Intersect(q, a_1)
γ = Angle(B_1, C, C1)
d = Segment(B_5d, B_5)
e = Segment(B_2d, B_2)
f = Segment(B_1d, B_1)
g = Segment(B_4D, B_4)
h = Segment(B_3d, B_3)
i = Segment(B_3l, B_3)
j = Segment(B_2l, B_2)
k = Segment(B_1l, B_1)
r = Segment(B_4l, B_4)
s = Segment(B_5l, B_5)
t = Segment(B_5r, B_5)
d_1 = Segment(B_4, B_4r)
e_1 = Segment(B_1r, B_1)
f_1 = Segment(B_2r, B_2)
g_1 = Segment(B_3, B_3r)
h_1 = Segment(B_2, D)
i_1 = Segment(B_5, G)
j_1 = Segment(B_1, C)
k_1 = Segment(B_3, E)
l_1 = Segment(B_4, F)
H = Midpoint(a_2)
I = Midpoint(a_4)
J = Midpoint(a_1)
K = Midpoint(a_3)
u = Vector(A3, H)
v = Vector(A2, I)
w = Vector(A, J)
z = Vector(A1, K)
расстояниеC1D = Distance(C1, D)
m_1 = Line(C, B_1)
L = Point(m_1)
n_1 = Segment(B_1, L)
надпись2: "|\vec B|\, =\," + B + "\,Тл"
надпись1: "|\vec S|\, =\," + (Length[S]) + "м^2"
надпись3: "Φ_{\vec B} \,\, = \, |\vec B|\cdot  |\vec S|\cdot  \cos (φ) \, = \, " + Φ + "\,Вб"