Subversion Repositories wimsdev

Rev

Rev 6513 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6513 Rev 6515
Line 5... Line 5...
5 
synonyme=donnee produit
 5 
synonyme=donnee produit
6 
input=data1d
 6 
input=data1d
7 
!exit
 7 
!exit
8 
 
 8 
 
9 
:proc
 9 
:proc
10 
formula=!lines2items $formula
 - 
 
11 
formula=!nonempty items $formula
 - 
 
12 
 
 10 
 
13 
cnt=!itemcnt $formula
 11 
cnt=!itemcnt $formula
14 
!if $cnt>0
 12 
!if $cnt>0
15 
 result=!product x for x in $formula
 13 
 result=!product x for x in $formula
16 
!else
 14 
!else
Line 20... Line 18...
20 
!exit
 18 
!exit
21 
 
 19 
 
22 
:output
 20 
:output
23 
 
 21 
 
24 
!replace , by $ × $ in $formula
 22 
!replace , by $ × $ in $formula
25 
<br/> =
 23 
<br /> =
26 
!htmlmath $result
 24 
!htmlmath $result
27 
!exit
 25 
!exit
28 
 
 26