「VBAで導関数を求めよ」ツイッターのお題をやってみた
ツイッターで出題されたVBAの問題をやってみました。
ツイッターのエクセルおよびVBA関係の人達の間で問題を出し合うという事が行われています。
そんな中、現役高校生と思われる方からVBAの問題が出されました。
お題：「y = 5x^3 + 2x^2 + 7x + 5」の導関数を求めろ！
そもそも導関数って何だ?
というところから始めないと・・・
お題に関するツイート
お題：「y = 5x^3 + 2x^2 + 7x + 5」の導関数を求めろ！
| 時間 | ツイート本文 |
| 2020/2/9 18:30 | ふっふっふ、じじいにだってできたぞ。 もうゴリゴリと力で押しきったのだ。 ところで、これで良いのだよね、ちょっと不安・・・  |
| 2020/2/9 17:30 | ・=から右側だけ解析する ・スペース区切りはあてにしない ・x^-3は-3x^-4で良い こんな感じかな。 後は、*や/や()は出てこないのか、さすがに()でそれぞれにx^3とか入っていたら厳しいだろ。 もうそういうのは考えない事にしよう、そうしよう。 これでVBA書けるのかな・・・ |
| 2020/2/9 17:02 | これでようやくVBAを書くことができるぞ。 いや待て、まだちゃんと定義できていないことが残っているようだ。 ・x,yしかアルファベットは出てこないのか? ・半角スペースで区切られていない場合もありえるのか? ・マイナスべき乗は、x^-3は-3x^-4で良いのか? |
| 2020/2/9 16:44 | つまり、 y = 5x^3 + 2x^2 + 7x + 5 これを微分すると、 y = 15x^2 + 4x + 7 これで良いのかな。 あれ、もう一回微分しちゃダメですか?、もっと簡単になるけど、ダメなんだよね。 |
| 2020/2/9 16:35 | へっへっへっ、ついにたどり着いたぞ、これだな。 youtube素晴らしいじゃあないですか。 https://t.co/QrZNeyQI5o |
| 2020/2/9 16:29 | 「微分係数」理解したぞ、「x=aでの微分係数は、x=aにおける接線の傾きです。」なるほど、なるほど、そうですか。 あれ、導関数を求めるのに関係あるのか、関係ないのか、、、 |
| 2020/2/9 16:20 | 続きをやろうかと調べ始めたら、また新しい言葉が、 「微分係数」 えーと、なんですか、それは、、、 もはや、近づいているのか、遠ざかっているかもわからなくなってきた、、、 |
| 2020/2/8 22:47 | さらに出てたぞ、 x^2 の微分は 2x x^3 の微分は 3x2 x^4 の微分は 4x3 そうか、そうだったのか・・・ すみません、この辺で勘弁してください?? |
| 2020/2/8 22:43 | ふっふっふっ、なんか出てたよ。 x^n の微分は二項定理 1/x の微分は分数式の計算 √x の微分は有理化 sin x の微分は三角関数の加法定理 e^x の微分はネイピア数の性質 つまり、今回は二項定理ですな。 |
| 2020/2/8 22:34 | いや、知ってるよ、微分でしょ。 limだとかx→0だとかってやつでしょ。 知ってますよ、もう。 limってリミットって読むでしょ、私クラスになるとね、リーメスって読みますから。 |
| 2020/2/8 22:29 | 「導関数を求めよ」理解したぞ、つまりは「微分せよ」ということですな。 なんだー、最初からそういってくれればいいのに。 ところで、「微分」って何だ・・・ |
| 2020/2/8 21:07 | そもそも「導関数」って何だ・・・ |
導関数を求めるVBA関数
Option Explicit
Sub test()
Const q = "y = 5x^3 + 1.5x^2.5 + 7x+5"
Debug.Print q
Dim s As String: s = q
If InStr(q, "=") > 0 Then s = Mid(q, InStr(q, "=") + 1)
Debug.Print "y' = " & 導関数(s)
End Sub
Function 導関数(q As String) As String
Dim s() As String
s = Split(空白区切(q), " ")
Dim s1
Dim i As Long
For i = LBound(s) To UBound(s)
If Not (s(i) = "+" Or s(i) = "-") Then
s(i) = 微分の法則(s(i))
End If
Next
導関数 = Trim(Join(s))
If Right(導関数, 1) = "+" Or Right(導関数, 1) = "-" Then
導関数 = Left(導関数, Len(導関数) - 1)
End If
導関数 = Trim(導関数)
End Function
Function 空白区切(ByVal s As String) As String
s = Replace(s, "X", "x")
s = Replace(Replace(s, "+", " + "), "-", " - ")
s = Replace(s, "^ - ", "^-") '後から追加
Do
s = Replace(s, " ", " ")
Loop Until Len(s) = Len(Replace(s, " ", " "))
空白区切 = s
End Function
Function 微分の法則(ByVal s As String) As String
Dim ary
If InStr(s, "x") = 0 Then
微分の法則 = ""
Exit Function
End If
If InStr(s, "^") = 0 Then
微分の法則 = Replace(s, "x", "")
Exit Function
End If
ary = Split(Replace(s, "x", ""), "^")
微分の法則 = IIf(ary(0) = "", 1, ary(0)) * ary(1) & _
"x" & _
IIf(ary(1) = 2, "", "^" & ary(1) - 1)
End Function
実行結果は、
ちゃんと動作してますね！指数のとこ小数点でも上手く実行できるんでしょうか？出来たらさらに応用の幅広がりますね
「微分の法則」これなら意図は伝わるでしょって感じです。
という事で、少数もやってみました。
キーとなる文字はxと^だけなので、他ははそのまんま処理しているだけです。
これで良いのか悪いのか、良く分からないのでとりあえず良い事にしておきます。
同じテーマ「エクセル雑感」の記事
Excelのリンクの管理について
プログラミングとは
「ネ申Excel」問題 への同意と反論
「Excel3ステップ理論」3階層システムの応用
「ポケモンを確実に見つける方法」をExcelで数学してみた
「VBAによる解析シリーズその2 カッコ」をやってみた
ツイッターで出されたVBAのお題をやってみた
エクセルで「もういくつ寝るとお正月」
エクセルで連立方程式を解く（MINVERSE,MMULT）
「VBAで導関数を求めよ」ツイッターのお題をやってみた
ツイッターのお題「君の名は？」
新着記事NEW ・・・新着記事一覧を見る
ユーザーに絶対に停止させたくない場合のVBA設定｜VBA技術解説（4月1日）
CharactersプロパティとCharactersオブジェクト｜VBA技術解説（3月31日）
指数近似/対数近似/累乗近似（掲載順位とCTR）｜エクセル関数超技（3月31日）
練習問題32（連続数値部分を取り出し記号で連結）｜VBA練習問題（3月24日）
連続数値部分を取り出し記号で連結｜エクセル関数超技（3月24日）
数式バーの高さを数式の行数で自動設定｜VBAサンプル集（3月21日）
LET関数（数式で変数を使う）｜エクセル入門（3月21日）
スピルに対応したXSPLITユーザー定義関数（文字区切り）｜VBAサンプル集（3月15日）
XMATCH関数（範囲から値を検索し一致する相対位置）｜エクセル入門（3月14日）
XLOOKUP関数（範囲を検索し一致する対応項目を返す）｜エクセル入門（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ひらがな⇔カタカナの変換｜エクセル基本操作
8.繰り返し処理（For Next)｜VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)｜エクセル関数超技
10.セルに文字を入れるとは（Range,Value）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。