酢酸の水素結合ネットワーク

酢酸の水素結合ネットワーク

by 孝昌 野中 -
Number of replies: 0

\tdplotsetmaincoords{-30}{-70}\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=-77,declare function = {opc=0.9;Cvdw=1.70 cm; Nvdw=1.55 cm; Ovdw=1.52 cm; Hvdw=1.20 cm; Bvdw=1.92 cm; Clvdw=1.75 cm; Fvdw=1.47 cm; Svdw=1.80 cm; Pvdw=1.80cm; Brvdw=1.85 cm; Ivdw=1.98 cm; Ptvdw=1.75 cm; Mgvdw=0.86 cm;vdw=1/5; lw=3;_cell.entry_id = AceticAcid_251389;_cell.length_a = 3.945;_cell.length_b = 13.028;_cell.length_c = 5.641 ;_cell.angle_alpha = 90.00;_cell.angle_beta = 93.18;_cell.angle_gamma = 90.00;_symmetry.space_group_name_H-M = 'P21/n';x0=0.650350;y0=3.577025;z0=3.689000;}]\coordinate (C1A) at ( 0.696-x0, 4.373-y0, 3.397-z0);\coordinate (O1A) at ( 1.452-x0, 4.864-y0, 2.444-z0);\coordinate (C2A) at ( 0.310-x0, 5.386-y0, 4.421-z0);\coordinate (O2A) at ( 0.384-x0, 3.210-y0, 3.430-z0);\coordinate (H1A) at ( 1.663-x0, 4.261-y0, 1.943-z0);\coordinate (H21A) at (-0.281-x0, 5.959-y0, 4.066-z0);\coordinate (H22A) at ( 1.038-x0, 5.833-y0, 4.686-z0);\coordinate (H23A) at (-0.060-x0, 4.971-y0, 5.125-z0);\coordinate (C1B) at (-3.561-x0, 4.373-y0, 9.029-z0);\coordinate (O1B) at (-2.805-x0, 4.864-y0, 8.076-z0);\coordinate (C2B) at (-3.947-x0, 5.386-y0,10.053-z0);\coordinate (O2B) at (-3.874-x0, 3.210-y0, 9.062-z0);\coordinate (H1B) at (-2.594-x0, 4.261-y0, 7.575-z0);\coordinate (H21B) at (-4.538-x0, 5.959-y0, 9.698-z0);\coordinate (H22B) at (-3.220-x0, 5.833-y0,10.318-z0);\coordinate (H23B) at (-4.317-x0, 4.971-y0,10.757-z0);\coordinate (C1C) at (-1.432-x0, 2.141-y0, 6.213-z0);\coordinate (O1C) at (-0.677-x0, 1.650-y0, 5.260-z0);\coordinate (C2C) at (-1.818-x0, 1.128-y0, 7.237-z0);\coordinate (O2C) at (-1.745-x0, 3.304-y0, 6.246-z0);\coordinate (H1C) at (-0.465-x0, 2.253-y0, 4.759-z0);\coordinate (H21C) at (-2.410-x0, 0.555-y0, 6.882-z0);\coordinate (H22C) at (-1.091-x0, 0.681-y0, 7.502-z0);\coordinate (H23C) at (-2.188-x0, 1.543-y0, 7.941-z0);\coordinate (C1D) at ( 4.954-x0, 4.373-y0,-2.235-z0);\coordinate (O1D) at ( 5.709-x0, 4.864-y0,-3.188-z0);\coordinate (C2D) at ( 4.568-x0, 5.386-y0,-1.211-z0);\coordinate (O2D) at ( 4.641-x0, 3.210-y0,-2.202-z0);\coordinate (H1D) at ( 5.921-x0, 4.261-y0,-3.689-z0);\coordinate (H21D) at ( 3.976-x0, 5.959-y0,-1.566-z0);\coordinate (H22D) at ( 5.295-x0, 5.833-y0,-0.946-z0);\coordinate (H23D) at ( 4.198-x0, 4.971-y0,-0.507-z0);\coordinate (C1E) at ( 2.825-x0, 2.141-y0, 0.581-z0);\coordinate (O1E) at ( 3.581-x0, 1.650-y0,-0.372-z0);\coordinate (C2E) at ( 2.439-x0, 1.128-y0, 1.605-z0);\coordinate (O2E) at ( 2.512-x0, 3.304-y0, 0.614-z0);\coordinate (H1E) at ( 3.792-x0, 2.253-y0,-0.873-z0);\coordinate (H21E) at ( 1.848-x0, 0.555-y0, 1.250-z0);\coordinate (H22E) at ( 3.166-x0, 0.681-y0, 1.870-z0);\coordinate (H23E) at ( 2.069-x0, 1.543-y0, 2.309-z0);\foreach \labelx /\labely in {H1A/O2E, H1B/O2C, H1C/O2A, H1E/O2D} \draw[line width = lw, blue, densely dotted] (\labelx) -- (\labely);\foreach \labelx /\labely in { C2A/H21A, C2A/H22A, C2A/H23A, O1A/H1A, C2B/H21B, C2B/H22B, C2B/H23B, O1B/H1B, C2C/H21C, C2C/H22C, C2C/H23C, O1C/H1C, C2D/H21D, C2D/H22D, C2D/H23D, O1D/H1D, C2E/H21E, C2E/H22E, C2E/H23E, O1E/H1E} \draw[line width = lw, Pink1] (\labelx) -- (\labely);\draw[line width = lw, gray] (C2A) -- (C1A) -- (O1A);\draw[line width = lw, gray] (C2B) -- (C1B) -- (O1B);\draw[line width = lw, gray] (C2C) -- (C1C) -- (O1C);\draw[line width = lw, gray] (C2D) -- (C1D) -- (O1D);\draw[line width = lw, gray] (C2E) -- (C1E) -- (O1E);\foreach \labelx /\labely in {C1A/O2A, C1B/O2B, C1C/O2C, C1D/O2D, C1E/O2E}{\draw[line width = lw, cyan] (\labelx) to [bend left] (\labely);\draw[line width = lw, cyan] (\labelx) to [bend right] (\labely);}\foreach \label in {O1A, O2A, O1B, O2B, O1C, O2C, O1D, O2D, O1E, O2E} \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);\foreach \label in { H1A, H21A, H22A, H23A, H1B, H21B, H22B, H23B, H1C, H21C, H22C, H23C, H1D, H21D, H22D, H23D, H1E, H21E, H22E, H23E} \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {C1A, C2A, C1B, C2B, C1C, C2C, C1D, C2D, C1E, C2E} \shade[ball color = black, opacity=opc] (\label) circle (vdw*Cvdw);\end{tikzpicture}

\tdplotsetmaincoords{-30}{-70}
\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=-77,
declare function = {
opc=0.9;
Cvdw=1.70 cm; Nvdw=1.55 cm; Ovdw=1.52 cm; Hvdw=1.20 cm; Bvdw=1.92 cm; Clvdw=1.75 cm; Fvdw=1.47 cm; Svdw=1.80 cm; Pvdw=1.80cm; Brvdw=1.85 cm; Ivdw=1.98 cm; Ptvdw=1.75 cm; Mgvdw=0.86 cm;
vdw=1/5; lw=3;
_cell.entry_id = AceticAcid_251389;
_cell.length_a = 3.945;
_cell.length_b = 13.028;
_cell.length_c = 5.641 ;
_cell.angle_alpha = 90.00;
_cell.angle_beta = 93.18;
_cell.angle_gamma = 90.00;
_symmetry.space_group_name_H-M = 'P21/n';
x0=0.650350;y0=3.577025;z0=3.689000;
}]
\coordinate (C1A) at ( 0.696-x0, 4.373-y0, 3.397-z0);
\coordinate (O1A) at ( 1.452-x0, 4.864-y0, 2.444-z0);
\coordinate (C2A) at ( 0.310-x0, 5.386-y0, 4.421-z0);
\coordinate (O2A) at ( 0.384-x0, 3.210-y0, 3.430-z0);
\coordinate (H1A) at ( 1.663-x0, 4.261-y0, 1.943-z0);
\coordinate (H21A) at (-0.281-x0, 5.959-y0, 4.066-z0);
\coordinate (H22A) at ( 1.038-x0, 5.833-y0, 4.686-z0);
\coordinate (H23A) at (-0.060-x0, 4.971-y0, 5.125-z0);
\coordinate (C1B) at (-3.561-x0, 4.373-y0, 9.029-z0);
\coordinate (O1B) at (-2.805-x0, 4.864-y0, 8.076-z0);
\coordinate (C2B) at (-3.947-x0, 5.386-y0,10.053-z0);
\coordinate (O2B) at (-3.874-x0, 3.210-y0, 9.062-z0);
\coordinate (H1B) at (-2.594-x0, 4.261-y0, 7.575-z0);
\coordinate (H21B) at (-4.538-x0, 5.959-y0, 9.698-z0);
\coordinate (H22B) at (-3.220-x0, 5.833-y0,10.318-z0);
\coordinate (H23B) at (-4.317-x0, 4.971-y0,10.757-z0);
\coordinate (C1C) at (-1.432-x0, 2.141-y0, 6.213-z0);
\coordinate (O1C) at (-0.677-x0, 1.650-y0, 5.260-z0);
\coordinate (C2C) at (-1.818-x0, 1.128-y0, 7.237-z0);
\coordinate (O2C) at (-1.745-x0, 3.304-y0, 6.246-z0);
\coordinate (H1C) at (-0.465-x0, 2.253-y0, 4.759-z0);
\coordinate (H21C) at (-2.410-x0, 0.555-y0, 6.882-z0);
\coordinate (H22C) at (-1.091-x0, 0.681-y0, 7.502-z0);
\coordinate (H23C) at (-2.188-x0, 1.543-y0, 7.941-z0);
\coordinate (C1D) at ( 4.954-x0, 4.373-y0,-2.235-z0);
\coordinate (O1D) at ( 5.709-x0, 4.864-y0,-3.188-z0);
\coordinate (C2D) at ( 4.568-x0, 5.386-y0,-1.211-z0);
\coordinate (O2D) at ( 4.641-x0, 3.210-y0,-2.202-z0);
\coordinate (H1D) at ( 5.921-x0, 4.261-y0,-3.689-z0);
\coordinate (H21D) at ( 3.976-x0, 5.959-y0,-1.566-z0);
\coordinate (H22D) at ( 5.295-x0, 5.833-y0,-0.946-z0);
\coordinate (H23D) at ( 4.198-x0, 4.971-y0,-0.507-z0);
\coordinate (C1E) at ( 2.825-x0, 2.141-y0, 0.581-z0);
\coordinate (O1E) at ( 3.581-x0, 1.650-y0,-0.372-z0);
\coordinate (C2E) at ( 2.439-x0, 1.128-y0, 1.605-z0);
\coordinate (O2E) at ( 2.512-x0, 3.304-y0, 0.614-z0);
\coordinate (H1E) at ( 3.792-x0, 2.253-y0,-0.873-z0);
\coordinate (H21E) at ( 1.848-x0, 0.555-y0, 1.250-z0);
\coordinate (H22E) at ( 3.166-x0, 0.681-y0, 1.870-z0);
\coordinate (H23E) at ( 2.069-x0, 1.543-y0, 2.309-z0);
\foreach \labelx /\labely in {H1A/O2E, H1B/O2C, H1C/O2A, H1E/O2D}
 \draw[line width = lw, blue, densely dotted] (\labelx) -- (\labely);
\foreach \labelx /\labely in {
 C2A/H21A, C2A/H22A, C2A/H23A, O1A/H1A,
 C2B/H21B, C2B/H22B, C2B/H23B, O1B/H1B,
 C2C/H21C, C2C/H22C, C2C/H23C, O1C/H1C,
 C2D/H21D, C2D/H22D, C2D/H23D, O1D/H1D,
 C2E/H21E, C2E/H22E, C2E/H23E, O1E/H1E}
 \draw[line width = lw, Pink1] (\labelx) -- (\labely);
\draw[line width = lw, gray] (C2A) -- (C1A) -- (O1A);
\draw[line width = lw, gray] (C2B) -- (C1B) -- (O1B);
\draw[line width = lw, gray] (C2C) -- (C1C) -- (O1C);
\draw[line width = lw, gray] (C2D) -- (C1D) -- (O1D);
\draw[line width = lw, gray] (C2E) -- (C1E) -- (O1E);
\foreach \labelx /\labely in {C1A/O2A, C1B/O2B, C1C/O2C, C1D/O2D, C1E/O2E}{
\draw[line width = lw, cyan] (\labelx) to [bend left] (\labely);
\draw[line width = lw, cyan] (\labelx) to [bend right] (\labely);
}
\foreach \label in {O1A, O2A, O1B, O2B, O1C, O2C, O1D, O2D, O1E, O2E}
 \shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);
\foreach \label in {
 H1A, H21A, H22A, H23A,
 H1B, H21B, H22B, H23B,
 H1C, H21C, H22C, H23C,
 H1D, H21D, H22D, H23D,
 H1E, H21E, H22E, H23E}
 \shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);
\foreach \label in {C1A, C2A, C1B, C2B, C1C, C2C, C1D, C2D, C1E, C2E}
 \shade[ball color = black, opacity=opc] (\label) circle (vdw*Cvdw);
\end{tikzpicture}