1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
!set list=!record 0 of adm/class/sheetformula
!set list=!items2lines $list
!set wims_backslash_insmath=yes
!for rule=1 to 6
!set r=$(list[$rule;])
<table class="wimsborder">
<caption> $rule : \($(list[$rule;])\)</caption>
<tr>
<th>Q \ I</th>
!for ih = 0 to 10
<th>$ih</th>
!next
</tr>
!for qh=0 to 10
<tr><th>$qh</th>
!for ih = 0 to 10
<td>
!set r1=!mathsubst I=$[$ih/10] in $r
!set r1=!mathsubst Q=$[$qh/10] in $r1
$[ceil(100*$r1)/10]
</td>
!next
</tr>
!next
</table>
!next
|
