DBE计算器 - 从分子式计算双键当量

1function calculateDBE(formula) {
2  // 解析分子式以获取元素数量
3  const elementRegex = /([A-Z][a-z]*)(\d*)/g;
4  const elements = {};
5  
6  let match;
7  while ((match = elementRegex.exec(formula)) !== null) {
8    const element = match[1];
9    const count = match[2] === '' ? 1 : parseInt(match[2]);
10    elements[element] = (elements[element] || 0) + count;
11  }
12  
13  // 获取元素数量
14  const c = elements['C'] || 0;
15  const h = elements['H'] || 0;
16  const n = elements['N'] || 0;
17  const p = elements['P'] || 0;
18  
19  // 计算卤素
20  const halogens = (elements['F'] || 0) + (elements['Cl'] || 0) + 
21                  (elements['Br'] || 0) + (elements['I'] || 0);
22  
23  // 计算DBE
24  const dbe = 1 + c - h/2 + n/2 + p/2 - halogens/2;
25  
26  return dbe;
27}
28
29// 使用示例
30console.log(`甲烷 (CH4): ${calculateDBE('CH4')}`);
31console.log(`乙烯 (C2H4): ${calculateDBE('C2H4')}`);
32console.log(`苯 (C6H6): ${calculateDBE('C6H6')}`);
33

1import java.util.HashMap;
2import java.util.Map;
3import java.util.regex.Matcher;
4import java.util.regex.Pattern;
5
6public class DBECalculator {
7    public static double calculateDBE(String formula) {
8        // 解析分子式以获取元素数量
9        Pattern pattern = Pattern.compile("([A-Z][a-z]*)(\\d*)");
10        Matcher matcher = pattern.matcher(formula);
11        
12        Map<String, Integer> elements = new HashMap<>();
13        
14        while (matcher.find()) {
15            String element = matcher.group(1);
16            String countStr = matcher.group(2);
17            int count = countStr.isEmpty() ? 1 : Integer.parseInt(countStr);
18            
19            elements.put(element, elements.getOrDefault(element, 0) + count);
20        }
21        
22        // 获取元素数量
23        int c = elements.getOrDefault("C", 0);
24        int h = elements.getOrDefault("H", 0);
25        int n = elements.getOrDefault("N", 0);
26        int p = elements.getOrDefault("P", 0);
27        
28        // 计算卤素
29        int halogens = elements.getOrDefault("F", 0) + 
30                      elements.getOrDefault("Cl", 0) + 
31                      elements.getOrDefault("Br", 0) + 
32                      elements.getOrDefault("I", 0);
33        
34        // 计算DBE
35        double dbe = 1 + c - h/2.0 + n/2.0 + p/2.0 - halogens/2.0;
36        
37        return dbe;
38    }
39    
40    public static void main(String[] args) {
41        System.out.printf("甲烷 (CH4): %.1f%n", calculateDBE("CH4"));
42        System.out.printf("乙烯 (C2H4): %.1f%n", calculateDBE("C2H4"));
43        System.out.printf("苯 (C6H6): %.1f%n", calculateDBE("C6H6"));
44    }
45}
46

1Function CalculateDBE(formula As String) As Double
2    ' 此函数需要Microsoft VBScript正则表达式库
3    ' 工具 -> 引用 -> Microsoft VBScript正则表达式 X.X
4    
5    Dim regex As Object
6    Set regex = CreateObject("VBScript.RegExp")
7    
8    regex.Global = True
9    regex.Pattern = "([A-Z][a-z]*)(\d*)"
10    
11    Dim matches As Object
12    Set matches = regex.Execute(formula)
13    
14    Dim elements As Object
15    Set elements = CreateObject("Scripting.Dictionary")
16    
17    Dim match As Object
18    For Each match In matches
19        Dim element As String
20        element = match.SubMatches(0)
21        
22        Dim count As Integer
23        If match.SubMatches(1) = "" Then
24            count = 1
25        Else
26            count = CInt(match.SubMatches(1))
27        End If
28        
29        If elements.Exists(element) Then
30            elements(element) = elements(element) + count
31        Else
32            elements.Add element, count
33        End If
34    Next match
35    
36    ' 获取元素数量
37    Dim c As Integer: c = 0
38    Dim h As Integer: h = 0
39    Dim n As Integer: n = 0
40    Dim p As Integer: p = 0
41    Dim halogens As Integer: halogens = 0
42    
43    If elements.Exists("C") Then c = elements("C")
44    If elements.Exists("H") Then h = elements("H")
45    If elements.Exists("N") Then n = elements("N")
46    If elements.Exists("P") Then p = elements("P")
47    
48    If elements.Exists("F") Then halogens = halogens + elements("F")
49    If elements.Exists("Cl") Then halogens = halogens + elements("Cl")
50    If elements.Exists("Br") Then halogens = halogens + elements("Br")
51    If elements.Exists("I") Then halogens = halogens + elements("I")
52    
53    ' 计算DBE
54    CalculateDBE = 1 + c - h / 2 + n / 2 + p / 2 - halogens / 2
55End Function
56
57' 工作表中的使用示例：
58' =CalculateDBE("C6H6")
59

1#include <iostream>
2#include <string>
3#include <map>
4#include <regex>
5
6double calculateDBE(const std::string& formula) {
7    // 解析分子式以获取元素数量
8    std::regex elementRegex("([A-Z][a-z]*)(\\d*)");
9    std::map<std::string, int> elements;
10    
11    auto begin = std::sregex_iterator(formula.begin(), formula.end(), elementRegex);
12    auto end = std::sregex_iterator();
13    
14    for (std::sregex_iterator i = begin; i != end; ++i) {
15        std::smatch match = *i;
16        std::string element = match[1].str();
17        std::string countStr = match[2].str();
18        int count = countStr.empty() ? 1 : std::stoi(countStr);
19        
20        elements[element] += count;
21    }
22    
23    // 获取元素数量
24    int c = elements["C"];
25    int h = elements["H"];
26    int n = elements["N"];
27    int p = elements["P"];
28    
29    // 计算卤素
30    int halogens = elements["F"] + elements["Cl"] + elements["Br"] + elements["I"];
31    
32    // 计算DBE
33    double dbe = 1 + c - h/2.0 + n/2.0 + p/2.0 - halogens/2.0;
34    
35    return dbe;
36}
37
38int main() {
39    std::cout << "甲烷 (CH4): " << calculateDBE("CH4") << std::endl;
40    std::cout << "乙烯 (C2H4): " << calculateDBE("C2H4") << std::endl;
41    std::cout << "苯 (C6H6): " << calculateDBE("C6H6") << std::endl;
42    
43    return 0;
44}
45