在Mathematica中实现最小偏向角的动态光路图

利用Mathematica的动画功能,实现了等边三棱镜折射实验的动态光路图。所依赖的物理原理就是几何光学中最基本的折射定律。