Sqr関数 平方根を計算します

 Sqr(数値) は数値の平方根を返します。
 引数は 0 以上の数値で指定します。
 戻り値は double 型(倍精度浮動小数点数型)です。

≫ [Amazon 書籍広告] Python エンジニア機械学習理論入門
[内容:機械学習のビジネスへの活用方法/機械学習アルゴリズムの分類/クラスタリングとは?/回帰分析して観測値を推測する/トレーニングセット/テストセットで検証する/確率モデル/尤度関数を用いたパラメーター評価法/推定量を評価する/パーセプトロン/ベイズ推定/k 平均法の考え方]

 

実数あるいは虚数を返します

 任意の数を InputBox から入力してその平方根を得るマクロです。

 Sub 平方根()
  Dim x As Double, s As Double
  x = InputBox("数値を入力してください")
  If x = -1 Then
   MsgBox ("i")
  ElseIf x < 0 Then
   s = Sqr(Abs(x))
   MsgBox (s & "i")
  Else
   s = Sqr(x)
   MsgBox (s)
  End If
 End Sub

 上のマクロを実行すると値を入力するように促されます。
 入力した値によって、次のような形で表示されます。

  入力値:-1       虚数単位 i
  入力値:-1 以外の負数 [入力値の絶対値の平方根]i
  入力値:0 または正数  入力値の平方根

 たとえば「-3」と入力するとメッセージボックスに

1.73205080756888 i

と表示されます。
 

無理関数のグラフ用データ

 以下のマクロを実行すると、ワークシートの A 列と B 列に指数関数 y = √x のグラフを描くためのデータが得られます。

 Sub 無理関数()
  Dim i As Double
  i = 0
  Range("A1") = "x"
  Range("B1") = "√x"
  Range("A2").Select
  Do While i <= 8.01
   ActiveCell.Value = i
   ActiveCell.Offset(, 1).Value = Sqr(i)
   ActiveCell.Offset(1).Select
   i = i + 0.02
  Loop
 End Sub

 上のマクロを実行すると A 列と B 列に x と y の値が埋め込まれ、このデータを用いてグラフを描くことができます。原点付近を滑らかにつなぐために x の刻み幅は 0.02 という非常に小さな値をとっているので、400 行というやや大きなデータになります。必要に応じてデータを調整してください。 ≫ VBA 関数辞典

コメントをどうぞ

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください