Rev 13880 | Rev 14006 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
13798 | bpr | 1 | !!! Rg$i contains the data for questions embeddings of |
2 | !!! exercise $i (one line for each question) |
||
3 | !!! ans_$i contains the data for the answer |
||
13893 | bpr | 4 | !set prompt_empty=............. |
13798 | bpr | 5 | |
20 | reyssat | 6 | !advance prcnt |
7 | !if $prcnt>6 and $wims_user!=supervisor |
||
12325 | bpr | 8 | error=too_many_print |
9 | printing=yes |
||
10 | !exit |
||
20 | reyssat | 11 | !endif |
12 | |||
13 | printmax=40 |
||
14 | !reset savedrawcnt print |
||
15 | printing=yes |
||
16 | exo=!listintersect $exo and $exolist |
||
17 | !default exo=$defaultlist |
||
2650 | bpr | 18 | wims_intro_parm=$exo |
2646 | bpr | 19 | !default exo=$exolist |
20 | exo_cnt=!itemcnt $exo |
||
21 | !!at least 1 exercise of each type |
||
13764 | bpr | 22 | !if $random=0 |
23 | exo_=!makelist x for x=1 to $exo_cnt |
||
24 | !else |
||
25 | exo_=!shuffle $exo_cnt |
||
26 | !endif |
||
2646 | bpr | 27 | qnum1=$[$qnum-$exo_cnt] |
28 | !if $qnum1 >= 1 |
||
12325 | bpr | 29 | exo__=!randint 1,$exo_cnt repeat $qnum1 |
30 | exo_=$exo_,$exo__ |
||
2646 | bpr | 31 | !endif |
32 | exo=$(exo[$(exo_)]) |
||
20 | reyssat | 33 | exo=!item 1 to $printmax of $exo |
34 | n=!itemcnt $exo |
||
35 | |||
36 | !if $n<1 |
||
12325 | bpr | 37 | !exit |
20 | reyssat | 38 | !endif |
39 | |||
40 | M=0 |
||
41 | m_step=1 |
||
874 | bpr | 42 | test_print=0 |
2656 | bpr | 43 | !if $wims_developer!= or $wims_user=supervisor |
44 | latex_exists=0 |
||
45 | !readproc oef/latex.proc begin |
||
46 | !else |
||
47 | latex_exists=-1 |
||
48 | !endif |
||
49 | |||
20 | reyssat | 50 | !for i=1 to $n |
12325 | bpr | 51 | question_$i= |
52 | e_=!item $i of $exo |
||
53 | name_$i=$e_ |
||
54 | !if $lang_choice!=$empty |
||
55 | title_$i=!defof title_$lang_choice in $(class_header)def/$e_.def |
||
56 | !else |
||
57 | title_$i=!defof title_$lang in $(class_header)def/$e_.def |
||
58 | !endif |
||
59 | !if $(title_$i)=$empty |
||
60 | title_$i=!defof title in $(class_header)def/$e_.def |
||
61 | !endif |
||
62 | !reset question testcondition format |
||
63 | thisexo=$e_ |
||
64 | !readproc oef/imagedir.proc |
||
13880 | bpr | 65 | !readproc oef/printanalysis.proc |
13876 | bpr | 66 | !next |
2656 | bpr | 67 | !if $latex_exists>=1 |
68 | !readproc oef/latex.proc end |
||
3128 | bpr | 69 | !endif |