p=Graphics[( rGbcolor[ 0,0, 1] Rectangle 0,05, 2, 31 For[m=100;k=2.01;i=k, k<=8,k=k+0.1, len=k/(k-2)Sqrt 9+(k-2)21 Iflen<m, m=len; i=k; Show graphics linel &k, 0, {0,3+6/(k-2)}l,p, Axes->True, PlotRange-> 0, 8, 0, 899 Print"minL=",(2^(23)+3^(2/3))^3/2)/N, =",m,"i=",9 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[len<m,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]