Subversion Repositories wimsdev

Rev

Rev 20 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 16120
Line 1... Line 1...
1
 ker=!item 2 of $methparmobj1
1
ker=!item 2 of $methparmobj1
2
 ker=!mathsubst integrate= in $ker
2
ker=!mathsubst integrate= in $ker
3
 ker=!trim $ker
3
ker=!trim $ker
4
 ker=!declosing $ker
4
ker=!declosing $ker
5
 !distribute items $ker into iker,ivar
5
!distribute items $ker into iker,ivar
6
 vartest=!varlist $ivar
6
vartest=!varlist $ivar
7
 !if $ivar != $vartest
7
!if $ivar != $vartest
8
  error=Fail
8
  error=Fail
9
  !exit
9
  !exit
10
 !endif
10
!endif
11
 
11
 
12
 !bound methparm2 between integer 0 and $basiccnt default 0
12
!bound methparm2 between integer 0 and $basiccnt default 0
13
 !if $methparm2=0
13
!if $methparm2=0
14
  error=empty_data
14
 error=empty_data
15
  !exit
15
 !exit
16
 !endif
16
!endif
17
 
17
 
18
 form=!item $methparm2 of $basic
18
form=!item $methparm2 of $basic
19
 ftest=$form
19
ftest=$form
20
 form=!mathsubst a=1 in $form
20
form=!mathsubst a=1 in $form
21
 form=!mathsubst t=$ivar in $form
21
form=!mathsubst t=$ivar in $form
22
 !if $ftest=a*t^b
22
!if $ftest=a*t^b
23
  test=!mathsubst $ivar=1 in $iker
23
  test=!mathsubst $ivar=1 in $iker
24
  coef=$[$test]
24
  coef=$[$test]
25
  !if NaN isin $coef
25
  !if NaN isin $coef
26
   !goto badformula
26
    !goto badformula
27
  !endif
27
  !endif
28
  !if $coef=0
28
  !if $coef=0
29
   !if $[$iker]!=0
29
    !if $[$iker]!=0
30
    !goto badformula
30
      !goto badformula
31
   !else
31
    !else
32
    !goto OK
32
      !goto OK
33
   !endif
33
    !endif
34
  !endif
34
  !endif
35
  !read deduc/sub/simplify log(($iker)/($test))/log($ivar)
35
  !read deduc/sub/simplify log(($iker)/($test))/log($ivar)
36
  power=$[$out]
36
  power=$[$out]
37
  !if $out=$empty or NaN isin $power or Inf isin $power
37
  !if $out=$empty or NaN isin $power or Inf isin $power
38
   !goto badformula
38
    !goto badformula
39
  !endif
39
  !endif
40
  !goto OK
40
  !goto OK
41
 !endif
41
!endif
42
 !read deduc/sub/simplify ($iker)/($form)
42
!read deduc/sub/simplify ($iker)/($form)
43
 test=$[$out]
43
test=$[$out]
44
 !if NaN isin $test
44
!if NaN isin $test
45
  :badformula
45
  :badformula
46
  error=Bad formula!
46
  error=Bad formula!
47
  !advance penalty
47
  !advance penalty
48
  !exit
48
  !exit
49
 !endif
49
!endif
50
 !if Inf isin $test or $test=0
50
!if Inf isin $test or $test=0
-
 
51
=0
51
  error=bad_data
52
  error=bad_data
52
  !exit
53
  !exit
53
 !endif
54
!endif
54
 
55
 
55
 :OK 
56
:OK
56
 got=!exec maxima integrate($iker,$ivar)
57
got=!exec maxima integrate($iker,$ivar)
57
 !if $got=$empty or integrate isvarof $got
58
!if $got=$empty or integrate isvarof $got
58
  error=Fail
59
  error=Fail
59
  !exit
60
  !exit
60
 !endif
61
!endif
61
 
-
 
62
 newobject1=($got)
-
 
63
 oldobject=1
-
 
64
 methexp=basic formula
-
 
65
 
62
 
-
 
63
newobject1=($got)
-
 
64
oldobject=1
-
 
65
methexp=basic formula