Wie realisiere ich ein Diagramm mit einem Rechteck als Koordinatenpunkt und Füllung

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
\begin{filecontents*}{\jobname.dat}
A B C
1 1.5 10
2 2 40 
3. 4.2 2000 
1.6 4.5 400 
\end{filecontents*}
\documentclass{article}
\usepackage{pgfplots}
\usepackage{pgfplotstable}
\pgfplotsset{compat=1.11}
\usepackage{luacode}
\begin{luacode*}
-- http://lua-users.org/wiki/SplitJoin
function string:split(sep)
   local sep, fields = sep or ":", {}
   local pattern = string.format("([^%s]+)", sep)
   self:gsub(pattern, function(c) fields[#fields+1] = c end)
   return fields
end
function read_table(fname)
   local tab = {}
   for line in io.lines(fname) do
      local fields = line:split(' ')
      local _x, _y, _z = fields[1], fields[2], fields[3]
      local x, y, z = tonumber(_x), tonumber(_y), tonumber(_z)
      if x and y and z then
         tab[#tab+1] = { x = x, y = y, z = z }
      end
   end
   return tab
end
function generate_hist(tab,xmin,xmax,Nx,ymin,ymax,Ny)
   local xstep = (xmax - xmin) / (Nx-1)
   local ystep = (ymax - ymin) / (Ny-1)
   tex.sprint("{\r")
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX