Subversion Repositories wimsdev

!set methtit=Réécrire une intégrale

!set methenv=ZZ QQ RR

!set methparmtype=parm function integrate, function

!set methhelp=Vous pouvez réécrire le noyau d'une intégrale en une forme\

 équivalente.

!if $wims_read_parm iswordof form check

 !goto $wims_read_parm

!endif

!exit

:form

 !reset methparm3

 !set N=!linecnt $mtobj1

 !if $N=1

  !set l=!item 2 to -1 of $mtobj1

  !set l=!mathsubst integrate= in $l

  !set l=!declosing $l

  !set v=!item 2 of $l

 !endif

 Réécrire l'intégration

 !read deduc/methparm.phtml 1

 en

 <p><center><table border=0>

 <tr><td nowrap>

 \(integrate())

 !read deduc/methparm.phtml 2,40

 !if $N=1

  d$v

 !else 

  d<input size=4 name=methparm3/>

 !endif

 </td></tr></table></center>

!exit

:check

 ker=!item 2 of $methparmobj1

 ker=!mathsubst integrate= in $ker

 ker=!trim $ker

 ker=!declosing $ker

 !distribute items $ker into iker,ivar

 vartest=!varlist $ivar

 !if $ivar != $vartest

  error=Fail

  !exit

 !endif

 methparm3=!word 1 of $methparm3

 !if $methparm3!=$empty and $methparm3!=$ivar

  error=Vous ne pouvez pas changer le nom de variable ici. Veuillez corriger.

  !exit

 !endif

 !read deduc/sub/checkzero ($iker)-($methparm2)

 !if $out=$empty

  error=bad_data

  !exit

 !endif

 !if $out!=yes

  error=Mauvaise réécriture. Veuillez corriger.

  !exit

 !endif

 newobject1=integrate($methparm2,$ivar)

 oldobject=1

 methexp=réécriture

!exit