Rev 13383 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 4612 | bpr | 1 | type=image |
| 2 | textarea="data" |
||
| 3 | |||
| 4 | :$name_description |
||
| 5 | :%%%%%%%% |
||
| 6 | :\title{$name_title} |
||
| 7 | :\author{$wims_firstname,$wims_lastname} |
||
| 8 | :\email{$wims_email} |
||
| 5726 | bpr | 9 | :\credits{} |
| 4612 | bpr | 10 | :$name_instruction |
| 4618 | bpr | 11 | \text{instruction=$name_instruction01} |
| 14667 | bpr | 12 | :$name_qu_cnt (<=10) |
| 4617 | bpr | 13 | \integer{N=4} |
| 14 | :$name_labelsize |
||
| 15 | \text{eti=110,24} |
||
| 4612 | bpr | 16 | :$name_image |
| 17 | \text{image=$wims_deposit} |
||
| 4617 | bpr | 18 | :$name_distractor |
| 19 | \integer{n=3} |
||
| 4645 | bpr | 20 | :$name_help_format1 |
| 4617 | bpr | 21 | \text{format=dragfill} |
| 4612 | bpr | 22 | :$name_data |
| 23 | $name_help_data |
||
| 24 | \matrix{data=$data} |
||
| 14667 | bpr | 25 | :$name_intrus |
| 26 | \text{intrus=} |
||
| 27 | :$name_nbintrus |
||
| 28 | \text{nbintrus=0} |
||
| 4612 | bpr | 29 | |
| 30 | :%%%%%%%%%%%%%%%%%%%%%%%% |
||
| 13383 | bpr | 31 | \text{data=wims(embraced randitem \data)} |
| 4612 | bpr | 32 | \text{size= \data[1;]} |
| 4645 | bpr | 33 | \text{coord = \data[2..-1;]} |
| 4617 | bpr | 34 | \integer{N1=rows(\coord)} |
| 4612 | bpr | 35 | \matrix{coord=\coord} |
| 14667 | bpr | 36 | \integer{intruscnt=items(\intrus)} |
| 37 | \text{intrus=shuffle(\intrus)} |
||
| 38 | \integer{nbintrus=min(\nbintrus,\intruscnt)} |
||
| 39 | \text{intrus2=\intrus[1..\nbintrus]} |
||
| 4617 | bpr | 40 | \integer{N=min(\N,\N1)} |
| 41 | \text{etix=\eti[1]} |
||
| 42 | \text{etiy=\eti[2]} |
||
| 43 | \text{position=} |
||
| 44 | \text{V = shuffle(\N1)} |
||
| 4645 | bpr | 45 | \integer{M=max(0,min(\n,\N1-\N))} |
| 4617 | bpr | 46 | \text{K=\V[1..\N]} |
| 47 | \text{dessinprelim=copy 0,0,-1,-1,-1,-1,\image} |
||
| 48 | \for{k =1 to \N}{ |
||
| 13383 | bpr | 49 | \text{co=\coord[\K[\k];2..-1]} |
| 50 | \text{co=wims(declosing \co)} |
||
| 51 | \text{co=\co[1,2]} |
||
| 7278 | bpr | 52 | \text{co=pari([\co] + [-\etix/2,-\etiy/2])} |
| 4617 | bpr | 53 | \text{position=\position |
| 54 | r \k,\co[1] x \co[2]} |
||
| 55 | } |
||
| 14667 | bpr | 56 | \text{figure=draw(\size |
| 4617 | bpr | 57 | \dessinprelim)} |
| 4612 | bpr | 58 | |
| 14667 | bpr | 59 | \text{liste=\M>0? \coord[\V[\N+1..\N+\M];1]:} |
| 60 | \text{liste=\liste,\intrus2} |
||
| 4617 | bpr | 61 | \text{Step=wims(makelist r x for x=1 to \N)} |
| 62 | \steps{\Step} |
||
| 4612 | bpr | 63 | \statement{ |
| 64 | \instruction |
||
| 5726 | bpr | 65 | <div class="wimscenter"> |
| 4617 | bpr | 66 | \special{imagefill \figure,\size[1] x \size[2],\etix x \etiy |
| 67 | \position} |
||
| 5726 | bpr | 68 | </div> |
| 4612 | bpr | 69 | } |
| 4617 | bpr | 70 | |
| 71 | \answer{}{\coord[\K[1];1];\liste}{type=\format} |
||
| 72 | \answer{}{\coord[\K[2];1]}{type=\format} |
||
| 73 | \answer{}{\coord[\K[3];1]}{type=\format} |
||
| 74 | \answer{}{\coord[\K[4];1]}{type=\format} |
||
| 75 | \answer{}{\coord[\K[5];1]}{type=\format} |
||
| 76 | \answer{}{\coord[\K[6];1]}{type=\format} |
||
| 77 | \answer{}{\coord[\K[7];1]}{type=\format} |
||
| 78 | \answer{}{\coord[\K[8];1]}{type=\format} |
||
| 79 | \answer{}{\coord[\K[9];1]}{type=\format} |
||
| 80 | \answer{}{\coord[\K[10];1]}{type=\format} |