{VERSION 5 0 "IBM INTEL NT" "5.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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(student);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "leftbox( x^3, x=-1..1, 15); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 47 "restart: with(Maplets):with(Maplets[Elements]) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 556 "riemann := Maplet(\nW indow['W1'](\n [ [\"Enter a function f(x)=\", TextField['f'](\"x^2\") ],\n [\"Enter left endpoint a=\", TextField['a'](\"0\", 3),\n \" Enter right endpoint b=\", TextField['b'](\"1\", 3)], #end 1\n [Plo tter['P']()], #end 2\n [Button['b1'](\"Plot f(x)\", 'onclick'=Evalu ate('P'='plot(f, x=a..b)'))], #end 3\n [\"Choose number of rectangl es\"],\n [Slider['s1'](0..100, 10, 'majorticks'=20, 'minorticks'=5, 'snapticks'='false')], #end 4\n [Button['b2'](\"Show Riemann sum\" , 'onclick'=Evaluate('P'='student[leftbox](f, x=a..b, s1)'))]\n ]\n ) \n):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Display(riemann); \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 945 "riemann2 := Maplet( \nWindow['W1']\n (\n [ [\"Enter a function f(x)=\", TextField['f'](\" x^2\")],\n [\"Enter left endpoint a=\", TextField['a'](\"0\", 3),\n \"Enter right endpoint b=\", TextField['b'](\"1\", 3)], #end 1\n \+ [Plotter['P']()], #end 2\n [Button['b1'](\"Plot f(x)\", 'onclick '=Evaluate('P'='plot(f, x=a..b)'))], #end 3\n [\"Choose number of r ectangles\"],\n [Slider['s1'](0..100, 10, 'majorticks'=20, 'minorti cks'=5, 'snapticks'='false')], #end 4\n\n [Button['b2'](\"Show Riem ann sum\", 'onclick'='ShowSum')],\n #[\"Riemann sum\", TextField['s um'](),\n [\"Riemann sum\", MathMLViewer['sum'](height=70, width=20 0),\n \"Numeric approximation\", TextField['numericSum'](4)]\n ] \n ),\nAction['ShowSum'](Evaluate('sum'='MathML[Export](student[leftsu m](f, x=a..b, s1))'),\n Evaluate('numericSum'='evalf( student[leftsum](f, x=a..b, s1), 5)'),\n Evaluate('P' ='student[leftbox](f, x=a..b, s1)') \n )\n):\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Display(riemann2);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 33 } {VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }