稜鏡計算

稜鏡計算

程式編寫日期: 2007年8月22日

程式可以計算以下情況:

1. 已知折射率n及頂角A計算最少偏向角d

2. 已知頂角A及最少偏向角d

3. 已知折射率n、頂角A及入射角i計算最後的折射角r及偏向角σ

程式 (64 bytes)

ClrMemory: ?→M: ?→A:

2 sin^-1( M sin( A÷2 ) ) - A→B: ?→B:

M=0 => sin( (A+B)÷2 ) ÷ sin( A÷2◢

sin^-1( M sin(A - sin^-1( sin( B )÷M◢

Ans + B - A

註: 若果想保留一些記憶用作儲存臨時數據，可將程式中"Mem clear"改為"MM-"，而程式長度增加 1 byte，所使用的記憶為A，B及M。

注意: 以下例題在DEG 模式下執行程式

例題1: 一玻璃稜鏡的折射率為1.5，稜鏡頂角為50°，求光線通過稜鏡的最少偏向角。

按 Prog 1 再按 1.5 EXE 50 EXE (顯示最少偏向角為28.6810°)

計算完結後按 AC 終止程式

例題2: 一玻璃稜鏡頂角為50°，最少偏向角為28.681°，稜鏡的折射率。

按 Prog 1 再按 EXE (不輸入折射率代表計算折射率)

50 EXE 28.681 (顯示最少偏向角為1.5)

計算完結後按 AC 終止程式

例題3:

一玻璃稜鏡的折射率為1.5，稜鏡頂角為50°，入射角為60°求光線通最後的折射角r及偏向角。

按 Prog 1 再按 1.5 EXE 50 EXE 60 EXE (顯示折射角為22.429°)

EXE (顯示偏向角為32.429°)

註: 若果在稜鏡內出現內全反射，程式則會出現Math ERROR。