1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
changecom(`//')
%// M4 preprocessor include file for widely-used groups
%// 17-JAN-2000 IK change opening comment marker
define(`Me_', `atom("C",C,R) atom("H$_3$",L) ')
define(`eM_', `atom("C",C,L) atom("H$_3$",R) ')
define(`CH2_', `atom("CH$_2$",C,L,R) ')
define(`Et_', `atom("C",C,R) atom("H$_2$CH$_3$",L) ')
define(`tE_', `atom("C",C,L) atom("H$_3$CH$_2$",R) ')
define(`iPr_', `branch{bond($1,,0) bond(l) branch{bond(l+); bond(l--);};} ')
define(`Ph_', `ring(,0,H0=2=4=,,,ifelse($1,`', `r', `$1'))')
define(`OH_', `atom("O",C,R) atom("H",L) ')
define(`HO_', `atom("O",C,L) atom("H",R) ')
define(`OMe_', `atom("O",C,R) atom("CH$_3$",L) ')
define(`MeO_', `atom("O",C,L) atom("H$_3$C",R) ')
define(`OEt_', `atom("O",C,R) atom("CH$_2$CH$_3$",L) ')
define(`EtO_', `atom("O",C,L) atom("H$_3$CH$_2$C",R) ')
define(`CH2OH_', `atom("C",C,R) atom("H$_2$OH",L) ')
define(`HOCH2_', `atom("H$_2$",C,L) atom("HOC",R) ')
define(`NH2_', `atom("N",C,R) atom("H$_2$",L) ')
define(`H2N_', `atom("N",C,L) atom("H$_2$",R) ')
define(`NH_', `branch { bond($1) atom("H"); atom("N",C); } ')
define(`NMe2_', `atom("N",C,R) atom("(CH$_3$)$_2$",L) ')
define(`Me2N_', `atom("N",C,L) atom("(H$_3$C)$_2$",R) ')
define(`NMe2p_', `atom("N",C,R) atom("$^\oplus$(CH$_3$)$_2$",L) ')
define(`pMe2N_', `atom("N",C,L) atom("(H$_3$C)$_2^\oplus$",R) ')
define(`NH2p_', `atom("N",C,R) atom("$^\oplus$H$_2$",L) ')
define(`pH2N_', `atom("N",C,L) atom("H$_2^\oplus$",R) ')
define(`COOH_', `atom("C",C,R) atom("OOH",L) ')
define(`HOOC_', `atom("C",C,L) atom("HOO",R) ')
define(`COOMe_', `atom("C",C,R) atom("OOCH$_3$",L) ')
define(`MeOOC_', `atom("C",C,L) atom("H$_3$COO",R) ')
define(`COOEt_', `atom("C",C,R) atom("OOCH$_2$CH$_3$C",L) ')
define(`EtOOC_', `atom("C",C,L) atom("H$_3$CH$_2$COO",R) ')
define(`SO3H_', `atom("S",C,R) atom("O$_3$H",L) ')
define(`HO3S_', `atom("C",C,L) atom("HO$_3$",R) ')
define(`SO3m_', `atom("S",C,R) atom("O$_3^\ominus$",L) ')
define(`mO3S_', `atom("C",C,L) atom("$^\ominus$O$_3$",R) ')
|
