Rev 6055 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 539 | bpr | 1 | !goto $wims_read_parm |
| 2 | |||
| 3 | :def |
||
| 4 | title=Produit des données |
||
| 5 | synonyme=donnee produit |
||
| 6 | input=data1d |
||
| 7 | !exit |
||
| 8 | |||
| 9 | :proc |
||
| 6513 | bpr | 10 | formula=!lines2items $formula |
| 11 | formula=!nonempty items $formula |
||
| 539 | bpr | 12 | |
| 13 | cnt=!itemcnt $formula |
||
| 14 | !if $cnt>0 |
||
| 15 | result=!product x for x in $formula |
||
| 16 | !else |
||
| 17 | result=1 |
||
| 18 | !endif |
||
| 19 | |||
| 20 | !exit |
||
| 21 | |||
| 22 | :output |
||
| 23 | |||
| 24 | !replace , by $ × $ in $formula |
||
| 6055 | bpr | 25 | <br/> = |
| 539 | bpr | 26 | !htmlmath $result |
| 27 | !exit |
||
| 28 |