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