M7R0
I*aitkenDELf*6$%"xG%$delG6$%#dxG%$DELG6"F*C%>8$-9%6#9$>8%,$*&F-""#,&-F/6#,&F1""
"F-F;F;F-!""F<F<OF3F*F*F*F*,
I*aitkenlmtf*6&%%leftG%&rightGF&%*limprecisG6$F%%#ttGF*F*C(>%'DigitsG"#?>F-F1>F
3-F"6$F-9&?(F*F;F;F*3329'-%$absG6#F32F1,&F-F;F3F;2F-F/C$>F-FX>F3FL@%1F/F->F-F/>
F--%&evalfG6#,$-%%ceilG6#,$F-"&++"#F;FcoOF-F*F*F*F*,
I$lmtf*6%FAFB%%tdelG6$F%%#tdGF*F*C)>FHFI>%$lllG$""!Fap>F-F1>F3-F\o6#-FN6#F-?(F*
F;F;F*332FCF31F1F-FYC%>F--F\o6#FX>F_pF->F3Fdp@%Fhn>F-F/>F-F[oOF-F*6'%'intsetG%'
tagdivGFC%'intctrGF_pF*F*,
I)weakkurzf*6'%"aG%"bG%"fG%&maxdpG%&deltaG6:%#mdG%#dmG%"rG%&widthG%$ansG%"iG%'g
otoneG%#dlG%#drG%#deGFA%#fvGFB%&khsumG%&depthG%$tmpG%*tmpintsetG%"hG%%ndivG%&th
isbG%"LG%#mxG%"sG%+origintsetGF*F*C'>8.F1>81Fap>8;Fhq?(F*F;F;F*2F\tF/C+>8+-F\o6
#-9(6#F\t@$2F/,&F\tF;FetF;>Fet,&F/F;F\tF<>8/-FNFjt>F^t,&F^tF;*&FauF;FetF;F;>Fhq
-%&unionG6$<#7&7$F\tFap7$F\tFau7$F]uFau7$F]uFapFhq>Fiq7$-%#opG6#Fiq7$7$F\tF]uF\
t>Fjq,&FjqF;F;F;-%'printfG6%QEWEAK~FINE:~[left,right]~=~[%lg,%lg]|+F*F\tF]u>F\t
F]uOF^tF*FgqF*F*,
I/semistrongkurzf*F]r6;FdrFerFfrFgrFhrFirFjrF[sF\sF]sFAF^sFBF_sF`sFasFbsFcsFdsF
esFfsFgsFhs%'gotmaxGFisF*F*C'>F\tF1>F^tFap>8<Fhq?(F*F;F;F*FbtC$>80F/?(F*F;F;F*2
F\tF[xC,>8*Fap>82Fap>F`tFap?(F*F;F;F*/F`xFapC->8',&F[xF;F\tF<>F-,&F\tF;F[xF;>F-
*&$""&F<F;F-F;>FetFht>8,-Fit6#F[x>F3-FitFgp>887%F]u,&F[xF;FbyF;FX@$2,&FetF;FbyF
;FhxC$>&Fhy6#F;,&F\tF;$"#5F<F<>&Fhy6#F6,&F\tF;FczF<@$2,$F3F6Fhx>&Fhy6#""$,&F\tF
;FczF<>89-%$maxG6#-Fcv6#Fhy@'1F\tFb[l>F`xF;/FbxFSC%-Fjv6#Q0HIT~MAX~DEPTH!|+F*>F
`tF;>F`xF;C$>F[x*&F[yF;$FIF<F<>Fbx,&FbxF;F;F;>8&-%$minG6$F/Fb[l@)/F`tF;C$>Fi\l-
F\o6#,$-F`o6#,$F[xFcoFdo@%1,&Fi\lF;F\tF<-Fit6#Fi\lC&>Fau-FNF[^l>8(*&FauF;Fi]lF;
>Fhq-Fhu6$<#7&F\vF]v7$Fi\lFau7$Fi\lFapFhq>Fiq7$Fbv7$7$F\tFi\lFi\l-Fjv6%QAWARNIN
G:~NOT~FINE~ON~%lg~to~%lg|+F*F\tFi\l/Fb[lF][lC&>FauFfp>F`^lFa^l>FhqFc^l>Fiq7$Fb
v7$F\_lF-/Fb[lF`zC&>FauFbu>F`^lFa^l>FhqFc^l>Fiq7$Fbv7$F\_lF\tC+>8:-F[]l6$F]uF[x
>FauFbu>F`^l*&FauF;,&Fb`lF;F\tF<F;>Fhq-Fhu6$<#7&F\vF]v7$Fb`lFau7$Fb`lFapFhq>Fiq
7$Fbv7$7$F\tFb`lF\t>Fau-FNFdy>F`^l,&F`^lF;*&FauF;,&Fi\lF;Fb`lF<F;F;>Fhq-Fhu6$<#
7&F_alF^alFg^lFh^lFhq>Fiq7$Fbv7$7$Fb`lFi\lF[x>FjqFhv>F[xFi\l>F^t,&F^tF;F`^lF;>F
\tF[xOF^tF*FgqF*F*,
I+strongkurzf*F]rFcrF*F*C'>F\tF1>F^tFap>F`tFhq?(F*F;F;F*FbtC$>F[xF/?(F*F;F;F*F]
xC+>F`xFap>FbxFap?(F*F;F;F*FexC->FhxFix>F-F[y>F-*&F^yF;F-F;>FetFht>FbyFcy>F3Ffy
>FhyFiy@$F\zC$>F`z,&F\tF;FczF<>Ffz,&F\tF;FczF<@$Fjz>F][l,&F\tF;FczF<>Fb[lFc[l@'
Fi[l>F`xF;F[\lC&F]\l>FhqF`t>F`xF;O%)infinityGC$>F[x*&F[yF;Fe\lF<>FbxFg\l>Fi\lFj
\l@'F`_lC&>FauFfp>F`^lFa^l>FhqFc^l>FiqFf_lFh_lC&>FauFbu>F`^lFa^l>FhqFc^l>FiqF^`
lC(>Fb`lFc`l>FauFbu>F`^lFg`l>FhqFj`l>FiqFaal@$2$F;!"(-FU6#FialC&>FauFeal>F`^lFg
al>FhqF[bl>FiqF`bl>FjqFhv>F[xFi\l>F^tFfbl>F\tF[xOF^tF*FgqF*F*,
I&splitf*6&F^rF_rF`rFbr6-%%rmdrGFar%#okGFbsF_sFAFBFhrFhs%"tGF^sF*F*C(>Fhx<">8)F
1>F`^lFap>F3"#:?(F*F;F;F*2FbhlF/C'>Fi\lF;>F`xFbhlZ%>F`x-%*timelimitG6$F_y-Ffo6%
FbhlF/FSF*C$-Fjv6$Q3TIME~out!~lll=%lf|+F*F_p>Fi\lFap@$1F`xFbhl>Fi\lFap@%/Fi\lF;
C,>F--F\o6#,&F`xF;-FS6#F`xF<@$2FbhlF-C$>Fet-Fibl6'FbhlF-FNF3FS@%0FetF`el>F`^l,&
F`^lF;FetF;>Fet-F[rFhjl>Fby-Fd[l6$FbhlF->8--F[]l6$F/-F\o6#,&F`xF;FajlF;>F\t-FNF
bjl>Fet*&F\tF;,&Fc[mF;FbyF<F;>F`^lF\[m>Fhq-Fhu6$<#7&7$FbyFap7$FbyF\t7$Fc[mF\t7$
Fc[mFapFhq>Fiq7$Fbv7$7$FbyFc[mF`x>FbhlFc[mC0>Fi\lF;>Fbhl-F\o6#FbhlZ%>F`x-F^il6$
F_y-F>6&F_pF/FSFCF*C$-Fjv6#Q+Time~out!|+F*>Fi\lFap@$Fhil>F`xF/>F-F^jl@$Fdjl>Fet
-F_wFhjl>FbyF`[m>Fc[mFd[m>F\tFj[m>FetF\\m>F`^lF\[m>FhqF`\m>FiqFi\m>Fbhl-F\o6#Fc
[mOF`^lF*FgqF*F*,
I&khsumf*F*6+%$rrrG%"GG%"HGF`rF^rF_rFbrFir%"ZGF*F*C/@$29#""%C%-Fjv6#QboThis~rou
tine~needs~at~least~4~arguments:~the~function~f,~the~endpoints|+F*-Fjv6#QMof~th
e~interval~a,b~and~the~delta~function.|+F*OF*>FhqF`hl>FiqF`hl>Fhx&9"Faz>F`^l&Ff
`mFgz>Fbhl&Ff`mF^[l>F`x&Ff`m6#Fi_m>FC#F;"*++++&>FjqFap>F--F\o6#-Fggl6&F`^lFbhlF
hxF`x>Fhq-F\o6#Fhq>Fiq-F\oFdv-Fjv6$Q;|+The~Riemann~sum~is~~~%f|+|+F*-F\oFgpF*Fg
qF*F*,
I&khboxf*F*F`_mF*F*C3@$Fg_mC%F[`mF^`mOF*>FhqF`hl>FiqF`hl>FhxFe`m>F`^lFh`m>FbhlF
j`m>F`xF\am>FCF_am>FjqFap>F-Fcam>FhqFham>FiqF[bm-Fjv6$Q:|+The~Riemann~sum~is~~~
%f|+F*F_bm>F3-%%PLOTG6#-%$seqG6$-%)POLYGONSG6$-F\o6#-Fcv6$FetFhq-%&COLORG6&%$RG
BGF`pFczF`p/Fet;F;-%%nopsGFiam-%+setoptionsG6$/%'symbolG%'CIRCLEG/%+symbolsizeG
"#D@%2Fi_mFh_m>Fi\l-%%plotG6&Fhx;F`^lFbhl&Ff`m6#;F_yFh_m/%(discontG%%trueG>Fi\l
-Fgem6%FhxFiemF]fm-%(displayG6#<$Fi\lF3F*FgqF*F*