|
最大值=ArcCos[Sqrt[（2*（2-Sqrt[31]*Cos[（Pi+ArcTan[（9*Sqrt[302]）/73]）/3]）/3]]；
centerMaxC={（-3*x+x*Cos[2*x]+Sin[2*x]+2*Tan[x]^3）/（-3+
Cos[2*x]），-（（Cos[x]*Cos[2*x]）/（-3+Cos[2*x]）+（3*秒[x]）/
2}/。x->最大值；
rMin=（Sqrt[（7+Cos[4 x]）^3]秒[x]^3）/（Sqrt[2]8（3-Cos[2 x]））/。x->最大值；
显示[Plot[Sec[x]，{x，0-3/2，2}]，
图形[{PointSize[Large]，红色，Point[centerMaxC]，
点[{maxC，Sec[maxC]}]，圆[centerMaxC，rMin]，
行[{centerMaxC，{maxC，Sec[maxC]}}]}]，AspectRatio->Automatic，
绘图范围->{0，2}]
平方英尺[3*30立方英尺[2平方英尺/平方英尺]（平方英尺/平方英尺）/
3]]；（*最大曲率出现在（x，sec x）*）
{N[x，150]，N[秒[x]，150]}
{cx，cy}={（-3*x+x*Cos[2*x]+Sin[2*x]+2*Tan[x]^3）/（-3+Cos[2*x]），-（（Cos[x]*Cos[2*x]）/（-3+Cos[2*x]）+（3*Sec[x]）/2}；（*密切圈中心*）
{N[cx，150]，N[cy，150]}
r=N[Sqrt[（x-cx）^2+（秒[x]-cy）^2]，150]（*曲率半径*）
1/r（*曲率*）
kr=实数[1/r][[1]]
（*彼得J.C.摩西，2020年5月7日*）
| 