MVR4
I(amoeba1:6'%"pG%"yG%%ndimG%%ftolG%,iter_returnG6/%%mptsG%"jG%%inhiG%$iloG%$ihi
G%"iG%%yprrG%$yprG%%rtolG%#prG%$prrG%%pbarG%%iterG6"F8C*>8--%&arrayG6#;"""9&>8.
F<>8/F<>8$,&FAF@F@F@>80""!?(F8F@F@F8%%trueGC.>8'F@@%2&9%6#""#&FT6#F@C$>8(F@>8&F
VC$>FenFV>FgnF@?(8)F@F@FGFMC$@$2&FT6#F\o&FT6#FP>FPF\o@&2&FT6#FenF`oC$>FgnFen>Fe
nF\o2&FT6#FgnF`o@$0F\oFen>FgnF\o>8,,$*&-%$absG6#,&FgoF@Fbo!""F@,&-Fgp6#FgoF@-Fg
p6#FboF@Fjp$"#?Fjp@$2Fcp9'%&breakG@$/FJ"$+&C$>&9(FXFJ-%'RETURNG6#Fjp>FJ,&FJF@F@
F@?(8%F@F@FAFM>&FE6#FcrFK?(F\oF@F@FGFM@$F`p?(FcrF@F@FAFM>Fer,&FerF@&9$6$F\oFcrF
@?(FcrF@F@FAFMC$>Fer*&FerF@FAFjp>&F;Ffr,&FerF`q&F]s6$FenFcr$!#5Fjp>8+-%,amoeba~
funcG6#F;@'1F[tFboC%?(FcrF@F@FAFM>&FCFfr,&FdsF`qFerFhs>8*-F]t6#FC@%2FgtFboC$?(F
crF@F@FAFM>FfsFdt>FgoFgtC$?(FcrF@F@FAFM>FfsFds>FgoF[t1F]pF[tC&@$2F[tFgoC$?(FcrF
@F@FAFM>FfsFds>FgoF[t?(FcrF@F@FAFM>Fdt,&Ffs$""&FjpFerF_v>FgtFht@%2FgtFgoC$?(Fcr
F@F@FAFM>FfsFdt>FgoFgt?(F\oF@F@FGFM@$0F\oFPC$?(FcrF@F@FAFMC$>Fds,&F\sF_v&F]s6$F
PFcrF_v>F\sFds>F`oF\tC$?(FcrF@F@FAFM>FfsFds>FgoF[t>F[rFJFPF8F8F8,
I-amoeba~debug%&falseGF8,
I'amoeba:6&'%"fG%*procedureG'%&startG-%%listG6#%(numericG'%&scaleGFfx'F(Ffx6)F'
%%fargGF%F&F7F.F,F8F8C.>FG-%%nopsG6#FT@%/-F_y6#7#-%#opG6$F@-%%evalG6#F]sF@>F]tF
iy>F]t-%(unapplyG6$-.F]s6#-%$seqG6$&Fcr6#Fgt/Fgt;F@FGFcr@$Fiw-%&printG6#F]t>Fgn
7$FT-Fez6$-%'subsopG6$/Fgt,&&FTFhzF@FAF@FTFiz>FP-%'vectorG6#-%$mapG6$F]tFgn>Fgn
-%'matrixGF^p>Fen-F=6#;F@F@>F\o-%&roundG6#-%'evalhfG6#-F"6'-%$varGF^p-Fa]lFcoFG
Fdq-Fa]lFho>%,amoeba~iterG-Fi\l6#&FenFX@$/F\oFjp-%&ERRORG6#%5too~many~iteration
s.G@$Fiw-F][l6&F\oFgnFPFe]l7#-Fez6$&Fgn6$F\oFgtFizF86$F]tFe]lF8
