漸近線(I) (Asymptote I)
程式由網友 roviury 提供。
這個程式可以用作幫助驗証某個位置是否函數的垂直漸近線，亦會嘗試找出斜漸近線 (oblique asymptote)，但要注意找出的漸近線可能存在誤差，亦未必一定正確只能作為參考之用。
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
程式編寫日期: 2011年6月8日
注意: 10^( 是按 SHIFT log
程式 (107 bytes，不包括綠色函數方程)
?→C: 0→B: ClrStat: For 0→M To 9:
M(M≦2 => Y◢ M≧3 => X , Y DT:
If M=5+3B:Then b◢ a◢ r◢ ClrStat: 1→B: IfEnd:
(M=0)(C+E-7)+(M=1)(C-E-7)+
(M≧2)cos(πrB)10^(M+5-3B→X:
Abs(X)(3X+17)÷(X-4→Y:Next
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
程式二第二個輸入數值(A)不輸入或輸入0代表正常計算，若果輸入1則會跳過驗証垂直漸近線，若果輸入2則會跳過驗証垂直漸近線及計算x→+∞時的斜漸近線。
注意: 10^( 是按 SHIFT log
程式二 (136 bytes，不包括綠色函數方程)
?→C: 0→A: ?→A: A=2→B: Pol( 1,0 :
ClrStat: For 2A+B→M To 9: Ans≠Y => Goto 1:
M(M≦2 => Y◢ M≧3 => X , Y DT:
If M=5+3B:Then b◢ a◢ r◢ ClrStat: 1→B: IfEnd:
Lbl 1: (M=0)(C+E-7)+(M=1)(C-E-7)+
(M≧2)cos(πrB)10^(M+5-3B→X:
Abs(X)(3X+17)÷(X-4→Y:Next
註1: 綠色的 Abs(X)(3X+17)÷(X-4 是函數方程(變數是X，亦可以使用Ans作為變數)，若果想計算其它函數的積分，只要修改綠色的部份。
註2: 斜漸近線 (oblique asymptote)可能不存在，程或有可能會出現 MATH ERROR，而且斜率及Y-截距亦未必準確。
註3: 可信度的絶對值越近1表示越可信)
註4: 只需找斜漸近線，可隨意輸入數值或直接EXE，忽略最初兩個答案即可，最後顯示完答案後沒有DISP。
例題1: y=f(x)=|x|(3x+17)/(x-4)，驗証x=4是否垂直漸近線及找斜漸近線。
程式一按法:
按 Prog 1 再按 4 EXE (顯示x→4+時函數的參考值為1160000041 )
EXE (顯示x→4-時函數的參考值為-1159999959 )
EXE (顯示x→+∞時斜漸近線的斜率為3)
EXE (顯示x→+∞時斜漸近線的Y-截距為29.0000116)
EXE (顯示x→+∞時斜漸近線的可信度為1)
EXE (顯示x→-∞時斜漸近線的斜率為-3)
EXE (顯示x→-∞時斜漸近線的Y-截距為-28.9999885)
EXE (顯示x→-∞時斜漸近線的可信度為 -1)
程式二按法:
注意: 程式二第二個輸入數值(A)不輸入或輸入0代表正常計算，若果輸入1則會跳過驗証垂直漸近線，若果輸入2則會跳過驗証垂直漸近線及計算x→+∞時的斜漸近線。
按 Prog 1 再按 4 EXE EXE (顯示x→4+時函數的參考值為1160000041 )
EXE (顯示x→4-時函數的參考值為-1159999959 )
EXE (顯示x→+∞時斜漸近線的斜率為3)
EXE (顯示x→+∞時斜漸近線的Y-截距為29.0000116)
EXE (顯示x→+∞時斜漸近線的可信度為1)
EXE (顯示x→-∞時斜漸近線的斜率為-3)
EXE (顯示x→-∞時斜漸近線的Y-截距為-28.9999885)
EXE (顯示x→-∞時斜漸近線的可信度為 -1)
例題2: y=f(x)=(x4 - 7x3 - 19x2 + 163x - 210) / (x3 - 2x2 - 2x - 3)，求斜漸近線。
程式一按法:
按 Prog 1 再按 EXE EXE (隨意輸入數及忽略最初兩個答案)
EXE (顯示x→+∞時斜漸近線的斜率為1)
EXE (顯示x→+∞時斜漸近線的Y-截距為-5.00000281)
EXE (顯示x→+∞時斜漸近線的可信度為1)
EXE (顯示x→-∞時斜漸近線的斜率為1)
EXE (顯示x→-∞時斜漸近線的Y-截距為-5)
EXE (顯示x→-∞時斜漸近線的可信度為 1)
程式二按法:
注意: 程式二第二個輸入數值(A)不輸入代表正常計算，若果輸入1則會跳過驗証垂直漸近線及計算x→+∞時的斜漸近線。
按 Prog 1 再按 EXE EXE EXE (隨意輸入第一個數及忽略最初兩個答案)
EXE (顯示x→+∞時斜漸近線的斜率為1)
EXE (顯示x→+∞時斜漸近線的Y-截距為-5.00000281)
EXE (顯示x→+∞時斜漸近線的可信度為1)
EXE (顯示x→-∞時斜漸近線的斜率為1)
EXE (顯示x→-∞時斜漸近線的Y-截距為-5)
EXE (顯示x→-∞時斜漸近線的可信度為 1)
例題3: y=(2X2-14X+25)e^(2X)，求斜漸近線。
只適用於程式二
先將程式中的綠色函數方程改為(2X^2-14X+25)e^(2X)
按 Prog 1 再按 EXE EXE EXE (隨意輸入第一個數及忽略最初兩個答案)
EXE (顯示Math ERROR，表示x→+∞時斜漸近線可能不存在)
再按 AC 按 Prog 1 再按 EXE 2 EXE (輸入2則跳過驗証垂直漸近線及計算x→+∞時的斜漸近線)
EXE (顯示x→-∞時斜漸近線的斜率為1)
EXE (顯示x→-∞時斜漸近線的Y-截距為-5)
EXE (顯示x→-∞時斜漸近線的可信度為 1)
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集