{VERSION 6 0 "IBM INTEL NT" "6.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "" 0 1 0 128 128 1 2 0 1 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 16 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 1 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 1 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{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 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Ti mes" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 8 8 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Tim es" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } {PSTYLE "Title" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 36 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }{PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 20 20 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 259 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 3 20 3 20 2 2 0 1 }{PSTYLE "Normal" -1 260 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 40 40 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 261 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 40 40 3 20 3 20 2 2 0 1 }{PSTYLE "Normal" -1 262 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 30 30 3 20 3 20 2 2 0 1 }{PSTYLE "Title" -1 263 1 {CSTYLE "" -1 -1 "Times" 1 24 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }3 1 0 0 12 12 1 0 1 0 2 2 19 1 }} {SECT 0 {SECT 1 {PARA 263 "" 0 "" {TEXT -1 16 "Programaci\363n en " } {TEXT 256 5 "Maple" }{TEXT -1 0 "" }}{PARA 19 "" 0 "" {TEXT 261 10 "(P arte II)" }{TEXT -1 0 "" }}{PARA 260 "" 0 "" {TEXT 257 17 "CALCULO SIM BOLICO" }{TEXT -1 1 "\n" }{TEXT 258 6 "MA5301" }}{PARA 262 "" 0 "" {TEXT 260 14 "Un Comando en " }{TEXT 259 5 "Maple" }{TEXT 262 111 " pa ra Calcular la Ecuaci\363n de la Recta Tangente a la Gr\341fica de una Funci\363n Derivable en un Punto de su Dominio" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 153 "Prof. R. Ipanaqu\351\n Departamento Acad\351mico de Matem\341tica, Universidad Nacional de Pi ura,\nUrb. Miraflores s/n, Castilla, Piura, Per\372\nrobertchero@hotma il.com" }}{PARA 256 "" 0 "" {URLLINK 17 "http://www.unp.edu.pe/pers/ri panaque" 4 "http://www.unp.edu.pe/pers/ripanaque" "" }}{PARA 0 "" 0 " " {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 101 "recta := proc(func, x, x0)\nlocal f;\nf := un apply(func, x);\ny = D[1](f)(x0)*(x - x0) + f(x0)\nend proc:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "recta(x^2,x,1/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%\"yG,&%\"xG\"\"\"#F'\"\"%!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "plot([x^2,rhs(recta(x^2,x,1/2))],x= -2..2);" }}{PARA 13 "" 1 "" {GLPLOT2D 383 383 383 {PLOTDATA 2 "6&-%'CU RVESG6$7S7$$!\"#\"\"!$\"\"%F*7$$!3MLLL$Q6G\">!#<$\"3A!e4#)QZ)eOF07$$!3 bmm;M!\\p$=F0$\"3'*[e7a'** *!#=$\"3mq\"))\\%))R#***Fbo7$$!3E++++0\"*H\"*Fbo$\"3ND5!QdEbL)Fbo7$$!3 5++++83&H)Fbo$\"3yo4Oxt$3)oFbo7$$!3\\LLL3k(p`(Fbo$\"3[Bt(zL,1o&Fbo7$$! 3Anmmmj^NmFbo$\"3%37I_u2IS%Fbo7$$!3)zmmmYh=(eFbo$\"39$[s$3d(yW$Fbo7$$! 3+,++v#\\N)\\Fbo$\"3W.`jPjd$[#Fbo7$$!3commmCC(>%Fbo$\"3'*4!*RKWoh6\"Fbo7$$!3t*****\\#=/8DFbo$\"3CH$*>9 #z`J'!#>7$$!3=mmm;a*el\"Fbo$\"38sw$4j*)>u#Fbr7$$!3komm;Wn(o)Fbr$\"37a/ +x'ova(!#?7$$!3IqLLL$eV(>F]s$\"3gBHSG34)*Q!#B7$$\"3)Qjmm\"f`@')Fbr$\"3 [xsBc\")3LuF]s7$$\"3%z****\\nZ)H;Fbo$\"3)*)*GqVMScEFbr7$$\"3ckmm;$y*eC Fbo$\"3SBo$=Oul/'Fbr7$$\"3f)******R^bJ$Fbo$\"3+&>/'3\")G*4\"Fbo7$$\"3' e*****\\5a`TFbo$\"3q1NSD.>D$)Fbo$ \"3$*4F1'4l>#pFbo7$$\"3M*******pfa<*Fbo$\"3:3Cjqg!*=%)Fbo7$$\"39HLLeg` !)**Fbo$\"3))y\"p6+56'**Fbo7$$\"3w****\\#G2A3\"F0$\"3EMgH-EF0$\"3?')3\"\\D2*fOF07 $$\"\"#F*F+-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fa[l-F$6$7S7$F($!3+++++++] AF07$F.$!3cLLL$Q6G;#F07$F4$!3amm;M!\\p3#F07$F9$!36LLL))Qj,?F07$F>$!3BL LL=Kv:>F07$FC$!3wmm;C2GI=F07$FH$!3OLL$3yO5v\"F07$FM$!3%*****\\nU)*o;F0 7$FR$!3SLL$3WDTe\"F07$FW$!35++]d(Q&*\\\"F07$Ffn$!3immmc4`79F07$F[o$!3K LLLQW*eL\"F07$F`o$!33+++q)>'\\7F07$Ffo$!3-+++]5*H;\"F07$F[p$!3++++I\"3 &z5F07$F`p$!3NLL$3k(p.5F07$Fep$!3Anmmmj^N\"*Fbo7$Fjp$!3)zmmmYh=P)Fbo7$ F_q$!3+,++v#\\N[(Fbo7$Fdq$!3commmCC(p'Fbo7$Fiq$!39*****\\FRX$eFbo7$F^r $!3t*****\\#=/8]Fbo7$Fdr$!3=mmm;a*e:%Fbo7$Fir$!3'omm;Wn(oLFbo7$F_s$!3q LLL$eV(>DFbo7$Fes$!3hOLL3k%yj\"Fbo7$Fjs$!3e?++]K_,()Fbr7$F_t$!3eWNLL$o @5%F]s7$Fdt$\"3'f)******R^b\")Fbr7$Fit$\"3'e*****\\5a`;Fbo7$F^u$\"3'o* ***\\7RVY#Fbo7$Fcu$\"3Y'*****\\@fkLFbo7$Fhu$\"3_ILLL&4N<%Fbo7$F]v$\"3A *******\\,s.&Fbo7$Fbv$\"3%[mm;zM)>eFbo7$Fgv$\"3M*******pfan'Fbo7$F\\w$ \"39HLLeg`![(Fbo7$Faw$\"3c(****\\#G2A$)Fbo7$Ffw$\"3jJLLL)G[9*Fbo7$F[x$ \"3\")****\\7yh+5F07$F`x$\"3wmmm')fd$3\"F07$Fex$\"3ammm,FTo6F07$Fjx$\" 3GLL$e#pa_7F07$F_y$\"3*)******Rv&)H8F07$Fdy$\"3ILLLGUY=9F07$Fiy$\"3_mm m1^r(\\\"F07$F^z$\"35++]sI@#e\"F07$Fcz$\"33++]2%)3j;F07$Fhz$\"3+++++++ ] " 0 "" {MPLTEXT 1 0 55 "plot ([sin(x),rhs(recta(sin(x),x,Pi/4))],x=-2*Pi..2*Pi);" }}{PARA 13 "" 1 " " {GLPLOT2D 383 383 383 {PLOTDATA 2 "6&-%'CURVESG6$7[s7$$!3)****>YH&=$ G'!#<$\"3/UE[]'efD\"!#D7$$!3ANa4O(Hi9'F*$\"3CE$)3/$y_O\"!#=7$$!3dp3dxT F4gF*$\"30pS$))>))\\q#F37$$!3]PgRy)4,*eF*$\"3a4eCY5JIQF37$$!3W07Azb%4x &F*$\"3>D%=3J28!\\F37$$!3,:TzhG$pj&F*$\"3u$3Ba&z)>-'F37$$!3[DqOW,#H]&F *$\"3^r<2B!zY.(F37$$!3;(*zl.\">!o`F*$\"3Omto_#Rm#zF37$$!3()o*[H1=JB&F* $\"31M8:Cocu')F37$$!3GX$QL=e))4&F*$\"3?$=^+gcCE*F37$$!3gAxs.$)fk\\F*$ \"3wR0I@Yj$o*F37$$!3tfxHc-O-\\F*$\"3(yt9^f'4?)*F37$$!3(ozn)3A7S[F*$\"3 'GZ$)*p>`=**F37$$!3W:G:&=.!4[F*$\"3/))>upZO`**F37$$!3-MyVhT)yx%F*$\"3] Q*4Adf&y**F37$$!3[`GsP^wYZF*$\"3a7)p3)>4%***F37$$!3/sy+9hk:ZF*$\"3-+( \\a&p%*****F37$$!3G4_VnTU$o%F*$\"3-H&=8\\0e***F37$$!3kXD'3A-7l%F*$\"3m =TkTnG\")**F37$$!3,#))*Gu-)*=YF*$\"3y'*)p#zdSc**F37$$!3O=srF$ene%F*$\" 3&)4crM%)=@**F37$$!3(>*=dMWJAXF*$\"3tg\"*[P:!*>)*F37$$!3ellUT0(yX%F*$ \"33BhW]l%yn*F37$$!3v)))o%3YdCVF*$\"3?&HDa+ytD*F37$$!3!>@6bny7>%F*$\"3 O(\\(Qk&pEn)F37$$!3/U5IC-TeSF*$\"35\"RXh9'pOzF37$$!3/t34t_OF*$\"31YS xe31()[F37$$!3:T&yWM==`$F*$\"31$4k)*[rR!QF37$$!35AGA$)zV6MF*$\"3E2r+nO #em#F37$$!3!***)f%3#=fF$F*$\"3tJ,q=(>#R8F37$$!3pxppL%)RSJF*$!3SNs&*3'> U>\"!#?7$$!3.2%=Rtn^%))pF37$$ !3I;D'G%*3Y3#F*$!3iM=Am$p(3()F37$$!3s.k\">JaY'>F*$!3se^f!>aVB*F37$$!38 \"Hq4o*pW=F*$!3UK]h'4Csi*F37$$!3M&*Qs/=$\\x\"F*$!3gA'f#pgO#z*F37$$!3a* \\x%GR;0)*F37$$!3kG dA2Eg=8F*$!3'[E-%eNn$o*F37$$!3/&=Qq]*3$=\"F*$!3O(z\"exYyd#*F37$$!3YT1& oSwv/\"F*$!3?5#fXpZ@m)F37$$!3;cW:%*)e`=*F3$!3w*Rg\"*zPr%zF37$$!3q(\\-) >P&\\*yF3$!3w^I>>+)**4(F37$$!336%eFH^&[lF3$!3gp!)4vMW!4'F37$$!3WCVrl)[ @?&F3$!3IzTe!4m1(\\F37$$!3U<$Qj8Jd'RF3$!3y:/\\0pfiQF37$$!3S5B'pS8$HFF3 $!3G\\n9vUb&p#F37$$!3#z#pf^)pcR\"F3$!3y-(QNBV6R\"F37$$!3.VX:B'HE?'Fiu$ !3x>\\L^)*e-iFiu7$$\"31$=+TaaKK\"F3$\"3NDU1?iR>8F37$$\"3b6>V%QN&3FF3$ \"33yyQ\\&Rbn#F37$$\"3U2OAGkU9RF3$\"3m2R\\CLA:QF37$$\"3H.`,suJ?^F3$\"3 MnKxUV\\**[F37$$\"3<:]xNGrAkF3$\"3eAUMjo:!*fF37$$\"30FZ`*>3^s(F3$\"3') \\*[(oeNzpF37$$\"3%Hbw(\\+hq!*F3$\"3elZTo`'p(yF37$$\"3)y$=+!>6;/\"F*$ \"3p%))f`C(=K')F37$$\"3!=$*\\hHUK<\"F*$\"3Gi#)RJu5?#*F37$$\"3tD!)H-M([ I\"F*$\"3_AD3uO]['*F37$$\"3Y`)pSL`&o8F*$\"3S`w')*)\\='z*F37$$\"3?\"oTe ELAV\"F*$\"3()[,)z)[:/**F37$$\"33&fF8f\\\"F*$\"3!Q>#)Rov>(**F37$$\"3\"GU*\\jJvF:F*$\"3mYzggyt!***F37$ $\"3oO`QHJff:F*$\"3e/GS[CP****F37$$\"3/pg$H)f%\\f\"F*$\"3#[-fA6%3(***F 37$$\"3T,o[O))HI;F*$\"3_6T?zCI#)**F37$$\"3wLv.!p^cm\"F*$\"3?.vv@g/b**F 37$$\"39m#)eVX+,\"zdfTU=F*$\"3\"o%QofiPL'*F37$$\"3)pDzHS![p>F*$\"3O>$eCTEd @*F37$$\"3M=t;[[a'4#F*$\"3ak;)fI&[\\')F37$$\"3!3Rp8o\")yO#F*$\"3')R&4s &e%z)pF37$$\"3w\"R,6V<3\\#F*$\"3?J6))eO.egF37$$\"3q#RL3=`Ph#F*$\"3))3w *eW!oO]F37$$\"31er(oUa\"[FF*$\"3q03;(3iO$QF37$$\"3SB4#HnbD)GF*$\"3#41m f!y\\hDF37$$\"3IySJrn,4IF*$\"3#fS/Vcy=K\"F37$$\"3>LsqpyZNJF*$\"3nILuwd u9hFiu7$$\"3Y&GPc:mwE$F*$!3=-&*pvyRd7F37$$\"3sPtcTW&)*R$F*$!3S\"31pt.S b#F37$$\"3CVG)Gl#4HNF*$!3e>URh&\\(yPF37$$\"3u[$)>k3LeOF*$!3'Hi/Dco/%\\ F37$$\"3OK;F%HJOz$F*$!3u=%f$e23ogF37$$\"3+;\\MC<$*GRF*$!3/W,,s(yZ3(F37 $$\"3oZIM>@CfSF*$!3p*R\"pCUvTzF37$$\"3Oz6M9Db*=%F*$!3'p\"Q%*oI1k')F37$ $\"3_YTP9P\"GK%F*$!3oDWo`Xq]#*F37$$\"3o8rS9\\2cWF*$!3=I#*3K*4Ln*F37$$ \"3X'R9%zP:AXF*$!3GJMg\")yf>)*F37$$\"3Az;UWEB)e%F*$!3%Hwzp(\\-B**F37$$ \"3h?`#p2s7i%F*$!3gy;ehs^e**F37$$\"3+i*G%4:JaYF*$!3-!p`nxRJ)**F37$$\"3 O.E$>%4N(o%F*$!39-A!pklo***F37$$\"3wWiVu.R?ZF*$!3Q6S)*F37$$\"3Im7YJ)oK'\\F*$!3)=LH1oVpo*F37 $$\"3#)4lu\"*=X-^F*$!3kW1c)R^)[#*F37$$\"3M`<._\\jT_F*$!3`p,t;,)=j)F37$ $\"3a$=k.%>7m`F*$!3@#>'f/7>QzF37$$\"3w8mpG*31\\&F*$!3o_;uZGk@rF37$$\"3 dRRyA!QLi&F*$!3gEE$o+i*HhF37$$\"3Ql7(o6ngv&F*$!36x_'o*zWI]F37$$\"3YJOw &z0J)eF*$!33LUTfd\"\\*QF37$$\"3b(*fluW95gF*$!3uM[s['3mp#F37$$\"3w)*zj% )[mYhF*$!3]'*=#eVn4O\"F37$$\"3)****>YH&=$G'F*$!3/UE[]'efD\"F--%'COLOUR G6&%$RGBG$\"#5!\"\"$\"\"!FhcmFgcm-F$6$7S7$F($!3aX1O:l8\"H%F*7$F5$!39BG 02@X(4%F*7$F?$!3W\"44!R$G*GRF*7$FI$!3RFK\\OdSRPF*7$FS$!3cuU9boi[NF*7$F gn$!3Q_j^7ZveLF*7$Fep$!351U(4$*=F=$F*7$Fcr$!33>xdvSW+IF*7$F]s$!3)yzz$f ^$>\"GF*7$Fgs$!34oom$zISi#F*7$Fat$!3#fn[r0[2V#F*7$F[u$!3'eY! yIsx[D_\"F*7$Fiw$!3v`Mq0ZHA8F*7$Fcx$!3+-+vRKl_6F*7$Faz$!3K2wQh))>`&*F3 7$F_\\l$!3LE#GMJkk!yF37$Fi\\l$!3'\\u$yr'>+*eF37$Fc]l$!3Y(yeK<6^1%F37$F ]^l$!3E()4_+1,h@F37$Fg^l$!3@6*)y)y=X7%!#>7$Fa_l$\"3+1.\\C\\gt9F37$F[`l $\"3([.$ewyoKMF37$Fe`l$\"3+*\\daMv!Q^F37$F_al$\"37C$eC`S*zpF37$Fial$\" 3)ySos\\nF)))F37$Fcbl$\"3!ykr_CJW2\"F*7$Fadl$\"31sqf\"HXXD\"F*7$F_fl$ \"339sVJ7`a9F*7$Fifl$\"3J$eV7!\\***>F*7$Fbhl$\"3m))oQx5-!>#F*7$F\\il$\"3U'3Zy2k)oBF*7$Ffil$\" 3E>ifWl!eb#F*7$F`jl$\"3zYa\"e(pdQFF*7$Fjjl$\"3?(**>!z1#*HHF*7$Fd[m$\"3 +]X%pS2U6$F*7$F^\\m$\"3K'GpL?nEI$F*7$F\\^m$\"3uE$GvXm&*[$F*7$Fj_m$\"3) [%[\\huIhOF*7$Fd`m$\"3UGG+L?9eQF*7$F^am$\"3rK:C?K>MSF*7$Fham$\"3@B8A00 !>A%F*7$Fbbm$\"3ooo&yKg:S%F*7$F\\cm$\"3%)\\T>V$HYf%F*-Facm6&FccmFgcmFd cmFgcm-%+AXESLABELSG6$Q\"x6\"Q!Ff]n-%%VIEWG6$;$!+3`=$G'!\"*$\"+3`=$G'F ^^n%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" } }}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }