（*内容类型：application/vnd.wolfram.mathematica*）（***Wolfram笔记本文件***）(* http://www.wolfram.com/nb *)（*CreatedBy='Mathematica 9.0'*）（*CacheID:234*）（*内部缓存信息：笔记本文件断线测试笔记本文件断线测试笔记本数据位置[157，7]笔记本数据长度[13441，448]笔记本选项位置[12523411]笔记本大纲位置[12876，427]单元格标签索引位置[12833，424]窗口框架->正常*）（*笔记本内容开头*）笔记本[{单元格[CellGroupData[{单元格[“帐篷问题”，“标题”]，单元格[CellGroupData[{单元格[“作者”，“小节”]，单元格[“\<\埃里克·韦斯特因2003年1月19日\\>“，”文本“]，单元格[TextData[{“此笔记本下载自”，按钮框[“http://mathworld.wolfram.com/notebooks/PlaneGeometry/TentProblem。\编号“，BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/notebooks/PlaneGeometry/TentProblem.nb"]\，无}]，"."}]，“文本”]，单元格[TextData[{“有关更多信息，请参阅埃里克的”，StyleBox[“数学世界”，字体倾斜->“斜体”]，“条目”，按钮框[“http://mathworld.wolfram.com/TentProblem.html",BaseStyle->“超链接”，按钮数据：>{URL[“http://mathworld.wolfram.com/TentProblem.html“]，无}]，"."}]，“文本”]，单元格[“\<\\[版权所有]2005 Wolfram Research，Inc.，除非另有说明\\>“，”文本“]}，打开]]，单元格[CellGroupData[{单元格[“代码”，“小节”]，单元格[BoxData[行框[{RowBox[｛“TentProblem”，“：：”，“用法”｝]，“=”，"\"\\“”}]]，“输入”]，单元格[BoxData[行框[{行框[{“TentProblem”，“[”，行框[{“h_List”，“，”，“t_List”，行框[{“模块”，“[”，行框[{行框[{“{”，行框[{行框[{“f”，“=”，行框[{“{”，行框[{行框[{“{”，RowBox[｛“0”，“，”，“0”｝]，“｝”｝]，“，”，行框[{“{”，RowBox[｛“1”，“，”，“0”｝]，“｝”｝]｝]，“｝”｝]｝]，“，”，“a1”，“，”，“a2”，“，”，“ha1”，“，”，行框[{“w”，“=”，“.2”}]}，“}”}]，“，”，行框[{行框[{“a1”，“=”，行框[{行框[{“2”，行框[{行框[{“垂直线”，“[”，行框[{“t”、“，”、“r”}]、“]”}]，“[”，行框[{“[”，“1”，“]”}]，“]“}]}]，”-“，”t“}]{]，“；”，“\[IndentingNewLine]”，行框[{“a2”，“=”，行框[{行框[{“2”，行框[{行框[{“垂直线”，“[”，行框[{“a1”、“，”、“f”}]、“]”}]，“[”，行框[{“[”，“1”，“]”}]，“]“}]}]，”-“，”a1“}]{]，“；”，“\[IndentingNewLine]”，行框[{“ha2”，“=”，行框[{“LineLineIntersection”，“[”，行框[{“f”，“，”，行框[{“{”，行框[{“h”、“，”、“a2”}]、“}”}]]、“]”}]}]，“；”，“\[IndentingNewLine]”，行框[{“ha1”，“=”，行框[{“LineLineIntersection”，“[”，行框[{“r”，“，”，行框[{“{”，行框[{“ha2”，“，”，“a1”}]，“}”}]}，“]”}]]，“；”，“\[IndentingNewLine]”，行框[{“dr”，“=”，行框[{RowBox[｛“r”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”-“，行框[{“r”，“[”，行框[{“[”，“1”，“]”}]，“]“}]}]}]，”；“，”\[IndentingNewLine]“，行框[{“显示”，“[”，行框[{行框[{“图形”，“[”，行框[{“{”，行框[{行框[{“{”，行框[{行框[{“灰度级”，“[”，“.7”，“]”}]，“，”，行框[{“多边形”，“[”，行框[{“{”，行框[{行框[{“r”，“[”，行框[{“[”，“1”，“]”}]，“]“}]，”，“，”，行框[{“r”，“[”，RowBox[｛“[”，“2”，“]”｝]，“]”｝]，“，”，行框[{行框[{“r”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”+“，行框[{“w”，行框[{“{”，行框[{RowBox[｛“dr”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”，“，”，行框[{“-”，行框[{“dr”，“[”，行框[{“[”，“1”，“]“}]，”]“}]}]}]，“}”}]}]，“，”，行框[{行框[{“r”，“[”，行框[{“[”，“1”，“]”}]，“]“}]，”+“，行框[{“w”，行框[{“{”，行框[{行框[{“dr”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”，“，”，行框[{“-”，行框[{“dr”，“[”，行框[{“[”，“1”，“]”}]，“]“}]}]}]，”}“}]]}]]，“}”}]，"]"}]}], "}"}], ",", 行框[{“{”，行框[{行框[{“灰度级”，“[”，“.85”，“]”}]，“，”，行框[{“多边形”，“[”，行框[{“{”，行框[{行框[{“{”，RowBox[｛“0”，“，”，“0”｝]，“｝”｝]，“，”，行框[{“{”，行框[{“1”、“，”、“0”}]、“}”}]，“，”，行框[{“{”，行框[{“1”、“，”、“2”}]、“}”}]，“，”，行框[{“{”，行框[{“0”，“，”，“2”}]，“}”}]]，“{”}]，行框[{“行”，“[”，“f”，“]”}]，“，”，行框[{“行”，“[”，“r”，“]”}]，“，”，行框[{“行”，“[”，行框[{“{”，行框[{行框[{行框[{“r”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”+“，行框[{“w”，行框[{“{”，行框[{行框[{“dr”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”，“，”，行框[{“-”，行框[{“dr”，“[”，RowBox[｛“[”，“1”，“]”｝]，“]”｝]｝]｝]，“｝”｝]｝]｝]，“，”，行框[{行框[{“r”，“[”，行框[{“[”，“1”，“]”}]，“]“}]，”+“，行框[{“w”，行框[{“{”，行框[{行框[{“dr”，“[”，行框[{“[”，“2”，“]”}]，“]“}]，”，“，”，行框[{“-”，行框[{“dr”，“[”，行框[{“[”，“1”，“]”}]，“]“}]}]}]，”}“}]]}]]，“}”}]，"]"}], ",", 行框[{“{”，行框[{行框[{“虚线”，“[”，行框[{“{”，行框[{“0.02”，“，”，“.02”}]，“}”}]，行框[{“行”，“[”，行框[{“{”，RowBox[｛“t”，“，”，“a1”｝]，“｝”｝]，“]”｝]，“，”，行框[{“行”，“[”，行框[{“{”，行框[{“a1”，“，”，“a2”}]，“}”}]，行框[{“行”，“[”，行框[{“{”，RowBox[｛“h”，“，”，“a2”｝]，“｝”｝]，“]”｝]｝]，“｝”｝]，“，”，行框[{“{”，行框[{行框[{“厚度”，“[”，“.015”，“]”}]，“，”，行框[{“行”，“[”，行框[{“{”，行框[{“h”，“，”，“ha2”，“，"}"}], ",", 行框[{“{”，行框[{行框[{“PointSize”，“[”，“.04”，“]”}]，“，”，行框[{“点”，“[”，“t”，“]”}]，“，”，行框[{“点”，“[”，“a1”，“]”}]，“，”，行框[{“点”，“[”，“a2”，“]”}]，“，”，行框[{“点”，“[”，“h”，“]”}]，“，”，行框[{“点”，“[”，“ha1”，“]”}]，“，”，行框[{“点”，“[”，“ha2”，“]”}]}]，“}”}]]，“{“}]，”]“}]”，“，”，“选项”，“，”，行框[{“纵横比”，“\[Rule]”，“自动”}]}]，“]”}]]}]，“]”}]}]]，“输入”]}，打开]]，单元格[CellGroupData[{单元格[“图形”，“节”]，单元格[CellGroupData[{单元格[BoxData[行框[{“TentProblem”，“[”，行框[{行框[{“{”，行框[{“0”，“，”，行框[{“-”，“.2”}]}]，“}”}]，”，“，”，行框[{“{”，行框[{“.6”，“，”，行框[{“-”，“.1”}]}]，“}”}]，”，“，”，行框[{“{”，行框[{行框[{“{”，行框[{“0”，“，”，行框[{“-”，“1”}]}]，“}”}]，”，“，”，行框[{“{”，行框[{“1”、“，”、“0”}]、“}”}]]、“{”}]，“，”，“\n”，行框[{“PlotRange”，“->”，行框[{“{”，行框[{行框[{“{”，行框[{行框[{“-”，“.1”}]，“，”，“1”}]，行框[{“{”，行框[{行框[{“-”，“.7”}]，“，”，“.5”}]，单元格[GraphicsData[“PostScript”，“\<\%!%%创建者：Mathematica%%纵横比：1.09091数学图片开始/梅布{Mgmatrix id转换矩阵数据转换}绑定定义/Mabsadd{标记3-1卷添加3 1卷添加exch}绑定定义%%图形%%IncludeResource:font Courier（包含资源）%%IncludeFont:快递/Courier findfont 10 scalefont setfont%缩放计算0.0909091 0.909091 0.636364 0.909091 [[ 0 0 0 0 ][ 1 1.09091 0 0 ]]数学刻度%图形开始1个设置线帽1个setlinejoin新路径0 0米10升1 1.09091升0 1.09091升封闭通道削减新路径.7克.09091至0.27273米1.63636升1.18182.45455升.27273-0.45455升F类0.85克.09091.63636米1.63636升1 2.45455升.09091 2.45455升F类0克.5马布斯维德[]0设置短划线.09091.63636米1.63636升秒0.36364米1.63636升秒1.27273米.72727 0升秒[02.02]0设置短划线0.63636.54545米.90909.27273升秒.90909.27273米.90909 1升秒.09091.45455米.90909 1升秒.015瓦[]0设置短划线.09091.45455米0.36364.63636升.74545.38182升.63636.54545升秒0.04瓦.63636.54545百万点.90909.27273百万点.90909 1百万点0.09091.45455百万点.74545.38182百万点0.36364.63636百万点%图形结束数学图片结束\\>“]，”图形“，图像大小->{212.875，232.188}，图像边缘->{{43，0}，{0，0}}，ImageRegion->｛｛0，1｝，｛0，1} }，ImageCache->GraphicsData[“压缩位图”，“\<\eJzdmVlzFFUUxzuZLSuTlWyEDIQkQEJCQkhSIKAiYRFk3wSEJATCkkBIVASR公司RUVQWVQWldIHSx/U8i0fQL+Dzzz7LeLcezr/6en8e3IqNb44VXRO3/s7/3Pu2t2XXQOTI8OjA5PnhgYSW68MXB45NzSR6L90JVkUynEc5+/kv38SjrGnk6Z72Tmd/Dmh6ampKVNg/jo77DU0bauSZeZPn9zscnEXTcNd1BK9gr+lxHsE363E1wq+R4l3C75Xia8RfJ8S7xJ8vxLvFPyAEl8t+EEl3iH4ISXeLvhhhJb5K8CNKvE3wo0q8VfC3lfhKwY8p8RWCH1fiywU/ocRbBH9HiTcLflKJNwl+SokvE3xAiTcKPqjElwo+pMSXCH5aiScEH1biDYKfUeKLBT+rxOsFH1HiiwQ/p8TrBD+vxGsFv6DEawS/qMSrBR9V4lWCjynxhYJfUuKVgl9W4hWCjyvxcsGvKPEywSeUeKngk0q8RPB3lXhc8PeU+ALB31固定YJfVeJFgn+gxAsFv6bECwS/rsTzBf9QiecJfkOJxwT/SIlHBb+pxCOC31LiYcFvK/GQ4HeUeK7gHxO8z1zDpmgBccwRx0+IY4+5RuGYYyyyyLuz6fEp9uc80jPo5zl+BrgMeBO85nhOwCWWLvnXs6vRD94Mg26xSgT4UIenq6bkLVvuysTnC+LTL1VfkqotUvWAVK3wRTJ31YI/JHgLwWsEf0TwJoJHSZnbFY+JRCPBY8ESXxGJtmD8a4K3BuPfELye4AXBEk+IRB3BGwR/SvA逻辑Ef0bwKoIvEfw5wZuDc/9WOcQu/h3BSwileEizxvU8CC6Eo0IfqvDA6dtWxoSmbIwG7pvMI1OHUjwdVeApsB1daAoirGalZ6yLgiA2jN45VeR2jmx38lWeG7i6g1eDm+Xsfmez1Lvqor4EzF2uucbIPKgNFrMbSSxILF+5IFyxh8jMPq混合InbcT7IJqJk/y6ncIuanOwKYRTbuw5yfYP2aNt5HBGCX9XeybEfWQRRvIRIsE6uDK4T0qRzwRyjKKslIhVBIuVQGKciJUTsfJgsTgW0hjEYmh6mDS9mATIsJxTAUYRIA/ZsgBxEiDDRpMKcAGDlzkA6+9lHjG7jYwg23x0R4iI公司sf5u9AyUFRtGZgXIrI44LvVMF7srDCKLQjjWE8fi4P6pgsRJZFEEsVzSpBoSIHj3l49SK3scoYozBmBNLwwOUAvZowhVjEFx0o9AFxPtDC8HdVA8hChxJO/T公司ThDt/GDtemjvg5XSbiJi7Innii2GxB4kWoJOaCZi8vSQpK3jTlilcGwhjvKk公司kCMkG2cHrDI4riCO7ntpI+L0w0o5thLHcHC7mxD7DVgV6MRVRCwULNaMfF6FlRLrIGL见6KLUc+G2FVoplyJBzxOuK5LvuxdKHNYV16NlZKTqzDaQIp31ZwfenBrdVNWuI6tiFUNyzrmBfk6H4BadnZq0qOK4ljm4/dSBOO6zqdMdcmSIW74R6G6xaGsddmjNxuqC+HNYiSPR4unPm5+C7sRtcM6wGTIxez1h6f47jfse6edmQjRDwHnrPeHi3w/S9VaJYxwSsE0SCvQHJ7ilzIYaHRBTPHroheqZdDSx26ip7nLMeUOqZws5FZRdzNgAvhzVI2sPepeR709mEOKWwThOJPCIhX72ehV4Ma5小时IsLdc+ShwXkfsQlhniUQBkZCdzdmM2DFYI0SikEjIfuZsQewILHaoJzuWbL1xU8PO5nIE2maq7IuGPTNzT2+mzMGMrd9uSvNN6RhJNp7u447zX3ZZiN0z/fLlS7tuLxnL9U9a9q7EXN3DovngvabA9sNlDd5nCux6DhnL7jkXNY6vAb/hr9pM/K/5oT/9BX9oovYj6rAG3wZ8SIPvINApjaMq911IZtxftZv4j/mhPQQa9UN7CXQ0a004gCYc1uCHgB/U4EcItC9ruc+acMfSJ4e36gSqBvxVJ0msN7OWpAoaRHbbNfhp4Fs1+BkCHZ6zM88Tr/1+6AKBNmlyYjvSRo3jKIE2ZG0gxtGz6zT4BIF6NY6TB编号+55DMKriKdNdool4j0GqN43UCdWSt028SqFXjeCtoLnih2wR6xQ/dIdD6eTXmLoakSYPfI9BSjeN9Ai3J2pDMmmkP0KxOf9UjItjuhx4TaNW8UntCoIUax6cEqtQ4PiNQhcbxOYHK59X9L9D9jf6qH4hgwg/9SKCir0WFfQTmpCvwX8mUFTj+AuBqufs4N9NgXtM7av61RTYT5lZsWyV+/+8/3XVb6Yg标准PIkPzcz5D/a4GT8y8JGtI4\\>“]，ImageRangeCache->｛｛0，211.875｝，｛231.188，0｝｝->｛0，0，0｝｝]，单元格[BoxData[标记框[行框[{“\[SkeletonIndicator]”，“Graphics”，“\[SkeletonIndicator'”}]，错误，可编辑->假]]，“输出”]}，打开]]}，打开]]}，打开]]},窗口大小->{740，867}，窗口边距->{{84，自动}，{28，自动}}，FrontEndVersion->“9.0 for Mac OS X x86（32位、64位内核）（3月5日\2013)",样式定义->“Default.nb”]（*笔记本内容结束*）（*内部缓存信息*）（*单元格标签大纲单元格标签索引->{}*)（*单元格标签索引单元格标签索引->{}*)（*笔记本文件大纲笔记本[{单元格[CellGroupData[{单元格[579，22，29，0，92，“标题”]，单元格[CellGroupData[{单元格[633，26，28，0，44，“小节”]，单元格[664，28，58，3，49，“文本”]，单元格[725，33，283，9，49，“文本”]，单元格[1011,44,297,10,30，“文本”]，单元格[1311，56，99，2，30，“文本”]}，打开]]，单元格[CellGroupData[{单元格[1447，63，26，0，44，“小节”]，单元格[1476，65290，5，80，“输入”]，单元格[1769，72，6085，165，335，“输入”]}，打开]]，单元格[CellGroupData[{单元格[7891，242，26，0，80，“部分”]，单元格[CellGroupData[{单元格[7942，246，679，24，46，“输入”]，单元格【8624、272、3722、128、241、1158、84，“GraphicsData”，“PostScript”\“图形”]，单元格[12349，402，134，4，28，“输出”]}，打开]]}，打开]]}，打开]]}]*)（*内部缓存信息结束*）