2 \begin{pspicture
}(-
4,-
4)(
4,
5)
3 \psset{viewpoint=
100 50 20 rtp2xyz,Decran=
30,RotY=-
30}
4 {\psset{lightintensity=
1,linewidth=
0.5\pslinewidth}
8 0 0.25 10.93 [8 6] newcylindre
9 {-
90 0 0 rotateOpoint3d
} solidtransform
10 dup (White) outputcolors
12 /L2
{ L1
{0 0 -
109.5 rotateOpoint3d
} solidtransform
} def
13 /L3
{ L2
{0 -
120 0 rotateOpoint3d
} solidtransform
} def
14 /L4
{ L2
{0 120 0 rotateOpoint3d
} solidtransform
} def
15 /L12
{ L1 L2 solidfuz
} def
16 /L123
{ L12 L3 solidfuz
} def
17 /Liaisons
{ L123 L4 solidfuz
} def
18 Liaisons drawsolid**
}}
19 \psPoint(
0,
10.93,
0)
{H1
}
20 \psPoint(
10.3,-
3.64,
0)
{H2
}
21 \psPoint(-
5.15,-
3.64,
8.924)
{H3
}
22 \psPoint(-
5.15,-
3.64,-
8.924)
{H4
}
23 \uput[0](H1)
{$
\mathrm{H_1
}$
}
24 \uput[l
](H2)
{$
\mathrm{H_2
}$
}
25 \uput[u
](H3)
{$
\mathrm{H_3
}$
}
26 \uput[d
](H4)
{$
\mathrm{H_4
}$
}
27 \pcline[offset=
0.25]{|-|
}(H2)(H3)
28 \pcline[offset=
0.25]{<->
}(H2)(H3)
30 \pcline[offset=
0.15]{|-|
}(H2)(O)
31 \pcline[offset=
0.15]{<->
}(H2)(O)
33 \axesIIID(
3,
3,
3)(
14,
16,
14)
34 \pspolygon[linestyle=dashed,linecolor=red
](H1)(H2)(H3)
35 \psline[linestyle=dashed,linecolor=red
](H4)(H1)
36 \psline[linestyle=dashed,linecolor=red
](H4)(H2)
37 \psline[linestyle=dashed,linecolor=red
](H4)(H3)
38 \psline[linestyle=dotted,linecolor=red
](H4)(O)
39 \psline[linestyle=dotted,linecolor=red
](H3)(O)
40 \psline[linestyle=dotted,linecolor=red
](H2)(O)
41 \psline[linestyle=dotted,linecolor=red
](H1)(O)
42 \pstMarkAngle[arrows=<->
]{H1
}{O
}{H3
}{\small 109,
5$^
{\mathrm{o
}}$
}
45 \begin{pspicture
}(-
4,-
4)(
4,
5)
46 \psset{lightsrc=
50 50 10,lightintensity=
1,viewpoint=
100 50 20 rtp2xyz,Decran=
30,RotY=-
30}
48 \psset{linewidth=
0.5\pslinewidth}
51 /H1
{2 [18 16] newsphere
52 {-
90 0 0 rotateOpoint3d
} solidtransform
53 {0 10.93 0 translatepoint3d
} solidtransform
54 dup (White) outputcolors
} def
56 0 0.25 10 [12 10] newcylindre
57 {-
90 0 0 rotateOpoint3d
} solidtransform
58 dup (White) outputcolors
60 /HL1
{ H1 L1 solidfuz
} def
61 /HL2
{ HL1
{0 0 -
109.5 rotateOpoint3d
} solidtransform
} def
62 /HL3
{ HL2
{0 -
120 0 rotateOpoint3d
} solidtransform
} def
63 /HL4
{ HL2
{0 120 0 rotateOpoint3d
} solidtransform
} def
64 /C
{3 [18 16] newsphere
65 {90 0 0 rotateOpoint3d
} solidtransform
66 dup (gris) outputcolors
} def
67 /HL12
{ HL1 HL2 solidfuz
} def
68 /HL123
{ HL12 HL3 solidfuz
} def
69 /HL1234
{ HL123 HL4 solidfuz
} def
70 /methane
{ HL1234 C solidfuz
} def
72 \psPoint(
0,
10.93,
0)
{H1
}
73 \psPoint(
10.3,-
3.64,
0)
{H2
}
74 \psPoint(-
5.15,-
3.64,
8.924)
{H3
}
75 \psPoint(-
5.15,-
3.64,-
8.924)
{H4
}}%
76 \axesIIID(
3,
3,
3)(
14,
16,
14)
77 \pspolygon[linestyle=dashed,linecolor=red
](H1)(H2)(H3)
78 \psline[linestyle=dashed,linecolor=red
](H4)(H1)
79 \psline[linestyle=dashed,linecolor=red
](H4)(H2)
80 \psline[linestyle=dashed,linecolor=red
](H4)(H3)
81 \psline[linestyle=dotted,linecolor=red
](H4)(O)
82 \psline[linestyle=dotted,linecolor=red
](H3)(O)
83 \psline[linestyle=dotted,linecolor=red
](H2)(O)
84 \psline[linestyle=dotted,linecolor=red
](H1)(O)