S8G5 消失的小方格
这个错觉图是一个很适合小学讨论面积、中学讨论斜率的问题。而要制作这个课件,利用滑动条搭配平移就可完成。

任务一:建立四个多边形

说明:先指定多边形的右下角顶点 A1 A2 A3 A4 ,再利用 Polygon 来建立多边形 U1,U2,U3, U4。
操作:
A1 = (0,0)
U1 = polygon(A1, A1+(8,0), A1+(8,3)
A2= (8,0)
U2 = polygon(A2, A2+(5,0), A2+(5,2), A2+(2,2), A2+(2,1), A2+(0,1))
A3 = (8,1)
U3 = polygon(A3, A3+(2,0), A3+(2,1), A3+(5,1), A3+(5,2), A3+(0,2))
A4=(8,3)
U4 = Polyogn(A4, A4+(5,0), A4+(5,2))
任务二:建立滑动条 st sh 控制平移

说明:
这个图形有两个阶段的平移,一个是滑动条 sh 控制图形的上下平移。另一个是滑动条 st 控制多边形的位置的变换。
要让图形往下平移需建立平移的向量 vh=(0,-sh), 则 Translate(A1, vh) 就可将点 A1 往下平移。而要达到内部平移 (5,2) 的效果,就利用 Translate(A1, st*(5,2)) 来实现。要将这两个效果叠加在一起,就利用 B1 =Translate(A1, vh+st*(5,2)) 来实现。
设定好左下角的点后,对于下方的四个多边形就可用 Translate(U1,vector(A1,B1)) 来实现。
操作:
sh = Slider(0,6,0.1,1,100)
st = Slider(0,1,0.01,1,100)
vh = Vector((0,-sh))
B1 = Translate(A1, vh+ st*(5,2))
B2 = Translate(A2, vh+ st*(0,0))
B3 = Translate(A3, vh+ st*(-3,-1))
B4 = Translate(A4, vh+ st*(-8,-3))
D1 = Translate(U1, vector(A1,B1))
D2 = Translate(U2, vector(A2,B2))
D3 = Translate(U3, vector(A3,B3))
D4 = Translate(U4, vector(A4,B4))
任务三:建立网格

说明:利用 sequence 来建立 纵横的网格 UX,UY。再搭配 Translate,就可将网格随着滑动条 vh 往下移动。
操作:
UX = Sequence(Translate(Segment(A1,A1+(13,0)),(0,k),k,0,5)
UY = Sequence(Translate(Segment(A1,A1+(0,0)),(k,0),k,0,13)
DX = Translate(UX, vh)
DY = Translate(UY, vh)
小结与回顾
要完成这类图,最主要的是图形是如何平移的,要能够拆解这个图是有两种平移来组成。大家也可试着挑战以下错觉图的移动。
参考链接:https://www.geogebra.org/classic/p5wjyzsn


相关链接
【GGB】https://www.geogebra.org/m/w4hqatug
【Bili】https://www.bilibili.com/video/bv1rr4y1T7YP
【YouTube】https://www.YouTube.com/playlist?list=PLXH05kw-i_5KpbpXx2E-G58YAhGhIMKmS