gijyutsu-keisan.com

6.数列(等間隔)の作成

数列(等間隔)の作成に関する使い方を説明します。
数列(等間隔)の作成
FuncLnSpaceN(rng1, rng2, Nsep) 等間隔数列の作成(分割数指定)
FuncLnSpaceP(rng1, rng2, dX, Optional dir) 等間隔数列の作成(ピッチ指定)
FuncLogSpaceN(rng1, rng2, Nsep) 対数等間隔数列の作成

等間隔数列の作成(分割数指定)

FuncLnSpaceN(rng1, rng2, Nsep)
戻り値 等間隔数列(行,0)。
rng1, rng2 数列作成範囲(Start値:rng1、End値:rng2)
Nsep 範囲の分割数+1個。
VBAサンプルは次の通りです。
Sub test()

Dim tmp As Variant

’等間隔数列の作成(分割数指定)
tmp = FuncLnSpaceN(1, 10, 10)

’結果出力
Range(Cells(3, 2), Cells(3 + UBound(tmp, 1), 2 + UBound(tmp, 2))).Value = tmp

End Sub
FuncLnSpaceNは、Excel関数としても使えます。

等間隔数列の作成(ピッチ指定)

FuncLnSpaceP(rng1, rng2, dX, Optional dir)
戻り値 等間隔数列(行,0)。
rng1, rng2 数列作成範囲(Start値:rng1、End値:rng2)
dx ピッチ
dir 1=昇順(デフォルト), -1=降順
VBAサンプルは次の通りです。
Sub test()

Dim tmp As Variant

’等間隔数列の作成(分割数指定)
tmp = FuncLnSpaceP(2, 20, 2)

’結果出力
Range(Cells(3, 2), Cells(3 + UBound(tmp, 1), 2 + UBound(tmp, 2))).Value = tmp

End Sub
FuncLnSpacePは、Excel関数としても使えます。

対数等間隔数列の作成

FuncLogSpaceN(rng1, rng2, Nsep)
戻り値 回転後のベクトル(二次配列)。
vec1 回転対象となるベクトル(二次配列:(行,0))。
2行分のとき、平面内の回転。 3行分のとき、指定回転軸周りの回転。
ang 回転角(radianで指定)。
ax 回転軸の指定。
1=X軸周り、2=Y軸周り、3=Z軸周り(省略時)(省略可)

VBAサンプルは次の通りです。
Sub test()

Dim tmp As Variant

’対数等間隔数列の作成
tmp = FuncLogSpaceN(10, 1000, 10)

’結果出力
Range(Cells(3, 2), Cells(3 + UBound(tmp, 1), 2 + UBound(tmp, 2))).Value = tmp

End Sub
FuncLogSpaceNは、Excel関数としても使えます。

参考文献