Subversion Repositories wimsdev

!set methtit=²»µÈʽ¼ÓȨÏà¼Ó
!set methenv=ZZ QQ RR
!set methparmtype=parm inequality >,parm inequality >,\
    number, number
!set methhelp=´Ë·½·¨ÀûÓüÓȨÏà¼Ó´Ó¼ÙÉèÖÐÁ½¸öÒÑÖª²»µÈʽµ¼³öеIJ»µÈʽ,\
еIJ»µÈʽÔÙ±»¼Óµ½¼ÙÉèÖÐ.

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

!exit
:form
 ÒýÈëеIJ»µÈʽ, ËüÊÇ <br>
 !default methparm3=1
 !default methparm4=1
 !read deduc/methparm.phtml 3,5
 ³Ë²»µÈʽ
 !read deduc/methparm.phtml 1
 <br>¼ÓÉÏ
 !read deduc/methparm.phtml 4,5
 ³Ë²»µÈʽ
 !read deduc/methparm.phtml 2

!exit
:check
 !ifval $methparm3=0 and $methparm4=0
  error=¼ÓÉÏÁã!
  !exit
 !endif
 !distribute items $methparmobj1 into data1,left1,sign1,right1
 !distribute items $methparmobj2 into data2,left2,sign2,right2
 !if $data1 issametext $data2
  error=´Ë·½·¨½ûÖ¹²»µÈʽÓë×Ô¼ºÏà¼Ó.
  !exit
 !endif
 methexp=\(($methparm3)*($left1 $sign1 $right1) + ($methparm4)*($left2 $sign2 $right2))
 !if $methparm3<0
  methparm3=-($methparm3)
  sign1=!translate internal <> to >< in $sign1
  left1=-($left1)
  right1=-($right1)
 !endif
 !if $methparm4<0
  methparm4=-($methparm4)
  sign2=!translate internal <> to >< in $sign2
  left2=-($left2)
  right2=-($right2)
 !endif

 gt=>
 lt=<
 !if ($gt isin $sign1 and $lt isin $sign2) or\
    ($lt isin $sign1 and $gt isin $sign2)
  !exchange left2,right2
 !endif
 !read deduc/sub/simplify ($methparm3)*($left1) + ($methparm4)*($left2)\
    ($methparm3)*($right1) + ($methparm4)*($right2)
 !distribute lines $out into newleft, newright
 !if $newleft=$empty or $newright=$empty
  error=bad_data
  !exit
 !endif

 !if $gt isin $sign1
  s_=>
 !else
  s_=<
 !endif
 eq=$empty=
 !if ($eq isin $sign1 or $[$methparm3]=0) \
    and ($eq isin $sign2 or $[$methparm4]=0)
  s_=$s_=
 !endif
 newobject0=$newleft $s_ $newright
 oldobject=0

 contextlist=$ct_Always,\
    $ct_OnlywhenϵÊý¾ù·ÇÁã,\
    $ct_OnlywhenÁ½¸ö²»µÈʽ¶¼ÊÇÕýµÄ,\
    $ct_OnlywhenÆäÖÐÒ»¸ö²»µÈʽÊÇÕýµÄ,\
    $ct_OnlywhenÆäÖÐÒ»¸ö²»µÈʽÊÇͬºÅµÄ

!exit