求教mathematics高手拐角问题中,若两个通道的夹角不是直角而是105度,试问能绕过拐角的梯子的最大长度是多少?用Mathematica编写程序并运行
2019-05-22
求教mathematics高手
拐角问题中,若两个通道的夹角不是直角而是105度,试问能绕过拐角的梯子的最大长度是多少?用Mathematica编写程序并运行
优质解答
代码给你,分给我
L=b/Sin[x]+a/Sin[5Pi/12-x];
dif=D[L,x];
a=1;b=2;
Plot[L,{x,0,1.2}];
Plot[dif,{x,0,1.2}];
FindRoot[dif==0,{x,1}]
{x->0.756351}
F[x_]=L;
F[0.756351]
代码给你,分给我
L=b/Sin[x]+a/Sin[5Pi/12-x];
dif=D[L,x];
a=1;b=2;
Plot[L,{x,0,1.2}];
Plot[dif,{x,0,1.2}];
FindRoot[dif==0,{x,1}]
{x->0.756351}
F[x_]=L;
F[0.756351]