新浪博客

“一尺之棰,日取其半,万世不竭”数学演示

2020-12-26 20:29阅读:
“一尺之棰,日取其半,万世不竭”数学演示
“一尺之棰,日取其半,万世不竭”数学演示
原文:“一尺之棰,日取其半,万世不竭”数学演示
译文:一尺长的棍棒,每日截取它的一半,永远截不完。
出处:《庄子•杂篇•天下》

孙生富老师方法:迭代列表(线段(中点(p),中点(p)+如果(是否平行(p,y=0),(p;pi/2),(p/2;0))),p,{线段((0,0),(8,0))},5)
文海平老师方法:两个图形(线段)进行迭代。
制作过程:
1.做基本正方形和滑动条,指令栏输入:n=slider(0,10,1)得到滑动条,输入:
poly1 = Polygon((0, 0), (5, 0), 4)得到基本的正方形。
“一尺之棰,日取其半,万世不竭”数学演示

2.迭代出以后的图形。输入:l1 = IterationList(Dilate(p, 0.5, Vertex(poly1, 2)), p, q, {{Segment(Midpoint(Vertex(poly1, 1), Vertex(poly1, 4)), Midpoint(Vertex(poly1, 2), Vertex(poly1, 3)))}, {Segment(Midpoint(Vertex(poly1, 1), Vertex(poly1, 2)), Midpoint(Midpoint(Vertex(poly1, 1), Vertex(poly1, 4)), Midpoint(Vertex(poly1, 2), Vertex(poly1, 3))))}}, n)即可到后续的图形。
“一尺之棰,日取其半,万世不竭”数学演示
后续的图形
这个指令特别的长,其实可以简化成:l2 = IterationList(Dilate(p, 0.5, (5, 0)), p, q, {{Segment((0, 2.5), (5, 2.5))}, {Segment((2.5, 0), (2.5, 2.5))}}, n),这个指令用明确的线段代替了繁琐的顶点之间的线段。
“一尺之棰,日取其半,万世不竭”数学演示
3.美化,按照下图输入动态文本。
“一尺之棰,日取其半,万世不竭”数学演示
“一尺之棰,日取其半,万世不竭”数学演示

我的更多文章

下载客户端阅读体验更佳

APP专享