Subversion Repositories wimsdev

Rev

Rev 4158 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
 !goto proc
3
!endif
4158 bpr 4
 
20 reyssat 5
slib_author=Bernadette PERRIN-RIOU
3265 bpr 6
slib_require=maxima
4171 bpr 7
slib_example=[1,0,5,-6],[v_1,v_2,v_3,v_4]\
8
[-1.1,0,2.3,-6],[v_1,v_2,v_3,v_4]
20 reyssat 9
!exit
10
 
11
:proc
12
slib_data=$wims_read_parm
13
!if [ isin $slib_data
14
slib_data=!items2lines $slib_data
15
slib_1=!line 1 of $slib_data
16
slib_1=!declosing $slib_1
17
slib_2=!line 2 of $slib_data
18
slib_2=!declosing $slib_2
19
slib_data=$slib_1\\
20
$slib_2
21
!endif
22
slib_data=!translate internal ; to $\
23
$ in $slib_data
24
 
25
!distribute items  sliba ,slibb,slibc,slibd,slibe,slibf,slibg,slibh,slibi,slibj,slibk,slibl,slibm,slibn,slibo,slibp,slibq,slibr,slibs,slibt,slibu,slibv,slibw,slibx,sliby,slibz into slib_N1,slib_N2,slib_N3,slib_N4,slib_N5,slib_N6,slib_N7,slib_N8,slib_N9,slib_N10,slib_N11,slib_N12,slib_N13,slib_N14,slib_N15,slib_N16,slib_N17,slib_N18,slib_N19,slib_N20,slib_N21,slib_N22,slib_N23,slib_N24,slib_N25
26
 
27
!distribute line $slib_data into  slib_liste, slib_text
28
 
29
slib_cnt1=!itemcnt $slib_liste
30
slib_cnt2=!itemcnt $slib_text
31
!if $slib_cnt1<=$slib_cnt2
32
slib_cnt=$slib_cnt1
33
!else
34
slib_cnt=$slib_cnt2
35
!endif
36
!if $slib_cnt>25
37
slib_cnt=25
38
!endif
39
slib_a=0
40
!for slib_i=1 to $slib_cnt
41
slib_A=!item $slib_i of $slib_liste
42
slib_a=$slib_a+($slib_A)*$(slib_N$[$slib_cnt1+1-$slib_i])
43
!next slib_i
44
slib_a=!exec maxima $slib_a
45
 
46
slib_a=!replace internal * by  in $slib_a
47
 
48
!for slib_i=1 to $slib_cnt1
49
slib_A=!item $slib_i of $slib_text
50
slib_a=!replace internal $(slib_N$[$slib_cnt1+1-$slib_i]) by $slib_A in $slib_a
51
!next slib_i
52
slib_out =$slib_a
53
 
54
slib_out= !trim $slib_out
55
slib_out=!line -1 of $slib_out
56
!endif
57