[Excel関数]正四面体の体積や表面積を計算するRTETRAHEDRONカスタムワークシート関数群

コード

下記のコードを全てコピーし、標準モジュール等に貼り付けて下さい。下記のコード表示欄の右上に「Copy」ボタンがありますのでご使用下さい。なお、標準モジュールが何だか分からない方は、 Excelのカスタムワークシート関数を使用する方法 を参照して下さい。

' [Excel関数]正四面体の体積や表面積を計算するRTETRAHEDRONカスタムワークシート関数群 
' Copyright (c) 2020-2024  黒箱 
' This software is released under the MIT License;. 
' このソフトウェアはMITライセンスの下でリリースされています。 


'* @fn Public Function RTETRAHEDRONHGT(ByVal a As Variant) As Variant
'* @brief 正四面体の辺の長さから正四面体の高さを求めます。
'* @param[in] a 正四面体の辺の長さを指定します。
'* @return Variant 正四面体の高さを返します。
'* @note 関数名の由来：Regular TETRAHEDRON HeiGhT
'* @note 正四面体とは、合同な4つの三角形で構成された立体です。
Public Function RTETRAHEDRONHGT(ByVal a As Variant) As Variant
Const c = 6 ^ 0.5 / 3
    RTETRAHEDRONHGT = c * a
End Function


'* @fn Public Function RTETRAHEDRONSUR(ByVal a As Variant) As Variant
'* @brief 正四面体の辺の長さから正四面体の表面積を求めます。
'* @param[in] a 正四面体の辺の長さを指定します。
'* @return Variant 正四面体の表面積を返します。
'* @note 関数名の由来：Regular TETRAHEDRON SURface area
'* @note 正四面体とは、合同な4つの三角形で構成された立体です。
Public Function RTETRAHEDRONSUR(ByVal a As Variant) As Variant
Const c = 3 ^ 0.5
    RTETRAHEDRONSUR = c * a ^ 2
End Function


'* @fn Public Function RTETRAHEDRONVOL(ByVal a As Variant) As Variant
'* @brief 正四面体の辺の長さから正四面体の体積を求めます。
'* @param[in] a 正四面体の辺の長さを指定します。
'* @return Variant 正四面体の体積を返します。
'* @note 関数名の由来：Regular TETRAHEDRON VOLume
'* @note 正四面体とは、合同な4つの三角形で構成された立体です。
Public Function RTETRAHEDRONVOL(ByVal a As Variant) As Variant
Const c As Double = 2 ^ 0.5 / 12
    RTETRAHEDRONVOL = c * a ^ 3
End Function