Rev 15179 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 15179 | Rev 18080 | ||
---|---|---|---|
Line 75... | Line 75... | ||
75 | \integer{size=(1.5*\facteur)*(\M+1)} |
75 | \integer{size=(1.5*\facteur)*(\M+1)} |
76 | \integer{height2=4*\height} |
76 | \integer{height2=4*\height} |
77 | \text{size=\size,\height2} |
77 | \text{size=\size,\height2} |
78 | \text{fleche=xrange \xrange |
78 | \text{fleche=xrange \xrange |
79 | yrange \yrange |
79 | yrange \yrange |
80 |
|
80 | polyline \couleur,\M,\wi/2,-1,\wi/2,-1,-\wi/2,\M,-\wi/2,\M,-\wi,\N+0.5,0,\M,\wi,\M,\wi/2 |
81 | fill 0,0,\couleur |
81 | fill 0,0,\couleur |
82 | } |
82 | } |
83 | 83 | ||
84 | \text{STEP=\choix=0 ? wims(values x for x=1 to 2*\N)} |
84 | \text{STEP=\choix=0 ? wims(values x for x=1 to 2*\N)} |
85 | \text{STEP=\choix=1 ? wims(values 2*x-1 for x=1 to \N)} |
85 | \text{STEP=\choix=1 ? wims(values 2*x-1 for x=1 to \N)} |
Line 89... | Line 89... | ||
89 | \text{positionbas=} |
89 | \text{positionbas=} |
90 | \text{positionhaut=} |
90 | \text{positionhaut=} |
91 | \text{positionbas2=} |
91 | \text{positionbas2=} |
92 | \for{j=0 to \N-1}{ |
92 | \for{j=0 to \N-1}{ |
93 | \text{fleche=\choix=0 or \choix=1 or \choix=3 ? \fleche |
93 | \text{fleche=\choix=0 or \choix=1 or \choix=3 ? \fleche |
94 |
|
94 | segment \j-0.1,-\wi/2,\j-0.1,-2*\wi,\couleur} |
95 | \text{fleche=\choix=0 or \choix=2 or \choix=3? \fleche |
95 | \text{fleche=\choix=0 or \choix=2 or \choix=3? \fleche |
96 |
|
96 | segment \j-0.1,\wi/2,\j-0.1,2*\wi,\couleur} |
97 | \text{ans=pari([2*\j+1,2*\j+2])} |
97 | \text{ans=pari([2*\j+1,2*\j+2])} |
98 | \text{v=slib(draw/convpixel \j-0.5,-2,\size,\xrange,\yrange,0,pixels)} |
98 | \text{v=slib(draw/convpixel \j-0.5,-2,\size,\xrange,\yrange,0,pixels)} |
99 | \text{positionbas=\positionbas |
99 | \text{positionbas=\positionbas |
100 | r\ans[1],\v[1] x \v[2]} |
100 | r\ans[1],\v[1] x \v[2]} |
101 | \text{v=slib(draw/convpixel \j-0.5,-2,\size,\xrange,\yrange,0,pixels)} |
101 | \text{v=slib(draw/convpixel \j-0.5,-2,\size,\xrange,\yrange,0,pixels)} |