Subscript[R, 1] = 10
Subscript[R, 2] = 28
Subscript[\[Beta], 1] = 25 \[Degree]
Subscript[\[Beta], 2] = 30 \[Degree]
\[Phi] = 110 \[Degree]
Solve[{Subscript[x, b] = Subscript[R, 1]*Cos[180 \[Degree] - \[Phi]],
Subscript[y, b] = Subscript[R, 1]*Sin[180 \[Degree] - \[Phi]],
Subscript[x, d] =
Subscript[x, b] -
k*Subscript[R, 1]
Cos[180 \[Degree] - \[Phi] - Subscript[\[Beta], 1]],
Subscript[y, d] =
Subscript[y, b] -
k*Subscript[R, 1]
Sin[180 \[Degree] - \[Phi] - Subscript[\[Beta], 1]],
(Subscript[x, c] - Subscript[x, b])^2 + (Subscript[y, c] -
Subscript[y, b])^2 = k^2*Subscript[R, 1]^2,
(Subscript[x, c] - Subscript[x, d])^2 + (Subscript[y, c] -
Subscript[y, d])^2 = k^2*Subscript[R, 1]^2,
Subscript[y,
e] = -(Subscript[R, 2] + Subscript[x, e])*
Tan[Subscript[\[Beta], 2]],
(Subscript[x, e] + Subscript[R, 2])^2 +
Subscript[y,
e]^2 = (Subscript[x, c] - Subscript[x, e])^2 + (Subscript[y, c] -
Subscript[y, e])^2,
Subscript[y, c] =
Subscript[y, d] +
k*Subscript[R, 1]
Sin[\[Phi] + Subscript[\[Beta], 1] - 60 \[Degree]],
k*Subscript[R, 1] +
Subscript[y, d]/
Sin[\[Phi] + Subscript[\[Beta], 1] - 60 \[Degree]] -
Subscript[y, e]/
Sin[\[Phi] + Subscript[\[Beta], 1] - 60 \[Degree]] = -Subscript[
y, e]/Sin[Subscript[\[Beta], 2]]}, {Subscript[x, c], Subscript[y,
c], Subscript[x, e], Subscript[y, e], k}]
Subscript[R, 2] = 28
Subscript[\[Beta], 1] = 25 \[Degree]
Subscript[\[Beta], 2] = 30 \[Degree]
\[Phi] = 110 \[Degree]
Solve[{Subscript[x, b] = Subscript[R, 1]*Cos[180 \[Degree] - \[Phi]],
Subscript[y, b] = Subscript[R, 1]*Sin[180 \[Degree] - \[Phi]],
Subscript[x, d] =
Subscript[x, b] -
k*Subscript[R, 1]
Cos[180 \[Degree] - \[Phi] - Subscript[\[Beta], 1]],
Subscript[y, d] =
Subscript[y, b] -
k*Subscript[R, 1]
Sin[180 \[Degree] - \[Phi] - Subscript[\[Beta], 1]],
(Subscript[x, c] - Subscript[x, b])^2 + (Subscript[y, c] -
Subscript[y, b])^2 = k^2*Subscript[R, 1]^2,
(Subscript[x, c] - Subscript[x, d])^2 + (Subscript[y, c] -
Subscript[y, d])^2 = k^2*Subscript[R, 1]^2,
Subscript[y,
e] = -(Subscript[R, 2] + Subscript[x, e])*
Tan[Subscript[\[Beta], 2]],
(Subscript[x, e] + Subscript[R, 2])^2 +
Subscript[y,
e]^2 = (Subscript[x, c] - Subscript[x, e])^2 + (Subscript[y, c] -
Subscript[y, e])^2,
Subscript[y, c] =
Subscript[y, d] +
k*Subscript[R, 1]
Sin[\[Phi] + Subscript[\[Beta], 1] - 60 \[Degree]],
k*Subscript[R, 1] +
Subscript[y, d]/
Sin[\[Phi] + Subscript[\[Beta], 1] - 60 \[Degree]] -
Subscript[y, e]/
Sin[\[Phi] + Subscript[\[Beta], 1] - 60 \[Degree]] = -Subscript[
y, e]/Sin[Subscript[\[Beta], 2]]}, {Subscript[x, c], Subscript[y,
c], Subscript[x, e], Subscript[y, e], k}]