折射定律
程式新版 (舊版本程式保留在網頁最後位置)
新版折射定律程式雖然較舊版本長一點，但操作上較簡單，另外還加入了計算臨界角問題的程式。
程式編寫日期 2008年1月31日 最新更新日期: 2008年4月11日
˙程式使用折射定律(n1 sin θ1 = n2 sin θ2 )進行計算，可計算折射率或角度(入射角或折射角)，計算時請先輸入包含未數介質的折射率及角度，若為未知數直接按 EXE 即可。
˙若果計算臨界角，只要順序輸入入射界質及折射界質的折射率即可，若為未知數直接按 EXE 即可。
第一個程式 (70 bytes)
Mem clear: ?→A: ?→B: ?→C:
C=0 => A>B => sin-1B┘A→D:
A=0 => B ÷ sin C→D:
B=0 => A sin C→D: ?→D:
A => sin-1( C sin D ÷ A◢
C sin D ÷ sin B
第二個程式 (78 bytes，有記存答案)
Mem clear: ?→A: ?→B: ?→C:
C=0 => A>B => sin-1B┘A→D:
A=0 => B ÷ sin C→D:
B=0 => A sin C→D: ?→D:
A => sin-1( C sin D ÷ A→X◢
B => C sin D ÷ sin B→X: X
注意: 以下例題要在 DEG Mode執行
例題1: 一光線由空氣進入玻璃，空氣的折射率假設為1，入射角為45° ，玻璃的折射角為28.13°，求玻璃的折射率。
注意先輸入包含未數介質的資料
按 Prog 1 再按 EXE (不輸入數值代表計算折射率) 28.13 EXE
1 EXE 45 EXE (再輸入已知介質的折射率及角度，顯示答案為 1.499779914)
例題2: 一光線由空氣進入玻璃，空氣的折射率假設為1，入射角為45° ，玻璃的折射率為1.5，求折射角。
注意先輸入包含未數介質的資料
按 Prog 1 再按 1.5 EXE EXE (不輸入數值代表計算角度)
1 EXE 45 EXE (再輸入已知介質的折射率及角度，顯示答案為 28.1255057°)
例題3: 一光線由玻璃入射空氣，玻璃的折射率為1.5，求臨界角。
按 Prog 1 再按 1.5 EXE (入射界質的折射率)
1 EXE (折射界質折射率，空氣為1)
EXE (不輸入數值表示計算臨界角，顯示臨界角為41.81˚)
例題4: 一光線由水入射玻璃，水及玻璃的折射率分別為1.33及1.5，求臨界角。
按 Prog 1 再按 1.33 EXE (入射界質的折射率)
1.5 EXE (折射界質折射率)
EXE (顯示0表示沒有臨界角，即光線由水射向玻璃沒有內全反射)
例題5: 一光線由玻璃入射空氣，臨界角為41.81˚，求玻璃折射率。
按 Prog 1 再按 EXE (不輸入數值代表計算入射界質的折射率)
1 EXE (折射界質折射率，空氣為1)
41.81 EXE (臨界角，顯示入射界質的折射率為1.5)
註: 若果使用第二個程式，計算完結後，使用折射定律計算的答案儲存在X記憶，計算有關臨界角問題的答案儲存在D記憶。
舊版程式
程式編寫日期: 2006年12月9日
程式使用折射定律(ni sin i = nr sin r)，可計算折射率或角度(入射角或折射角)。
程式 (32 bytes，使用記憶為A、B、C及D)
?→D: ?→A: ?→B: ?→C:
D => sin-1 (A┘C sin B◢ A sin B ÷ sin C
注意: 以下例題要在 DEG Mode執行
例題1: 一光線由空氣進入玻璃，空氣的折射率假設為1，入射角為45° ，玻璃的折射角為28.13°，求玻璃的折射率。
按 Prog 1 再按 0 EXE (輸入0代表計算折射率)
1 EXE 45 EXE (先輸入已知折射率及角度(入射角或折射角)的介質)
28.13 EXE (顯示答案為 1.499779914)
例題2: 一光線由空氣進入玻璃，空氣的折射率假設為1，入射角為45° ，玻璃的折射率為1.5，求折射角。
按 Prog 1 再按 1 EXE (輸入1代表計算角度)
1 EXE 45 EXE (先輸入已知折射率及角度(入射角或折射角)的介質)
1.5 EXE (顯示答案為 28.1255057°)
