Subversion Repositories wimsdev

Rev

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

Rev 6563 Rev 14898
Line 5... Line 5...
5 
$ to ; in $formula
 5 
$ to ; in $formula
6 
rows=!linecnt $formula
 6 
rows=!linecnt $formula
7 
l1=!line 1 of $formula
 7 
l1=!line 1 of $formula
8 
cols=!itemcnt $l1
 8 
cols=!itemcnt $l1
9 
!if $cols=0 or $rows=0
 9 
!if $cols=0 or $rows=0
10 
 error=bad_formula
 10 
  error=bad_formula
11 
 !exit
 11 
  !exit
12 
!endif
 12 
!endif
13 
!if $rows!=$cols
 13 
!if $rows!=$cols
14 
 error=not_square_matrix
 14 
  error=not_square_matrix
15 
 !exit
 15 
  !exit
16 
!endif
 16 
!endif
17 
 
 17