Subversion Repositories wimsdev

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2071 zjchen 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