1' Excel公式用于稀释因子
2=B2/A2
3' 其中A2包含初始体积，B2包含最终体积
4
5' Excel VBA函数用于稀释因子
6Function DilutionFactor(initialVolume As Double, finalVolume As Double) As Variant
7    If initialVolume <= 0 Or finalVolume <= 0 Then
8        DilutionFactor = "错误：体积必须为正"
9    Else
10        DilutionFactor = finalVolume / initialVolume
11    End If
12End Function
13

1def calculate_dilution_factor(initial_volume, final_volume):
2    """
3    根据初始和最终体积计算稀释因子。
4    
5    参数：
6        initial_volume (float): 溶液的初始体积
7        final_volume (float): 稀释后的最终体积
8        
9    返回：
10        float: 计算出的稀释因子，或如果输入无效则为None
11    """
12    if initial_volume <= 0 or final_volume <= 0:
13        return None
14    
15    dilution_factor = final_volume / initial_volume
16    # 四舍五入到四位小数
17    return round(dilution_factor, 4)
18
19# 示例用法
20initial_vol = 5.0  # mL
21final_vol = 25.0   # mL
22df = calculate_dilution_factor(initial_vol, final_vol)
23print(f"稀释因子: {df}")  # 输出: 稀释因子: 5.0
24

1function calculateDilutionFactor(initialVolume, finalVolume) {
2  // 验证输入
3  if (initialVolume <= 0 || finalVolume <= 0) {
4    return null;
5  }
6  
7  // 计算稀释因子
8  const dilutionFactor = finalVolume / initialVolume;
9  
10  // 四舍五入到四位小数
11  return Math.round(dilutionFactor * 10000) / 10000;
12}
13
14// 示例用法
15const initialVol = 2.5;  // mL
16const finalVol = 10.0;   // mL
17const dilutionFactor = calculateDilutionFactor(initialVol, finalVol);
18console.log(`稀释因子: ${dilutionFactor}`);  // 输出: 稀释因子: 4
19

1calculate_dilution_factor <- function(initial_volume, final_volume) {
2  # 验证输入
3  if (initial_volume <= 0 || final_volume <= 0) {
4    return(NULL)
5  }
6  
7  # 计算稀释因子
8  dilution_factor <- final_volume / initial_volume
9  
10  # 四舍五入到四位小数
11  return(round(dilution_factor, 4))
12}
13
14# 示例用法
15initial_vol <- 1.0  # mL
16final_vol <- 5.0    # mL
17df <- calculate_dilution_factor(initial_vol, final_vol)
18cat("稀释因子:", df, "\n")  # 输出: 稀释因子: 5
19

1public class DilutionCalculator {
2    /**
3     * 根据初始和最终体积计算稀释因子。
4     * 
5     * @param initialVolume 溶液的初始体积
6     * @param finalVolume 稀释后的最终体积
7     * @return 计算出的稀释因子，或如果输入无效则为null
8     */
9    public static Double calculateDilutionFactor(double initialVolume, double finalVolume) {
10        // 验证输入
11        if (initialVolume <= 0 || finalVolume <= 0) {
12            return null;
13        }
14        
15        // 计算稀释因子
16        double dilutionFactor = finalVolume / initialVolume;
17        
18        // 四舍五入到四位小数
19        return Math.round(dilutionFactor * 10000) / 10000.0;
20    }
21    
22    public static void main(String[] args) {
23        double initialVol = 3.0;  // mL
24        double finalVol = 15.0;   // mL
25        
26        Double dilutionFactor = calculateDilutionFactor(initialVol, finalVol);
27        if (dilutionFactor != null) {
28            System.out.println("稀释因子: " + dilutionFactor);  // 输出: 稀释因子: 5.0
29        } else {
30            System.out.println("无效的输入值");
31        }
32    }
33}
34

1// C++示例
2#include <iostream>
3#include <cmath>
4
5double calculateDilutionFactor(double initialVolume, double finalVolume) {
6    // 验证输入
7    if (initialVolume <= 0 || finalVolume <= 0) {
8        return -1; // 错误指示
9    }
10    
11    // 计算稀释因子
12    double dilutionFactor = finalVolume / initialVolume;
13    
14    // 四舍五入到四位小数
15    return std::round(dilutionFactor * 10000) / 10000;
16}
17
18int main() {
19    double initialVol = 4.0;  // mL
20    double finalVol = 20.0;   // mL
21    
22    double dilutionFactor = calculateDilutionFactor(initialVol, finalVol);
23    if (dilutionFactor >= 0) {
24        std::cout << "稀释因子: " << dilutionFactor << std::endl;  // 输出: 稀释因子: 5
25    } else {
26        std::cout << "无效的输入值" << std::endl;
27    }
28    
29    return 0;
30}
31

1# Ruby示例
2def calculate_dilution_factor(initial_volume, final_volume)
3  # 验证输入
4  if initial_volume <= 0 || final_volume <= 0
5    return nil
6  end
7  
8  # 计算稀释因子
9  dilution_factor = final_volume / initial_volume
10  
11  # 四舍五入到四位小数
12  (dilution_factor * 10000).round / 10000.0
13end
14
15# 示例用法
16initial_vol = 2.0  # mL
17final_vol = 10.0   # mL
18df = calculate_dilution_factor(initial_vol, final_vol)
19
20if df
21  puts "稀释因子: #{df}"  # 输出: 稀释因子: 5.0
22else
23  puts "无效的输入值"
24end
25