稜鏡計算

程式編寫日期: 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。

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集