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