Subversion Repositories wimsdev

Rev

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

Rev 539 Rev 14899
Line 7... Line 7...
7 
!exit
 7 
!exit
8 
 
 8 
 
9 
:proc
 9 
:proc
10 
formula2=!trim $formula2
 10 
formula2=!trim $formula2
11 
!if $formula2=$empty
 11 
!if $formula2=$empty
12 
 error=empty_data
 12 
  error=empty_data
13 
 !exit
 13 
  !exit
14 
!endif
 14 
!endif
15 
!exchange formula, formula2
 15 
!exchange formula, formula2
16 
!read input/function
 16 
!read input/function
17 
!if $error!=$empty
 17 
!if $error!=$empty
18 
 !exit
 18 
  !exit
19 
!endif
 19 
!endif
20 
!exchange formula, formula2
 20 
!exchange formula, formula2
21 
formula=!item 1 of $formula
 21 
formula=!item 1 of $formula
22 
formula2=!item 1 of $formula2
 22 
formula2=!item 1 of $formula2
23 
variable=!items2words $variable
 23 
variable=!items2words $variable
24 
variable=!word 1 of $variable
 24 
variable=!word 1 of $variable
25 
!if $variable=$empty
 25 
!if $variable=$empty
26 
 list=!varlist nofn $formula
 26 
  list=!varlist nofn $formula
27 
 list=!sort nocase items $list
 27 
  list=!sort nocase items $list
28 
 variable=!item -1 of $list
 28 
  variable=!item -1 of $list
29 
!endif
 29 
!endif
30 
!default variable=x
 30 
!default variable=x
31 
result=!exec maxima expand(subst($formula2,$variable,$formula));
 31 
result=!exec maxima expand(subst($formula2,$variable,$formula));
32 
!exit
 32 
!exit
33 
 
 33 
 
Line 37... Line 37...
37 
<p>
 37 
<p>
38 
Then
 38 
Then
39 
!htmlmath f($formula2) = $result
 39 
!htmlmath f($formula2) = $result
40 
 .
 40 
 .
41 
!exit
 41 
!exit
42 
 
 -