{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 48 "1040ForShowB10.mws\nThu Nov 10 10:39:51 M
ST 2005\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "with(plots,dis
play):  with(plottools, disk):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 
"########################################" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 10 "f := sqrt;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 6 "#f(4);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "XRG := -1..3
:  YRG := XRG:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "Pf := plo
t(f, XRG, YRG, colour=BLACK, thickness=2):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "display(Pf);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 7 "A := 1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "#Taylor( \+
f(x), x=A, 5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "series( f
(x), x=A, 5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "PD := disk
( [A, f(A)], 1/30, colour=BLACK ):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "#display([Pf,PD]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 51 "Several Taylor Polynomials and how they relate to f" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "N := 10:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 12 "SEQ := NULL:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 131 "for k from 1 to N\n  do\n    series( f(x), x=A, k):\n    conv
ert( %, polynom);\n    plot(%, x=XRG, y=YRG):\n    SEQ := SEQ, %:\n  e
nd do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "SEQR := display( \+
[SEQ], insequence=true):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 
"Enchilada := display([Pf, PD, SEQR]):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 36 "display(Enchilada, insequence=true);" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 54 "#########################################
#############" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "binomial(4
,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "N := 15:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 152 "for n from 0 to N\n  do\n     for \+
k from 0 to n\n       do\n         binomial(n,k);\n         printf(\" \+
%d \",%);\n       end do;\n       printf(\"\\n\");\n  end do;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "##################################
#######################" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "
G := (x,y,z) -> (x+y+z)/3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
9 "G(3,2,6);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 153 "AVE := pro
c(a,b,c)\n  description \"Compute and print the average of a,b,c.\";\n
  local q;\n\n  q := a + b + c;\n  q := q/3; \n  print(q); \n  return(
q);\n    end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "q := 1728;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "GG := AVE(5,6,7); %;" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "q;" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 12 "#print(AVE);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "#######
#######################################" }}}}{MARK "35" 0 }{VIEWOPTS 
1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }