00010001010008main.ACT000102000eRieman sum.EAC010000001809ɨk^´¨š[ Rieman sum[\Graph.ĐĘěGraph2D@ †Graph3DT †LISTSYS`4N†Modify ”$ †STATCALC ¸N†STATSYS Ŕ\N†Sequence, †SheetH| †Sheet3DÄ| †SolveEq@†SolveLwrD †SolveUprP †StupFLG1\(†StupList„D †StupPictČ$ †ViewWindě †y1H†ä †ä, †ä8 †äD †äP †ä\ †äh †ät †ä€ †äŒ †ä˜ †ä¤ †ä° †äź †äČ †äÔ †ä ŕ †ä!ě †ä"ř †ä# †ä$ †ä% †ä&( †ä'4 †ä(@ †ä)L †ä*X †ä+d †ä,p †ä-| †ä.ˆ †ä0” †ä1  †ä2Ź †ä3¸ †ä4Ä †ä5Đ †äEÜ †äFč †äHô †äI †äJ †äK †äL$ †äM0 †äN< †äOH †äPT †äQ` †äRl †äSx †äT„ †ä] †ä^” †ä_˜ †ä`œ †äa  †äb¤ †ä”¨ †ä•´ †äÍŔ †äÎĚ †äĐŘ †systemä]listsystemä^]=systemä_ä^systemä`ä_systemäaä`systemäb~zÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂzÂz aseq_histbNewFolde systemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemzÂsystemä]listsystemä^]=systemz  0@PSheet1€ Sheet2€ Sheet3€ Sheet4€ Sheet5€ SheetSheet3D 0@PSheet1čju^Sheet2čju^Sheet3čju^Sheet4čju^Sheet5čju^SheetSheet3D i™ ™¨k^´¨š $  3xŕL(x)`P`P`p`p ™€`€(1…0qy`#Y‡uYƒ ˜p ˆ‚3‡p ™` ™PRdefine f(x)=sin(x)RdoneR!define right(a,b,j,n)=a+j*(b-a)/nRdoneR$define left(a,b,j,n)=a+(j-1)*(b-a)/nRdoneR8define rsum(a,b,n)=îQ(((b-a)/n)*f(right(a,b,j,n)),j,1,n)RdoneRlim(rsum(0,î/4,n),n,î)R1-22Rî/4R 0.7853981634R7define lsum(a,b,n)=îQ(((b-a)/n)*f(left(a,b,j,n)),j,1,n)RdoneRlim(lsum(0,î/4,n),n,î)RERROR :Insufficient MemoryRsin(x)0î4xR1-22ReActfHxŕL(x)leftH(a,b,j,na+(j-1)*(b-a)/nlsumH<+a,b,nŕ„(((b-a)/n)*f(left(a,b,j,n)),j,1,n)rightH$a,b,j,na+j*(b-a)/nrsumH<,a,b,nŕ„(((b-a)/n)*f(right(a,b,j,n)),j,1,n)