0002000201000cMax_Rect.ACT000102000cMax_Rect.EAC010000001d66  Max_Rect.EACACT # -04  ^L ' [4Largest area and an ellipse#c\+ Author/Professor,Dr.Wei-Chi Yang PDepartment of Math/Stats BRadford University; , VA 24142 wUSAaIe-mail: wyang@rW.eduk URL:www./~7- Obj.BFind the largest rectangle infir-quadrant under an ellipse.[ ExplorationD^area ofrj(k[My= 36-9xg2o4w\ AnimΈ 4 ) $ `AEPY7 bsd DvIKr  A kL'?C uxy q &1W, Rc xsp!%`$/P01WG@<6!0HBIs G`l`TH<WG6hahm l5(H 5HE#HH$R2<ywyP5v)YP0'"hQ#r# #"y98@sp rIP`9u2P$s 0 F9 2V6rUAP XCArea of EADF: i @qUH Eav!FC  D G6!&D ȐCAPG6!&av   )9  21@96@9UA`Ky9 YL Coord of D: g  ww "2 5@!*&Ȗ@((36-9x^2)/4)^(1/2)08 &1WG ݈!@? &% \\    @$6+ 6Y>G6!&   _@J`0WEȨ `avqJ`Ў"pӈ;!;J;`z@  * Ȑ@96 'L4Kl `)BCk; H CCz՜ވ!o"#@ɫQ1EwaY `avmF$\!\%n"nLr%hFTB G6!&  #W2g@   #' (8%")!4%}@*}EI!o%--  Q [list1=x value of D, 2=areaEADF6 [E0 0.1052631579h 0.3153517888 0.210526 6280701483&978947379935484584M6_ 1.234848241%n7895% 1329386\"474I 797781799%7368r 2.05503576%"2%29145989%يLJH02722ʏ'7n68512372$&83232023$93802279$2.993904997 1.473684211$88918384$5789($0739983HE0526H724950891.GZ 2.397503325j4281977383$ [  \ drag and dropԉ+  HNFinaFormX$NGraph2D| 3 LISTSYS4< Modify ЈP<STATCALC d< \x S9equence,xSheetO|iolveEqwr(UptupFLG1(<Lis{DPicViewWind(_osvevExy^PȎ,LBXT͑hpΑ||БאB  } ْڒےĐ< FinancialFormat  E system]list^]=_`a b~Ž @ˆ @x8<ŠV 8 a seq_hb NewFolde   16<651sYf@<e5y `7^;>[ [ UBy using the 'trace' fromscatter plot above, we will ge rough idea whereHe maximum areay should be. Analytically +We can slupM function as follows:Rdefine A(x)=x* 36-9x 2R doneR#A(x))x)8- 18Vx`1q36:-9AV%+B rfactor(px'&+&ѐэ\plot A and A' Љ, 4N&8%FinaForm$NGraph2D% 3 LISTSYS$@4< Modify XP<STATCALC |d< \x Sequence,xSheetO | olveEq`wr(UptupFLG1 (<Lis{HDPicViewWind_osvev̐xy^HUy2 xi8<P P-  n\GhtȒԒ ! ", #@$T(%h4 &|@ *'LFX)d  *hpl+|,-.012Ć3І~܆5EF H I J@$ KT%L<M|nNTO`,PlƆ QxwR{S<]g i ^_Xab̆ ͆؆Ά׆ FCّT ڑh )ۑ|, FinanciaFormat  ) system]list^]=_`a #b~u @֜ @x8V a seq_hb NewFolde53 0 pM< <G6!&   _@J`0WEȨ `avqJ`Ў"pӈ;!;J;`z@  * Ȑ@96 'L4Kl `)BCk; H CCz՜ވ!o"#@ɫQ1EwaY `avmF$\!\%n"nLr%hFTB G6!&  #W2g@   #' (8%")!4%}@*}EI!o%--  Q [list1=x value of D, 2=areaEADF6 [E0 0.1052631579h 0.3153517888 0.210526 6280701483&978947379935484584M6_ 1.234848241%n7895% 1329386\"474I 797781799%7368r 2.05503576%"2%29145989%يLJH02722ʏ'7n68512372$&83232023$93802279$2.993904997 1.473684211$88918384$5789($0739983HE0526H724950891.GZ 2.397503325j4281977383$ [  \ drag and dropԉ+  HNFinaFormX$NGraph2D| 3 LISTSYS4< Modify ЈP<STATCALC d< \x S9equence,xSheetO|iolveEqwr(UptupFLG1(<Lis{DPicViewWind(_osvevExy^PȎ,LBXT͑hpΑ||БאB  } ْڒےĐ< FinancialFormat  E system]list^]=_`a b~Ž @ˆ @x8<ŠV 8 a seq_hb NewFolde   16<651sYf@<e5y `7^;>[ [ UBy using the 'trace' fromscatter plot above, we will ge rough idea whereHe maximum areay should be. Analytically +We can slupM function as follows:Rdefine A(x)=x* 36-9x 2R doneR#A(x))x)8- 18Vx`1q36:-9AV%+B rfactor(px'&+&ѐэ\plot A and A' Љ, 4N&8%FinaForm$NGraph2D% 3 LISTSYS$@4< Modify XP<STATCALC |d< \x Sequence,xSheetO | olveEq`wr(UptupFLG1 (<Lis{HDPicViewWind_osvev̐xy^HUy2 xi8<P P-  n\GhtȒԒ ! ", #@$T(%h4 &|@ *'LFX)d  *hpl+|,-.012Ć3І~܆5EF H I J@$ KT%L<M|nNTO`,PlƆ QxwR{S<]g i ^_Xab̆ ͆؆Ά׆ FCّT ڑh )ۑ|, FinanciaFormat  ) system]list^]=_`a #b~u @֜ @x8V a seq_hb NewFolde53 0 pM< <uXiڸImӻWn%_bu;Xa#a=7`KU]"ξƜ-}G~1.1;8Oz~lcG$`ȖMjI,\ƺG TƺDmƂ YgZoܚHޣ|4EH9o{* qg|%67bQߝ0PCBIxwͯFNoV!?_ɿq0*TfKzC|SDbC|$_qJ m<8 loe+soYe30mvXlx+KzS IyIwH.NIIZ) IKrҀټKNIr@$5V )oYMYn%zcLr+_2Fd$slLxv8)5GY?%vxu~Se.U6ZdKZ/隤HIzGR{IJrař$3Kͦ\_N'1}~3_6Nߙ}QHޗ=3+tBLݔ22YSi.j'|V\J-'|>їf3?+s3WjnK{D:ꗟY/ ?pK-?)=k?=c9rDS}3Y>'O>CB0<>p࠺Koѳ}5PW;嶴1>aߘ7,'{7o.u1;+^4Sr nM*nP:ơVoȡtHOza:H:L[/._ruUG*u\%}+a{wCBR-:%/vǬga=ERnAM}~WDOUsUv y"Hxءƃ=7UMhzLӲ̀Q3uUk4L: Cnweژ !{:߾X%ޚtHJX[2ԡxqR5EcDmTs[MRdsK,\ȭT2R$R kjK%cmRcIn5G[ZFbzx*ܒJ⥦4NJ8x[<^jIՔmZ-x-ަJM2!m|FRI-Khs*U:uN%X2,]4:6ѶD*4٦x6mTK4*xfM"&(o7"1yD|mh^%xYg %xYg[,WdB!;W;- }oD:Q5n'j/lƭJZ.kwzRҏg:Րڰ]3\y{#jktV0t|1!ݫ+G‘vY34_; Nf)S['yQ~f}490si{AO^P׽xƵvT"{eT嚊){T6+| Ü0b5{±kK̵sK|kK?'6:jON>Ɔ>>s|#7t;d2U=RO=eo;#v{UYrw"ύb)Cvr0oa1u f7>ztjy\l{gnys׽}[#ێ<gͧ}T|r2䏽Y~} \]SkV=u??*qU$}![ҭ^C>5X_Q!Թ%5-p?Lߌqskv~?'iD1IYIg$tIUI$]W6eI!IQI%ItLRgf+KkM'(mS[)m_OyKk>x{Li/C>ʶ/ϗz)Y\,t}>z|6JyB?Rv/jl\+^]7}5.иfa6g}e_h;/[eLa*Ee3ӥEƙ_NL.Xa޺S/ KK_˖4o@,`:lY戊eWa{mҙiP+;U\@f\nVy?TKf`S|`{(}YF:W#j~$5WciwIwYwywՀ_UբwZ.wZvȝ[MiU´1sbZ-ߣfћG Y.g\V㣅egJ5e#j@YaF$uZ.p].p].Ɖ| VgW-j6^-p'޷zbmęh&-q&ڿ&̛zęi>{DBAgqOu/[RNF}Vc˜Z6hu\53~?7ܪg5W,IH<mKEDbq9c\q?q9Uݢ{q}__֩Ԉ?9<泣U=SUz\~+tsV)F=04c3