稜鏡計算
程式可以計算以下情況:
1. 已知折射率n及頂角A計算最少偏向角d
2. 已知頂角A及最少偏向角d
3. 已知折射率n、頂角A及入射角i計算最後的折射角r及偏向角σ
程式編寫日期: 2007年3月31日
程式 (65 bytes)
Mem clear: ?→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。