1def calculate_horse_weight(heart_girth_inches, body_length_inches):
2    """
3    心胴囲と体長の測定値をインチ単位で使用して馬の体重を計算します。
4    ポンドとキログラムの両方で体重を返します。
5    """
6    # 入力検証
7    if heart_girth_inches <= 0 or body_length_inches <= 0:
8        raise ValueError("測定値は正の数でなければなりません")
9        
10    # ポンドでの体重を計算
11    weight_lbs = (heart_girth_inches ** 2 * body_length_inches) / 330
12    
13    # キログラムに変換
14    weight_kg = weight_lbs / 2.2046
15    
16    return {
17        "ポンド": round(weight_lbs, 1),
18        "キログラム": round(weight_kg, 1)
19    }
20
21# 使用例
22heart_girth = 75  # インチ
23body_length = 78  # インチ
24weight = calculate_horse_weight(heart_girth, body_length)
25print(f"推定馬体重: {weight['ポンド']} lbs ({weight['キログラム']} kg)")
26
27# センチメートルでの測定の場合
28def calculate_horse_weight_metric(heart_girth_cm, body_length_cm):
29    """
30    心胴囲と体長の測定値をセンチメートル単位で使用して馬の体重を計算します。
31    キログラムとポンドの両方で体重を返します。
32    """
33    # 入力検証
34    if heart_girth_cm <= 0 or body_length_cm <= 0:
35        raise ValueError("測定値は正の数でなければなりません")
36        
37    # キログラムでの体重を計算
38    weight_kg = (heart_girth_cm ** 2 * body_length_cm) / 11880
39    
40    # ポンドに変換
41    weight_lbs = weight_kg * 2.2046
42    
43    return {
44        "キログラム": round(weight_kg, 1),
45        "ポンド": round(weight_lbs, 1)
46    }
47
48# 品種特有の計算
49def calculate_breed_adjusted_weight(heart_girth_inches, body_length_inches, breed):
50    """
51    品種特有の調整を加えた馬の体重を計算します。
52    """
53    # 基本体重を計算
54    base_weight = (heart_girth_inches ** 2 * body_length_inches) / 330
55    
56    # 品種特有の調整を適用
57    breed_adjustments = {
58        "ドラフト": 1.12,  # ドラフト品種の平均調整
59        "アラビアン": 0.95,
60        "ミニチュア": 301/330,  # 専門の公式の除数を使用
61        # 他の品種は標準の公式を使用
62    }
63    
64    # 調整係数を取得（標準公式の場合はデフォルトで1.0）
65    adjustment = breed_adjustments.get(breed.lower(), 1.0)
66    
67    # 調整された体重を計算
68    adjusted_weight_lbs = base_weight * adjustment
69    adjusted_weight_kg = adjusted_weight_lbs / 2.2046
70    
71    return {
72        "ポンド": round(adjusted_weight_lbs, 1),
73        "キログラム": round(adjusted_weight_kg, 1)
74    }
75

1/**
2 * 心胴囲と体長の測定値をインチ単位で使用して馬の体重を計算します
3 * @param {number} heartGirthInches - 心胴囲の測定値（インチ）
4 * @param {number} bodyLengthInches - 体長の測定値（インチ）
5 * @returns {Object} ポンドとキログラムでの体重
6 */
7function calculateHorseWeight(heartGirthInches, bodyLengthInches) {
8  // 入力検証
9  if (heartGirthInches <= 0 || bodyLengthInches <= 0) {
10    throw new Error("測定値は正の数でなければなりません");
11  }
12  
13  // ポンドでの体重を計算
14  const weightLbs = (Math.pow(heartGirthInches, 2) * bodyLengthInches) / 330;
15  
16  // キログラムに変換
17  const weightKg = weightLbs / 2.2046;
18  
19  return {
20    ポンド: weightLbs.toFixed(1),
21    キログラム: weightKg.toFixed(1)
22  };
23}
24
25// 使用例
26const heartGirth = 75; // インチ
27const bodyLength = 78; // インチ
28const weight = calculateHorseWeight(heartGirth, bodyLength);
29console.log(`推定馬体重: ${weight.ポンド} lbs (${weight.キログラム} kg)`);
30
31/**
32 * 心胴囲と体長の測定値をセンチメートル単位で使用して馬の体重を計算します
33 * @param {number} heartGirthCm - 心胴囲の測定値（センチメートル）
34 * @param {number} bodyLengthCm - 体長の測定値（センチメートル）
35 * @returns {Object} キログラムとポンドでの体重
36 */
37function calculateHorseWeightMetric(heartGirthCm, bodyLengthCm) {
38  // 入力検証
39  if (heartGirthCm <= 0 || bodyLengthCm <= 0) {
40    throw new Error("測定値は正の数でなければなりません");
41  }
42  
43  // キログラムでの体重を計算
44  const weightKg = (Math.pow(heartGirthCm, 2) * bodyLengthCm) / 11880;
45  
46  // ポンドに変換
47  const weightLbs = weightKg * 2.2046;
48  
49  return {
50    キログラム: weightKg.toFixed(1),
51    ポンド: weightLbs.toFixed(1)
52  };
53}
54
55/**
56 * 品種特有の調整を加えた馬の体重を計算します
57 * @param {number} heartGirthInches - 心胴囲の測定値（インチ）
58 * @param {number} bodyLengthInches - 体長の測定値（インチ）
59 * @param {string} breed - 馬の品種
60 * @returns {Object} ポンドとキログラムでの体重
61 */
62function calculateBreedAdjustedWeight(heartGirthInches, bodyLengthInches, breed) {
63  // 基本体重を計算
64  const baseWeight = (Math.pow(heartGirthInches, 2) * bodyLengthInches) / 330;
65  
66  // 品種特有の調整係数
67  const breedAdjustments = {
68    'ドラフト': 1.12,
69    'アラビアン': 0.95,
70    'ミニチュア': 301/330
71  };
72  
73  // 調整係数を取得（標準公式の場合はデフォルトで1.0）
74  const adjustment = breedAdjustments[breed.toLowerCase()] || 1.0;
75  
76  // 調整された体重を計算
77  const adjustedWeightLbs = baseWeight * adjustment;
78  const adjustedWeightKg = adjustedWeightLbs / 2.2046;
79  
80  return {
81    ポンド: adjustedWeightLbs.toFixed(1),
82    キログラム: adjustedWeightKg.toFixed(1)
83  };
84}
85
86/**
87 * 簡単な体重追跡記録構造
88 */
89class HorseWeightRecord {
90  constructor(horseName) {
91    this.horseName = horseName;
92    this.weightHistory = [];
93  }
94  
95  /**
96   * 新しい体重測定を追加します
97   * @param {Date} date - 測定日
98   * @param {number} heartGirth - 心胴囲の測定値（インチ）
99   * @param {number} bodyLength - 体長の測定値（インチ）
100   * @param {string} notes - 測定に関するオプションのメモ
101   */
102  addMeasurement(date, heartGirth, bodyLength, notes = "") {
103    const weight = calculateHorseWeight(heartGirth, bodyLength);
104    
105    this.weightHistory.push({
106      date: date,
107      heartGirth: heartGirth,
108      bodyLength: bodyLength,
109      weightLbs: parseFloat(weight.ポンド),
110      weightKg: parseFloat(weight.キログラム),
111      notes: notes
112    });
113    
114    // 履歴を日付でソート
115    this.weightHistory.sort((a, b) => a.date - b.date);
116  }
117  
118  /**
119   * 時間の経過に伴う体重変化を取得します
120   * @returns {Object} 体重変化の統計
121   */
122  getWeightChangeStats() {
123    if (this.weightHistory.length < 2) {
124      return { message: "変化を計算するには少なくとも2つの測定が必要です" };
125    }
126    
127    const oldest = this.weightHistory[0];
128    const newest = this.weightHistory[this.weightHistory.length - 1];
129    const weightChangeLbs = newest.weightLbs - oldest.weightLbs;
130    const weightChangeKg = newest.weightKg - oldest.weightKg;
131    const daysDiff = (newest.date - oldest.date) / (1000 * 60 * 60 * 24);
132    
133    return {
134      totalChangeLbs: weightChangeLbs.toFixed(1),
135      totalChangeKg: weightChangeKg.toFixed(1),
136      changePerDayLbs: (weightChangeLbs / daysDiff).toFixed(2),
137      changePerDayKg: (weightChangeKg / daysDiff).toFixed(2),
138      daysElapsed: Math.round(daysDiff)
139    };
140  }
141}
142
143// 使用例
144const horseRecord = new HorseWeightRecord("サンダー");
145
146// サンプル測定を追加
147horseRecord.addMeasurement(new Date("2023-01-15"), 75, 78, "冬の体重");
148horseRecord.addMeasurement(new Date("2023-03-20"), 76, 78, "春のトレーニング開始");
149horseRecord.addMeasurement(new Date("2023-05-10"), 74.5, 78, "運動後");
150
151// 体重変化統計を取得
152const weightStats = horseRecord.getWeightChangeStats();
153console.log(`過去${weightStats.daysElapsed}日間の体重変化: ${weightStats.totalChangeLbs} lbs`);
154console.log(`平均日次変化: ${weightStats.changePerDayLbs} lbs/日`);
155

1' 基本的な馬の体重計算のためのExcel公式
2=((A2^2)*B2)/330
3
4' ここで：
5' A2 = 心胴囲（インチ）
6' B2 = 体長（インチ）
7' 結果はポンドで表示されます
8
9' メトリック測定（cmからkg）用：
10=((C2^2)*D2)/11880
11
12' ここで：
13' C2 = 心胴囲（センチメートル）
14' D2 = 体長（センチメートル）
15' 結果はキログラムで表示されます
16
17' 馬の体重計算のためのExcel VBA関数
18Function HorseWeight(HeartGirth As Double, BodyLength As Double, Optional UnitSystem As String = "imperial") As Double
19    ' 心胴囲と体長に基づいて馬の体重を計算します
20    ' UnitSystemは「imperial」（インチ→ポンド）または「metric」（cm→kg）です
21    
22    ' 入力検証
23    If HeartGirth <= 0 Or BodyLength <= 0 Then
24        HorseWeight = CVErr(xlErrValue)
25        Exit Function
26    End If
27    
28    ' 単位システムに基づいて計算
29    If UnitSystem = "imperial" Then
30        HorseWeight = (HeartGirth ^ 2 * BodyLength) / 330
31    ElseIf UnitSystem = "metric" Then
32        HorseWeight = (HeartGirth ^ 2 * BodyLength) / 11880
33    Else
34        HorseWeight = CVErr(xlErrValue)
35    End If
36End Function
37
38' 品種調整を加えた馬の体重計算のためのExcel VBA関数
39Function HorseWeightWithBreed(HeartGirth As Double, BodyLength As Double, Breed As String, Optional UnitSystem As String = "imperial") As Double
40    ' 基本体重を計算
41    Dim BaseWeight As Double
42    
43    If UnitSystem = "imperial" Then
44        BaseWeight = (HeartGirth ^ 2 * BodyLength) / 330
45    ElseIf UnitSystem = "metric" Then
46        BaseWeight = (HeartGirth ^ 2 * BodyLength) / 11880
47    Else
48        HorseWeightWithBreed = CVErr(xlErrValue)
49        Exit Function
50    End If
51    
52    ' 品種調整を適用
53    Select Case LCase(Breed)
54        Case "ドラフト"
55            HorseWeightWithBreed = BaseWeight * 1.12
56        Case "アラビアン"
57            HorseWeightWithBreed = BaseWeight * 0.95
58        Case "ミニチュア"
59            HorseWeightWithBreed = BaseWeight * (301 / 330)
60        Case Else
61            HorseWeightWithBreed = BaseWeight
62    End Select
63End Function
64