Subversion Repositories wimsdev

!goto $wims_read_parm

:def
title=Intégration
synonyme=primitive, integrale
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

result=!exec maxima integrate($formula,$x);
!if integrate isin $result
 result=
!endif
fn=!texmath $formula
rs=!texmath $result
!exit

:output
!insmath \int \left($fn\right)d$x = $rs + C
!exit