ポケットコンピュータPC-1200でインボリュート逆関数をプログラムしてみた
- 2020/06/19 14:07:02 投稿
- 再生数：298
- マイリスト数：0
みなさんこんにちは。ポケットコンピュータ PC-1200 を入手しました。「ポケットコンピュータ友の会」に入会するためには、プログラムをつくらなけばならないので、インボリュート逆関数を プログラムしてみました。INV α を入力して プログラムスタートすると α を表示します。INV 20°=0.014904384 を入力 →出力 20.00003493°INV 10°=0.001794056 を入力 →出力 10.00000119°となりました。インボリュート逆関数は 解析解が存在しませんので、ISO/TC 60 の近似式 ↓ を使っています。1/COSα=1+q(c1+q(c2+q(-c3+q(c4+q(-c5-c6*q)))))q=(invα)^(2/3)c1=1.04004192c2=0.32450594c3=0.00320902c4=0.00893663c5=0.00318978c6=0.00047725プログラムは下記です。x→M 01.04004192x→M 10.32450594x→M 20.00320902x→M 30.00893663x→M 40.00318978x→M 50.00047725x→M 6RM03√xx^2x→M 7((RM 7* RM 6 ±- RM 5* RM 7+ RM 4* RM 7- RM 3* RM 7+ RM 2* RM 7+ RM 1* RM 7+ 1)1/x)COS-1もっと良いプログラムがありましたら、教えてください。