Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_title=Insert a coefficient in a matrix

slib_parms=4\

,matrix in wims form (inside brackets)\

,row\

,column\

,element to insert (no coma)

slib_author=Bernadette Perrin-Riou

slib_out=a new matrix with the element at the asked place

slib_comment=the place where to insert the element must be already fillout.

slib_example=[1,2;allo;mer],1,2,jeudi\

[1,2;allo;],1,3,jeudi\

[1,2;allo],4,3,jeudi

!exit

:proc

!distribute items $wims_read_parm into slib_matrix,slib_r,slib_c,slib_t

slib_matrix=!declosing $slib_matrix

slib_matrix1=!replace internal ; by $\

$ in $slib_matrix

slib_cnt=!itemcnt $(slib_matrix[;1])

!if $slib_r > $slib_cnt

  !for slib_u=1 to $[$slib_r-$slib_cnt]

    slib_matrix1=!append line vvvVVV to $slib_matrix1

  !next

!endif

slib_row=$(slib_matrix[$slib_r;])

slib_row_cnt=!itemcnt $slib_row

!if $slib_c > $slib_row_cnt

  slib_compl=!makelist vvvVVV for x = 1 to $[$slib_c-$slib_row_cnt]

  slib_row=$slib_row,$slib_compl

!endif

slib_row=!replace internal item number $slib_c by $slib_t in $slib_row

slib_matrix1=!replace internal line number $slib_r by $slib_row in $slib_matrix1

slib_matrix1=!replace internal vvvVVV by in $slib_matrix1

slib_out=!lines2rows $slib_matrix1