Subversion Repositories wimsdev

Rev

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

Rev 4349 Rev 7692
Line 23... Line 23...
23
 slib_M1=vecextract(matrix($slib_size,$slib_size,x,y,$slib_coef),[$slib_sh1],[$slib_sh2])
23
 slib_M1=vecextract(matrix($slib_size,$slib_size,x,y,$slib_coef),[$slib_sh1],[$slib_sh2])
24
 slib_M2=matrix($slib_size,$slib_size,x,y,$slib_ran1)
24
 slib_M2=matrix($slib_size,$slib_size,x,y,$slib_ran1)
25
 slib_out=!exec pari M2=$slib_M2;if(matdet(M2)<>0,print(M2),print($slib_M1))
25
 slib_out=!exec pari M2=$slib_M2;if(matdet(M2)<>0,print(M2),print($slib_M1))
26
 !exit
26
 !exit
27
!endif
27
!endif
28
 
-