{VERSION 3 0 "DEC ALPHA UNIX" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 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 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "f:=sqrt(abs(x-1))-ln (abs(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,&*$-%%sqrtG6#-%$ab sG6#,&%\"xG\"\"\"!\"\"F/\"\"\"F/-%#lnG6#-F+6#F.F0" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 24 "F:=convert(f,piecewise);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"FG-%*PIECEWISEG6%7$,&*$-%%sqrtG6#,&%\"xG!\"\"\"\" \"F1\"\"\"F1-%#lnG6#,$F/F0F01F/\"\"!7$,&-F46#F/F0F*F11F/F17$,&*$-F,6#, &F/F1F0F1F2F1F;F02F1F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "op (F);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6(1%\"xG\"\"!,&*$-%%sqrtG6#,&F$! \"\"\"\"\"F-\"\"\"F--%#lnG6#,$F$F,F,1F$F-,&-F06#F$F,F'F-2F-F$,&*$-F)6# ,&F$F-F,F-F.F-F5F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "for i to 3 do f.i:=op(2*i,F) od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f1G, &*$-%%sqrtG6#,&%\"xG!\"\"\"\"\"F-\"\"\"F--%#lnG6#,$F+F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f2G,&-%#lnG6#%\"xG!\"\"*$-%%sqrtG6#,&F)F*\" \"\"F0\"\"\"F0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f3G,&*$-%%sqrtG6# ,&%\"xG\"\"\"!\"\"F,\"\"\"F,-%#lnG6#F+F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "F1:=diff(F,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%# F1G-%*PIECEWISEG6&7$,&*&\"\"\"F+*$-%%sqrtG6#,&%\"xG!\"\"\"\"\"F3F+!\" \"#F2\"\"#*&F+F+F1F4F22F1F37$%*undefinedG/F1F37$,&*&F+F+*$-F.6#,&F1F3F 2F3F+F4#F3F6F7F22F3F17$F:/F1\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "critical:=[solve(F1,x)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)criticalG7$,&!\"#\"\"\"*$-%%sqrtG6#\"\"#\"\"\"F'F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "series(f,x=critical[1]); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+1,(%\"xG\"\"\"\"\"#F&*$-%%sqrtG6# F'\"\"\"F',(F&F&F(F&-%#lnG6#,&F'F&F(F'!\"\"\"\"!,&*&F,F,F1!\"\"F&*&,&F &F&F(F&F,,&\"\"$F&F(F'F6#F2F'\"\"\",&*&F,F,*&F8\"\"\"F1\"\"\"F6#F&\"\" %*&F8F,*$)F9\"\"#F,F6#F2\"\")\"\"#,&*&F,F,*&)F8\"\"#F,F1\"\"\"F6#F&\"# 7*&F8F,*$)F9\"\"$F,F6#F2\"#;\"\"$,&*&F8F,*$)F9\"\"%F,F6#!\"&\"$G\"*&F, F,*&)F8\"\"$F,F1\"\"\"F6#F&\"#K\"\"%,&*&F,F,*&)F8\"\"%F,F1\"\"\"F6#F& \"#!)*&F8F,*$)F9\"\"&F,F6#!\"(\"$c#\"\"&-%\"OG6#F&\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "map(radnormal,%);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+/,(%\"xG\"\"\"\"\"#F&*$-%%sqrtG6#F'\"\"\"F',(F&F&F( F&-%#lnG6#,&F'F&F(F'!\"\"\"\"!,$*&,&\"#5F&F(\"\"(F,,&\"#**F&F(\"#q!\" \"#F&\"\")\"\"#,$*&,&\"$Z\"F&F(\"$/\"F,,&\"%$R\"F&F(\"$&)*F<#F&\"#[\" \"$,$*&,&\"$\\*F&F(\"$r'F,,&\"&,'>F&F(\"&gQ\"F<#F&\"$G\"\"\"%,$*&,&\"& RM#F&F(\"&ul\"F,,&\"'2eFF&F(\"'D]>F<#F&\"%!G\"\"\"&-%\"OG6#F&\"\"'" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "series(f,x=critical[2]);" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#+-,&%\"xG\"\"\"!\"#F&,&F&F&-%#lnG6#\" \"#!\"\"\"\"!#F&\"#[\"\"$#!\"$\"$G\"\"\"%#\"#F\"%!G\"\"\"&-%\"OG6#F&\" \"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "plot(f,x=-5..5,y=-1. .9,color=blue);" }}{PARA 13 "" 1 "" {INLPLOT "6&-%'CURVESG6#7go7$$!\"& \"\"!$\"3+w2\\.$=0S)!#=7$$!3XLLLe%G?y%!#<$\"34#R>fi+sR)F-7$$!3QmmT&esB f%F1$\"3&Hp'o\\)HUS)F-7$$!3ALL$3s%3zVF1$\"3>Kt;alXC%)F-7$$!3_LL$e/$QkT F1$\"3**)[kIh(ff%)F-7$$!3ommT5=q]RF1$\"36LnYS-C6&)F-7$$!3HLL3_>f_PF1$ \"3%Guz\"oB(fd)F-7$$!3K++vo1YZNF1$\"3\\5::jaXi')F-7$$!3;LL3-OJNLF1$\"3 *R?9v\")[dx)F-7$$!3p***\\P*o%Q7$F1$\"3`72*3&[g;*)F-7$$!3Kmmm\"RFj!HF1$ \"3ocpLo*Gb4*F-7$$!33LL$e4OZr#F1$\"3^D#>9>.nG*F-7$$!3v*****\\n\\!*\\#F 1$\"3O@)y\\hTma*F-7$$!3%)*****\\ixCG#F1$\"3(*G%po(Q*\\')*F-7$$!3\"**** **\\KqP2#F1$\"37(el@x[Q-\"F17$$!3:LL3-TC%)=F1$\"3:o(e9^zZ1\"F17$$!3Zmm m\"4z)e;F1$\"37_*>?%[YC6F17$$!3Lmmmm`'zY\"F1$\"3%R%RP!f)4(=\"F17$$!3#* ***\\(=t)eC\"F1$\"3jX6M(\\!yy7F17$$!3\"ommmh5$\\5F1$\"3w$4&**\\zS$Q\"F 17$$!3S$***\\(=[jL)F-$\"3%G%eymv2O:F17$$!3*f***\\iXg#G'F-$\"30'fbHbL3u \"F17$$!3ndmmT&Q(RTF-$\"3l+Q=(ye52#F17$$!3Ihm\"HdGe:$F-$\"3U\"))QJhA.I #F17$$!3$\\mmTg=><#F-$\"3_@?,^$Q-j#F17$$!3FK$3Fpy7k\"F-$\"3q278Rq0')GF 17$$!3g***\\7yQ16\"F-$\"3RU$pJ\"*>$\"3nYbY7^.7 NF17$$!3Fpm\"zp))**z&F^t$\"3*>&HyJa!f(QF17$$!3fP3F>*)QtWF^t$\"3T8')zkh 9HTF17$$!3#f+D19*yYJF^t$\"3N4Hn]'*RuWF17$$!33!4-8D*[$[#F^t$\"3)Rf#)4&p %yq%F17$$!3Du\"z>O*=?=F^t$\"3Iq48^&*G:]F17$$!3Teils%*)o:\"F^t$\"3@\"*y 6&3._Y&F17$$!3uDMLLe*e$\\!#?$\"3*>D&31go8jF17$$\"3<$4aj%e#R&>Fbv$\"3< \\'G^BPpB(F17$$\"327;/EvuV))Fbv$\"3m=>;qGhBdF17$$\"358Hd?pNt:F^t$\"3AA _o421W^F17$$\"3*\\mT&)3RBE#F^t$\"3kdQD1XRxZF17$$\"3xo\"zWU..k$F^t$\"3I Y@F**Gt%H%F17$$\"3bsmTgxE=]F^t$\"3)**)=#y4rm'RF17$$\"36!o\"HKk>uxF^t$ \"3agHy^Fq9NF17$$\"3xomT5D,`5F-$\"3*Hctg9:o>$F17$$\"3Gq;zW#)>/;F-$\"3q IO^uqCYFF17$$\"3zrm;zRQb@F-$\"3g$\\>Wd9.U#F17$$\"3lOLL$e,]6$F-$\"3Xx'3 #QV6'*>F17$$\"3_,+](=>Y2%F-$\"3D$*y``Fdn;F17$$\"36QLe*[K56&F-$\"3U77Rx ^Rq8F17$$\"3rumm\"zXu9'F-$\"3*=v=!))yB26F17$$\"3$4+++]y))G)F-$\"3)G;6T guK,'F-7$$\"3%>++DcljL*F-$\"3:lPSW2ziKF-7$$\"3H++]i_QQ5F1$\"3C0')fzpa# e\"F-7$$\"3O+v=U,1*3\"F1$\"3w\"HT!**Q9J@F-7$$\"3U+](=-N(R6F1$\"3.rH?1o :ICF-7$$\"3[+Dc,*4/>\"F1$\"36AJlu7i?EF-7$$\"3b++D\"y%3T7F1$\"3p0$F-7$$\"3Z+++v.I%)=F1$\"3t+NTz'e\"oI F-7$$\"3@mm\"zpe*z?F1$\"3@W)>8wD'oIF-7$$\"3;,++D\\'QH#F1$\"3zy&>\"**pV sIF-7$$\"3&HL$e9S8&\\#F1$\"3'4O F-7$$\"3C++D\"oK0e%F1$\"307/)obUTq$F-7$$\"36,+v=5s#y%F1$\"34A\"Q#)=A\" *z$F-7$$\"\"&F*$\"3=(**ec(3i0RF--%+AXESLABELSG6$Q\"x6\"Q\"yFacl-%'COLO URG6&%$RGBGF*F*$\"*++++\"!\")-%%VIEWG6$;F(Fibl;$!\"\"F*$\"\"*F*" 2 325 325 325 2 0 1 0 2 6 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 1" 0 }{VIEWOPTS 1 1 0 1 1 1803 }