2011年 10月 08日
HP-12C Platinum プログラム その3 |
前回までは基本の基本
今回はループを使って元利均等のローン返済の返済表を作ってみる
ローンの返済表は金融電卓で返済額を出せば
後は気合で作れるものだ
元金1000万円 年利2% 35年返済
毎月の返済額→33,126円
■手動にて気合で返済表を作る例
1回目
1000万円に年利2%をかけて年間利息20万円
12で割って月の利息16,667円(これが1回目の利息)
毎月の返済が33,126円だから差引きが1回目の元金(16,459円)
2回目
1回目で元金が16,459円減ったので残高は9,983,541円
これに2%をかけて12で割り月の利息を計算すると16,639円(2回目の利息)
毎月の返済が33,126円だから差引きが2回目の元金(16,487円)
3回目
繰り返し・・・
これを35年分420回繰り返せば返済表が出来る
利息 元金 残高
1回目 16,667円 16,459円 9,983,541円
2回目 16,639円 16,487円 9,967,054円
3回目 16,612円 16,514円 9,950,540円
・
・
・
こんなのはパソコンのEXCEL使えば一発だね
元利均等の返済ならPMT関数使えるし
元利均等の利息が減って元金が増える現象はわずか3回の表でも確認できる
■HP-12Cを使ったプログラム
日本語マニュアルの第9章のGOTOとループの例題をちょっと改良
例題は各返済の利息と元金しかわからないが
このプログラムは元金残高と何回目の支払い回数かわかるようにした
001, 44 0
002, 45 0
003, 42 11
004, 43 31
005, 34
006, 43 31
007, 45 13
008, 43 31
009, 45 11
010, 43 31
011, 43 31
012,43,33,002
以上
以下解説
001, 44 0 ;STO0 (レジスタ0に入れる)
002, 45 0 ;RCL0 (レジスタ0を呼び出す、ループの基点)
003, 42 11 ;f+n(AMORT)
004, 43 31 ;ここで利息が表示されるので一時停止
005, 34 ;xとyを入れ替える
006, 43 31 ;元金が表示されるので一時停止
007, 45 13 ;RCL PV
008, 43 31 ;元金残高が表示されるので一時停止
009, 45 11 ;RCL n
010, 43 31 ;これまでの表示が何回目の返済か
011, 43 31 ;ここでちょっと間をおくためもう一行一時停止
012,43,33,002;002行へジャンプ、以下ひたすら繰り返す
今回はこの012行の「GOTO 002」ってのがポイントだね
実際に使ってみよう
このプラグラムを起動する時はあらかじめ金融レジスタに数値が入っていないといけないので
1000 PV
2 f+i
35 f+n
PMT
で返済額を求めながらレジスタに格納
次にnは420(35年)が入っているのでこれをリセットするため
n=0にする(こうしないと返済回数がきちんと表示されないため)
あとは1ヶ月ごとの返済表なので
1 R/S
でプログラムスタート
私のHP-12Cは小数点を万単位として以下4桁まで表示できるように設定済み
-1.6667(1回目の利息)
一時停止
-1.6459(1回目の元金)
一時停止
998.3541(1回目支払い終了後の残高)
一時停止
1.000(1回目の返済が終わりましたよの合図)
一時停止
一時停止(2回目に移るまでワンテンポ遅らせる)
-1.6639(2回目の利息)
一時停止
-1.6487(2回目の元金)
一時停止
996.7054(2回目終了後の残高)
一時停止
2.0000(2回目の返済終了)
一時停止
一時停止(次は3回目に行くぞ)
・
・
・
これをひたすら永遠に繰り返す
上の気合で作る返済表と数字が一致したでしょう
こりゃ楽だ
でも時間がかかる
ストップウォッチで測ってみたら
1年(12回)を計算するのに約78秒
てことは35年間で約45分半w
気が遠くなるような時間だ
目で追えるように一時停止を乱発したのが悪かったか?
でも一時停止をしないと目で追えない
目で追えないと意味のない返済表だし・・・
ちなみに420回終わっても残高がマイナスになってそのまま永遠に繰り返す
こういうことが出来るとただの金融電卓でなく
プログラム電卓って言葉通りだ
さすがhp
こういうところがマニア受けするんだろうな
でも今日の例題、実務じゃ使わないだろう
パソコンで一瞬にてシュミレートでき
しかもプリントアウトして視覚的にプレゼンできる時代に
こんなゆっくりとしたプログラムじゃ話にならない
高速化されたplatinumでこれだから
初代の無印12Cじゃどれだけ時間がかかったのだろう・・・
今回はループを使って元利均等のローン返済の返済表を作ってみる
ローンの返済表は金融電卓で返済額を出せば
後は気合で作れるものだ
元金1000万円 年利2% 35年返済
毎月の返済額→33,126円
■手動にて気合で返済表を作る例
1回目
1000万円に年利2%をかけて年間利息20万円
12で割って月の利息16,667円(これが1回目の利息)
毎月の返済が33,126円だから差引きが1回目の元金(16,459円)
2回目
1回目で元金が16,459円減ったので残高は9,983,541円
これに2%をかけて12で割り月の利息を計算すると16,639円(2回目の利息)
毎月の返済が33,126円だから差引きが2回目の元金(16,487円)
3回目
繰り返し・・・
これを35年分420回繰り返せば返済表が出来る
利息 元金 残高
1回目 16,667円 16,459円 9,983,541円
2回目 16,639円 16,487円 9,967,054円
3回目 16,612円 16,514円 9,950,540円
・
・
・
こんなのはパソコンのEXCEL使えば一発だね
元利均等の返済ならPMT関数使えるし
元利均等の利息が減って元金が増える現象はわずか3回の表でも確認できる
■HP-12Cを使ったプログラム
日本語マニュアルの第9章のGOTOとループの例題をちょっと改良
例題は各返済の利息と元金しかわからないが
このプログラムは元金残高と何回目の支払い回数かわかるようにした
001, 44 0
002, 45 0
003, 42 11
004, 43 31
005, 34
006, 43 31
007, 45 13
008, 43 31
009, 45 11
010, 43 31
011, 43 31
012,43,33,002
以上
以下解説
001, 44 0 ;STO0 (レジスタ0に入れる)
002, 45 0 ;RCL0 (レジスタ0を呼び出す、ループの基点)
003, 42 11 ;f+n(AMORT)
004, 43 31 ;ここで利息が表示されるので一時停止
005, 34 ;xとyを入れ替える
006, 43 31 ;元金が表示されるので一時停止
007, 45 13 ;RCL PV
008, 43 31 ;元金残高が表示されるので一時停止
009, 45 11 ;RCL n
010, 43 31 ;これまでの表示が何回目の返済か
011, 43 31 ;ここでちょっと間をおくためもう一行一時停止
012,43,33,002;002行へジャンプ、以下ひたすら繰り返す
今回はこの012行の「GOTO 002」ってのがポイントだね
実際に使ってみよう
このプラグラムを起動する時はあらかじめ金融レジスタに数値が入っていないといけないので
1000 PV
2 f+i
35 f+n
PMT
で返済額を求めながらレジスタに格納
次にnは420(35年)が入っているのでこれをリセットするため
n=0にする(こうしないと返済回数がきちんと表示されないため)
あとは1ヶ月ごとの返済表なので
1 R/S
でプログラムスタート
私のHP-12Cは小数点を万単位として以下4桁まで表示できるように設定済み
-1.6667(1回目の利息)
一時停止
-1.6459(1回目の元金)
一時停止
998.3541(1回目支払い終了後の残高)
一時停止
1.000(1回目の返済が終わりましたよの合図)
一時停止
一時停止(2回目に移るまでワンテンポ遅らせる)
-1.6639(2回目の利息)
一時停止
-1.6487(2回目の元金)
一時停止
996.7054(2回目終了後の残高)
一時停止
2.0000(2回目の返済終了)
一時停止
一時停止(次は3回目に行くぞ)
・
・
・
これをひたすら永遠に繰り返す
上の気合で作る返済表と数字が一致したでしょう
こりゃ楽だ
でも時間がかかる
ストップウォッチで測ってみたら
1年(12回)を計算するのに約78秒
てことは35年間で約45分半w
気が遠くなるような時間だ
目で追えるように一時停止を乱発したのが悪かったか?
でも一時停止をしないと目で追えない
目で追えないと意味のない返済表だし・・・
ちなみに420回終わっても残高がマイナスになってそのまま永遠に繰り返す
こういうことが出来るとただの金融電卓でなく
プログラム電卓って言葉通りだ
さすがhp
こういうところがマニア受けするんだろうな
でも今日の例題、実務じゃ使わないだろう
パソコンで一瞬にてシュミレートでき
しかもプリントアウトして視覚的にプレゼンできる時代に
こんなゆっくりとしたプログラムじゃ話にならない
高速化されたplatinumでこれだから
初代の無印12Cじゃどれだけ時間がかかったのだろう・・・
by monaka333
| 2011-10-08 06:23
| 電卓
|
Comments(0)