{VERSION 2 3 "DEC ALPHA UNIX" "2.3" } {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,&*$-%$absG6#,&%\"x G\"\"\"!\"\"F,#F,\"\"#F,-%#lnG6#-F(6#F+F-" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 24 "F:=convert(f,piecewise);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"FG-%*PIECEWISEG6%7$,&*$,&%\"xG!\"\"\"\"\"F.#F.\"\"# F.-%#lnG6#,$F,F-F-1F,\"\"!7$,&-F26#F,F-F*F.1F,F.7$,&*$,&F,F.F-F.F/F.F9 F-2F.F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "op(F);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6(1%\"xG\"\"!,&*$,&F$!\"\"\"\"\"F*#F*\"\"#F*-% #lnG6#,$F$F)F)1F$F*,&-F.6#F$F)F'F*2F*F$,&*$,&F$F*F)F*F+F*F3F)" }}} {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,&*$,&%\"xG!\"\"\"\"\"F* #F*\"\"#F*-%#lnG6#,$F(F)F)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f2G,& -%#lnG6#%\"xG!\"\"*$,&F)F*\"\"\"F-#F-\"\"#F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#f3G,&*$,&%\"xG\"\"\"!\"\"F)#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$,&*$,&%\"xG!\"\"\"\" \"F.#F-\"\"#F/*$F,F-F-2F,\"\"!7$F)2F,F.7$%*undefinedG/F,F.7$,&*$,&F,F. F-F.F/#F.F0F1F-2F.F,7$F7/F,F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "critical:=[solve(F1,x)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)c riticalG7$,&*$\"\"##\"\"\"F(!\"#F+F*F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "series(f,x=critical[1]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+1,(%\"xG\"\"\"*$\"\"##F&F(F(F(F&,(F'F&F&F&-%#lnG6#,&F( F&F'F(!\"\"\"\"!,&*$F.F/F&*&,&F'F&F&F&F&,&F'F(\"\"$F&F/#F/F(\"\"\",&*& F4F/F.F/#F&\"\"%*&F4F&F5!\"##F/\"\")\"\"#,&*&F4F>F.F/#F&\"#7*&F4F&F5! \"$#F/\"#;\"\"$,&*&F4F&F5!\"%#!\"&\"$G\"*&F4FGF.F/#F&\"#K\"\"%,&*&F4FM F.F/#F&\"#!)*&F4F&F5FO#!\"(\"$c#\"\"&-%\"OG6#F&\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "map(radnormal,\");" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+/,(%\"xG\"\"\"*$\"\"##F&F(F(F(F&,(F'F&F&F&-%#lnG6#,&F( F&F'F(!\"\"\"\"!,$*&,&\"#5F&F'\"\"(F&,&\"#**F&F'\"#qF/#F&\"\")\"\"#,$* &,&F'\"$/\"\"$Z\"F&F&,&F'\"$&)*\"%$R\"F&F/#F&\"#[\"\"$,$*&,&F'\"$r'\"$ \\*F&F&,&\"&,'>F&F'\"&gQ\"F/#F&\"$G\"\"\"%,$*&,&F'\"&ul\"\"&RM#F&F&,&F '\"'D]>\"'2eFF&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&esBf%F1$\"3&Hp'o\\ )HUS)F-7$$!3ALL$3s%3zVF1$\"3>Kt;alXC%)F-7$$!3_LL$e/$QkTF1$\"3**)[kIh(f f%)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\\!*\\#F1$\"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$$!3Zmmm\"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\"F17$$!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')GF17$$!3g***\\7yQ1 6\"F-$\"3RU$pJ\"*>$\"3nYbY7^.7NF17$$!3Fpm\"zp) )**z&F^t$\"3*>&HyJa!f(QF17$$!3fP3F>*)QtWF^t$\"3T8')zkh9HTF17$$!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@\"*y6&3._Y&F17$$!3uD MLLe*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$\"3IY@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-$\"3qIO^uqCYFF17$$\"3 zrm;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;6TguK,'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\"oIF-7$$\"3@mm\"zpe *z?F1$\"3@W)>8wD'oIF-7$$\"3;,++D\\'QH#F1$\"3zy&>\"**pVsIF-7$$\"3&HL$e9 S8&\\#F1$\"3'4OF-7$$\"3C++D\"oK 0e%F1$\"307/)obUTq$F-7$$\"36,+v=5s#y%F1$\"34A\"Q#)=A\"*z$F-7$$\"\"&F*$ \"3=(**ec(3i0RF--%+AXESLABELSG6$%\"xG%\"yG-%'COLOURG6&%$RGBGF*F*$\"*++ ++\"!\")-%%VIEWG6$;F(Fibl;$!\"\"F*$\"\"*F*" 2 261 261 261 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 3648 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "10 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }