!set methtit=Echanger les deux côtés d'une inégalité
!set methenv=ZZ QQ RR
!set methparmtype=parm inequality
!set methhelp=Cette méthode réécrit l'inégalité \(a < b) en \(b > a),\
 ou vice versa.

!if $wims_read_parm iswordof form check
  !goto $wims_read_parm
!endif

!exit
:form
Échanger les deux côtés de l'inégalité
!read deduc/methparm.phtml 1

!exit
:check
!distribute items $methparmobj1 into data,left,sign,right
methexp=Echanger les deux côtés de \($left $sign $right)

newsign=!translate internal <> to >< in $sign
newobject1=$right $newsign $left
oldobject=1

contextlist=$ct_Always,\
	$ct_Onlywhen les deux côtés sont positifs,\
	$ct_Onlywhen les deux côtés sont de même signe,\
	$ct_Onlywhen l'inégalité est stricte

resultlist=$newobject1,\
 $right $sign $left

!exit
