|
|
从简单想起。——主帖是5。
1,FindRoot[Sin[x \[Pi]/180] == Cos[x \[Pi]/180], {x, 1}, WorkingPrecision -> 50]
{x -> 45.000000000000000000000000000000000000000000000000}
2, FindRoot[Sin[x \[Pi]/90] == Cos[x \[Pi]/360], {x, 1}, WorkingPrecision -> 50]
{x -> 36.000000000000000000000000000000000000000000000000}
3, FindRoot[Sin[x \[Pi]/90] == Cos[x \[Pi]/180], {x, 1}, WorkingPrecision -> 50]
{x -> 30.000000000000000000000000000000000000000000000000}
4, FindRoot[Cos[x \[Pi]/180] == x \[Pi]/180, {x, 1}, WorkingPrecision -> 50]
{x -> 42.346458834092919049353117798177004581194609109322}
5, FindRoot[Cos[x] == x, {x, 1}, WorkingPrecision -> 50]
{x -> 0.73908513321516064165531208767387340401341175890076}
6, Table[FindRoot[Cos[x] == x^a, {x, 1}, WorkingPrecision -> 10], {a, 1, 9}]
{{x -> 0.7390851334}, {x -> 0.8241323123}, {x -> 0.8654740331}, {x -> 0.8905527097}, {x -> 0.9075503268}, {x -> 0.9198873738}, {x -> 0.9292731041}, {x -> 0.9366645000}, {x -> 0.9426418819}}
7, Table[FindRoot[Sin[x] == x^a, {x, 1}, WorkingPrecision -> 10], {a, 1, 9}]
{x -> 0.00002561146334}, {x -> 0.8767262154}, {x -> 0.9286263087}, {x -> 0.9496166887}, {x -> 0.9610369436}, {x -> 0.9682278181}, {x -> 0.9731746200}, {x -> 0.9767870435}, {x -> 0.9795412514}}
8, Table[FindRoot[Sin[x] == x^a, {x, 0}, WorkingPrecision -> 10], {a, 1, 9}]
{{x -> 0}, {x -> 0}, {x -> 0}, {x -> 0}, {x -> 0}, {x -> 0}, {x -> 0}, {x -> 0}, {x -> 0}} |
|