Présentation de synt_001d.jps

/syracuse/texpng/jpv/database/2nd/analyse/trigo/synt_001d.jpg
-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 .05 def %% angle extremite inf /a2 2 pi mul a1 sub 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 (0) z1 urtext (2p) z2 drtext (p/3) M2 urtext (5p/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 ([0 ; 2p]) show 18 setfontsize setSymbolBold (+) 1.6 157.5 deg polcar cctext