スポンサーリンク

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

2020年12月13日

説明

RTETRAHEDRONカスタムワークシート関数群は、正四面体の体積や表面積などを計算します。正四面体とは、合同な4つの三角形で構成された立体です。

RTETRAHEDRONカスタムワークシート関数群には、下記の関数が含まれます。ワークシート関数だけで(VBAを使用せずに)同じことをしたい場合はコチラの記事を参照して下さい。

関数名機能関数名の由来
RTETRAHEDRONHGT正四面体の辺の長さから、正四面体の高さを計算します。Regular TETRAHEDRON HeiGhT
RTETRAHEDRONSUR正四面体の辺の長さから、正四面体の表面積を計算します。Regular TETRAHEDRON SURface area
RTETRAHEDRONVOL正四面体の辺の長さから、正四面体の体積を計算します。Regular TETRAHEDRON VOLume

動作例

計算式

項目計算式
$$ 高さ(h) $$$$ h=\frac{\sqrt{6}}{3}a $$
$$ 表面積(S) $$$$ S=\sqrt{3}a^2 $$
$$ 体積(V) $$$$ V=\frac{\sqrt{2}}{12}a^3 $$

構文

関数名第1引数戻り値
RTETRAHEDRONHGT辺の長さ高さ
RTETRAHEDRONSUR辺の長さ表面積
RTETRAHEDRONVOL辺の長さ体積
引数説明引数の指定既定値
辺の長さ正四面体の辺の長さを数値で指定します。必須(無し)

コード

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

'[Excel関数]正四面体の体積や表面積を計算するRTETRAHEDRONカスタムワークシート関数群
'Copyright (c) 2020 黒い箱の中 All Rights Reserved.
'This software is released under the MIT License<https://opensource.org/licenses/MIT>.
'このソフトウェアはMITライセンスの下でリリースされています<https://opensource.org/licenses/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

プログラムの利用について

本プログラムのライセンスは「The MIT License」を適用しています。

本プログラムは無償で利用できますが、本プログラム内の著作権表示及びライセンス表示は削除せずに表示しておいて下さい。

必須ではございませんが、本ホームページのプログラムを書籍またはホームページ等で一般公開したい方は、お問い合わせフォームよりご連絡頂けると幸いです。

スポンサーリンク