Soma de Riemann - extremidade à direita
Author: Luís Jerónimo

A1 = 1980
A2 = 1981
A3 = 1982
A4 = 1983
A5 = 1984
A6 = 1985
A7 = 1986
A8 = 1987
A9 = 1988
A10 = 1989
A11 = 1990
A12 = 1991
A13 = 1992
A14 = 1993
A15 = 1994
A16 = 1995
A17 = 1996
A18 = 1997
A19 = 1998
A20 = 1999
A21 = 2000
A22 = 2001
A23 = 2002
A24 = 2003
A25 = 2004
A26 = 2005
A27 = 2006
A28 = 2007
A29 = 2008
C1 = 82.4
C2 = 90.9
C3 = 96.5
C4 = 99.6
C5 = 103.9
C6 = 107.6
C7 = 109.6
C8 = 113.6
C9 = 118.3
C10 = 124
C11 = 130.7
C12 = 136.2
C13 = 140.3
C14 = 144.5
C15 = 148.2
C16 = 152.4
C17 = 156.9
C18 = 160.5
C19 = 163
C20 = 166.6
C21 = 172.2
C22 = 177.1
C23 = 179.9
C24 = 184
C25 = 188.9
C26 = 195.3
C27 = 201.6
C28 = 207.34
C29 = 215.3
B1: A1 - 1980
B2: A2 - 1980
B3: A3 - 1980
B4: A4 - 1980
B5: A5 - 1980
B6: A6 - 1980
B7: A7 - 1980
B8: A8 - 1980
B9: A9 - 1980
B10: A10 - 1980
B11: A11 - 1980
B12: A12 - 1980
B13: A13 - 1980
B14: A14 - 1980
B15: A15 - 1980
B16: A16 - 1980
B17: A17 - 1980
B18: A18 - 1980
B19: A19 - 1980
B20: A20 - 1980
B21: A21 - 1980
B22: A22 - 1980
B23: A23 - 1980
B24: A24 - 1980
B25: A25 - 1980
B26: A26 - 1980
B27: A27 - 1980
B28: A28 - 1980
B29: A29 - 1980
P_1: (B1, C1)
P_2: (B2, C2)
P_3: (B3, C3)
P_4: (B4, C4)
P_5: (B5, C5)
P_6: (B6, C6)
P_7: (B7, C7)
P_8: (B8, C8)
P_9: (B9, C9)
P_{10}: (B10, C10)
P_{11}: (B11, C11)
P_{12}: (B12, C12)
P_{13}: (B13, C13)
P_{14}: (B14, C14)
P_{15}: (B15, C15)
P_{16}: (B16, C16)
P_{17}: (B17, C17)
P_{18}: (B18, C18)
P_{19}: (B19, C19)
P_{20}: (B20, C20)
P_{21}: (B21, C21)
P_{22}: (B22, C22)
P_{23}: (B23, C23)
P_{24}: (B24, C24)
P_{25}: (B25, C25)
P_{26}: (B26, C26)
P_{27}: (B27, C27)
P_{28}: (B28, C28)
P_{29}: (B29, C29)
e = 2.718281828459045
f(x) = sin(2 * x) - 1 / 10 * x^(2) + 3
text1: "f(x) = " + f
n = 12
a = 1
b = 7
dx: (b - a) / n
pontosDireita = Sequence(f(a + i * dx), i, 1, n)
somaDireita = BarChart(a, b, pontosDireita)
text2: "\int_{" + a + "}^{" + b + "} f(x) dx \approx " + somaDireita