Subversion Repositories wimsdev

!set methtit=²»µÈʽ¼ÓÒ»¸öµÈʽ
!set methenv=ZZ QQ RR
!set methparmtype=function, parm equation >,parm inequality
!set methhelp=´Ë·½·¨ÀûÓÃÒÔϵIJ»µÈʽÐÔÖʵ¼³öеIJ»µÈʽ:\
<p><center>\
 Èô \(a = b), Ôò \(c > d <=> f*a+c > f*b+d) ¶ÔÈÎÒâµÄ \(f).\
</center>

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

!exit
:form
 °Ñ
 !default methparm1=1
 !read deduc/methparm.phtml 1,10
 ³ËµÈʽ
 !read deduc/methparm.phtml 2
 ¼Óµ½²»µÈʽ
 !read deduc/methparm.phtml 3

!exit
:check
 !distribute items $methparmobj2 into data,left1,sign1,right1
 !distribute items $methparmobj3 into data,left2,sign2,right2
 methexp=°Ñ \(($methparm1)*($left1 $sign1 $right1)) ¼Óµ½ \($left2 $sign2 $right2)
 
 !read deduc/sub/simplify ($methparm1)*($left1) + ($left2)\
    ($methparm1)*($right1) + ($right2)
 !distribute lines $out into newleft, newright
 !if $newleft=$empty or $newright=$empty
  error=bad_data
  !exit
 !endif

 newobject3=$newleft $sign2 $newright
 oldobject=3

!exit