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