Subversion Repositories wimsdev

Rev

Rev 7692 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
13586 bpr 2
  !goto proc
20 reyssat 3
!endif
4161 bpr 4
 
20 reyssat 5
slib_parms=1\
6
 ,[data] or [data],[weight]
4330 bpr 7
slib_author=Adeline, Grelot; Bernadette, PERRIN-RIOU
4161 bpr 8
 
20 reyssat 9
slib_example=[2,-7,6]\
10
[2,1;-7,6;1,1]\
11
[2,-7,1],[1,6,1]\
3265 bpr 12
[2,-7,1;1,6,1]
13
slib_require=pari
20 reyssat 14
!exit
15
 
16
:proc
17
!if [ isin $wims_read_parm or ; isin $wims_read_parm
18
	!readproc slib/stat/dataproc $wims_read_parm
7692 bpr 19
!else
20 reyssat 20
	slib_data=$wims_read_parm
21
	slib_weight=$empty
22
	slib_cnt=!itemcnt $slib_data
23
!endif
24
!if $slib_cnt =0
25
	slib_out=0
26
!else
27
	!if $slib_weight=$empty
28
		slib_out=!sum x for x in $slib_data
29
	!else
30
		slib_out=!exec pari print(Mat([$slib_data])*Mat([$slib_weight])~);
31
	!endif
32
!endif
33
slib_out=!trim $slib_out