Subversion Repositories wimsdev

Rev

Rev 539 | Rev 6563 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 539 Rev 6057
Line 1... Line -...
1 
 
 - 
 
2 
formula=!rawmatrix $formula
 - 
 
3 
formula=!trim $formula
 - 
 
4 
mat=!translate $\
 - 
 
5 
$ to ; in $formula
 - 
 
6 
rows=!linecnt $formula
 - 
 
7 
l1=!line 1 of $formula
 - 
 
8 
cols=!itemcnt $l1
 - 
 
9 
!if $cols=0 or $rows=0
 - 
 
10 
 error=bad_formula
 - 
 
11 
 !exit
 - 
 
12 
!endif
 - 
 
13 
!if $rows!=$cols
 - 
 
14 
 error=not_square_matrix
 - 
 
15 
 !exit
 - 
 
16 
!endif
 - 
 
17 
 
 1