Subversion Repositories wimsdev

!set methtit2:Reescritura algebraica de una expresión

!set methtit:Reescribir una expresión

!set methenv:ZZ QQ RR CC

!set methparmtype:parm algexp nocomma sin anidamiento, función

!set methhelp:Deducción por reescritura algebraica. Sólo equivalencias\

aritméticas se aceptan en esta reescritura.

!if $wims_read_parm iswordof form check

  !goto $wims_read_parm

!endif

!exit

:form

Reescribe la expresión

!read deduc/methparm.phtml 1

$ en

!read deduc/methparm.phtml 2,20

!set methremark=Sólo se aceptan equivalencias aritméticas en \

   esta reescritura.

!exit

:check

!distribute items $methparmobj1 into data,exp

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

!if $out=$empty

  error=bad_data

  !exit

!endif

!if $out!=yes

  error=unjustified

  !exit

!endif

methexp=Reescritura de \($exp)

newobject1=$methparm2

oldobject=1

!exit