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

コード

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

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


'* @fn Public Function RSQPYRAMIDFEDG(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐台の下辺及び上底の長さと高さから正四角錐台の斜辺の長さを求めます。
'* @param[in] a 正四角錐台の下辺の長さの長さを指定します。
'* @param[in] b 正四角錐台の上底の長さの長さを指定します。
'* @param[in] h 正四角錐台の高さを指定します。
'* @return Variant 正四角錐台の斜辺の長さを返します。
'* @note 関数名の由来：Regular SQuare PYRAMID Frustum EDGe
Public Function RSQPYRAMIDFEDG(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
'Const c As Double = (1 / 4) * (1 / (Tan((4 * Atn(1)) / 4))) ^ 2 ' ((1 / (Tan((4 * Atn(1)) / 4))) ^ 2) == 1
Const c As Double = 1 / 4
    RSQPYRAMIDFEDG = (c * (a - b) ^ 2 + h ^ 2) ^ 0.5
End Function



'* @fn Public Public Function RSQPYRAMIDFLAT(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐台の下辺及び上底の長さと高さから正四角錐台の表面積を求めます。
'* @param[in] a 正四角錐台の下辺の長さの長さを指定します。
'* @param[in] b 正四角錐台の上底の長さの長さを指定します。
'* @param[in] h 正四角錐台の高さを指定します。
'* @return Variant 正四角錐台の表面積を返します。
'* @note 関数名の由来：Regular SQuare PYRAMID Frustum LATeral surface area
Public Function RSQPYRAMIDFLAT(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
    RSQPYRAMIDFLAT = 2 * (a + b) * (((a - b) / 2) ^ 2 + h ^ 2) ^ 0.5
End Function



'* @fn Public Function RSQPYRAMIDFSUR(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐台の下辺及び上底の長さと高さから正四角錐台の表面積を求めます。
'* @param[in] a 正四角錐台の下辺の長さの長さを指定します。
'* @param[in] b 正四角錐台の上底の長さの長さを指定します。
'* @param[in] h 正四角錐台の高さを指定します。
'* @return Variant 正四角錐台の表面積を返します。
'* @note 関数名の由来：Regular SQuare PYRAMID Frustum SURface Area
Public Function RSQPYRAMIDFSUR(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
    RSQPYRAMIDFSUR = RSQPYRAMIDFLAT(a, b, h) + a ^ 2 + b ^ 2
End Function


'* @fn Public Function RSQPYRAMIDFSLA(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐台の下辺及び上底の長さと斜辺から正四角錐台の側面の高さを求めます。
'* @param[in] a 正四角錐台の下辺の長さの長さを指定します。
'* @param[in] b 正四角錐台の上底の長さの長さを指定します。
'* @param[in] h 正四角錐台の高さを指定します。
'* @return Variant 正四角錐台の側面の高さを返します。
'* @note 関数名の由来：Regular SQuare PYRAMID Frustum SLAnt
Public Function RSQPYRAMIDFSLA(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
    RSQPYRAMIDFSLA = ((4 * RSQPYRAMIDFEDG(a, b, h) ^ 2 + (a - b) ^ 2)) ^ 0.5 / 2
End Function


'* @fn Public Function RSQPYRAMIDFVOL(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
'* @brief 正四角錐台の下辺及び上底の長さと高さから正四角錐台の体積を求めます。
'* @param[in] a 正四角錐台の下辺の長さの長さを指定します。
'* @param[in] b 正四角錐台の上底の長さの長さを指定します。
'* @param[in] h 正四角錐台の高さを指定します。
'* @return Variant 正四角錐台の体積を返します。
'* @note 関数名の由来：Regular SQuare PYRAMID Frustum VOLume
Public Function RSQPYRAMIDFVOL(ByVal a As Variant, ByVal b As Variant, ByVal h As Variant) As Variant
Const c As Double = 1 / 3
    RSQPYRAMIDFVOL = c * (a ^ 2 + a * b + b ^ 2) * h
End Function