Subversion Repositories wimsdev

ker=!item 2 of $methparmobj1

ker=!mathsubst integrate= in $ker

ker=!trim $ker

ker=!declosing $ker

!distribute items $ker into iker,ivar

vartest=!varlist $ivar

!if $ivar != $vartest

  error=Fail

  !exit

!endif

!bound methparm2 between integer 0 and $basiccnt default 0

!if $methparm2=0

 error=empty_data

 !exit

!endif

form=!item $methparm2 of $basic

ftest=$form

form=!mathsubst a=1 in $form

form=!mathsubst t=$ivar in $form

!if $ftest=a*t^b

  test=!mathsubst $ivar=1 in $iker

  coef=$[$test]

  !if NaN isin $coef

    !goto badformula

  !endif

  !if $coef=0

    !if $[$iker]!=0

      !goto badformula

    !else

      !goto OK

    !endif

  !endif

  !read deduc/sub/simplify log(($iker)/($test))/log($ivar)

  power=$[$out]

  !if $out=$empty or NaN isin $power or Inf isin $power

    !goto badformula

  !endif

  !goto OK

!endif

!read deduc/sub/simplify ($iker)/($form)

test=$[$out]

!if NaN isin $test

  :badformula

  error=Bad formula!

  !advance penalty

  !exit

!endif

!if Inf isin $test or $test=0

  error=bad_data

  !exit

!endif

:OK

got=!exec maxima integrate($iker,$ivar)

!if $got=$empty or integrate isvarof $got

  error=Fail

  !exit

!endif

newobject1=($got)

oldobject=1

methexp=basic formula