やってみた
2019-10-10 01:40:53
やってみた
テイラー展開って、やったことないんですけど！ http://godfoot.world.coocan.jp/taylor.htm より sin(x) = x^1/1! -x^3/3! +x^5/5! -x^7/7! + ・・・・・・ ・プログラムのループでつくる部分 +x^1/1! -x^3/3! +x^5/5! -x^7/7! "{プラマイ}x^{a}/{a}" ・概要 横ループ 縦ループ ans = エクセルにいれる式 CELL(r,c)にansをエクセルセル設定 ・ →c ↓r CELL(r,c) ＃-----------------------------------------------ここから エクセル起動 1にエクセル可視変更 //"{プラマイ}x^{a}/{a}!" → "-x^3/3!" "+x^5/5!" xとは変数 aとは変数 # 1,3,5,7… プラマイとは変数 # +,- 交互 //CELL(r,c)にansをエクセルセル設定 、とするための変数 rとは変数 # 何行目 cとは変数 # 何列目 ansとは変数 # セルに入れる値 左セルとは変数 # 一つ前のセル //見出し 43回 //右へ 回数で条件分岐 1ならば、ans = "x" 2ならば、ans = "sin(x)" 3ならば、a=1。 ans = "x^{a}/{a}!"。 違えば、a=a+2。ans = "x^{a}/{a}!"。 もしa>43ならば抜ける r=1 c=回数 CELL(r,c)にansをエクセルセル設定 //1列目 xの値 20回 回数で条件分岐 1ならば、x =-5 //初期値 ラジアン 違えば、x = x+0.05//xの増分 r = 回数+1 //下へ c = 1 ans = x CELL(r,c)にansをエクセルセル設定 //2列目 sin(x)の値 エクセルが計算 20回 r = 回数+1 //下へ c = 2 ans = "=sin({CELL(r,1)})" //=sin(A1),=sin(A2)… CELL(r,c)にansをエクセルセル設定 #--------- //表の中身 43回 //右へ 回数で条件分岐 //セル番号 列 1ならば、c = 3 //初期値 違えば、c = c+1 //右へ 回数で条件分岐 1ならば、a = 1//初期値 違えば、a = a+2 //1,3,5,7… もしa>43ならば抜ける (回数%2)で条件分岐 //+,-,+,-,+… 1ならばプラマイ = "+" 0ならばプラマイ = "-" 20回 //下へ 回数で条件分岐 //セル番号 行 1ならば、r = 2//初期値 違えば、r = r+1 //下へ aで条件分岐 1ならば、左セル = "" 違えば、左セル = CELL(r,c-1) x = CELL(r,1) //セル番号A2,A3,A4… 値の取得ではなくセル番号 //セルに入れる値をつくって入れる ans = "={左セル}{プラマイ}({x}^{a}/fact({a}))" CELL(r,c)へansをエクセルセル設定 #----------------------ここまで |