-1.75 1.75 setxrange
-1.5 1.5 setyrange
.5 .5 setquadrillagestep
quadrillage
.7 setlinewidth
tracerepere
gsave
pointilles
O 1 1 droite
-1 1 scale
O 1 1 droite
grestore
1.2 setlinewidth
O 1 cercle
%% le cercle trigo
1.2 setlinewidth
O 1 cercle
%% le cercle representant l'intervalle de resolution
/r 1.1 def %% rayon
/a1 pi -.985 mul def %% angle extremite inf
/a2 a1 neg def %% angle extremite sup
%% trace
.8 setlinewidth
a1 rd a2 rd O r Cercle
/z1 {r a1 Polcar} def %% le point extreme inf
/z2 {r a2 Polcar} def %% le point extreme sup
%% la resolution
.5 xmark
%% pts du cercle trigo
/M'1 {1 pi 3 div Polcar} def
/M'2 {1 pi -3 div Polcar} def
%% pts du cercle "intervalle"
M'1 M'2 O r interdroitecercle /M2 defpoint /M1 defpoint
[z1 z2 M1 M2 M'1 M'2] points
gsave
pointilles
[M1 M2] ligne
grestore
setTimes
(cos) xmax 0 (-10 0) dltext
setSymbol
(-p) z1 dltext
(p) z2 ultext
(p/3) M2 urtext
(-p/3) M1 drtext
1.2 setlinewidth
/fillstyle {blanc fill} def
-.9 -1.5 .9 -1.2 frame*
2 setlinewidth
O 1.5 142.5 170.5 (-) arcarrow
/arrowscale {2 2} def
.2 setlinewidth
O 1.5 142.5 172.5 (<-) arcarrow
2 setlinewidth
O 1.5 142.5 170.5 (-) arcarrow
setTimesBold
(Résolution sur ) .35 -1.35 cltext
setSymbol
([-p ; p]) show
18 setfontsize
setSymbolBold
(+) 1.6 157.5 polcar cctext
|