Subversion Repositories wimsdev

!set methtit=±í´ïʽÄÚµÄÌæ»»
!set methtit2=ÕûÌå»ò¾Ö²¿±í´ïʽÄÚµÄÌæ»»
!set methenv=ZZ QQ RR CC
!set methparmtype=parm algexp nocomma nonesting, parm equation >, choice 2
!set methhelp=¸ù¾ÝÒÑÓеÈʽÔÚ±í´ïʽÄÚ×÷Ìæ»».

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

!exit
:form
 Ó¦ÓÃ
 !formselect methparm3 list 1,2 prompt Ìæ»», ÄæÌæ»»
 !read deduc/methparm.phtml 2
 ÓÚ±í´ïʽ <br/>
 !read deduc/methparm.phtml 1
!exit
:check
 !distribute items $methparmobj2 into hd,left,eq,right
 eqt==
 !if $eq!=$eqt
  error=´íµÄÌæ»».
  !exit
 !endif
 !if $methparm3=2
  !exchange left,right
 !endif
 !distribute items $methparmobj1 into hd2,exp2
 !read deduc/sub/simplify ratsubst($right,$left,$exp2)
 !if $out=$empty
  error=ʧ°Ü
  !exit
 !endif

 newobject1=$out
 oldobject=1
 methexp=Ìæ»» \($left = $right).
!exit