1 \subsection{Bobine vide
}
4 \begin{minipage
}{0.45\linewidth}
6 \newcommand\SectionBobine{
11 R h
4 div sub h
3 div neg
% 5
12 R h
4 div sub h
3 div
% 6
19 \begin{minipage
}{0.45\linewidth}
20 \begin{pspicture
}(-
2,-
2)(
5,
2)
21 \pnode(!
2 3 2 div)
{S1
}
22 \pnode(!
2 3 2 div neg)
{S2
}
23 \pnode(!
4 3 2 div neg)
{S3
}
24 \pnode(!
4 3 3 div neg)
{S4
}
25 \pnode(!
4 3 4 div sub
3 3 div neg)
{S5
}
26 \pnode(!
4 3 4 div sub
3 3 div)
{S6
}
27 \pnode(!
4 3 3 div)
{S7
}
28 \pnode(!
4 3 2 div)
{S8
}
29 \def\pneuSection{\pspolygon[fillstyle=vlines,linewidth=
2\pslinewidth]%
30 (S1)(S2)(S3)(S4)(S5)(S6)(S7)(S8)
}
31 \rput(
0,
0)
{\pneuSection}\rput{180}{\pspolygon[fillstyle=vlines,linewidth=
1.5pt
]%
32 (!
2 3 2 div)(!
2 3 2 div neg)(!
4 3 2 div neg)
33 (!
4 3 3 div neg)(!
4 3 4 div sub
3 3 div neg)
34 (!
4 3 4 div sub
3 3 div)(!
4 3 3 div)(!
4 3 2 div)
}
35 \psline(-
3,
1.5)(
3,
1.5)
\psline(-
3,-
1.5)(
3,-
1.5)
36 \psline[linestyle=dashed,dash=
1 0.2 0.05 0.2]{->
}(
0,-
3)(
0,
3)
37 \uput[u
](
0,
3)
{$z$
}\uput[r
](
4.1,
0)
{$y$
}\uput[dl
](
0,
0)
{$O$
}
38 \psline[linestyle=dashed
](
2,-
1)(
2,
1.5)
39 \psline[linestyle=dashed
](
4,-
1)(
4,
2.5)
40 \psline[linestyle=dashed
](-
4,-
1)(
4,-
1)
41 \psline[linestyle=dashed
](-
4,
1)(
4,
1)
42 \psline[linestyle=dashed
]{->
}(-
4,
0)(
4.2,
0)
43 \psline{->
}(
0,
1.8)(
2,
1.8)
\uput[u
](
1,
1.8)
{$r$
}
44 \psline{->
}(
0,
2.5)(
4,
2.5)
\uput[u
](
2,
2.5)
{$R$
}
45 \psline{<->
}(
5,-
1.5)(
5,
1.5)
\uput[r
](
5,
0)
{$h$
}
54 \psdots[linecolor=red
](S1)(S2)(S3)(S4)(S5)(S6)(S7)(S8)
60 \begin{pspicture
}(-
5,-
6)(
5,
5)
66 R h
4 div sub h
3 div neg
% 5
67 R h
4 div sub h
3 div
% 6
71 \psframe*
[linecolor=blue!
50](-
5,-
5)(
5,
4)
72 \psset{viewpoint=
70 40 10 rtp2xyz,Decran=
25,lightsrc=
0 30 100}
73 \psSolid[object=grille,base=-
15 15 -
15 15,fillcolor=yellow!
30!black!
10](
0,
0,-
8)
74 %\psSolid[object=prisme,h=2,base=-15 1 -15 -1 15 -1 15 1](0,0,-8)
75 \psSolid[object=anneau,section=
\SectionBobine,fillcolor=gray!
50,h=
6,R=
8,r=
4,RotX=
90,linecolor=gray
]%
80 \begin{lstlisting
}[basicstyle=
\small\ttfamily]
81 \psSolid[object=grille,base=-
15 15 -
15 15,fillcolor=yellow!
30](
0,
0,-
8)
82 \psSolid[object=anneau,section=
\SectionBobine,fillcolor=gray!
50,h=
6,R=
8,r=
4,RotX=
90,linecolor=gray
]%
86 \subsection{D'autres anneaux
}
87 Trois autres exemples sont disponibles sur la page :
89 \url{http://syracuse.eu.org/lab/bpst/pst-solides3d/anneaux
}