Subversion Repositories wimsdev

!set methtit2=Ó÷ÇÁãÊý³ý²»µÈʽ

!set methtit=ÓÃÊý³ý²»µÈʽ

!set methenv=ZZ QQ RR

!set methparmtype=number,parm inequality

!set methhelp=´Ë·½·¨°Ñ²»µÈʽ \(A > B)\

 ת»»³ÉµÈ¼Û²»µÈʽ \(A/n > B/n) (»ò \(A/n < B/n)),\

ÆäÖÐ \(n) ÊÇ·ÇÁãÊý.

!if $wims_read_parm iswordof form check

 !goto $wims_read_parm

!endif

!exit

:form

 °Ñ²»µÈʽ

 !read deduc/methparm.phtml 2

 ³ýÒÔÊý

 !read deduc/methparm.phtml 1,10

!exit

:check

 !distribute items $methparmobj2 into data,left,sign,right

 !ifval $methparm1=0

  error=³ýÊýΪÁã!

  !advance penalty

  !exit

 !endif

 methexp=°Ñ \($left $sign $right) ³ýÒÔ \($methparm1)

 !read deduc/sub/simplify ($left) / ($methparm1)\

    ($right) / ($methparm1)

 !distribute lines $out into newleft, newright

 !if $newleft=$empty or $newright=$empty

  error=bad_data

  !exit

 !endif

 !if $methparm1<0

  newsign=!translate internal <> to >< in $sign

 !else

  newsign=$sign

 !endif

 newobject2=$newleft $newsign $newright

 oldobject=2

 contextlist=$ct_Onlywhen³ýÊý·ÇÁã,\

    $ct_Onlywhen³ýÊýÊÇÕýµÄ,\

    $ct_Always,\

    $ct_OnlywhenÁ½±ßÊÇÕýµÄ,\

    $ct_OnlywhenÁ½±ßͬºÅ,\

    $ct_Onlywhen²»µÈʽÊÇÑϸñµÄ

 badsign=!translate internal <> to >< in $newsign

 resultlist=$newobject2,\

    $newright $newsign $newleft,\

    $newleft $badsign $newright

!exit