Subversion Repositories wimsdev

Rev

Blame | Last modification | View Log | RSS feed

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