Rev 16119 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!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
<div class="wimscenter">
\(integrate())
!read deduc/methparm.phtml 2,40
!if $N=1
d$v
!else
d<input size="4" name="methparm3">
!endif
</div>
!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