{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 
1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 670 "lndiff:=proc(f,x)\n
     local i,fct;\n     if not has(f,x) then 0\n     elif f=x then 1/x
\n     elif type(f,`+`) then diff(f,x)/f \n     elif type(f,`*`) then \+
\n       add(lndiff(op(i,f),x),i=1..nops(f))\n     elif type(f,`^`) th
en \n       if not has(op(2,f),x) then op(2,f)*lndiff(op(1,f),x)\n    \+
   else lndiff(exp(op(2,f)*ln(op(1,f))),x)\n       fi\n     elif type(
f,function) then\n       fct:=`lndiff/`.(op(0,f));\n       if not type
(fct,procedure) then traperror(readlib(fct)) fi;\n       if not type(f
ct,procedure) then \n         ERROR(\"not yet implemented\",args)\n   \+
    else fct(op(f),x)\n       fi\n     else ERROR(\"arguments do not m
atch the definition\",args)\n     fi\n   end:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 226 " `lndiff/exp`:=proc(g,x)\n      diff(g,x)\n    \+
end:   \n `lndiff/ln`:=proc(g,x)\n      diff(g,x)/g/ln(g) \n    end:  \+
\n `lndiff/sin`:=proc(g,x)\n      diff(g,x)*cot(g)\n    end:\n `lndiff
/cos`:=proc(g,x)\n      diff(g,x)*tan(g)\n    end:" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 18 " f:=(x^3+1)/(x-1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fG*&,&*$)%\"xG\"\"$\"\"\"\"\"\"F,F,F+,&F)F,!\"\"F,!
\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "lndiff(f,x);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&*$)%\"xG\"\"#\"\"\"F),&*$)F'\"\"$F
)\"\"\"F.F.!\"\"F-*&F)F),&F'F.!\"\"F.F/F2" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 14 "f:=exp(x^2+x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"fG-%$expG6#,&*$)%\"xG\"\"#\"\"\"\"\"\"F+F." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 12 "lndiff(f,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
,&%\"xG\"\"#\"\"\"F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "f:=
ln((x^3+1)/(x-1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG-%#lnG6#*&
,&*$)%\"xG\"\"$\"\"\"\"\"\"F/F/F.,&F,F/!\"\"F/!\"\"" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 12 "lndiff(f,x);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#*&*&,&*&*$)%\"xG\"\"#\"\"\"F+,&F)\"\"\"!\"\"F-!\"\"\"\"
$*&,&*$)F)F0F+F-F-F-F+*$)F,\"\"#F+F/F.F-F,F-F+*&F2\"\"\"-%#lnG6#*&F2F+
F,F/\"\"\"F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "f:=tan(x);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG-%$tanG6#%\"xG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "lndiff(f,x);" }}{PARA 8 "" 1 "" 
{TEXT -1 49 "Error, (in lndiff) not yet implemented, tan(x), x" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }