梯子长度问题.pptVIP

实验 梯子长度问题;预备知识; 3、绘制平面直线图形元素命令: Graphics[Line[{{x1,y1},{x2,y2}}]] 4、显示产生的图形: Show[%, %%] 5、循环执行命令: 计算1+2+3+…+100, For[sum=0;i=1, i=100, i++, sum=sum+i];问 题 描 述;解题方法;一般性讨论;建立数学模型;程序1;p=Graphics[ { RGBColor[0,0,1], Rectangle[{0,0},{2,3}]}] For [m=100;k=2.01;i=k, k=8, k=k+0.1, len=k/(k-2)*Sqrt[9+(k-2)^2]; If[lenm,m=len;i=k]; Show[Graphics[ Line[ {{k, 0}, {0, 3+6/(k-2)}} ] ],p, Axes-True, PlotRange-{{0,8},{0,8}}]] Print[minL==,(2^(2/3)+3^(2/3))^(3/2)//N, “m==,m, i==,i];程序2;peng=Graphics[{RGBColor[0,0,1], Rectangle[{0,0},{2,3}]}] For[x=0.6;i=x;long0=100,xPi/2,x+=0.04, x0=2+3/Tan[x]; y0=3+2*Tan[x]; long=Sqrt[x0*x0+y0*y0]; ti=Graphics[{RGBColor[1,0,0], Line[{{0,y0},{x0,0}}]}]; Show[peng,ti,Axes-True,AspectRatio-1, PlotRange-{{0,8},{0,8}}]; If[longlong0,long0=long;i=x]; Print[Long==,long]] Print[shortest length==,long0, i==,i 180/Pi];实 验 内 容;1、最困难的事就是认识自己。20.6.286.28.202020:1120:11:15Jun-2020:112、自知之明是最难得的知识。二〇二〇年六月二十八日2020年6月28日星期日3、越是无能的人，越喜欢挑剔别人。20:116.28.202020:116.28.202020:1120:11:156.28.202020:116.28.20204、与肝胆人共事，无字句处读书。6.28.20206.28.202020:1120:1120:11:1520:11:155、三军可夺帅也。Sunday, June 28, 2020June 20Sunday, June 28, 20206/28/20206、最大的骄傲于最大的自卑都表示心灵的最软弱无力。8时11分8时11分28-Jun-206.28.20207、人生就是学校。20.6.2820.6.2820.6.28。2020年6月28日星期日二〇二〇年六月二十八日8、你让爱生命吗，那么不要浪费时间。20:1120:11:156.28.2020Sunday, June 28, 2020;9、 人的价值，在招收诱惑的一瞬间被决定。*** 10、低头要有勇气，抬头要有低气。**** 11、人总是珍惜为得到。***** 12、人乱于心，不宽余请。**** 13、生气是拿别人做错的事来惩罚自己。***** 14、抱最大的希望，作最大的努力。**** 15、一个人炫耀什么，说明他内心缺少什么。。***** 16、业余生活要有意义，不要越轨。*** 17、一个人即使已登上顶峰，也仍要自强不息。****