Subversion Repositories wimsdev

!set methtit=ÖØд²»µÈʽ

!set methenv=ZZ QQ RR

!set methparmtype=parm inequality, function, choice 5, function

!set methhelp=Õâ¸ö·½·¨ÔÊÐíÄãͨ¹ý×ÛºÏʹÓÃÏîµÄÏà¼Ó¡¢½»»»Á½±ßÒÔ¼°³Ë·ÇÁã³£ÊýµÈÊÖ¶Î,\

°ÑÒÑÖª(²»)µÈʽ±ä»»³ÉµÈ¼ÛµÄ(²»)µÈʽ.

!if $wims_read_parm iswordof form check

 !goto $wims_read_parm

!endif

!exit

:form

 ÖØд²»µÈʽ

 !read deduc/methparm.phtml 1

 Ϊ <br>

 <input size=15 name=methparm2 value="$methparm2">

 !formselect methparm3 from 1 to 5 prompt =,<,>,<=,>=

 <input size=15 name=methparm4 value="$methparm4">

 !set methremark=ÄãµÄв»µÈʽ±ØÐëÓëÔ­À´µÄµÈ¼Û.

!exit

:check

 !distribute items $methparmobj1 into data,left1,sign1,right1

 sign2=!item $methparm3 of =,<,>,<=,>=

 sign3=!item $methparm3 of =,>,<,>=,<=

 !if $sign2 notsametext $sign1 and $sign3 notsametext $sign1

  :badequiv

  error=ÄãµÄв»µÈʽ²»µÈ¼ÛÓÚÔ­À´µÄ!

  !advance penalty

  !exit

 !endif

 check1=($left1) - ($right1)

 !if $sign2 issametext $sign1

  check2=($methparm2) - ($methparm4)

 !else

  check2=($methparm4) - ($methparm2)

 !endif

 !read deduc/sub/checkzero $check1\

    $check2

 !distribute line $out into out1, out2

 !read deduc/sub/_Simplify ($check1) / ($check2)

 out3=$out

 !if $out1=yes or $out2=yes

  !if $out1!=yes or $out2!=yes

   !goto badequiv

  !endif

 !else

  out3=$[$out3]

  !if NaN isin $out3 or Inf isin $out3

   !goto badequiv

  !endif

  !if $out3<=0 and $sign2 notsametext $sign3

   !goto badequiv

  !endif

 !endif

 methexp=ÖØд \($left1 $sign1 $right1)

 newobject1=$methparm2 $sign2 $methparm4

 oldobject=1

!exit