跪求光的反射和折射的vb程序

Question

跪求光的反射和折射的vb程序

Answer 1

设a1角是法线和入射角的夹角，a2是法线和出射角的夹角，c1是光在介质1里面的光速，c2是光在介质2里面的光速。
反射：
a2 = a1
折射：
a2 = a1 * c1 / c2

Answer 2

设a1角是法线和入射角的夹角，a2是法线和出射角的夹角，c1是入射光在介质1里面的速度，c2是折射光在介质2里面的速度。
反射：
a2 = a1
折射：
sin(a1*3.1415/180)/sin(a2*3.1415/180)=c1/c2