{VERSION 3 0 "SUN SPARC SOLARIS" "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots):with(plo
ttools):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "f:=c->x
->x^2+c;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"cG6\"6$%)opera
torG%&arrowGF(R6#%\"xGF(F)F(,&*$)9$\"\"#\"\"\"\"\"\"T$F5F(F(6$F'F2F(F(
F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "f(1)(x);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#,&*$)%\"xG\"\"#\"\"\"\"\"\"F)F)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 126 "orbit:=proc(c,x,n)\n  local i,l;\n
  l:=[x];\n  for i from 1 to n do\n    l:=[op(l),evalf(f(c)(l[nops(l)]
))];\n  od;\nRETURN(l);\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&or
bitGR6%%\"cG%\"xG%\"nG6$%\"iG%\"lG6\"F-C%>8%7#9%?(8$\"\"\"F59&%%trueG>
F07$-%#opG6#F0-%&evalfG6#--%\"fG6#9$6#&F06#-%%nopsGF<-%'RETURNGF<F-F-F
-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 349 "plotorbit:=proc(c,S,n,VIEW,CLR)\n  local i,l,
le,pstruct,x,cl;\n\ncl:=1; pstruct:=\{plot(f(c),-2..2,color=black),plo
t(t,t=-2..2,linestyle=4)\};\n for x in S do\n    l:=orbit(c,x,n);\n   \+
 le:=[seq([[l[i],l[i]], [l[i],l[i+1]],[l[i+1],l[i+1]]],i=1..n)];\n    \+
pstruct:=\{op(pstruct),plot(le,color=CLR[cl])\};\n    cl:=cl+1;\n  od;
\n  display(pstruct,view=VIEW);  \nend;" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#>%*plotorbitGR6'%\"cG%\"SG%\"nG%%VIEWG%$CLRG6(%\"iG%\"lG%#leG%(p
structG%\"xG%#clG6\"F3C&>8)\"\"\">8'<$-%%plotG6%-%\"fG6#9$;!\"#\"\"#/%
&colorG%&blackG-F<6%%\"tG/FJFB/%*linestyleG\"\"%?&8(9%%%trueGC&>8%-%&o
rbitG6%FAFP9&>8&7#-%$seqG6$7%7$&FU6#8$F\\o7$F\\o&FU6#,&F^oF7F7F77$F`oF
`o/F^o;F7FY>F9<$-%#opG6#F9-F<6$Fen/FF&9(6#F6>F6,&F6F7F7F7-%(displayG6$
F9/%%viewG9'F3F3F3" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 150 "epsilon:=0.00001;\nisconstant:=proc(l)\n  local i;
\n  for i from 1 to nops(l) do\n    if abs(l[i]-l[1])>epsilon then RET
URN(-1); fi;\n  od;\nRETURN(0);\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%(epsilonG$\"\"\"!\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+iscons
tantGR6#%\"lG6#%\"iG6\"F*C$?(8$\"\"\"F.-%%nopsG6#9$%%trueG@$2%(epsilon
G-%$absG6#,&&F26#F-F.&F26#F.!\"\"-%'RETURNG6#F?-FA6#\"\"!F*F*F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 325 "guessperiod:=proc(l) \nlocal i,n,k;\n  i:=nops(l)-1;
\n  while (abs(l[i]-l[nops(l)])>epsilon) and (i>1) do i:=i-1 od;\nif a
bs(l[i]-l[nops(l)])<=epsilon then n:=nops(l)-i; \n  for k from 0 to n-
1 do\n  if isconstant([seq(l[k+i*n],i=1..floor(nops(l)/n)-1)])=-1 then
          RETURN(-1);fi;\n  od;\n  RETURN(n); else RETURN(-1);\nfi;\ne
nd;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%,guessperiodGR6#%\"lG6%%\"iG%
\"nG%\"kG6\"F,C%>8$,&-%%nopsG6#9$\"\"\"!\"\"F5?(F,F5F5F,32%(epsilonG-%
$absG6#,&&F46#F/F5&F46#F1F62F5F/>F/,&F/F5F6F5@%1F;F:C%>8%,&F1F5F/F6?(8
&\"\"!F5,&FJF5F6F5%%trueG@$/-%+isconstantG6#7#-%$seqG6$&F46#,&FMF5*&F/
F5FJF5F5/F/;F5,&-%&floorG6#*&F1\"\"\"FJ!\"\"F5F6F5F6-%'RETURNG6#F6-Fbo
6#FJFaoF,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 232 "diagram:=proc(cv,step)\n  l
ocal l,pts,i,c;\n  pts:=[];\n  for c from cv[1] to cv[2] by step do\n \+
 l:=orbit(c,0,200);\n  l:=[seq(l[168+i],i=1..32)];\n  pts:=[op(pts),[s
eq([c,l[i]],i=1..32)]];\n  od;\n  plot(pts,style=point,color=green);\n
end;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(diagramGR6$%#cvG%%stepG6&%
\"lG%$ptsG%\"iG%\"cG6\"F.C%>8%7\"?(8'&9$6#\"\"\"9%&F66#\"\"#%%trueGC%>
8$-%&orbitG6%F4\"\"!\"$+#>F@7#-%$seqG6$&F@6#,&\"$o\"F88&F8/FO;F8\"#K>F
17$-%#opG6#F17#-FI6$7$F4&F@6#FOFP-%%plotG6%F1/%&styleG%&pointG/%&color
G%&greenGF.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }