eq1 := A = m*g/2/Pi/J/omega;

NiM+SSRlcTFHNiIvSSJBR0YlLCQqLEkibUdGJSIiIkkiZ0dGJUYrSSNQaUdJKnByb3RlY3RlZEdGLiEiIkkiSkdGJUYvSSZvbWVnYUdGJUYvI0YrIiIj

(c) Yury V. Zaytsev, http://zaytsev.net , 2005-2006eq2 := B = m*g*(a+b)/2/Pi/J/omega;

NiM+SSRlcTJHNiIvSSJCR0YlLCQqLkkibUdGJSIiIkkiZ0dGJUYrLCZJImFHRiVGK0kiYkdGJUYrRitJI1BpR0kqcHJvdGVjdGVkR0YxISIiSSJKR0YlRjJJJm9tZWdhR0YlRjIjRisiIiM=

eqns := {eq1, eq2};

NiM+SSVlcW5zRzYiPCQvSSJCR0YlLCQqLkkibUdGJSIiIkkiZ0dGJUYsLCZJImFHRiVGLEkiYkdGJUYsRixJI1BpR0kqcHJvdGVjdGVkR0YyISIiSSJKR0YlRjNJJm9tZWdhR0YlRjMjRiwiIiMvSSJBR0YlLCQqLEYrRixGLUYsRjFGM0Y0RjNGNUYzRjY=

solve(eqns, {J, omega});J := m*g/2/Pi/omega*sqrt((a+b)/A/B);

NiM+SSJKRzYiLCQqLEkibUdGJSIiIkkiZ0dGJUYpSSNQaUdJKnByb3RlY3RlZEdGLCEiIkkmb21lZ2FHRiVGLSooLCZJImFHRiVGKUkiYkdGJUYpRilJIkFHRiVGLUkiQkdGJUYtI0YpIiIjRjU=

subs(m= 208, g=980, omega = 45.5 *2*Pi, A = 0.009, B = 0.07328, a = 6, b= 1,J);

NiMsJCokSSNQaUdJKnByb3RlY3RlZEdGJiEiIyQiK1EpZlE6IiEiJQ==

evalf(%);

NiMkIitYVzVwNiEiJg==

subs(m= 208, g=980, omega = 55 *2*Pi, A = 0.00701, B = 0.06341, a = 6, b= 1,J);

NiMsJCokSSNQaUdJKnByb3RlY3RlZEdGJiEiIyQiKyZHRkY7IiEiJQ==

evalf(%);

NiMkIitaISozeTYhIiY=

omg := T*m*g*OA/2/Pi/Jt;

NiM+SSRvbWdHNiIsJCouSSJUR0YlIiIiSSJtR0YlRilJImdHRiVGKUkjT0FHRiVGKUkjUGlHSSpwcm90ZWN0ZWRHRi4hIiJJI0p0R0YlRi8jRikiIiM=

subs(m= 208, g=980, OA = 16, Jt = 12172, T = 6.65, omg);

NiMsJCokSSNQaUdJKnByb3RlY3RlZEdGJiEiIiQiKz4hMyM0KikhIig=

evalf(%/2/Pi);

NiMkIiszdlg4WCEiKQ==

subs(m= 208, g=980, OA = 16, Jt = 12172, T=8.14444, omg);

NiMsJCokSSNQaUdJKnByb3RlY3RlZEdGJiEiIiQiKyJcTjY0IiEiJw==

evalf(%/2/Pi);

NiMkIitycHZGYiEiKQ==