Subversion Repositories wimsdev

!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