Subversion Repositories wimsdev

Rev

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

Rev 6057 Rev 6563
Line -... Line 1...
- 
 
 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
1 
 
 17