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 nonesting, function

!set methhelp=Deducción por escritura algebraica. En esta\

reescritura solo se aceptan equivalencias aritméticas.

!if $wims_read_parm iswordof form check

  !goto $wims_read_parm

!endif

!exit

:form

 Reescibir la expresión

!read deduc/methparm.phtml 1

 como

!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