Subversion Repositories wimsdev

Rev

Rev 5763 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5763 Rev 17234
Line 10... Line 10...
10
 
10
 
11
!exit
11
!exit
12
:form
12
:form
13
 ÖØÐ´²»µÈʽ
13
 ÖØÐ´²»µÈʽ
14
 !read deduc/methparm.phtml 1
14
 !read deduc/methparm.phtml 1
15
 Ϊ <br/>
15
 Ϊ <br>
16
 <input size=15 name=methparm2 value="$methparm2"/>
16
 <input size=15 name=methparm2 value="$methparm2">
17
 !formselect methparm3 from 1 to 5 prompt =,<,>,<=,>=
17
 !formselect methparm3 from 1 to 5 prompt =,<,>,<=,>=
18
 <input size=15 name=methparm4 value="$methparm4"/>
18
 <input size=15 name=methparm4 value="$methparm4">
19
 !set methremark=ÄãµÄв»µÈʽ±ØÐëÓëÔ­À´µÄµÈ¼Û.
19
 !set methremark=ÄãµÄв»µÈʽ±ØÐëÓëÔ­À´µÄµÈ¼Û.
20
!exit
20
!exit
21
:check
21
:check
22
 !distribute items $methparmobj1 into data,left1,sign1,right1
22
 !distribute items $methparmobj1 into data,left1,sign1,right1
23
 sign2=!item $methparm3 of =,<,>,<=,>=
23
 sign2=!item $methparm3 of =,<,>,<=,>=
Line 26... Line 26...
26
  :badequiv
26
  :badequiv
27
  error=ÄãµÄв»µÈʽ²»µÈ¼ÛÓÚÔ­À´µÄ!
27
  error=ÄãµÄв»µÈʽ²»µÈ¼ÛÓÚÔ­À´µÄ!
28
  !advance penalty
28
  !advance penalty
29
  !exit
29
  !exit
30
 !endif
30
 !endif
31
 
31
 
32
 check1=($left1) - ($right1)
32
 check1=($left1) - ($right1)
33
 !if $sign2 issametext $sign1
33
 !if $sign2 issametext $sign1
34
  check2=($methparm2) - ($methparm4)
34
  check2=($methparm2) - ($methparm4)
35
 !else
35
 !else
36
  check2=($methparm4) - ($methparm2)
36
  check2=($methparm4) - ($methparm2)
37
 !endif
37
 !endif
38
  
38
 
39
 !read deduc/sub/checkzero $check1\
39
 !read deduc/sub/checkzero $check1\
40
    $check2
40
    $check2
41
 !distribute line $out into out1, out2
41
 !distribute line $out into out1, out2
42
 !read deduc/sub/_Simplify ($check1) / ($check2)
42
 !read deduc/sub/_Simplify ($check1) / ($check2)
43
 out3=$out
43
 out3=$out