Subversion Repositories wimsdev

Rev

Rev 539 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 539 Rev 6055
Line 11... Line 11...
11 
result=!exec pari trace([$mat])
 11 
result=!exec pari trace([$mat])
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:output
 14 
:output
15 
!set pars=$[max(min($rows,10),1)]
 15 
!set pars=$[max(min($rows,10),1)]
16 
<center>
 16 
 
17 
<table border=0 cellpadding=2>
 17 
<table class="wimscenter wimsnoborder">
18 
!for i=1 to $rows
 18 
!for i=1 to $rows
19 
 !set l=!line $i of $formula
 19 
 !set l=!line $i of $formula
20 
 <tr>
 20 
 <tr>
21 
 !if $i=1
 21 
 !if $i=1
22 
  <td nowrap rowspan=$rows>trace $(m_leftpar$pars)
 22 
  <td rowspan="$rows">trace $(m_leftpar$pars)</td>
23 
 !endif
 23 
 !endif
24 
 !for j=1 to $cols
 24 
 !for j=1 to $cols
25 
  !set k=!item $j of $l
 25 
  !set k=!item $j of $l
26 
  <td nowrap align=center>$k
 26 
  <td>$k</td>
27 
 !next j
 27 
 !next j
28 
 !if $i=1
 28 
 !if $i=1
29 
  <td nowrap rowspan=$rows>$(m_rightpar$pars) = $result
 29 
  <td rowspan="$rows">$(m_rightpar$pars) = $result</td>
30 
 !endif
 30 
 !endif
- 
 
 31 
 </tr>
31 
!next i
 32 
!next i
32 
 
 - 
 
33 
</table></center>
 33 
</table>
34 
!exit
 34 
!exit
- 
 
 35 
 
35 
 
 36