Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 539 | bpr | 1 | |
| 2 | !goto $wims_read_parm |
||
| 3 | |||
| 4 | :def |
||
| 5 | title=Integration |
||
| 6 | synonyme=antiderivative, anti-derivative,indefinite integral |
||
| 7 | input=function |
||
| 8 | !exit |
||
| 9 | |||
| 10 | :proc |
||
| 11 | x=!word 1 of $variable |
||
| 12 | !if $x=$empty |
||
| 13 | t=!varlist nofn $formula |
||
| 14 | t=!sort reverse nocase item $t |
||
| 15 | x=!item 1 of $t |
||
| 16 | !endif |
||
| 17 | !default x=x |
||
| 18 | |||
| 19 | result=!exec maxima integrate($formula,$x); |
||
| 20 | !if integrate isin $result |
||
| 21 | result= |
||
| 22 | !endif |
||
| 23 | fn=!texmath $formula |
||
| 24 | rs=!texmath $result |
||
| 25 | !exit |
||
| 26 | |||
| 27 | :output |
||
| 28 | !instex $$$$ \int \left($fn\right)d$x = $rs + C $$$$ |
||
| 29 | !exit |
||
| 30 |