Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2071 zjchen 1 
!set methtit=表达式内的替换
2 
!set methtit2=整体表达式内的替换
3 
!set methenv=ZZ QQ RR CC
4 
!set methparmtype=parm algexp nocomma nopart, parm equation >, choice 2
5 
!set methhelp=根据已有等式在表达式内作替换.
6 
 
7 
!if $wims_read_parm iswordof form check
8 
 !goto $wims_read_parm
9 
!endif
10 
 
11 
!exit
12 
:form
13 
 应用
14 
 !formselect methparm3 list 1,2 prompt 替换, 逆替换
15 
 !read deduc/methparm.phtml 2
16 
 于表达式 <br>
17 
 !read deduc/methparm.phtml 1
18 
!exit
19 
:check
20 
 !distribute items $methparmobj2 into hd,left,eq,right
21 
 eqt==
22 
 !if $eq!=$eqt
23 
  error=错的替换.
24 
  !exit
25 
 !endif
26 
 !if $methparm3=2
27 
  !exchange left,right
28 
 !endif
29 
 lvar=!varlist $left
30 
 !if $lvar=$left
31 
  subst=subst
32 
 !else
33 
  subst=ratsubst
34 
 !endif
35 
 !distribute items $methparmobj1 into hd2,exp2
36 
 !read deduc/sub/simplify $subst($right,$left,$exp2)
37 
 !if $out=$empty
38 
  error=失败
39 
  !exit
40 
 !endif
41 
 
42 
 newobject1=$out
43 
 oldobject=1
44 
 methexp=替换 \($left = $right).
45 
!exit
46