Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62754 / 76732 ←次へ | 前へ→

【18579】Re:数値計算についての質問2
発言  ichinose  - 04/9/30(木) 7:39 -

引用なし
パスワード
   ▼ジュン さん:
おはようございます。

>とりあえず手計算で確認できるように,
>初期条件として,
>T0=0
>n=5
>Wi:i=1〜nのときの値
>W1=0.2 W2=0.4 ・・・ W5=1.0
↑、このWをどのようにせっていしたのかわかりません。
'=============================
Sub test()
  Dim n As Long
  n = 5 'ここを5としたのですよね?
'******************************************
  If n > 0 Then
   With Range("a1:a" & n)
    .Formula = "=int(rand()*" & n & ")+1"
    .Value = .Value
    End With
   End If
'このコードでセルA1からA5にw1〜w5に相当するサンプル値を
'設定しています。このコードからw1=0.2というサンプル値は作れないんですが・・。
'サンプル値は、整数だけの設定になっています。
'もし、w1・・・に自由に値を設定したいなら、
'******* で囲んだコードは削除して下さい。
'代わりにセルA1〜A5に0.2 0.4 ・・・ 1.0と設定して下さい
'**********************************************


 MsgBox tn(n, 1)
End Sub

'=======================================================
Function tn(n As Long, t0 As double) As Double
'              ↑ついでに ここも訂正して下さい
'Tn=Σ(i=1⇒n)Wi×Tn-iを計算する
'input : n 求めたい数列値、t0--初期値
'output: tn 結果
  Dim idx As Long
  Dim jdx As Long
  ReDim ans(n) As Double
  ans(0) = t0
  For idx = 1 To n
   ans(idx) = 0
   For jdx = idx - 1 To 0 Step -1
    ans(idx) = ans(idx) + Range("a" & (idx - jdx)).Value * ans(jdx)
    Next
   Next
  tn = ans(UBound(ans()))
End Function


>
>と置いて解いているのですが,
>   .Formula = "=int(rand()*" & n & ")+1"
>
>の部分でエラーが発生してしまいます.VBAについての
どんなエラーが内容ですか?

W1〜W5の値をどこに設定したのですか?
私が投稿したコードをそのまま実行すると
w1〜w5に値を自由に設定することはできないんですが・・・。
どこか変更しましたか?


それと私の解釈が違っているのでしょうか?
この計算結果って、T0=0の時って、常にTnは、0になるのではないのですか?
仮に
w1=1
w2=2
w3=3
として、
t0=0のとき、T3って、いくつになるんですか?0ではないんですか?
投稿したコードは、初期値が0のときは、解は0になっています。
解釈が違うなら教えて下さい。


>知識が浅いのに加え,めったに使用しないのでエラーの原因が
>何なのかも良く分かりません.よろしくお願いします.
>
>また,このような数値計算を解くにはやはりVBAでないと無理なのでしょうか.
数式では、難しいと思いますが・・・。


ちょっと、はっきり私にもエラーの内容が把握できませんが、

まず、私が投稿したコードを新規ブックで実行してみて下さい。
0 hits

【18561】数値計算について ジュン 04/9/29(水) 16:55 質問
【18563】Re:数値計算について ichinose 04/9/29(水) 19:11 回答
【18570】Re:数値計算について(一箇所訂正) ichinose 04/9/29(水) 22:39 発言
【18573】Re:数値計算について ジュン 04/9/29(水) 23:10 お礼
【18577】Re:数値計算についての質問2 ジュン 04/9/30(木) 2:19 質問
【18579】Re:数値計算についての質問2 ichinose 04/9/30(木) 7:39 発言
【18582】Re:数値計算についての質問2 ジュン 04/9/30(木) 8:47 お礼
【18587】数値計算についての質問3 ジュン 04/9/30(木) 15:09 質問
【18595】Re:数値計算についての質問3 ichinose 04/9/30(木) 21:09 発言
【18644】Re:数値計算についての質問3 ジュン 04/10/2(土) 21:11 お礼

62754 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free