アスコルビン酸ナトリウム

アスコルビン酸ナトリウム

by 孝昌 野中 -

\tdplotsetmaincoords{120-25}{25}\begin{tikzpicture}[scale=1,tdplot_main_coords,rotate=70,declare function = {opc=0.9;CCDC=519145;_cell_length_a = 9.051;_cell_length_b = 4.490;_cell_length_c = 8.516;_cell_angle_alpha = 90;_cell_angle_beta = 90;_cell_angle_gamma = 90;sg=P212121;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; Navdw=0.99 cm;vdw=1/5; lw=3;}]\coordinate (C1) at (7.559, -1.603, -3.655);\coordinate (C2) at (6.193, -1.250, -3.526);\coordinate (C3) at (5.782, -0.592, -4.658);\coordinate (C4) at (7.041, -0.325, -5.460);\coordinate (C5) at (6.986, -0.700, -6.949);\coordinate (C6) at (8.314, -0.432, -7.600);\coordinate (H1) at (8.744, 0.543, -7.332);\coordinate (H2) at (5.144, -1.181, -1.831);\coordinate (H3) at (8.897, -1.163, -7.315);\coordinate (H4) at (5.868, -2.196, -6.864);\coordinate (H5) at (8.840, -0.521, -9.402);\coordinate (H6) at (7.335, 0.772, -5.408);\coordinate (H7) at (6.344, -0.094, -7.349);\coordinate (O1) at (8.251, -2.304, -2.914);\coordinate (O2) at (5.437, -1.663, -2.442);\coordinate (O3) at (4.620, -0.183, -5.029);\coordinate (O4) at (8.083, -1.077, -4.792);\coordinate (O5) at (6.639, -2.047, -7.176);\coordinate (O6) at (8.139, -0.457, -9.011);\coordinate (Na1) at (6.942, 1.630, -0.961);\foreach \labelx /\labely in {C4/H6, C5/H7, C6/H1, C6/H3, O2/H2, O5/H4, O6/H5}\draw[line width = lw, Pink1] (\labelx) -- (\labely);\draw[line width = lw, green] (O4) -- (C1) -- (C2) -- (C3) -- (O3);\draw[line width = lw, green] (O1) -- (C1);\foreach \labelx /\labely in {C2/O2, C4/O4, C5/O5}\draw[line width = lw, gray] (\labelx) -- (\labely);\draw[line width = lw, gray] (C3) -- (C4) -- (C5) -- (C6) -- (O6);\foreach \label in {H1, H2, H3, H4, H5, H6, H7}\shade[ball color = white, opacity=opc] (\label) circle (vdw*Hvdw);\foreach \label in {C1, C2, C3, C4, C5, C6}\shade[ball color = black, opacity=opc] (\label) circle (vdw*Cvdw);\foreach \label in {Na1}\shade[ball color = Purple1, opacity=opc] (\label) circle (vdw*Navdw);\foreach \label in {O1, O2, O3, O4, O5, O6}\shade[ball color = red, opacity=opc] (\label) circle (vdw*Ovdw);\shade[ball color = white, opacity=1] (H3) circle (vdw*Hvdw);\end{tikzpicture}