'  File: XIX_dlb3
' Find the area between the two quadratic equations.
F{x,y} = 1  :  C{x} = 2x^2   :   D{x} = 1 + x^2    ' Plot the two curves.
a = -1  :  b = 1                          ' Points of intersection.

n = 20  :  m = n                        ' Panel number.
ra= dblint[F, C, D, {a, b, n, m,y}]   ' Exact value = 32/15

Pa<x> = <x, C, 0>
Pb<x> = <x, D, 0>
Plot[Pa, Pb, {x, -1, 1, 50}]

'@Value = @ra!
'@Exact value = 4/3@!

