1function calculateBufferPH(acidConcentration, baseConcentration, pKa = 7.21) {
2  // 验证输入
3  if (acidConcentration <= 0 || baseConcentration <= 0) {
4    throw new Error("浓度必须是正值");
5  }
6  
7  // 应用亨德森-哈塞尔巴尔赫方程
8  const ratio = baseConcentration / acidConcentration;
9  const pH = pKa + Math.log10(ratio);
10  
11  // 四舍五入到两位小数
12  return Math.round(pH * 100) / 100;
13}
14
15// 示例用法
16try {
17  const acidConc = 0.1; // mol/L
18  const baseConc = 0.2; // mol/L
19  const pH = calculateBufferPH(acidConc, baseConc);
20  console.log(`缓冲 pH: ${pH}`);
21} catch (error) {
22  console.error(`错误: ${error.message}`);
23}
24

1public class BufferPHCalculator {
2    private static final double DEFAULT_PKA = 7.21; // 磷酸盐缓冲液的默认 pKa
3    
4    /**
5     * 使用亨德森-哈塞尔巴尔赫方程计算缓冲溶液的 pH 值
6     * 
7     * @param acidConcentration 酸的浓度（mol/L）
8     * @param baseConcentration 共轭碱的浓度（mol/L）
9     * @param pKa 酸解离常数
10     * @return 缓冲溶液的 pH 值
11     * @throws IllegalArgumentException 如果浓度不是正值
12     */
13    public static double calculateBufferPH(double acidConcentration, 
14                                          double baseConcentration, 
15                                          double pKa) {
16        // 验证输入
17        if (acidConcentration <= 0 || baseConcentration <= 0) {
18            throw new IllegalArgumentException("浓度必须是正值");
19        }
20        
21        // 应用亨德森-哈塞尔巴尔赫方程
22        double ratio = baseConcentration / acidConcentration;
23        double pH = pKa + Math.log10(ratio);
24        
25        // 四舍五入到两位小数
26        return Math.round(pH * 100.0) / 100.0;
27    }
28    
29    /**
30     * 使用默认 pKa 值的重载方法
31     */
32    public static double calculateBufferPH(double acidConcentration, 
33                                          double baseConcentration) {
34        return calculateBufferPH(acidConcentration, baseConcentration, DEFAULT_PKA);
35    }
36    
37    public static void main(String[] args) {
38        try {
39            double acidConc = 0.1; // mol/L
40            double baseConc = 0.2; // mol/L
41            double pH = calculateBufferPH(acidConc, baseConc);
42            System.out.printf("缓冲 pH: %.2f%n", pH);
43        } catch (IllegalArgumentException e) {
44            System.err.println("错误: " + e.getMessage());
45        }
46    }
47}
48

1' Excel 函数用于缓冲 pH 计算
2Function BufferPH(acidConcentration As Double, baseConcentration As Double, Optional pKa As Double = 7.21) As Double
3    ' 验证输入
4    If acidConcentration <= 0 Or baseConcentration <= 0 Then
5        BufferPH = CVErr(xlErrValue)
6        Exit Function
7    End If
8    
9    ' 应用亨德森-哈塞尔巴尔赫方程
10    Dim ratio As Double
11    ratio = baseConcentration / acidConcentration
12    
13    BufferPH = pKa + Application.WorksheetFunction.Log10(ratio)
14    
15    ' 四舍五入到两位小数
16    BufferPH = Round(BufferPH, 2)
17End Function
18
19' 在 Excel 单元格中使用：=BufferPH(0.1, 0.2)
20

1calculate_buffer_ph <- function(acid_concentration, base_concentration, pKa = 7.21) {
2  # 验证输入
3  if (acid_concentration <= 0 || base_concentration <= 0) {
4    stop("浓度必须是正值")
5  }
6  
7  # 应用亨德森-哈塞尔巴尔赫方程
8  ratio <- base_concentration / acid_concentration
9  pH <- pKa + log10(ratio)
10  
11  # 四舍五入到两位小数
12  return(round(pH, 2))
13}
14
15# 示例用法
16acid_conc <- 0.1  # mol/L
17base_conc <- 0.2  # mol/L
18tryCatch({
19  pH <- calculate_buffer_ph(acid_conc, base_conc)
20  cat(sprintf("缓冲 pH: %.2f\n", pH))
21}, error = function(e) {
22  cat(sprintf("错误: %s\n", e$message))
23})
24

1function pH = calculateBufferPH(acidConcentration, baseConcentration, pKa)
2    % CALCULATEBUFFERPH 计算缓冲溶液的 pH 值
3    %   pH = CALCULATEBUFFERPH(acidConcentration, baseConcentration) 
4    %   使用亨德森-哈塞尔巴尔赫方程计算 pH
5    %
6    %   pH = CALCULATEBUFFERPH(acidConcentration, baseConcentration, pKa)
7    %   使用指定的 pKa 值，而不是默认值（7.21）
8    
9    % 如果未提供，则设置默认 pKa
10    if nargin < 3
11        pKa = 7.21; % 磷酸盐缓冲液的默认 pKa
12    end
13    
14    % 验证输入
15    if acidConcentration <= 0 || baseConcentration <= 0
16        error('浓度必须是正值');
17    end
18    
19    % 应用亨德森-哈塞尔巴尔赫方程
20    ratio = baseConcentration / acidConcentration;
21    pH = pKa + log10(ratio);
22    
23    % 四舍五入到两位小数
24    pH = round(pH * 100) / 100;
25end
26
27% 示例用法
28try
29    acidConc = 0.1; % mol/L
30    baseConc = 0.2; % mol/L
31    pH = calculateBufferPH(acidConc, baseConc);
32    fprintf('缓冲 pH: %.2f\n', pH);
33catch ME
34    fprintf('错误: %s\n', ME.message);
35end
36