%PS-Giovanni /linea {4 2 roll moveto lineto stroke} def /tlinea {1 setlinewidth [4 4] 0 setdash linea stroke [] 0 setdash} def /punto {newpath 3 0 360 arc closepath fill stroke } def /origine1assexper2pilacon|P_2-P_1| { 4 2 roll 2 copy translate exch 4 1 roll sub 3 1 roll exch sub 2 copy atan rotate 2 copy exch 4 1 roll mul 3 1 roll mul add sqrt } def /punta0 {0 0 moveto dup dup 0 exch 2 div lineto 0 lineto 0 exch 2 div neg lineto 0 0 lineto fill stroke } def /dirpunta{% x1 y1 x2 y2 gsave origine1assexper2pilacon|P_2-P_1| 0 translate 7 punta0 grestore} def /TR {/FO exch def /Times-Roman findfont FO scalefont setfont} def /SI {/FO exch def /Symbols findfont FO scalefont setfont} def /TRB {/FO exch def /Times-Roman-Bold findfont FO scalefont setfont} def /SIB {/FO exch def /Symbols-Bold findfont FO scalefont setfont} def /espressioner{% ####1_####2 P /y exch def /x exch def 14 TR x y moveto exch show x 6 add y 3 sub moveto 9 TR show} def /espressiones{% ####1_####2 P /y exch def /x exch def 12 SI x y moveto exch show x 7 add y 5 sub moveto 9 SI show} def % esempio (a) (b) 100 100 espressiones %j=\varphi c=\ch q=\th w=\o y=\psi f=\phi /L {200} def /P1 {0 L 5 div} def /P2 {L .1 mul 0 } def /P3 {L .25 mul 0} def /P4 {L .8 mul L .5 mul} def /P5 {L 0.75 mul L 0.65 mul} def /P6 {L .35 mul L .50 mul} def /P7 {L 0.15 mul L .90 mul} def /P8 {L .35 mul L} def gsave %100 100 translate 0.5 0.5 scale P6 P1 linea P6 P1 dirpunta P6 P2 tlinea P6 P2 dirpunta P6 P3 linea P6 P3 dirpunta P6 P4 linea P6 P4 dirpunta P6 P5 linea P6 P5 dirpunta P6 P7 linea P6 P7 dirpunta P6 P8 linea P6 P8 dirpunta (i) (1) P3 exch 10 add exch 5 add espressioner (i) (2) P5 10 add espressioner (i) (3) P7 10 add espressioner (x) () P1 10 add espressioner (n) () P2 exch 5 sub exch 10 add espressioner (y) () P4 10 add espressioner (O) () P6 exch 5 add exch 10 add espressioner (z) () P8 exch 10 add exch espressioner %j=\varphi c=\ch q=\th w=\o y=\psi f=\phi (j) (0) 35 60 espressiones (y) (0) 39 25 espressiones (q) (0) 54 143 espressiones /R {25} def newpath P6 R 90 118 arc stroke P6 R 220 243 arc stroke P6 R 2 mul 243 258 arc stroke grestore