1function calculatePipeWeight(lengthMm, outerDiameterMm, innerDiameterMm, densityKgM3) {
2  // mmをmに変換
3  const lengthM = lengthMm / 1000;
4  const outerDiameterM = outerDiameterMm / 1000;
5  const innerDiameterM = innerDiameterMm / 1000;
6  
7  // 外部および内部半径を計算
8  const outerRadiusM = outerDiameterM / 2;
9  const innerRadiusM = innerDiameterM / 2;
10  
11  // 立方メートルで体積を計算
12  const volumeM3 = Math.PI * (Math.pow(outerRadiusM, 2) - Math.pow(innerRadiusM, 2)) * lengthM;
13  
14  // kgで重量を計算
15  const weightKg = volumeM3 * densityKgM3;
16  
17  return weightKg;
18}
19
20// 使用例
21const length = 6000;  // mm
22const outerDiameter = 114.3;  // mm
23const innerDiameter = 102.26;  // mm
24const density = 7850;  // kg/m³（炭素鋼）
25
26const weight = calculatePipeWeight(length, outerDiameter, innerDiameter, density);
27console.log(`パイプの重量：${weight.toFixed(2)} kg`);
28

1public class PipeWeightCalculator {
2    public static double calculatePipeWeight(double lengthMm, double outerDiameterMm, 
3                                            double innerDiameterMm, double densityKgM3) {
4        // mmをmに変換
5        double lengthM = lengthMm / 1000;
6        double outerDiameterM = outerDiameterMm / 1000;
7        double innerDiameterM = innerDiameterMm / 1000;
8        
9        // 外部および内部半径を計算
10        double outerRadiusM = outerDiameterM / 2;
11        double innerRadiusM = innerDiameterM / 2;
12        
13        // 立方メートルで体積を計算
14        double volumeM3 = Math.PI * (Math.pow(outerRadiusM, 2) - Math.pow(innerRadiusM, 2)) * lengthM;
15        
16        // kgで重量を計算
17        double weightKg = volumeM3 * densityKgM3;
18        
19        return weightKg;
20    }
21    
22    public static void main(String[] args) {
23        double length = 6000;  // mm
24        double outerDiameter = 114.3;  // mm
25        double innerDiameter = 102.26;  // mm
26        double density = 7850;  // kg/m³（炭素鋼）
27        
28        double weight = calculatePipeWeight(length, outerDiameter, innerDiameter, density);
29        System.out.printf("パイプの重量：%.2f kg%n", weight);
30    }
31}
32

1' パイプ重量計算のためのExcel式
2=PI()*(POWER(B2/2000,2)-POWER(C2/2000,2))*A2/1000*D2
3
4' ここで：
5' A2 = 長さ（mm）
6' B2 = 外径（mm）
7' C2 = 内径（mm）
8' D2 = 材料密度（kg/m³）
9
10' Excel VBA関数の例
11Function PipeWeight(lengthMm As Double, outerDiameterMm As Double, innerDiameterMm As Double, densityKgM3 As Double) As Double
12    ' mmをmに変換
13    Dim lengthM As Double
14    Dim outerDiameterM As Double
15    Dim innerDiameterM As Double
16    
17    lengthM = lengthMm / 1000
18    outerDiameterM = outerDiameterMm / 1000
19    innerDiameterM = innerDiameterMm / 1000
20    
21    ' 外部および内部半径を計算
22    Dim outerRadiusM As Double
23    Dim innerRadiusM As Double
24    
25    outerRadiusM = outerDiameterM / 2
26    innerRadiusM = innerDiameterM / 2
27    
28    ' 立方メートルで体積を計算
29    Dim volumeM3 As Double
30    volumeM3 = WorksheetFunction.Pi() * (outerRadiusM ^ 2 - innerRadiusM ^ 2) * lengthM
31    
32    ' kgで重量を計算
33    PipeWeight = volumeM3 * densityKgM3
34End Function
35

1#include <iostream>
2#include <cmath>
3#include <iomanip>
4
5double calculatePipeWeight(double lengthMm, double outerDiameterMm, 
6                          double innerDiameterMm, double densityKgM3) {
7    // mmをmに変換
8    double lengthM = lengthMm / 1000.0;
9    double outerDiameterM = outerDiameterMm / 1000.0;
10    double innerDiameterM = innerDiameterMm / 1000.0;
11    
12    // 外部および内部半径を計算
13    double outerRadiusM = outerDiameterM / 2.0;
14    double innerRadiusM = innerDiameterM / 2.0;
15    
16    // 立方メートルで体積を計算
17    double volumeM3 = M_PI * (pow(outerRadiusM, 2) - pow(innerRadiusM, 2)) * lengthM;
18    
19    // kgで重量を計算
20    double weightKg = volumeM3 * densityKgM3;
21    
22    return weightKg;
23}
24
25int main() {
26    double length = 6000.0;  // mm
27    double outerDiameter = 114.3;  // mm
28    double innerDiameter = 102.26;  // mm
29    double density = 7850.0;  // kg/m³（炭素鋼）
30    
31    double weight = calculatePipeWeight(length, outerDiameter, innerDiameter, density);
32    std::cout << "パイプの重量：" << std::fixed << std::setprecision(2) << weight << " kg" << std::endl;
33    
34    return 0;
35}
36