{VERSION 2 3 "DEC ALPHA UNIX" "2.3" }
{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 "Diagnostic" 7 9 1 {CSTYLE "" -1 -1 "" 0 1 64 128 64 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 849 "lndiff:=proc(f,x)\n
    local i;\n    if not has(f,x) then 0\n    elif f=x then 1/x\n    e
lif type(f,`+`) then diff(f,x)/f # 'lndiff'(f,x)\n    elif type(f,`*`)
 then \n      add(lndiff(op(i,f),x),i=1..nops(f))\n    elif type(f,`^`
) then \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      if op(0,f)=exp then diff(op(1,f),x)\n      eli
f op(0,f)=ln then diff(op(1,f),x)/op(1,f)/f\n      elif op(0,f)=sin th
en diff(op(1,f),x)*cot(op(1,f))\n      elif op(0,f)=cos then diff(op(1
,f),x)*tan(op(1,f))\n      elif op(0,f)=tan then lndiff(sin(op(1,f))/c
os(op(1,f)),x)\n      elif op(0,f)=GAMMA and nops(f)=1 then Psi(op(1,f
))\n      else ERROR(`this case has not been implemented`,args)\n     \+
 fi\n    else ERROR(`arguments do not match the definition`,args)\n   \+
 fi\n  end:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f:=(x^3+1)
/(x-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG*&,&*$%\"xG\"\"$\"\"
\"F*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+" }}}{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-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)F-F*F(F
)-%#lnG6#*&F-F)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 11 "" 
1 "" {XPPMATH 20 "6#,&-%$cotG6#%\"xG\"\"\"-%$tanGF&!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "f:=GAMMA(2,exp(x));" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"fG*&-%$expG6#,$-F'6#%\"xG!\"\"\"\"\",&F.F.F*F.
F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "lndiff(f,x);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,&-%$expG6#%\"xG!\"\"*&F$\"\"\",&F*F*F
$F*F(F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "trace(lndiff):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "lndiff(1/cos(x),x);" }}
{PARA 9 "" 1 "" {TEXT -1 37 "\{--> enter lndiff, args = 1/cos(x), x" }
}{PARA 9 "" 1 "" {TEXT -1 35 "\{--> enter lndiff, args = cos(x), x" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$tanG6#%\"xG" }}{PARA 9 "" 1 "" 
{TEXT -1 41 "<-- exit lndiff (now in lndiff) = tan(x)\}" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#,$-%$tanG6#%\"xG!\"\"" }}{PARA 9 "" 1 "" {TEXT 
-1 45 "<-- exit lndiff (now at top level) = -tan(x)\}" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,$-%$tanG6#%\"xG!\"\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 16 "untrace(lndiff):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "14 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }