Warning: this is an htmlized version! The original is here, and the conversion rules are here.
```-- This file:
--   http://angg.twu.net/LATEX/2021-2-C2-def-integral.lua.html
--   http://angg.twu.net/LATEX/2021-2-C2-def-integral.lua
--           (find-angg "LATEX/2021-2-C2-def-integral.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun e () (interactive) (find-LATEX "2021-2-C2-def-integral.tex"))
-- (defun l () (interactive) (find-LATEX "2021-2-C2-def-integral.lua"))
-- (defun o () (interactive) (find-LATEX "2021-1-C2-propriedades-da-integral.tex"))
-- (defun p () (interactive) (find-LATEX "2021pict2e.lua"))

-- «.ParCoWith»	(to "ParCoWith")

dofile "2021pict2e.lua"           -- (find-LATEX "2021pict2e.lua")

if not tf then output = print end

--
f_parabola_preferida = function (x)
return 4 - (x-2)^2
end
if x <= 4 then return f_parabola_preferida(x) end
if x <  5 then return 5 - x end
if x <  6 then return 7 - x end
if x <  7 then return 3 end
if x == 7 then return 4 end
return 0.5
end

pwi = Piecewisify.new(f_funcao_complicada, seq(0, 4, 0.25), 5, 6, 7)

-- «ParCoWith»  (to ".ParCoWith")
-- Based on: (c2m212isp 8 "programa-2")
--           (c2m212isa   "programa-2")
--
Pict2e.new()
:setbounds(v(0,0), v(8,5))
:grid()
:axesandticks()
:bepc()
:def("ParCoWith#1")
:output()

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "2021-2-C2-def-integral.lua"

pwi:setpoints(2, 3, seq(0, 1, 0.25))

pwi = Piecewisify.new(f_test, seq(0, 4, 0.25), 5, 6)
pwi = Piecewisify.new(f_test, seq(0, 4, 1   ), 5, 6)
= pwi.points:ksc(" ")

= pwi:piecewise_m(2)
= pwi:piecewise_m(4)
= pwi:piecewise_m(5)
= pwi:piecewise_m(6)
= pwi:piecewise(0, 7)
= pwi:pw(0, 7)

= pwi:piecewise_pol(0, 7)
= pwi:pol(0, 7)
= pwi:pol(0, 7, "*")

= pwi:sup(0.5, 2.5)
= pwi:inf(0.5, 2.5)
= pwi:rct("sup", "inf", 0.5, 2.5)
= pwi:rects(Partition.new(0, 2):splitn(4), "sup")
= pwi:rects(Partition.new(0, 2):splitn(4), "sup", "inf")

--]]

-- Local Variables:
-- coding:  utf-8-unix
-- End:
```