{VERSION 4 0 "IBM INTEL LINUX" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 0 0 8 4 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 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 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 0 } 3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 27 "Integraalilaskentaa R^n:s s\344" }}{PARA 19 "" 0 "" {TEXT -1 9 "19.4.2001" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 201 "restart:\nwith(plots):#with(LinearAlgebra):wi th(linalg):\n#read(\"c:\\\\opetus\\\\maple\\\\v201.mpl\"):\n#read(\"/h ome/apiola/opetus/peruskurssi/v2-3/201/maple/v201.mpl\");\nread(\"/p/e du/mat-1.414/maple/v201.mpl\"):\n" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warn ing, the name changecoords has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 62 "Seuraavat m\344\344rittelyt lis\344ttiin v201.mpl: \344\344n (ainakin omaani):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 135 "vaakajana:=(x1,x2,y)->plot([[x1,y],[x2,y]],thickness=1,color=grey ):\npystyjana:=(y1,y2,x)->plot([[x,y1],[x,y2]],thickness=1,color=grey) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 112 "hila:=(a,b,m,c,d,n)-> display([seq(vaakajana(a,b,c+k*(d-c)/n),k=0..n),seq(pystyjana(c,d,a+kk *(b-a)/m),kk=0..m)]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "hi la(-1,1,20,3,10,3);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6=-%'CURVESG6%7$7$$!\"\"\"\"!$\"\"$F*7$$\"\"\"F*F+-%'COLO URG6&%$RGBG$\")=THv!\")F4F4-%*THICKNESSG6#F/-F$6%7$7$F($\"3.LLLLLLL`!# <7$F.F>F0F7-F$6%7$7$F($\"3'pmmmmmmm(F@7$F.FFF0F7-F$6%7$7$F($\"#5F*7$F. FMF0F7-F$6%7$F'FLF0F7-F$6%7$7$$!3C+++++++!*!#=F+7$FWFMF0F7-F$6%7$7$$!3 W+++++++!)FYF+7$FinFMF0F7-F$6%7$7$$!3c**************pFYF+7$F`oFMF0F7-F $6%7$7$$!3y**************fFYF+7$FgoFMF0F7-F$6%7$7$$!3++++++++]FYF+7$F^ pFMF0F7-F$6%7$7$$!3C+++++++SFYF+7$FepFMF0F7-F$6%7$7$$!3))************* *HFYF+7$F\\qFMF0F7-F$6%7$7$$!37+++++++?FYF+7$FcqFMF0F7-F$6%7$7$$!3/+++ ++++5FYF+7$FjqFMF0F7-F$6%7$7$$F*F*F+7$FarFMF0F7-F$6%7$7$$\"3/+++++++5F YF+7$FgrFMF0F7-F$6%7$7$$\"37+++++++?FYF+7$F^sFMF0F7-F$6%7$7$$\"3))**** **********HFYF+7$FesFMF0F7-F$6%7$7$$\"3C+++++++SFYF+7$F\\tFMF0F7-F$6%7 $7$$\"3++++++++]FYF+7$FctFMF0F7-F$6%7$7$$\"3y**************fFYF+7$FjtF MF0F7-F$6%7$7$$\"3c**************pFYF+7$FauFMF0F7-F$6%7$7$$\"3W+++++++ !)FYF+7$FhuFMF0F7-F$6%7$7$$\"3C+++++++!*FYF+7$F_vFMF0F7-F$6%7$F-FOF0F7 -%+AXESLABELSG6%Q!6\"Fhv%(DEFAULTG-%%VIEWG6$FjvFjv" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" " Curve 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Curve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Cur ve 17" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "Curve 2 3" "Curve 24" "Curve 25" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 26 "Tasointegraalin m\344\344rit elm\344" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "f:=(x,y)->x^2+y; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6$%\"xG%\"yG6\"6$%)operator G%&arrowGF),&*$)9$\"\"#\"\"\"F29%F2F)F)F)" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 47 "display(hila(0,1,3,0,1,3),scaling=constrained);" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6--%'CURVESG6%7$7$ $\"\"!F)F(7$$\"\"\"F)F(-%'COLOURG6&%$RGBG$\")=THv!\")F1F1-%*THICKNESSG 6#F,-F$6%7$7$F($\"3:LLLLLLLL!#=7$F+F;F-F4-F$6%7$7$F($\"3ImmmmmmmmF=7$F +FCF-F4-F$6%7$7$F(F+7$F+F+F-F4-F$6%7$F'FIF-F4-F$6%7$7$F;F(7$F;F+F-F4-F $6%7$7$FCF(7$FCF+F-F4-F$6%7$F*FJF-F4-%+AXESLABELSG6%Q!6\"Fhn%(DEFAULTG -%(SCALINGG6#%,CONSTRAINEDG-%%VIEWG6$FjnFjn" 1 2 0 1 10 0 2 9 1 4 1 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve \+ 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" }}}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "S:=(f (1/4,1/4)+f(3/4,1/4)+f(1/4,3/4)+f(3/4,3/4))/4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"SG,*-%\"fG6$#\"\"\"\"\"%F)F)*&F)F*-F'6$#\"\"$F+F)F* F**&F)F*-F'6$F)F/F*F**&F)F*-F'6$F/F/F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,*-%\"fG6 $#\"\"\"\"\"%F'$\"+++++D!#5*&F*F(-F%6$#\"\"$F)F'F(F(*&F*F(-F%6$F'F0F(F (*&F*F(-F%6$F0F0F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 181 "#d isplay(plot3d(0,x=0..1,y=0..1,grid=[3,3],color=red,orientation=[-92,0] ,style=wireframe),pointplot3d([[1/4,1/4,0],[3/4,1/4,0],[1/4,3/4,0],[3/ 4,3/4,0]],symbol=cross,symbolsize=20));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 266 "restart:\nwith(plots):#with(LinearAlgebra):with(lina lg):\n#read(\"c:\\\\opetus\\\\maple\\\\v201.mpl\"):\nread(\"/home/apio la/opetus/peruskurssi/v2-3/201/maple/v201.mpl\");\n#read(\"/p/edu/mat- 1.414/maple/v201.mpl\"):\n\nread(\"/home/apiola/opetus/peruskurssi/v2- 3/201/maple/v201.mpl\"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "S:=sum(sum(f(x[i],y[j])*dA(i,j),i=1..m),j=1..n);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 17 "N:=3: m:=N: n:=N:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a:=0:b:=1:c:=0:d:=1:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "x:=linspace(a,b,m+1):y:=linspace(c,d,n+1):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "kpx:=seq((x[i+1]+x[i])/2.,i= 1..m):kpy:=seq((y[i+1]+y[i])/2.,i=1..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "Rkp:=sum(sum(f(kpx[i],kpy[j])*dA(i,j),i=1..m),j=1..n) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "f:=(x,y)->x^2+y;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "dA:=(i,j)->(x[i+1]-x[i])*(y[ j+1]-y[j]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "Rkp;evalf(%) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 208 "for N from 2 to 20 do \nm:=N: n:=N:\n x:=linspace(a,b,m+1):y:=linspace(c,d,n+1):\nkpx:=seq(( x[i+1]+x[i])/2.,i=1..m):kpy:=seq((y[i+1]+y[i])/2.,i=1..n):\nRkp[N]:=su m(sum(f(kpx[i],kpy[j])*dA(i,j),i=1..m),j=1..n): od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "seq(Rkp[k],k=3..20);" }}}{EXCHG {PARA 0 " " 0 "" {TEXT -1 31 "Menn\344\344n hiukan asioiden edelle:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "x:='x': y:='y':int(int(f(x,y),x=0.. 1),y=0..1); evalf(%);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "\304skei nen Riemannin summien jono n\344ytt\344\344 suppenevan kohti oikeaa in tegraalin arvoa." }}{PARA 0 "" 0 "" {TEXT -1 76 "Voimme m\344\344ritt \344\344 integraalin arvon tarkasti, kun nojaudumme peruslauseeseen:" }}{PARA 0 "" 0 "" {TEXT -1 67 "Jatkuva funktio suljetussa rajoitetuss a joukossa on integroituva. " }}{PARA 0 "" 0 "" {TEXT -1 154 "Sen peru steella voimme laskea vaikka tasav\344liseen jakoon ja kunkin osaneli \366n \"alimpaan\" pisteeseen liittyv\344n Riemannin summan. Laskussa \+ tarvitaan summia:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "n:='n' : Sum(i^2,i=0..n-1):%=value(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "Sum(i,i=0..n-1):%=value(%); # T\344m\344n kyll\344 osaisimme m uutenkin!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 \+ 0 0" 160 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }