Mathematica解方程,方程如下,求未知数v.

Mathematica解方程,方程如下,求未知数v.
4.0737764977384675`*^-6 (0.027212939999999998` + v^2/2) == (
*SubsuperscriptBox[([Integral]),(0),
(0.00277)]((-0.0003537282531494735`)
*SqrtBox[(1 - 1.8765246762994938`*^6
*SuperscriptBox[(((-0.00073`) + ((1 -
170.75854741395668` x)) x)),(2)])] Sin[
ArcCos[1369.8630136986303` (((-0.00073`) + ((1 -
170.75854741395668` x)) x))] +
*FractionBox[(1),(180)] [Pi]
*SuperscriptBox[((2.187876863322191` v ((1 -
720.980533525595` x + 129953.23243071287`
*SuperscriptBox[(x),(2)])) +
*SuperscriptBox[(ArcCos[
0.006283143965559066` -
0.10493594398340247` ArcSinh[
500 vc ((1 - 720.980533525595` x +
129953.23243071287`
*SuperscriptBox[(x),(2)]))]]),(3)])),(1/
3)]] [DifferentialD]x))
不好意思,提问时方程写错了,所有的vc都是v,方程中只有一个未知数v,怎样解出v?
4.0737764977384675`*^-6 (0.027212939999999998` + v^2/2) == (
*SubsuperscriptBox[([Integral]),(0),
(0.00277)]((-0.0003537282531494735`)
*SqrtBox[(1 - 1.8765246762994938`*^6
*SuperscriptBox[(((-0.00073`) + ((1 -
170.75854741395668` x)) x)),(2)])] Sin[
ArcCos[1369.8630136986303` (((-0.00073`) + ((1 -
170.75854741395668` x)) x))] +
*FractionBox[(1),(180)] [Pi]
*SuperscriptBox[((2.187876863322191` v ((1 -
720.980533525595` x + 129953.23243071287`
*SuperscriptBox[(x),(2)])) +
*SuperscriptBox[(ArcCos[
0.006283143965559066` -
0.10493594398340247` ArcSinh[
500 v ((1 - 720.980533525595` x +
129953.23243071287`
*SuperscriptBox[(x),(2)]))]]),(3)])),(1/
3)]] [DifferentialD]x))