Subversion Repositories wimsdev

Rev

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

Rev 2071 Rev 17064
Line 16... Line 16...
16
 !read deduc/methparm.phtml 2
16
 !read deduc/methparm.phtml 2
17
 
17
 
18
!exit
18
!exit
19
:check
19
:check
20
 !distribute items $methparmobj2 into data,left,sign,right
20
 !distribute items $methparmobj2 into data,left,sign,right
21
 methexp=°Ñ \(methparm1) ¼Óµ½ \($left $sign $right) µÄÁ½±ß
21
 methexp=°Ñ \($methparm1) ¼Óµ½ \($left $sign $right) µÄÁ½±ß
22
 
22
 
23
 !read deduc/sub/simplify $left + ($methparm1)\
23
 !read deduc/sub/simplify $left + ($methparm1)\
24
    $right + ($methparm1)
24
    $right + ($methparm1)
25
 !distribute lines $out into newleft,newright
25
 !distribute lines $out into newleft,newright
26
 !if $newleft=$empty or $newright=$empty
26
 !if $newleft=$empty or $newright=$empty
Line 28... Line 28...
28
  !exit
28
  !exit
29
 !endif
29
 !endif
30
 newsign=$sign
30
 newsign=$sign
31
 newobject2=$newleft $newsign $newright
31
 newobject2=$newleft $newsign $newright
32
 oldobject=2
32
 oldobject=2
33
 
33
 
34
 contextlist=$ct_Always,\
34
 contextlist=$ct_Always,\
35
    $ct_OnlywhenÕâ¸öÊýÊÇÕýµÄ,\
35
    $ct_OnlywhenÕâ¸öÊýÊÇÕýµÄ,\
36
    $ct_Onlywhen²»µÈʽÊÇÑϸñµÄ,\
36
    $ct_Onlywhen²»µÈʽÊÇÑϸñµÄ,\
37
    $ct_Onlywhen²»µÈʽ²»ÊÇÑϸñµÄ
37
    $ct_Onlywhen²»µÈʽ²»ÊÇÑϸñµÄ
38
 
38
 
39
 !if $askresult>1
39
 !if $askresult>1
40
  !read deduc/sub/simplify $left - ($methparm1)\
40
  !read deduc/sub/simplify $left - ($methparm1)\
41
    $right - ($methparm1)
41
    $right - ($methparm1)
42
  !distribute lines $out into badleft, badright
42
  !distribute lines $out into badleft, badright
43
  badsign=!translate internal <> to >< in $newsign
43
  badsign=!translate internal <> to >< in $newsign
44
 
44
 
45
  resultlist=$newobject2,\
45
  resultlist=$newobject2,\
46
    $newleft $newsign $badright,\
46
    $newleft $newsign $badright,\
47
    $badleft $newsign $newright,\
47
    $badleft $newsign $newright,\
48
    $newleft $badsign $newright,\
48
    $newleft $badsign $newright,\
49
    $newleft $badsign $badright
49
    $newleft $badsign $badright