最大值=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}]
x=ArcCos[Sqrt[(2*(2-Sqrt[31]*Cos[(Pi+ArcTan[(9*Sqrt[302])/73])/3]))/
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日*)
|