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