タグ インボリュート が登録されている動画 ： 1 件中 1 - 1 件目
種類:
- タグ
- キーワード
対象:
ポケットコンピュータPC-1200でインボリュート逆関数をプログラムしてみた
みなさんこんにちは。
ポケットコンピュータ 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.04004192
c2=0.32450594
c3=0.00320902
c4=0.00893663
c5=0.00318978
c6=0.00047725
プログラムは下記です。
x→M 0
1.04004192
x→M 1
0.32450594
x→M 2
0.00320902
x→M 3
0.00893663
x→M 4
0.00318978
x→M 5
0.00047725
x→M 6
RM0
3√x
x^2
x→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
もっと良いプログラムがありましたら、
教えてください。