{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 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 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 2" -1 258 1 {CSTYLE "" -1 -1 "Courier" 0 11 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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 18 "" 0 "" {TEXT -1 49 "La escalera del diablo (File name EscalD iabl.mws)" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 12 "Introduccion" }} {EXCHG {PARA 0 "" 0 "" {TEXT -1 116 "Topico: Este archivo genera la ll amada escalera del diablo, es decir, grafica el numero de vueltas (win ding number, " }{TEXT 259 1 "W" }{TEXT -1 2 ") " }}{PARA 0 "" 0 "" {TEXT -1 22 "para un valor dado de " }{TEXT 258 2 "K " }{TEXT -1 2 " ( " }{TEXT 257 1 "K" }{TEXT -1 88 "=1) como funcion del parametro omega. La grafica requiere de un lapso considerable. de " }}{PARA 0 "" 0 " " {TEXT -1 35 "manera que se recomienda paciencia." }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 46 "Calculo del numero de vueltas (winding number) " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Digits:=5;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "n:=200;x0:=.3;x:=x0;K:=1;N:=200;" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for k from 1 to N do" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "omega:=(1/N)*k;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "x:=evalf(x+omega-(K/(2*Pi))*sin(2*Pi*x));" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Winding:=( x-x0)/(n);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "x:=x0;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 27 "points[k]:=[omega,Winding];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 33 "Grafi ca de la escalera del diablo" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 136 "plot([seq(points[m],m=1..N)],style=point,tickmarks=[2,2],labelfon t=[TIMES,ROMAN,20],axesfont=[TIMES,ROMAN,20],labels=[` omega `,` W `]) ;" }}}}{SECT 1 {PARA 3 "" 0 "" {TEXT -1 22 "Ejercicios adicionales" }} {EXCHG {PARA 0 "" 0 "" {TEXT -1 109 "1. Explorar intervalos angostos d e omega, como aquellos en donde la escalera se mantiene constante (pla teau)." }}{PARA 0 "" 0 "" {TEXT -1 46 "2. Que le sucede a la escalera \+ del diablo si " }{TEXT 260 1 "K" }{TEXT -1 43 " =2, 3, 4, 5, o con \+ valores no enteros ? " }{MPLTEXT 1 0 0 "" }}}}}{MARK "3" 0 }{VIEWOPTS 1 1 0 1 1 1803 }