{VERSION 2 3 "SUN SPARC SOLARIS" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Times" 1 12 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "MYTEXT" -1 256 "Times" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 240 191 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE " Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 0 0 0 0 0 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE " " -1 -1 "Times" 1 18 0 128 0 1 0 1 0 0 0 0 0 0 0 }1 0 0 0 6 6 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "Times" 1 18 255 0 255 1 0 1 1 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }{PSTYLE "R3 \+ Font 0" -1 256 1 {CSTYLE "" -1 -1 "Courier" 0 14 255 0 0 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 "Courier" 0 12 0 0 255 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 258 1 {CSTYLE "" -1 -1 "Times" 0 14 255 0 0 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 259 1 {CSTYLE "" -1 -1 "Courier" 0 14 0 0 255 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 260 1 {CSTYLE "" -1 -1 "Courier" 0 14 0 0 255 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 18 "" 0 "" {TEXT -1 66 "Puntos singulares de orden superior (Fil e name: PtsSingOrdSup.mws)" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 12 "In troduccion" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 122 "Topico: Este archiv o genera y grafica las trayectorias en la vecindad de un punto singula r de orden superior en el plano; " }}{PARA 0 "" 0 "" {TEXT -1 123 "las ecuaciones diferenciales son muy sencillas y pueden substituirse por \+ otras (el tiempo de ejecucion depende de la forma " }}{PARA 0 "" 0 "" {TEXT -1 14 "de estas ecs.)" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 47 " Generacion del punto singular de orden superior" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 33 "eq1:=diff(v(t),t)= -1.5*a*u(t)^2;" }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 23 "eq2:=diff(u(t),t)=v(t);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 7 "a:=2/3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(DEtools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 254 "p[0]:=DEplot([eq1,eq2],[u,v],t=0..20,u=-2..1.5,v=-2..2,dirgri d=[25,25],[[u(0)=-2,v(0)=2],[u(0)=-1.85,v(0)=2],[u(0)=-1.81715,v(0)=2] ,[u(0)=-1.8,v(0)=2],[u(0)=-1.7,v(0)=2]],stepsize=0.01,iterations=20,co lor=blue,linecolour=black,linestyle=0,arrows=MEDIUM):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "p[0];" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 22 "Ejercicios adicionales" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 84 "1. Explorar como cambia la forma de las curvas al cambiar el va lor de la constante " }{TEXT 257 1 "a" }{TEXT -1 1 "." }}{PARA 0 "" 0 "" {TEXT -1 92 "2. Usar el metodo de la energia descrito en EspaFase Pend.mws para graficar el espacio fase. " }}}}}{MARK "2" 0 }{VIEWOPTS 1 1 0 1 1 1803 }