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 |