こんな計算、無理ですか？

　　こんな計算、無理ですか？ 弁護士五右衛門 2003/01/26 11:29:06 
　　├cを未知数とする1変数の代数方程式の問題に... 白石和夫 2003/01/26 13:17:53 
　　│└お返事ありがとうございます。 弁護士五右衛門 2003/01/26 15:34:20 
　　│　└とりあえず2分法をお試しください。 白石和夫 2003/01/26 16:10:43 
　　│　　└なんども返信、ありがとうございました。 弁護士五右衛門 2003/01/27 07:31:17 
　　└力任せにこんな方法は如何でしょう。 ひよ 2003/01/27 11:13:35 
　　　└ひよさん。 弁護士五右衛門 2003/01/27 17:57:05 
　　　　└こんな物でしょうか？ ひよ 2003/01/27 19:10:41 
　　　　　└やっぱり間違ってました.... ひよ 2003/01/27 19:21:44 
　　　　　　└試作、ありがとうございます。 弁護士五右衛門 2003/01/28 07:22:40 
　　　　　　　└左辺と右辺は合うのですが、、 ひよ 2003/01/28 09:36:15 
　　　　　　　　└お手数をおかけします。 弁護士五右衛門 2003/01/29 08:16:59 
　　　　　　　　　└私も、一太郎です ひよ 2003/01/29 09:23:07 
　　　　　　　　　　└中間報告－その１ 弁護士五右衛門 2003/02/02 19:40:48 
　　　　　　　　　　　└アドオン方式ですか？ ひよ 2003/02/03 19:46:14 
　　　　　　　　　　　　└あっれれ？？ 弁護士五右衛門 2003/02/03 23:37:35 
　　　　　　　　　　　　　└申し訳ありません。 弁護士五右衛門 2003/02/04 01:32:20 
　　　　　　　　　　　　　　└最終報告！！ 弁護士五右衛門 2003/02/04 02:12:42 
　　　　　　　　　　　　　　　└完成ですか ひよ 2003/02/04 20:29:08 
　　　　　　　　　　　　　　　　└すてきな出会い、うれしいです。 弁護士五右衛門 2003/02/04 21:48:10 
　　　　　　　　　　　　　　　　　└お名前が・・・・ 弁護士五右衛門 2003/02/04 22:00:28

　　こんな計算、無理ですか？ 弁護士五右衛門 2003/01/26 11:29:06  ツリーへ

こんな計算、無理ですか？ 返事を書く

弁護士五右衛門 2003/01/26 11:29:06

　　　　　1　　　　　　　　　　　　c
　a + ---- = ------------------------
　　　　　b　　　　　　1 　-　　 (1+c)のマイナスb乗

この方程式で、
　aとbに任意の整数値を代入して、
　cの数値を表示させたいのですが？？

　　├cを未知数とする1変数の代数方程式の問題に... 白石和夫 2003/01/26 13:17:53  ツリーへ

Re: こんな計算、無理ですか？ 返事を書く

白石和夫 2003/01/26 13:17:53

cを未知数とする1変数の代数方程式の問題になると思います。
代数的に解く手法が見つからないのであれば，近似計算に頼ることになります。十進BASICのヘルプで参考書として挙げている
「数学とコンピュータ２」だと第6章に関連する記述があるので参考にしてください。

　　│└お返事ありがとうございます。 弁護士五右衛門 2003/01/26 15:34:20  ツリーへ

Re: cを未知数とする1変数の代数方程式の問題に... 返事を書く

弁護士五右衛門 2003/01/26 15:34:20

　お返事ありがとうございます。
　サラ、闇金業者の中にアドオン方式を悪用する者がいますので、アドオンの実質年利換算プログラムを制作し、Ｆｒｅｅで頒布しょうと考え、現在、エクセルを使用した下記のものをＦｒｅｅ頒布していますが、もっと正確なものがつくれないかなぁ～と考えています。
　お教え頂いた文献、勉強してみます。
　http://www.zunou.gr.jp/soft/uso.htm　
　

　　│　└とりあえず2分法をお試しください。 白石和夫 2003/01/26 16:10:43  ツリーへ

Re: お返事ありがとうございます。 返事を書く

白石和夫 2003/01/26 16:10:43

とりあえず2分法をお試しください。
１変数の関数f(x)において，f(a)<0，f(b)>0のとき，f(x)=0の解はaとbの間にあります。
(a+b)/2＝cとおくとき，f(c)>0なら解はaとcの間にあるのでbをcで置き換え，f(c)<0なら解はcとbの間にあるのでaをcで置き換えます。
これをaとbの差が十分小さくなるまで繰り返せば，それ(a,bの値)が解の近似値です。

　　│　　└なんども返信、ありがとうございました。 弁護士五右衛門 2003/01/27 07:31:17  ツリーへ

Re: とりあえず2分法をお試しください。 返事を書く

弁護士五右衛門 2003/01/27 07:31:17

　なんども返信、ありがとうございました。
　十進ＢＡＳＩＣ、勉強させて頂きます。

　　└力任せにこんな方法は如何でしょう。 ひよ 2003/01/27 11:13:35  ツリーへ

Re: こんな計算、無理ですか？ 返事を書く

ひよ 2003/01/27 11:13:35

力任せにこんな方法は如何でしょう。

a,bを入力
cの初期値c1=1.0とでもする
ループカウンタ=0とする
ここから繰り返しDo
c2=(a+1/b)*(1-(1+c)^-b)
c1=c2なら収束したのでループ脱出(Exit do)
ループカウンターを１増やす
もしループカウンターがたとえば100万を超えたら収束してない表示後ループ脱出
新c1=c2とする
ここまでループする
求められた、c=c2=c1を書く
終了

　　　└ひよさん。 弁護士五右衛門 2003/01/27 17:57:05  ツリーへ

Re: 力任せにこんな方法は如何でしょう。 返事を書く

弁護士五右衛門 2003/01/27 17:57:05

　ひよさん。
　返信、「力任せ」方法のご教示ありがとうございます。
　一度、挑戦しょうと思っていますが・・・ひよさん、換算できましたでしょうか？？
　得手勝手な質問をして、すみません！！
　

　　　　└こんな物でしょうか？ ひよ 2003/01/27 19:10:41  ツリーへ

Re: ひよさん。 返事を書く

ひよ 2003/01/27 19:10:41

こんな物でしょうか？
適当な数字(a,b)が解らないのですが、以下のプログラムで良いはずです。

!
! a + 1/b = c / (1-(1+c)^(-b))
!展開して
!c=(a+1/b)*(1-(1+c)^(-b))となる
!------------------------------------------------
LET mr=100000 !繰り返し最大数
do
input PROMPT "0,0で終了 a,b =":a,b
if (a=0) and (b=0) THEN exit do !終わり
LET c1 = 1 !cの初期値
LET rp=0 !ループ数
do
LET c2=(a+1/b)*(1-(1+c1)^(-b)) !c1を元に求めたc
if c2=1 then
print "発散しました";
exit do
end if
if c1=c2 THEN exit do !答えが得られた
LET rp=rp+1 !ループカウンターを増やす
if mr<rp then
print "答えが得られません";
exit do
end if
LET c1=c2
loop
print " c=";c2
print
loop
END

間違ってませんように．．．

　　　　　└やっぱり間違ってました.... ひよ 2003/01/27 19:21:44  ツリーへ

Re: こんな物でしょうか？ 返事を書く

ひよ 2003/01/27 19:21:44

やっぱり間違ってました....
発散の条件判断は
if c2=1 then ではなく
if c2=0 then です。
ゼロわり算のチェックですから

　　　　　　└試作、ありがとうございます。 弁護士五右衛門 2003/01/28 07:22:40  ツリーへ

Re: やっぱり間違ってました.... 返事を書く

弁護士五右衛門 2003/01/28 07:22:40

　試作、ありがとうございます。
　しかし、現在、エクセルを使用した下記のものの数値と大幅にかけ離れた結果がでるようです？？
　　http://www.zunou.gr.jp/soft/uso.htm　
　よく考えてみます。ありがとうございました。

　　　　　　　└左辺と右辺は合うのですが、、 ひよ 2003/01/28 09:36:15  ツリーへ

Re: 試作、ありがとうございます。 返事を書く

ひよ 2003/01/28 09:36:15

左辺と右辺は合うのですが、、
元の式がおかしいのと違いますか？
ここから、式と図を落としてください

http://pub.idisk-just.com/fview/NrcfD87CjdLeLTYrTsI9wK9DGf5jPeuqMtZM6_Q2KlYLihpLOUaxP2-LoR87qw6U

　　　　　　　　└お手数をおかけします。 弁護士五右衛門 2003/01/29 08:16:59  ツリーへ

Re: 左辺と右辺は合うのですが、、 返事を書く

弁護士五右衛門 2003/01/29 08:16:59

お手数をおかけします。
　ありがとうございました。ダウンロードさせて頂きました。
　再度、式の誤りの有無など再チェックさせて頂きます。
　ＰＳ
　　ひよさん、、、ひょっとして、、？？
　　私は一太郎の愛好家です。事務所も自宅も一太郎！！
　　関係ない、、ですか？？　

　　　　　　　　　└私も、一太郎です ひよ 2003/01/29 09:23:07  ツリーへ

Re: お手数をおかけします。 返事を書く

ひよ 2003/01/29 09:23:07

私も、一太郎です
日本人なら、まず日本のソフトを優先的に使いましょう！Ｍ＄－＊を使ったって日本の景気は良くならない！
と機会がある度に訴えてます。実際絵を貼り込んだりすると、一太郎の方がレイアウトしやすいです。
ワードは、ちょっと絵を動かしたら、絵が行方不明になってしまったりで
月末納品の報告書は、役所のくせにワードが指定、まあ、このような役所はアメリカの税金で運営して貰いたい物です。

なお、
オフィスソフトは StarSuite
ウェブブラウザは、Netscape
メールソフトは、鶴亀
言語は、F-Basicと十進BASIC、富士通のC&Fortran
これでOSのWin2000さえ無くなれば、完璧にM$とさよなら出来るのです.

　　　　　　　　　　└中間報告－その１ 弁護士五右衛門 2003/02/02 19:40:48  ツリーへ

Re: 私も、一太郎です 返事を書く

弁護士五右衛門 2003/02/02 19:40:48

　中間報告－その１
ひよさんの十進プログラム・・左右の計算結果一致します。
　正しいようです。

　しかし、私の求めている数値では、エクセル版の方が、近似値になっている・・ということは、私が、ひよさん、、に提示した計算式に問題がある？？
　もう少し、、考えさせて下さい。また、報告させて頂きます。

　　　　　　　　　　　└アドオン方式ですか？ ひよ 2003/02/03 19:46:14  ツリーへ

Re: 中間報告－その１ 返事を書く

ひよ 2003/02/03 19:46:14

アドオン方式ですか？
計算式は

毎回返済額は、
借入金額x利率を
1-(1+利率)^(-返済回数)で割ったものになります

a:借入金額
b:返済回数
c:利率
とすれば
毎回返済額=(a・c)/(1-(1+c)^(-b)と言う式になりますが
五右衛門さん呈示の元式で、b,cは多分回数と利率だと想像できたのですが
aが不明なのです。いずれにせよ、左辺がちょっと変だとおもいます

　　　　　　　　　　　　└あっれれ？？ 弁護士五右衛門 2003/02/03 23:37:35  ツリーへ

Re: アドオン方式ですか？ 返事を書く

弁護士五右衛門 2003/02/03 23:37:35

　あっれれ？？
　こんばんわ。ａはアドオン利率、ｂは支払い回数＝支払い月数、ｃは元利均等償還方式（仮想月利方式）による利率、のつもりだったんですが？？
　ａからｃを逆算したかったのです？？
　もう一度、考えなおしてみます？？

　　　　　　　　　　　　　└申し訳ありません。 弁護士五右衛門 2003/02/04 01:32:20  ツリーへ

Re: あっれれ？？ 返事を書く

弁護士五右衛門 2003/02/04 01:32:20

　申し訳ありません。
　初歩的、基本的、勘違いしているようです。
　ご報告させて頂きます。少し、お時間を・・・

　　　　　　　　　　　　　　└最終報告！！ 弁護士五右衛門 2003/02/04 02:12:42  ツリーへ

Re: 申し訳ありません。 返事を書く

弁護士五右衛門 2003/02/04 02:12:42

　最終報告！！
　ひよさん、ごめんなさい！！　私の初歩的入力ミス！！　情けない！！
　ａ/12で入力し、ｃ*12で、完璧に計算できているんです。そのはずですよね！！　ばんざ～～い！！　ありがとうございます！！

　　　　　　　　　　　　　　　└完成ですか ひよ 2003/02/04 20:29:08  ツリーへ

Re: 最終報告！！ 返事を書く

ひよ 2003/02/04 20:29:08

完成ですか
最終製品は下の adon.bas でよろしいのですね
http://pub.idisk-just.com/fview/NrcfD87CjdLeLTYrTsI9wK9DGf5jPeuqMtZM6_Q2KlYLihpLOUaxP2-LoR87qw6U
間違ってましたら、訂正お願いします

　　　　　　　　　　　　　　　　└すてきな出会い、うれしいです。 弁護士五右衛門 2003/02/04 21:48:10  ツリーへ

Re: 完成ですか 返事を書く

弁護士五右衛門 2003/02/04 21:48:10

すてきな出会い、うれしいです。
　「私の本屋さん」＝金森さんが、ひよさん制作にかかる
「adon」をインターネット法律協議会（弁護士ら数百人、合計１３００－１４００人のメーリングリスト）で、紹介準備をしておられるようです。
　

　　　　　　　　　　　　　　　　　└お名前が・・・・ 弁護士五右衛門 2003/02/04 22:00:28  ツリーへ

Re: すてきな出会い、うれしいです。 返事を書く

弁護士五右衛門 2003/02/04 22:00:28

　お名前が・・・・
　「私の本屋さん」・公開表示です。
　　http://www.ofours.com/books/35/
　怒られちゃうかなぁ～～～　

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

こんな計算、無理ですか？	返事を書く
弁護士五右衛門 2003/01/26 11:29:06
1　　　　　　　　　　　　c 　a + ---- = ------------------------ 　　　　　b　　　　　　1 　-　　 (1+c)のマイナスb乗この方程式で、　aとbに任意の整数値を代入して、　cの数値を表示させたいのですが？？

Re: こんな計算、無理ですか？	返事を書く
白石和夫 2003/01/26 13:17:53
cを未知数とする1変数の代数方程式の問題になると思います。代数的に解く手法が見つからないのであれば，近似計算に頼ることになります。十進BASICのヘルプで参考書として挙げている「数学とコンピュータ２」だと第6章に関連する記述があるので参考にしてください。

Re: cを未知数とする1変数の代数方程式の問題に...	返事を書く
弁護士五右衛門 2003/01/26 15:34:20
お返事ありがとうございます。　サラ、闇金業者の中にアドオン方式を悪用する者がいますので、アドオンの実質年利換算プログラムを制作し、Ｆｒｅｅで頒布しょうと考え、現在、エクセルを使用した下記のものをＦｒｅｅ頒布していますが、もっと正確なものがつくれないかなぁ～と考えています。　お教え頂いた文献、勉強してみます。　http://www.zunou.gr.jp/soft/uso.htm

Re: お返事ありがとうございます。	返事を書く
白石和夫 2003/01/26 16:10:43
とりあえず2分法をお試しください。１変数の関数f(x)において，f(a)<0，f(b)>0のとき，f(x)=0の解はaとbの間にあります。 (a+b)/2＝cとおくとき，f(c)>0なら解はaとcの間にあるのでbをcで置き換え，f(c)<0なら解はcとbの間にあるのでaをcで置き換えます。これをaとbの差が十分小さくなるまで繰り返せば，それ(a,bの値)が解の近似値です。

Re: とりあえず2分法をお試しください。	返事を書く
弁護士五右衛門 2003/01/27 07:31:17
なんども返信、ありがとうございました。　十進ＢＡＳＩＣ、勉強させて頂きます。

Re: こんな計算、無理ですか？	返事を書く
ひよ 2003/01/27 11:13:35
力任せにこんな方法は如何でしょう。 a,bを入力 cの初期値c1=1.0とでもするループカウンタ=0とするここから繰り返しDo c2=(a+1/b)*(1-(1+c)^-b) c1=c2なら収束したのでループ脱出(Exit do) ループカウンターを１増やすもしループカウンターがたとえば100万を超えたら収束してない表示後ループ脱出新c1=c2とするここまでループする求められた、c=c2=c1を書く終了

Re: 力任せにこんな方法は如何でしょう。	返事を書く
弁護士五右衛門 2003/01/27 17:57:05
ひよさん。　返信、「力任せ」方法のご教示ありがとうございます。　一度、挑戦しょうと思っていますが・・・ひよさん、換算できましたでしょうか？？　得手勝手な質問をして、すみません！！

Re: ひよさん。	返事を書く
ひよ 2003/01/27 19:10:41
こんな物でしょうか？適当な数字(a,b)が解らないのですが、以下のプログラムで良いはずです。 ! ! a + 1/b = c / (1-(1+c)^(-b)) !展開して !c=(a+1/b)(1-(1+c)^(-b))となる !------------------------------------------------ LET mr=100000 !繰り返し最大数 do input PROMPT "0,0で終了 a,b =":a,b if (a=0) and (b=0) THEN exit do !終わり LET c1 = 1 !cの初期値 LET rp=0 !ループ数 do LET c2=(a+1/b)(1-(1+c1)^(-b)) !c1を元に求めたc if c2=1 then print "発散しました"; exit do end if if c1=c2 THEN exit do !答えが得られた LET rp=rp+1 !ループカウンターを増やす if mr<rp then print "答えが得られません"; exit do end if LET c1=c2 loop print " c=";c2 print loop END 間違ってませんように．．．

Re: こんな物でしょうか？	返事を書く
ひよ 2003/01/27 19:21:44
やっぱり間違ってました.... 発散の条件判断は if c2=1 then ではなく if c2=0 then です。ゼロわり算のチェックですから

Re: やっぱり間違ってました....	返事を書く
弁護士五右衛門 2003/01/28 07:22:40
試作、ありがとうございます。　しかし、現在、エクセルを使用した下記のものの数値と大幅にかけ離れた結果がでるようです？？　　http://www.zunou.gr.jp/soft/uso.htm　　よく考えてみます。ありがとうございました。

Re: 試作、ありがとうございます。	返事を書く
ひよ 2003/01/28 09:36:15
左辺と右辺は合うのですが、、元の式がおかしいのと違いますか？ここから、式と図を落としてください http://pub.idisk-just.com/fview/NrcfD87CjdLeLTYrTsI9wK9DGf5jPeuqMtZM6_Q2KlYLihpLOUaxP2-LoR87qw6U

Re: 左辺と右辺は合うのですが、、	返事を書く
弁護士五右衛門 2003/01/29 08:16:59
お手数をおかけします。　ありがとうございました。ダウンロードさせて頂きました。　再度、式の誤りの有無など再チェックさせて頂きます。　ＰＳ　　ひよさん、、、ひょっとして、、？？　　私は一太郎の愛好家です。事務所も自宅も一太郎！！　　関係ない、、ですか？？

Re: お手数をおかけします。	返事を書く
ひよ 2003/01/29 09:23:07
私も、一太郎です日本人なら、まず日本のソフトを優先的に使いましょう！Ｍ＄－＊を使ったって日本の景気は良くならない！と機会がある度に訴えてます。実際絵を貼り込んだりすると、一太郎の方がレイアウトしやすいです。ワードは、ちょっと絵を動かしたら、絵が行方不明になってしまったりで月末納品の報告書は、役所のくせにワードが指定、まあ、このような役所はアメリカの税金で運営して貰いたい物です。なお、オフィスソフトは StarSuite ウェブブラウザは、Netscape メールソフトは、鶴亀言語は、F-Basicと十進BASIC、富士通のC&Fortran これでOSのWin2000さえ無くなれば、完璧にM$とさよなら出来るのです.

Re: 私も、一太郎です	返事を書く
弁護士五右衛門 2003/02/02 19:40:48
中間報告－その１ひよさんの十進プログラム・・左右の計算結果一致します。　正しいようです。　しかし、私の求めている数値では、エクセル版の方が、近似値になっている・・ということは、私が、ひよさん、、に提示した計算式に問題がある？？　もう少し、、考えさせて下さい。また、報告させて頂きます。

Re: 中間報告－その１	返事を書く
ひよ 2003/02/03 19:46:14
アドオン方式ですか？計算式は毎回返済額は、借入金額x利率を 1-(1+利率)^(-返済回数)で割ったものになります a:借入金額 b:返済回数 c:利率とすれば毎回返済額=(a・c)/(1-(1+c)^(-b)と言う式になりますが五右衛門さん呈示の元式で、b,cは多分回数と利率だと想像できたのですが aが不明なのです。いずれにせよ、左辺がちょっと変だとおもいます

Re: アドオン方式ですか？	返事を書く
弁護士五右衛門 2003/02/03 23:37:35
あっれれ？？　こんばんわ。ａはアドオン利率、ｂは支払い回数＝支払い月数、ｃは元利均等償還方式（仮想月利方式）による利率、のつもりだったんですが？？　ａからｃを逆算したかったのです？？　もう一度、考えなおしてみます？？

Re: あっれれ？？	返事を書く
弁護士五右衛門 2003/02/04 01:32:20
申し訳ありません。　初歩的、基本的、勘違いしているようです。　ご報告させて頂きます。少し、お時間を・・・

Re: 申し訳ありません。	返事を書く
弁護士五右衛門 2003/02/04 02:12:42
最終報告！！　ひよさん、ごめんなさい！！　私の初歩的入力ミス！！　情けない！！　ａ/12で入力し、ｃ*12で、完璧に計算できているんです。そのはずですよね！！　ばんざ～～い！！　ありがとうございます！！

Re: 最終報告！！	返事を書く
ひよ 2003/02/04 20:29:08
完成ですか最終製品は下の adon.bas でよろしいのですね http://pub.idisk-just.com/fview/NrcfD87CjdLeLTYrTsI9wK9DGf5jPeuqMtZM6_Q2KlYLihpLOUaxP2-LoR87qw6U 間違ってましたら、訂正お願いします

Re: 完成ですか	返事を書く
弁護士五右衛門 2003/02/04 21:48:10
すてきな出会い、うれしいです。　「私の本屋さん」＝金森さんが、ひよさん制作にかかる「adon」をインターネット法律協議会（弁護士ら数百人、合計１３００－１４００人のメーリングリスト）で、紹介準備をしておられるようです。

Re: すてきな出会い、うれしいです。	返事を書く
弁護士五右衛門 2003/02/04 22:00:28
お名前が・・・・　「私の本屋さん」・公開表示です。　　http://www.ofours.com/books/35/ 　怒られちゃうかなぁ～～～