Subversion Repositories wimsdev

!goto $wims_read_parm

:def

title=Substitution

synonyme=substitue, fonction composee, fonction substitution

input=function

!exit

:proc

formula2=!trim $formula2

!if $formula2=$empty

  error=empty_data

  !exit

!endif

!exchange formula, formula2

!read input/function

!if $error!=$empty

  !exit

!endif

!exchange formula, formula2

formula=!item 1 of $formula

formula2=!item 1 of $formula2

variable=!items2words $variable

variable=!word 1 of $variable

!if $variable=$empty

  list=!varlist nofn $formula

  list=!sort nocase items $list

  variable=!item -1 of $list

!endif

!default variable=x

result=!exec maxima expand(subst($formula2,$variable,$formula));

!exit

:output

If

!htmlmath f(x) = $formula

<p>

Then

!htmlmath f($formula2) = $result

 .

!exit