Présentation de synt_001e.jps

/syracuse/texpng/jpv/database/2nd/analyse/trigo/synt_001e.jpg
-1.75 1.75 setxrange -1.5 1.5 setyrange .5 .5 setquadrillagestep quadrillage .7 setlinewidth tracerepere gsave jpegmode 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 ymark %% pts du cercle trigo /M'1 {1 pi 6 div polcar} def /M'2 {1 pi 6 div 5 mul polcar} def %% pts du cercle "intervalle" M'1 M'2 O r interdroitecercle /M2 defpoint /M1 defpoint /M1 {-.9797958971 .5} def /M2 {.9797958971 .5} def [z1 z2 M1 M2 M'1 M'2] points gsave pointilles [M1 M2] ligne grestore setTimes (sin) 0 ymax (0 -10) rtext setSymbol (-p) z1 dltext (p) z2 ultext (p/6) M2 urtext (5p/6) M1 ultext 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 deg polcar cctext