function outstr = numWrapper(value)
outstr= strcat("\\num{" , num2str (value), "}");
endfunction
function outstr = ccolWrapper(value)
outstr= strcat("\\ccol{" , num2str (value), "}");
endfunction
%
% creates a latex style table from matrix data.
% wrapper is a function used to wrap the data in each cell
% can be used to apply more formatting in latex
%
% fid is the file pointer to the file to write to
% matrix is the data matrix that will be placed starting at row 1 column 1
% rowNames is a column vector of the string names to be inserted as the names for the rows
% size(rowNames,1) == size(columnNames,1)+1, i.e. the
% columnNames will be used to label each of the column in the data
% wrapper is a special function that will take your input data and wrap it with latex formatting
%
% Will look like
% latex table formatting
% columnNames[0] | columnNames[1] | columnNames[2] | columnNames[2] | ...
% rowNames[0] | matrix(0,0) | matrix(0,1) | matrix(0,2) | ...
% rowNames[1] | matrix(1,0) | matrix(1,1) | matrix(1,2) | ...
% .
% .
% .
%
%
%
%
% latex table formating
function fid = matrixToLatexTable(fid, matrix, rowNames, columnNames, wrapper )
fprintf(fid,'\\documentclass{article}\n');
fprintf(fid,'\\begin{document}\n');
fprintf(fid,' \\begin{tabular}{ |');
for col=1:size(matrix,2)+1
fprintf(fid,'c | ');
end
fprintf(fid,'}\n\\hline\n');
for col=1:size(columnNames,1)
if col==size(columnNames,1)
fprintf(fid,' %s', columnNames(col,:))
else
fprintf(fid,' %s & ', columnNames(col,:))
end
end
fprintf(fid,'\n \\\\ \\hline\n');
% now write the elements of the matrix
for r=1:size(matrix,1)
fprintf(fid,' %s & ', rowNames(r,:))
for c=1:size(matrix,2)
if c==size(matrix,2)
if true
fprintf(fid,'%s ',wrapper(matrix(r,c)));
else
fprintf(fid,'%f ', matrix(r,c));
end
else
if true
fprintf(fid,'%s & ',wrapper(matrix(r,c)));
else
fprintf(fid,'%f & ', matrix(r,c));
end
end
end
fprintf(fid,' \\\\ \\hline \n');
end
fprintf(fid,'\\end{tabular}\n');
fprintf(fid,'\\end{document}\n');
fclose(fid);
endfunction
Best of luck- Glen
obstacles=valuesDict['box_obstacles'].split(";")
obstacles_string = "{"
for obstacle in obstacles:
obstacles_string = obstacles_string + "\"" + str(obstacle) + "\","
obstacles_string = obstacles_string[:-1] + "}"
self._box_obstacles=obstacles_string
© 2013 Glen Berseth | www.fracturedplane.com
CREATE OR REPLACE FUNCTION getNumIslands(polys polygon[]) RETURNS INT AS
$BODY$
DECLARE
islandList polygon[]; -- holds the set of obstacles that make up the current island.
islandCount INT; -- holds the count of the number of islands.
poly polygon; -- holds the polygon to start an island search
polys_copy polygon[]; -- A copy of the input list
inddex INT; -- keeps track of the current index in the polys_copy search
BEGIN
islandCount := 0;
islandList := polys;
polys_copy := polys;
inddex := 1;
WHILE array_length(polys_copy,1) > 0
LOOP
-- RAISE NOTICE 'Poly_list length is: %', array_length(polys_copy, 1);
-- grab the first poly
poly := polys_copy[1];
islandList := array_append(ARRAY[]::polygon[], poly);
-- RAISE NOTICE 'Current island is %', islandList;
-- remove the first poly because we dont care about it overlaping itself.
polys_copy := polys_copy[2:array_length(polys_copy, 1)];
-- Make a list of all the polys left that overlap with poly
WHILE inddex <= array_length(polys_copy, 1)
LOOP
-- If the poly_copy overlaps the poly then add its index to the list
-- of polys to be removed
FOREACH poly IN ARRAY islandList
LOOP
IF polys_copy[inddex] && poly
THEN
islandList := array_append(islandList, polys_copy[inddex]);
--
IF array_length(polys_copy,1) = 1
THEN
polys_copy := null;
ELSE
polys_copy := polys_copy[1:inddex-1] || polys_copy[inddex+1:array_length(polys_copy, 1)];
END IF;
-- RAISE NOTICE 'Intersects with poly index: %', inddex;
-- When a new intersecting poly is found it needs to be compared
-- to every poly not just the polys left in the list
inddex := 0;
EXIT;
END IF;
END LOOP;
-- RAISE NOTICE 'Current island is %', islandList;
inddex := inddex + 1;
END LOOP;
islandCount := islandCount + 1;
inddex := 1;
END LOOP;
RETURN islandCount;
END
$BODY$ LANGUAGE plpgsql;sudo apt-get install apache2 libgdal-perl libcgi-session-perl libhtml-tree-perl liberror-perl libfreezethaw-perl libgd2-xpm rcs libapache2-mod-perl2-doc libapache2-mod-perl2 libapache2-mod-php5 latex2htmlcp /var/www/twiki/bin/LocalLib.cfg.txt /srv/www/ducklington.org/twiki/bin/LocalLib.cfg chown -R www-data:www-data /var/www/twikisudo /etc/init.d/apache2 reload$twikiLibPath = "/var/www/twiki/lib";$twikiLibPath = "/var/www/twiki/lib";