Subversion Repositories wimsdev

!goto $wims_read_parm

:def
title=Derivative
synonyme=Differentiation
input=function
!exit

:proc

x=!word 1 of $variable
!if $x=$empty
 t=!varlist nofn $formula
 t=!sort reverse nocase item $t
 x=!item 1 of $t
!endif
!default x=x
o=!word 1 of $order
o=$[round($o)]
!if NaN isin $o or $o<1 or $o>100
 o=
!endif
!default o=1

result=!exec maxima diff($formula,$x,$o);
!exit

:output

Derivative of
!if $o>1
 order $o of
!endif
!htmlmath $formula
 with respect to $x:
<p><center>
!insmath $result
</center> <p>
!exit