折射定律
程式編寫日期: 2007年9月22日 最新更新日期: 2008年4月11日
˙程式使用折射定律(n1 sin θ1 = n2 sin θ2 )進行計算,可計算折射率或角度(入射角或折射角),計算時請先輸入包含未數介質的折射率及角度,若為未知數直接按 EXE 即可。
˙若果計算臨界角,只要順序輸入入射界質及折射界質的折射率即可,若為未知數直接按 EXE 即可。
第一個程式 (70 bytes)
ClrMemory: ?→A: ?→B: ?→C:
C=0 => A>B => sin-1( B÷A→D:
A=0 => B ÷ sin( C→D:
B=0 => A sin( C→D: ?→D:
A => sin-1( A-1C sin( D◢
C sin( D ) ÷ sin B
第二個程式 (77 bytes,有記存答案)
ClrMemory: ?→A: ?→B: ?→C:
C=0 => A>B => sin-1( B÷A→D:
A=0 => B ÷ sin( C→D:
B=0 => A sin( C→D: ?→D:
If A: Then sin-1( A-1C sin( D→X◢
Else C sin( D ) ÷ sin B→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記憶。