L-ヒスチジン@pH 8

L-ヒスチジン@pH 8

- 野中 孝昌 の投稿

\tdplotsetmaincoords{75}{-65}\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=180,declare function = { opc=0.9;_cell.entry_id = 2193020;_cell.length_a = 5.312;_cell.length_b = 9.250;_cell.length_c = 30.286;_cell.angle_alpha = 90.00;_cell.angle_beta = 90.00;_cell.angle_gamma = 90.00;_symmetry.space_group_name_H-M = 'P 21 21 21';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; Brvdw=1.85 cm; Ivdw=1.98 cm; Ptvdw=1.75 cm;vdw=1/5; lw=3;x0=3.73850; y0=4.30160; z0=21.31655;}]\coordinate (C13) at (3.881-x0, 4.399-y0, 20.278);\coordinate (C14) at (3.471-x0, 3.165-y0, 19.876);\coordinate (N15) at (2.366-x0, 3.360-y0, 19.084);\coordinate (C16) at (2.148-x0, 4.686-y0, 19.031);\coordinate (N17) at (3.033-x0, 5.362-y0, 19.743);\coordinate (C18) at (5.012-x0, 4.741-y0, 21.192);\coordinate (C19) at (4.626-x0, 4.754-y0, 22.678);\coordinate (C20) at (3.511-x0, 5.748-y0, 23.006);\coordinate (O21) at (2.455-x0, 5.322-y0, 23.521);\coordinate (O22) at (3.767-x0, 6.946-y0, 22.715);\coordinate (N23) at (4.248-x0, 3.373-y0, 23.103);\coordinate (H14) at (3.870-x0, 2.333-y0, 20.101);\coordinate (H15) at (1.891-x0, 2.736-y0, 18.686);\coordinate (H16) at (1.442-x0, 5.089-y0, 18.541);\coordinate (H19) at (5.435-x0, 5.022-y0, 23.202);\coordinate (H18A) at (5.362-x0, 5.634-y0, 20.946);\coordinate (H18B) at (5.740-x0, 4.085-y0, 21.058);\coordinate (H23A) at (4.116-x0, 3.358-y0, 24.005);\coordinate (H23B) at (4.915-x0, 2.794-y0, 22.884);\coordinate (H23C) at (3.481-x0, 3.125-y0, 22.681);\foreach \labelx /\labely in {C14/H14, N15/H15, C16/H16, C18/H18A, C18/H18B, C19/H19, N23/H23A, N23/H23B, N23/H23C}\draw[line width = lw, Pink1] (\labelx) -- (\labely);\draw[line width = lw, gray] (C13) -- (C18) -- (C19) -- (C20);\draw[line width = lw, gray] (C19) -- (N23);\draw[line width = lw, green] (C13) -- (C14) -- (N15) -- (C16) -- (N17) -- (C13);\draw[line width = lw, green] (O21) -- (C20) -- (O22);\foreach \label in {H14, H15, H16, H19, H18A, H18B, H23A, H23B, H23C}\shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {C13, C14, C16, C18, C19, C20}\shade[ball color = black, opacity=opc] (\label) circle (vdw*Cvdw);\foreach \label in {N15, N17, N23}\shade[ball color = blue, opacity=opc] (\label) circle (vdw*Nvdw);\foreach \label in {O21, O22}\shade[ball color = red, opacity=opc] (\label) circle (vdw*Nvdw);\end{tikzpicture}