Lesvos Blogs » Digital Hardcore

Digital Hardcore: python: integer to roman

2010-08-03T09:44:46-04:00

This function converts an integer to a roman numeral.

def intToRoman(num):
n = int(num)
rv = ""
for dec, rom in ((1000, 'M'), (900, 'CM', ),(500, 'D'), (400, 'CD'), (100, 'C'),(90, 'XC'),(50, 'L'), (40, 'XL'),(10, 'X'), (9, 'IX'), (5, 'V'),(4, 'IV'), (1, 'I') ):
while (n >= dec):
n -= dec;
rv += rom;
return rv

from GNU Enterprise

Digital Hardcore: python: distance of points in .kmz

2010-07-28T08:02:08-04:00

This code calculates distance in kilometers from points saved in .kmz file. Such files can be created by Google Earth.
by Michal Niklas on Thu, 28 May 2009 (MIT)

#!/usr/bin/env python
# -*- coding: utf8 -*-

__version__ = '$Id: kmz2dist.py 609 2009-06-01 05:04:52Z mn $'
# author: Michal Niklas

"""
Calculates distance in kilometers from points saved in .kmz file.
Such files can be created by Google Earth
look at:
[code.google.com]

import sys
import zipfile
import glob
from xml.dom import minidom
import distance

def get_distance(coordinates_str):
"""gets distance of one path from coordinates string in form of:
14.81363432237944,53.57016581501523,0 14.81411766813742,53.56923005549378,0 14.81880340335202,53.56879451890311 ...
look at:
[code.google.com]
"""
sum_distance = 0.0
arr = []
coordinates = []
if ' ' in coordinates_str:
arr = coordinates_str.split(' ')
if len(arr) > 1:
for s in arr:
if ',' in s:
pt = s.split(',')
pos_latt = (float(pt[0].strip()), 0, 0)
pos_long = (float(pt[1].strip()), 0, 0)
position = (pos_latt, pos_long)
coordinates.append(position)
if coordinates:
for i in range(len(coordinates) - 1):
start = coordinates[i]
stop = coordinates[i + 1]
sum_distance += distance.points2distance(start, stop)
return sum_distance

def show_distance(fname):
"""calculates distance from points saved in doc.kml which is part of .kmz
zip archive file"""
path_cnt = 0
zf = zipfile.ZipFile(fname, 'r')
for fn in zf.namelist():
if fn.endswith('.kml'):
content = zf.read(fn)
xmldoc = minidom.parseString(content)
placemarks = xmldoc.getElementsByTagName('Placemark')
for placemark in placemarks:
name = placemark.getElementsByTagName('name')
if name:
name = name[0].firstChild.data.strip()
coordinates = placemark.getElementsByTagName('coordinates')
if coordinates:
coordinates = coordinates[0].firstChild.data.strip()
if coordinates:
distance_km = get_distance(coordinates)
if distance_km > 0.0:
if path_cnt == 0:
print '\n%s:' % (fname)
path_cnt += 1
print('\t%s\t%5.2f' % (name, distance_km))
return path_cnt

def main():
"""show .kmz file name and distance in kilometers"""
fnames = glob.glob('*.kmz')
if not fnames:
print('No *.kmz files found')
else:
for fname in fnames:
show_distance(fname)

if __name__ == '__main__':
if '--version' in sys.argv:
print(__version__)
else:
main()

Digital Hardcore: python: Find unique emails in a file

2010-07-26T08:00:29-04:00

def grab_email(files = []):
"""if passed a list of text files, will return a list of
email addresses found in the files, matched according to
basic address conventions. Note: supports most possible
names, but not all valid ones."""

found = []
if files != None:
mailsrch = re.compile(r'[\w\-][\w\-\.]+@[\w\-][\w\-\.]+[a-zA-Z]{1,4}')

for file in files:
for line in open(file,'r'):
found.extend(mailsrch.findall(line))

# remove duplicate elements
# borrowed from Tim Peters' algorithm on ASPN Cookbook
u = {}
for item in found:
u[item] = 1

# return list of unique email addresses
return u.keys()

Digital Hardcore: python-OpenOffice: export text

2010-07-24T08:00:56-04:00

By using the library ooopy we could export the text contents of a .odt file directly to a plain text file.

from ooopy.OOoPy import OOoPy
def as_text (node, out) :
if node.text is not None :
print >> out, node.text.encode ('utf-8'),
for subnode in node :
as_text (subnode, out)
if node.tail is not None :
print >> out, node.tail.encode ('utf-8'),

if __name__ == '__main__' :
outfile = open ("out.txt", "w")
o = OOoPy ("test.odt")
e = o.read ('content.xml')
as_text (e.getroot (), outfile)

Digital Hardcore: python: read .por files (SPSS)

2010-07-22T08:00:52-04:00

The following code, reads .por files (SPSS)

DEL = '/'
class PorReader(object):
def __init__(self, file):
if type(file) in (str, unicode): file = open(file)
self.file = file
self.pos = -1
self.buffer = ""
def consumeOne(self, skip=False):
p = self.buffer.find(DEL, self.pos+1)
output = ""
while p == -1:
if not skip: output += self.buffer[self.pos+1:]
self.buffer = self.file.read(1024)
self.pos = -1
p = self.buffer.find(DEL, self.pos+1)
if not self.buffer: break
if not skip: output += self.buffer[self.pos+1:p]
self.pos = p
if not skip:
output = output.replace("\r\n", "")
return output
def consume(self, n=1):
return [self.consumeOne() for i in range(n)]
def skip(self, n=1):
for i in range(n):
self.consumeOne(skip=True)

HEAD = 'SPSS for Microsoft Windows Release 15.04'

FLOAT, STR, INT = 0,1,2

class SPSSVariable(object):
def __init__(self, name, label=None, numeric=True, decimals=0):
self.name = name
self.label = label
self.numeric = numeric
self.decimals = decimals
self.valuelabels = None
self.index = None
def __str__(self):
t = 'S'
if self.numeric: t = 'I'
if self.numeric and self.decimals: t = 'F'
return "%s%s%s" % (self.name, (' "%s" ' % self.label if self.label else ''),t)

def splitstring(slen=None, s=None, reader=None):
if slen is None:
slen = reader.consume(2)
if s is None: slen, s = slen
if type(slen) == str: slen = readnum(slen)
while slen > len(s):
if reader:
s += "/"+reader.consumeOne()
else:
raise Exception("!")
keep = s[slen:]
s = s[:slen]
return s, keep

class SPSSFile(object):
def __init__(self, file):
self.variables = []
self.vardict = {}
self.data = []
self.init(file)
def addvar(self, var):
var.index = len(self.variables)
self.variables.append(var)
self.vardict[var.name] = var
def getvar(self, varname):
return self.vardict[varname]
def get(self, var, row):
if type(var) in (str, unicode):
var = self.vardict[var]
return row[var.index]
def init(self, file):
r = PorReader(file)
r.skip(5)
h = r.consumeOne()
if not h.startswith(HEAD): raise Exception("Cannot read .por")
numvars = readnum(h[len(HEAD):])
h = r.skip(1)
keep = r.consumeOne()
while True:
action = keep[0]
#print "ACTION: %s" % action
if action == '7':
data = r.consume(8)
while data[-2][0] <> 'C': data += r.consume()
decimals = readnum(data[4])
numeric = keep[1:] == '0'
name, dummy = splitstring(data[:2])
labellen, label = data[-2:]
label, keep = splitstring(labellen[1:], label, r)
v = SPSSVariable(name, label, numeric, decimals)
self.addvar(v)
#print "ADDED VAR ", v, data, `keep`, labellen[1:]
if action == 'D': # value labels
numvars = readnum(keep[1:])
varnames = []
keep = r.consumeOne()
for i in range(numvars):
name, keep = splitstring(keep, r.consumeOne(), reader=r)
varnames.append(name)
numlabels = readnum(keep)
keep = r.consumeOne()
labels = {}
numeric = self.getvar(varnames[0]).numeric
for i in range(numlabels):
if numeric:
val = readnum(keep)
name, keep = splitstring(reader=r)
else:
val, keep = splitstring(keep, r.consumeOne(), reader=r)
name, keep = splitstring(keep, r.consumeOne(), reader=r)
labels[val] = name
#print "VALUE LABELS", varnames, labels
for varname in varnames:
self.getvar(varname).valuelabels = labels
if action == 'F': # data
keep = keep[1:]
while True:
row = []
for var in self.variables:
if not keep: keep = r.consumeOne()
if keep.startswith("Z"):
return
if var.numeric:
if keep.startswith("*."):
row.append(None)
keep = keep[2:]
else:
try:
row.append(readnum(keep))
except Exception, e:
print row
print "Exception on %s" % var
raise e
keep = ""
else:
slen = keep
x, keep = splitstring(slen, r.consumeOne())
row.append(x)
self.data.append(tuple(row))
if action == 'Z': # data
print "Done!"
return

def _codec(str_in, base_from=36, base_to=10):
"""
Base36 Encoder/Decoder
by Mike Crute (mcrute@gmail.com) on August 26, 2008
This code has been placed in the public domain.
"""
ASCII = { "0": 48, "9": 57, "A": 65, "Z": 90 }
# There are 8 characters between 9 and A
from_digits = [chr(x) for x in range(ASCII["0"], ASCII["9"] + 8 + base_from)
if (x >= ASCII["0"] and x <= ASCII["9"]) or (x >= ASCII["A"] and x <= ASCII["Z"])][:base_from] to_digits = [chr(x) for x in range(ASCII["0"], ASCII["9"] + 8 + base_to) if (x >= ASCII["0"] and x <= ASCII["9"]) or (x >= ASCII["A"] and x <= ASCII["Z"])][:base_to] x = long(0) for digit in str(str_in).upper(): x = x * len(from_digits) + from_digits.index(digit) result = "" # This is going to assemble our number in reverse order # so we'll have to fix it before we return it while x > 0:
result += to_digits[x % len(to_digits)]
x /= len(to_digits)
return result[::-1]
def decode(s):
while s.startswith("0"): s = s[1:]
if not s: return 0
try:
return int(_codec(s, 30, 10))
except ValueError, e:
raise ValueError("Cannot decode %r: %s" % (s, e))
def readnum(s):
neg = s.startswith("-")
if neg: s = s[1:]
if "+" in s:
num, exp = map(decode, s.split("+"))
result = 30**exp
elif "-" in s:
num, exp = map(decode, s.split("-"))
result = 1. / (30**exp)
else:
if "." in s:
i, d = s.split(".")
else:
i, d = s, None
result = decode(i)
if d:
for j, digit in enumerate(d):
result += decode(digit) / 30.**(j+1)
return result * (-1 if neg else 1)

if __name__ == '__main__':
import sys
fn = sys.argv[1]
f = SPSSFile(fn)
print len(f.variables), len(f.data)

Digital Hardcore: python: show file size in Mb

2010-07-20T08:00:16-04:00

The following code displays a string of the filesize of a file in Megabytes.

import os
def file_size_mb(filePath):
return float(os.path.getsize(filePath)) / (1024 * 1024)

print str(file_size_mb("file.txt")) + " MB"

The result would be:

1.34 MB

Digital Hardcore: python: word frequency

2010-07-18T08:00:09-04:00

The following code, determines

the number of words in a text file
the number of unique words
and provides a list with unique words, shorted by frequency

import re

filename = 'phd.txt'

# create list of lower case words, \s+ --> match any whitespace(s)
word_list = re.split('\s+', file(filename).read().lower())
print 'Words in text:', len(word_list)

# create dictionary of word:frequency pairs
freq_dic = {}
# punctuation marks to be removed
punctuation = re.compile(r'[.?!,":;]')
for word in word_list:
# remove punctuation marks
word = punctuation.sub("", word)
try:
freq_dic[word] += 1
except:
freq_dic[word] = 1

print 'Unique words:', len(freq_dic)

# create list of (key, val) tuple pairs
freq_list = [(val, key) for key, val in freq_dic.items()]
# sort by key or word
freq_list.sort(reverse=True)
# display result
for word, freq in freq_list:
print word, freq

And the results would be:

Words in text: 81860
Unique words: 8454
5195 the
4140 of
2350 and
1747 in
1670 to
1393 a
1136 for
835 this
756 is

Digital Hardcore: Multi-Thread SQLite in python

2010-07-15T12:22:58-04:00

Using multiple threads to read/write data from SQLite in python, could sometimes be a painful process. This is because SQLite drops errors whenever a Thread tries to access a “connection” created by other Thread. In order to solve this concurrency problem, I use the following code to enable multiple Threads to access the very same SQLite file for data-processing.

import sqlite3

class datastore:
def __init__(self,inFile):
self.data_file = inFile

def connect(self):
self.conn = sqlite3.connect(self.data_file)
return self.conn.cursor()

def disconnect(self):
self.cursor.close()

def free(self, cursor):
cursor.close()

def write(self, query, values = ''):
cursor = self.connect()
if values != '':
cursor.execute(query, values)
else:
cursor.execute(query)
self.conn.commit()
return cursor

def read(self, query, values = ''):
cursor = self.connect()
if values != '':
cursor.execute(query, values)
else:
cursor.execute(query)
return cursor

Then on each Thread call it:

from datastore import *

manager=datastore("test.sqlite")
manager.connect()
sql="SELECT * FROM '%s'" % (table)
cursor=manager.read(sql)
for i in cursor:
print i

Digital Hardcore: εξαγωγή – εισαγωγή λιστας με εγκατεστημένα πακέτα

2009-10-15T11:15:54-04:00

Μπορούμε να εξάγουμε μια λίστα με όλα τα επιλεγμένα πακέτα του συστήματος μας με την εντολή:

$ dpkg --get-selections | grep -v deinstall > paketa.txt

στην συνέχεια, αν θέλουμε να χρησιμοποιήσουμε την λίστα αυτή σε κάποιο άλλο μηχάνημα για να επιλεγούν προς εγκατάσταση αυτά τα πακέτα, τότε εκτελούμε την εντολή:

$ sudo dpkg --set-selections < paketa.txt

οπου paketa.txt είναι το αρχείο που σώσαμε την λίστα μας.

Digital Hardcore: Αποθετήριο ελληνικών γεωγραφικών δεδομένων

2009-10-13T11:45:38-04:00

Οι πιο πολλές χώρες στην Ευρωπαϊκή Ένωση αλλά και παγκοσμίως, έχουν ιστοσελίδες οι οποίες λειτουργούν ως αποθετήρια γεωγραφικών δεδομένων. Αυτά χρησιμοποιούνται για την διάθεση και παρουσίαση Γεωγραφικών δεδομένων σε διάφορα formats έτσι ώστε οι ενδιαφερόμενοι να μπορούν εύκολα να ψάξουν για δεδομένα που τους ενδιαφέρουν και να τα κατεβάσουν. Θα ήταν χρήσιμο στην κοινωνία της πληροφορίας να μπορούσε ο πολίτης να έχει πρόσβαση σε γεωγραφικά ψηφιακά δεδομένα ή έτοιμους θεματικούς χάρτες όπως:

διευθύνσεις υπηρεσιών
χάρτες απογραφών
οικολογικές περιοχές
τουριστικές περιοχές
οδικό δίκτυο
ταχυδρομικοί κώδικες
λιμάνια και αεροδρόμια
διοικητική διαστρωμάτωση χώρας (νομός, περιφέρεια)
μεταφορικό δίκτυο (τραίνα, μετρό, ακτοπλοϊκά)

Κάποια από αυτά τα δεδομένα πωλούνται ήδη στο εμπόριο και ίσως η ελεύθερη διάθεση τους να εμπεριέχει κίνδυνο για κάποιες εταιρίες καθώς δεν θα έχουν πια αξία τα προϊόντα που πουλάνε. Ωστόσο είναι αναμφισβήτητα δημόσια δεδομένα και μπορούν να χρησιμοποιηθούν για να κάνουν την καθημερινή μας ζωή πιο εύκολη μιας και βοηθάν στο να παραχθούν χρήσιμες εφαρμογές πληροφόρησης. Μήπως όμως ζητάω πολλά? Μόλις γύρισα στην ελληνική πραγματικότητα ύστερα από μια απουσία 5 ετών και δυσκολεύομαι να αντιληφθώ πως δεν υπάρχουν βήματα προς την ελεύθερη διάθεση της πληροφορίας του ελληνικού γεωγραφικού χώρου.

Digital Hardcore: difference between dates with php

2009-05-18T08:19:32-04:00

Αν θέλουμε να βρούμε την διαφορά μεταξύ δυο ημερομηνιών τότε δεν έχουμε παρά να ετοιμάσουμε:

function daysBetweenDates($dateStart,$dateEnd) {
// dateStart kai dateEnd se morfi 'YYYY-MM-DD'
$dateStartArray = explode("-",$dateStart);//kovoume se komatia tin arxiki date
$dateEndArray = explode("-",$dateEnd);//kovoume se komatia tin teliki date

//pairnoume ta epimerous komatia
$startYear = $dateStartArray[0];
$startMonth = $dateStartArray[1];
$startDay = $dateStartArray[2];

$endYear = $dateEndArray[0];
$endMonth = $dateEndArray[1];
$endDay = $dateEndArray[2];

//Metatrepoume se unix timestamp
$init_date = mktime(12,0,0,$startMonth,$startDay,$startYear);
$dest_date = mktime(12,0,0,$endMonth,$endDay,$endYear);

//Vriskoume tin diafora tous
$offset = $dest_date-$init_date;

//kai metrame posses meres exoun mesa tous
$days = floor($offset/60/60/24);
return $days;
}

και ύστερα, καλούμε είτε από την ίδια σελίδα, είτε από άλλη την μέθοδο μας:

echo daysBetweenDates("2009-05-10","2010-05-19");

Digital Hardcore: Csv to XML with php

2009-05-17T08:16:40-04:00

/**
* Metatrepoume ena CSV arxeio se XML
* kai to deixnoume stin selida mas.
*
* @param string $file
* @param string $container
* @param string $rows
* @return string
*/
function csv2xml($file, $container = 'data', $rows = 'row'){
$r = "<{$container}>\n";
$row = 0;
$cols = 0;
$titles = array();

$handle = @fopen($file, 'r');//anoigoume to arxeio
if (!$handle) return $handle;//an anoixe to arxeio

while (($data = fgetcsv($handle, 1000, ',')) !== FALSE){
if ($row > 0) $r .= "\t<{$rows}>\n";
if (!$cols) $cols = count($data);
for ($i = 0; $i < $cols; $i++) {
if ($row == 0){
$titles[$i] = $data[$i];
continue;
}
$r .= "\t\t<{$titles[$i]}>";
$r .= $data[$i];
$r .= "\n";
}
if ($row > 0) $r .= "\t\n";
$row++;
}
fclose($handle);
$r .= "";
return $r;
}
?>

και ύστερα, καλούμε είτε από την ίδια σελίδα, είτε από άλλη την μέθοδο μας:

$xml = csv2xml('data.csv');
echo $xml;
?>

Digital Hardcore: Kernel Density Estimation στο R

2009-05-16T09:05:51-04:00

Η μέθοδος εκτίμησης πυρήνα είναι ένας τρόπος να υπολογίσουμε την πιθανότητα της πυκνότητας των παρατηρήσεων μας. Γραφικά μπορούμε δηλαδή να προεκτείνουμε τις παρατηρήσεις των δεδομένων μας και έτσι να γενικεύσουμε (οπτικά) για όλα τον πληθυσμό των παρατηρήσεων μας. Για να δούμε ένα παράδειγμα, κατεβάστε τα δεδομένα από εδώ και τρέξτε σε R:

area	male	female
area01	5	8
area02	12	4
area03	10	13
area04	9	11
area05	17	18
area06	3	16
area07	11	12
area08	18	15

#Διαβάζουμε τα δεδομένα μας απο το αρχειο .csv
jim <- read.csv(file="data.csv",head=TRUE,sep=",")
# Προετοιμάζουμε την png εικόνα μας
png(file="Grafima.png")
# Επιλέγουμε μόνο τις περιοχές οπυ έχουμε τιμές ("Omit None Available")
f=na.omit(jim$female)
m=na.omit(jim$male)
# Υπολογίζουμε τα density estimations
denf=density(f)
denm=density(m)
# Φτιάχνουμε μια συλλογή με τα χρώματα μας
xromata <- c("blue","red")
# Σχεδιάζουμε την Kernel Density των τιμών μας (males, females)
plot(den1,col=xromata[1],
xlab="number of individuals",
main="Kernel Density of Males/Females")
lines(den2,col=xromata[2])
# Βάζουμε και ένα υπόμνημα πάνω αριστερά, με ονόματα.
#Χρώματα παίρνει από την συλλογή που ετοιμάσαμε παραπάνω.
# και το είδος των γραμμών ειναι 1 και για τις δυο κατηγορίες μας.
legend("topleft",c("Male","Female"),col=xromata,,lty=1:1)
# Σχεδιάζουμε και τις τιμές μας στον οριζόντιο άξονα.
rug(c(m,f))
# Εξάγουμε την εικόνα μας που ειχαμε προετοιμάσει στην αρχή.
dev.off() μοίρασε και εσύ: ">[http%3A%2F%2Fwww.dimitrisk.gr%2Fblog%2F%3Fp%3D387">]

Digital Hardcore: Διάγραμμα Radar με R

2009-05-14T08:20:51-04:00

Μπορεί να χρησιμοποιηθεί σε σύγκριση μεταβλητών μεταξύ περιοχών. Κατεβάστε τα δεδομένα:data.csv

require(plotrix)

#eisagogi dedomenon apo to csv
jim <- read.csv(file="data.csv",head=TRUE,sep=",")
#megethos gramatoseiras
#par(ps=1)
#Sxediasi tou jim$male
radial.plot(jim$male,labels=jim$area,
rp.type="p",
main="Diagrama Radar",
radial.lim=c(0,20),
line.col="blue") μοίρασε και εσύ: ">[http%3A%2F%2Fwww.dimitrisk.gr%2Fblog%2F%3Fp%3D363">]

Digital Hardcore: R στο Notepad++

2009-05-12T07:41:52-04:00

Αν τρέχετε R για τις στατιστικές σας αναλύσεις, τότε μπορείτε να κάνετε το Notepad++ έναν πολύ καλό R Editor για να γράφετε κώδικα. Το NppToR είναι ένα extension που παρέχει δυνατότητες ενσωμάτωσης R μέσα στο Noptepad++. Πιο αναλυτικά, προσφέρει:

syntax highlighting
code folding
auto-completion
Rgui style code passing between Notepad++ and the Rgui

σελίδα του NppToR και σελίδα του Notepad++

μοίρασε και εσύ: ">[http%3A%2F%2Fwww.dimitrisk.gr%2Fblog%2F%3Fp%3D355">]

Digital Hardcore: Χάρτης διάχυσης ανοιχτού κώδικα

2009-05-11T07:33:16-04:00

Η redhat ετοίμασε ένα χάρτη που μας δείχνει την διάχυση των τεχνολογιών ανοιχτού κώδικα παγκοσμίως. Μπορείτε να το βρείτε εδώ.

μοίρασε και εσύ: ">[http%3A%2F%2Fwww.dimitrisk.gr%2Fblog%2F%3Fp%3D340">]

Digital Hardcore: Δωρεάν Γεωγραφικά Δεδομένα

2009-05-10T07:49:09-04:00

Συγκέντρωσα εδώ κάποια link όπου μπορείτε να βρείτε και να κατεβάσετε δωρεάν γεωγραφικά δεδομένα.

Portal
- ΗΠΑ/Καναδάς
  - Map Layers Warehouse: Αεροδρόμια, πόλεις, χώρες, σύνορα, δίκτυα τραίνων και δρόμων.
  - Cartographic Boundary Files: Όρια, σύνορα (shp), πληθυσμιακά ΗΠΑ.
  - National Transportation Atlas Data Shapefile Download Center (ΗΠΑ)
  - The California Spatial Data Library (ΗΠΑ)
  - GeoBase (Καναδάς)
- Παγκόσμια
  - Πανεπιστήμιο Berkley Αφρική, Ασία, Ν.Αμερική)
  - MassGIS
  - Rio Puerco Data Library:Χαρτογραφικές Βάσεις
  - GIS Data Depot
  - World Basemap Data: Σύνορα χωρών, σημεία πόλεων, ποταμοί, δίκτυα δρόμων και τραίνων.
Shapefiles
- Παγκόσμια
  - world.zip (224 Kb)
- Β. Αμερική
  - ΗΠΑ (states) usstates.zip (110 Kb)
  - ΗΠΑ (counties) uscounties.zip(512 Kb)
  - ΗΠΑ (counties by states) uscntstate.zip (516 Kb)
  - ΗΠΑ (ZIP5 boundaries) zip5.zip (5.4 Mb)
  - ΗΠΑ (ZIP3 boundaries) zip3.zip (576 Kb)
  - ΗΠΑ canada.zip(372 Kb)
  - Μεξικό mexico.zip (21 Kb)
- Νότια Αμερική
  - Αργεντινή argentina.zip (53 Kb)
  - Βραζιλία brazil.zip (129 Kb)
- Ευρώπη
  - Ευρώπη europe.zip (23 Kb)
  - Ευρωπαϊκές Χώρες eurocntr.zip (359 Kb)
- Ασία
  - Ιαπωνία japan.zip (31 Kb)
  - Ινδία (states,districts) india.zip (124 Kb)
- Αυστραλία
  - Αυστραλία australia.zip (62 Kb)

πηγή: vds Technologies

μοίρασε και εσύ: ">[http%3A%2F%2Fwww.dimitrisk.gr%2Fblog%2F%3Fp%3D334">]

Digital Hardcore: Twitter + GoogleMaps = GeoTwitter

2009-05-09T07:30:46-04:00

Ως γεωγράφος εκτιμώ την έννοια της τοποθεσίας, εδώ μπορείτε να βρείτε ένα live χάρτη που οπτικοποιεί τα public posts που γίνονται κάθε λεπτό στο twitter. Συλλέγει πληροφορίες από τα προφίλ των χριστών και τα τοποθετεί σε έναν GoogleMap χάρτη. Χρησιμοποιεί τα API των Twitter και Google Maps

μοίρασε και εσύ: ">[http%3A%2F%2Fwww.dimitrisk.gr%2Fblog%2F%3Fp%3D324">]

Digital Hardcore: Qgis python Plugin Creator

2009-05-08T08:01:35-04:00

Digital Hardcore: Java visualization toolkits

2009-05-07T07:43:11-04:00

Digital Hardcore: Qgis repository

2009-04-15T10:10:08-04:00

Το Qgis είναι ένα από τα διαμάντια του ανοιχτού λογισμικού (ειδικά για την επιστήμη της Γεωγραφίας και των GIS). Είναι ένα ανοιχτού λογισμικού Γεωγραφικό Σύστημα Πληροφοριών το οποίο είναι ικανό να φέρει εις πέρας αρκετές λειτουργίες ενός σύγχρονου εμπορικού πακέτου (ArcGis, ArcInfo, κτλ). Το Qgis είναι γραμμένο σε C++ αλλά περιέχει bindings σε python. Έτσι μπορούμε να γράφουμε plug-ins ώστε να διευκολύνουμε διάφορες λειτουργίες.

Εδώ αλλά και εκεί μπορείτε να βρείτε ένα how-to για να γράψετε το πρώτο σας plugin. Ακόμα, εδώ μπορείτε να βρείτε ένα εργαλείο το οποίο διευκολύνει την δημιουργία των plugin.

Τέλος, έχω ετοιμάσει ένα δικό μου repository για plugins (σύντομα θα ανεβάσω πολύ υλικό) ώστε να μπορείτε να κατεβάζετε αυτόματα τα plugins. Απλά προσθέστε την διεύθυνση, μέσα στο Qgis Python Plugin Installer:
[www.dimitrisk.gr]

μοίρασε και εσύ:

Digital Hardcore: Lyx + Zotero = Lytero Plugin

2009-04-03T09:05:49-04:00

Το γνωστό μας Zotero είναι το πλέον εύχρηστο και αξιόπιστο πρόγραμμα διαχείρισης και ενσωμάτωσης βιβλιογραφικών αναφορών σε κείμενα.Το Lyx είναι η πλέον εύχρηστη και δυνατή λύση για Latex (ο πιο δυνατός κειμενογράφος Open Source). Αν θέλουμε να τα ενώσουμε και να μπορούμε να χρησιμοποιούμε βιβλιογραφικές αναφορές κατευθείαν από το zotero, μέσα στο Lyx τότε δεν έχουμε παρά να κατεβάσουμε το Lytero. Ένα Firefox Plugin το οποίο αυξάνει τις δυνατότητες ενσωμάτωσης του Zotero.

Καλό γράψιμο…

μοίρασε και εσύ:

Digital Hardcore: postgresql “error.installing.runtimes”

2009-03-27T09:10:20-04:00

Κατεβάζοντας το setup αρχείου της PostgreSQL και προσπαθώντας να το εγκαταστήσω (σε μηχάνημα Win-XP) έλαβα μηνημα σφάλματος: error.installing.runtimes

Είναι ένα σφάλμα που σχετίζετε με το “Windows Scripting Host” και ουσιαστικά μας λέει ότι ο host είναι αδρανής.
Για να μπορεσετε να εγκαταστήσετε την PostgreSQL, κατεβάστε απο εδώ την τελεύταια εκδοση ( postgresql-x.x.x-x.zip) και τρέξτε το αρχείο με όνομα: postgresql-x.x.msi μοίρασε και εσύ:

Digital Hardcore: Ο θάνατος του Desktop και των Operating Systems

2009-03-25T19:35:37-04:00

Ubuntu Greece - Win Greece

Ubuntu Worldwide - Win Worldwide

Με μια απλή αναζήτηση στο trends.google.com (Για την Ελλάδα), και συγκριτική γραφική αναπαράσταση μπορούμε να δούμε πως σιγά σιγά η αυτοκρατορία WinDows αρχίζει να υποχωρεί ενώ σημειώνετε μια αργά αναπτυσσόμενη άνοδο μικρής κλίμακας για Ubuntu. Οι αριθμού αναφέρονται σε “search terms” και “news references”.

Linux Greece - Win Greece

Linux WorldWide - Win WorldWide

Σε παγκόσμιο επίπεδο υπάρχει μια πτώση της αναζήτησης για λειτουργικό σύστημα και αυτό διότι έχει επέλθει το τέλος των λειτουργικών συστημάτων και του Desktop. Η διεισδυτικότητα και ικανότητα του Internet καθιστά εύκολη την αντικατάσταση του τοπικού λειτουργικού συστήματος (είτε Win, είτε Linux) και μπορεί να αντικαταστήσει αν όχι εξ ολοκλήρου, τότε σχεδόν ένα πολύ μεγάλο μέρος της καθημερινής χρίσης ενός τοπικού συστήματος ενός μέσου χρήστη.
ίδη εχουν αρχίσει να αναπτυσονται εφαρμογες που φέρνουν το desktop μας πιο κοντα στο ιντερνετ, και το internet πιο κοντα στο desktop μας. Αρκει να ρίξουμε μια ματιά στα labs της mozilla αλλα και τα labs της Google. Εκει αναπτυσονται εφαρμογες οπως τα Google-Docs και το Prism.
Τα ερωτηματα που θέτω ειναι:

Πόσο έτοιμα είναι τα υπάρχοντα λειτουργικά συστήματα ώστε να επαναπροσδιορίσουν των χαρακτήρα τους?
Πόσο έτοιμοι είναι οι χρήστες ώστε να επαναπροσδιορίσουν τις ενοιες του local και του online, διοτι τα ορια αρχιζουν να ειναι δισδιακριτα και οι δυο αυτες ενοιες αρχιζουν να γινονται το ιδιο πραγμα.
Τι ασφάλεια θα παρέχετε στα δεδομενα μας ?

μοίρασε και εσύ:

Digital Hardcore: Αριθμός σελίδας σε Google Docs

2009-03-25T09:01:53-04:00

Αν θέλουμε να εισάγουμε τον αριθμό σελίδας σε κάποιο έγγραφο “Google Docs” μπορούμε να πάμε: Edit/Edit HTML και αφού δούμε την Html αναπαράσταση του εγγράφου μας, τότε εισάγουμε:

style="text-align: right;" class="google_header">Page class="google_pagenumber">1 of class="google_pagecount">1

…στο σημείο που επιθυμούμε. Συνήθως είθηστε να υπάρχει ο αριθμός σελίδας στο κάτω δεξιά μέρος κάθε σελίδας (footer, right allignment).

μοίρασε και εσύ:

Digital Hardcore: read/write shapefile with Java

2009-03-11T09:05:30-04:00

Με την χρήση της βιβλιοθήκης GeoTools μπορούμε να διαβάσουμε shapefiles στην Java. Εδώ μπορείτε να βρείτε μια κλάση για shapefile I/O (input/output) μέσα από Java. Απαιτείτε να βάλετε ως βιβλιοθήκη κάποια jar του GeoTools.

μοίρασε και εσύ:

Digital Hardcore: Open Source GIS συγκριτικός πίνακας

2009-03-10T01:05:29-04:00

Εδώ μπορείτε να βρείτε έναν γενικό συγκριτικό πίνακα των Γεωγραφικών Συστημάτων πληροφοριών (GIS) ανοιχτού λογισμικού.

Εδώ υπάρχει και ενας συγκριτικός πίνακας των επιμέρους λειτουργιών που προσφέρουν.

μοίρασε και εσύ:

Digital Hardcore: Συμβάλλοντας με το λογισμικό μας

2009-02-23T00:20:25-05:00

Αν έχουμε γράψει κάποιο software το οποίο θέλουμε να δημοσιοποιήσουμε, μπορούμε να το πακετάρουμε και να το ανεβάσουμε online ώστε άλλοι χρήστες να μπορέσουν να το χρησιμοποιήσουν/ βελτιώσουν. Έξαλλου αυτή είναι και μια από τις κεντρικές ιδέες του ανοιχτού λογισμικού.

Για αρχή θα πρέπει να πακετάρουμε το software σε μορφή αναγνωρίσιμη όπως το .deb. Έτσι θα μπορούν οι άλλοι χρήστες να κάνουν εγκατάσταση και στην συνέχεια χρήση του.
Αν θέλουμε να το ανεβάσουμε στον λογαριασμό μας στο launchpad μπορούμε να ακολουθήσουμε αυτές τις οδηγίες και να δημοσιοποιηθεί ώστε να μπορούν άλλοι χρήστες να το κατεβάσουν.
Τέλος αν θέλουμε να μπούμε στην διαδικασία να συμβάλουμε ενεργά στην επίσημη διάθεση του software μας στα επίσημα αποθετήρια του Ubuntu, τότε ακολουθούμε αυτές τις ενέργειες.

Οδηγοί για να φτιάξετε τα δικά σας Debian (.deb) πακέτα: PackagingGuide - Ubuntu Wiki Linux.com :: Make your own packages for Debian-based systems Create Debian Linux packages Debian Binary Package Building HOWTO Rolling your own Debian packages (part 1) Γραφικά εργαλεία για deb building: debian package creator in Launchpad Deb-o-Matic in Launchpad Debian Package Maker in Launchpad μοίρασε και εσύ:

Digital Hardcore: R: Random Walk (χάραξη τυχαίας διαδρομής)

2009-02-20T03:16:16-05:00

Η έννοια του Random Walk έχει να κάνει με την δημιουργία ενός τυχαίου τρόπου μεταφοράς από ένα σημείο Α σε ένα σημείο Β. Χρησιμοποιείτε από διάφορες επιστήμες για διαφορετικές κάθε φορά εφαρμογές. Στην επιστήμη της γεωγραφίας μια από τις πολλές χρήσης της είναι και η χάραξη εντελώς τυχαίων διαδρομών δειγματοληψίας σε έναν ορισμένο χώρο.
Κάνοντας χρήση του R μπορούμε να στοιχειοθετήσουμε τυχαια μονοπάτια με τον εξής τρόπο:

library(adehabitat)
library(CircStats)

set.seed(876)
u <- simm.crw(1:500, r = 0.99, burst = "r = 0.99")
v <- simm.crw(1:500, r = 0.9, burst = "r = 0.9", h = 2)
w <- simm.crw(1:500, r = 0.6, burst = "r = 0.6", h = 5)
x <- simm.crw(1:500, r = 0, burst = "r = 0 (Asisxetisti diadromi)",
h = 0.1)
z <- c(u, v, w, x)
# perani: An tha ta valei ola sto idio diagramma (FALSE), i an tha kanei n ksexorista diagrammata (TRUE:default).
# addpoints: An tha apikonisei ta simia tis diadromis (TRUE:default)
plot(z, addpoints = FALSE, perani = FALSE)

και το αποτέλεσμα:

μοίρασε και εσύ:

Digital Hardcore: R κλίμακες αξόνων

2009-02-19T02:05:58-05:00

Πολλές φορές όταν οπτικοποιούμε δεδομένα με διαφορετικό εύρος τιμών αντιμετωπίζουμε το πρόβλημα οτι δεν μπορούμε να χρησιμοποιήσουμε διαφορετικές κλίμακες στους άξονες του γραφήματος μας. Υπάρχει λοιπόν ενας τρόπος να το αντιμετωπίσουμε αυτό:

#tuxeoi arithmoi diaforetikou eurous timon
ena=cumsum(rnorm(100))
duo=cumsum(rnorm(100))+500
plot(ena)
plot(duo)
par(mar=c(5,4,4,4))
plot(ena,type=‘l’,col=1)
usr=par(‘usr’)
usr[3:4]=range(duo)+1.08*c(-1,1)*diff(range(duo))/2
# extra epipleon xoros ston deutero katheto axona
par(usr=usr)
Axis(side=4)
mtext("duo",side=4)
lines(duo,type=‘l’,col=2)

μοίρασε και εσύ:

Digital Hardcore: R αποθήκευση χώρου εργασίας

2009-02-18T09:02:17-05:00

Στο R έχουμε την δυνατότητα να αποθηκεύσουμε τον χώρο εργασίας μας (settings, data, variables) έτσι ώστε να μπορούμε κάποια άλλη στιγμή να τα ανακτήσουμε και να συνεχίσουμε από εκεί που είχαμε σταματήσει.

Η εντολή:

save.image(file="onoma.RData")

αποθηκεύει τον χώρο εργασίας μας σε ένα αρχείο με όνομα “onoma.RData”. Επίσης μπορούμε να βάλουμε την τρέχουσα ημερομηνία στο όνομα του αρχείου για να μην το μπερδεύουμε με άλλα παρόμοια αρχεία και να έχουμε έτσι μια πιο συνεπή αρχειοθέτηση:

save.image(file=paste("onoma-",Sys.Date(),".RData") μοίρασε και εσύ:

Digital Hardcore: Χάρτης Αλυκών Καλλονής Λέσβου

2009-02-16T00:04:42-05:00

Κοιτούσα προχτές τις διαστάσεις των Αλυκών Καλλονής Λέσβου. Είναι ένα μέρος που περνώντας δίπλα του δεν μπορείς να αντιληφθείς τις διαστάσεις του. Είναι αρκετά μεγάλο. Οι αλυκές υποδέχονται το νερό σε φυσικές δεξαμενές και το περνάν από διάφορα στάδια αλατότητας ώσπου να καταλήξει η απόθεση του άλατος. Αυτές οι δεξαμενές είναι ορατές στο χάρτη. (μεγάλα τετράγωνα οικόπεδα)

View Larger Map

μοίρασε και εσύ:

Digital Hardcore: Χρήσιμες Εντολές “R” για GIS

2009-02-15T00:02:50-05:00

Διαβάζει ένα shapefile και το απεικονίζει library(maptools)
lesvos = readShapePoly("shp/lesvos.shp")
plot( lesvos )

Απεικονίζουμε ένα shapefile με ξεχωριστό τιμές για κάθε πολύγωνο. library(maptools)
lesvos = readShapePoly("shp/lesvos.shp")
plot( lesvos )
invisible(text(getSpPPolygonsLabptSlots(lesvos), labels=as.character(lesvos$onoma), cex=0.4))

Απεικονίζουμε και συγκρίνουμε παράλληλα δυο μεταβλητές ενός shapefile:library(maptools)
lesvos = readShapePoly("shp/lesvos.shp")
spplot(lesvos, c("POP81","POP91") )

Απεικονίζουμε την διαφορά μεταξύ των απογραφών 1981 και 1991.library(maptools)
lesvos = readShapePoly("shp/lesvos.shp")
diafora= lesvos$POP91 - lesvos$POP81
lesvos$dia=diafora
spplot(lesvos, c("dia"), col.regions=colorRampPalette(brewer.pal(9,"Spectral")[1:9])(140) )

μοίρασε και εσύ:

Digital Hardcore: Σπιτικός Veoh downloader για Linux

2009-02-14T09:47:46-05:00

Όπως θα γνωρίζετε δεν υπάρχει Veoh-player για Linux.
Έγραψα λοιπόν σε Java ένα προγραμματάκι το όποιο του δίνουμε την διεύθυνση της ταινίας, και μας την κατεβάζει σε .flv για να την δούμε με όποιο πρόγραμμα θέλουμε.

Θα να το βρείτε εδώ.

Το ονόμασα VeohGraber. Είναι πολύ χαζό όνομα το ξέρω, αλλά δεν είχα όρεξη να ψάχνω…

μοίρασε και εσύ:

Digital Hardcore: Τουρισμός = επένδυση όχι κατανάλωση

2009-02-13T09:25:13-05:00

Επένδυση: Δέσμευση κεφαλαίου, η οποία αναμένεται να αποφέρει πρόσθετα κεφάλαια στο μέλλον.
Κατανάλωση: Χρήση πώρων για την ικανοποίηση αναγκών.

Ο τουριστικός τομέας της ελληνικής οικονομίας είναι αυτός που μας επιφέρει τα περισσότερα έσοδα κάθε χρόνια. Δεν είναι λίγες οι φορές όπου βλέπουμε φαινόμενα κερδοσκοπίας σε βάρος ανυποψίαστων τουριστών από εκμεταλλευτές ντόπιους οι οποίοι κοιτάνε να κονομίσουν για την σεζόν.

Αυτή τη τακτική την ονομάζω καταναλωτική. Χρησιμοποιεί άμεσα όσο το δυνατών περισσότερο τους πόρους του (τουρίστας) για να ικανοποιήσει τις ανάγκες του (για να κονομίσει) για την σεζόν.

Ο τουρισμός έχει χαρακτήρα προϊόντος πολυτελείας, εμπεριέχει το κριτήριο τις επιλογής και δεν είναι επιτακτική η χρήση του. Μπορεί δηλαδή ο τουρίστας την επόμενη χρονιά να μην διαλέξει τον τόπο μας για να παραθερίσει και να επιλέξει από δεκάδες άλλους προορισμούς (πιο φτηνούς). Οι επιλογές είναι πολλές και όλες διαθέσιμες στον ενδιαφερόμενο.

Η επενδυτική τακτική που προτείνω έχει να κάνει με την εξυπηρέτηση του τουρίστα έτσι ώστε να ξανά-αγοράσει το προϊόν (να ξανά έρθει στον τόπο). Αυτό έχει ως αποτέλεσμα σε μακρό-οικονομική κλίμακα να αποφέρει μεγαλύτερα κέρδη συνολικά στον τόπο απ’ οτι αν ερχόταν μια φορά και απλά τον ξεζούμισαν οι επιτήδειοι. Αυτό έχει πολλαπλά οφέλη προς ολους τους σχετιζομενους κλάδους.

Ας μην ξεχνάμε πως η οικονομική χρονιά είναι δύσκολη και θα είναι ακόμα λιγότεροι οι επισκέπτες φέτος. Ας επενδύσουμε λοιπόν αντί να καταναλώσουμε.

μοίρασε και εσύ:

Digital Hardcore: Εγκατάσταση πακέτου .RPM σε Ubuntu

2009-02-13T00:01:52-05:00

Εγκαθιστούμε το Alien

$sudo apt-get update
$sudo apt-get install alien

Μετατρέπουμε σε .deb

$sudo alien -k myRpmFile.rpm

Εγκαθιστούμε το νέο .deb πακέτο

$sudo dpkg -i myDebFile.deb μοίρασε και εσύ:

Digital Hardcore: Exploits of Mom

2009-02-12T17:00:14-05:00

Εδώ βλέπουμε μια κλασική περίπτωση διευθυντή σχολείου ο οποίος πήγε για μαλλί και βγήκε κουρεμένος.

source

μοίρασε και εσύ:

Digital Hardcore: Java εφαρμογές στο GNOME desktop

2009-02-12T08:40:07-05:00

Από καιρό ήθελα να γράψω διάφορες εφαρμογές για τα Ubuntu ώστε να τις έχω εγκατεστημένες και να μου κάνουν την ζωή μου πιο εύκολη.

Βρήκα λοιπόν την λύση!

Ανακάλυψα ότι μπορώ με κάποια βιβλιοθήκη να έχω πρόσβαση στις διεργασίες του GNOME (σε GTK) μέσα από την Java. Επέλεξα να γράψω σε Java γιατί είναι η γλώσσα που έχω αφιερώσει τις πιο πολλές μου εφαρμογές τόσα χρόνια και θα είμαι πιο άνετος.

βιβλιοθηκη
documentation
παραδείγματα

Τώρα το μόνο που μου μένει να διερευνήσω είναι πως να κάνω τις εφαρμογές… πακέτα για εύκολη διανομή και εγκατάσταση από φίλους/συναδέλφους μη-προγραμματιστές

“Hello World” με θέμα Nimbus σε GNOME μοίρασε και εσύ:

Digital Hardcore: Η δικτατορία των Linux-άκιδων

2009-02-12T00:01:03-05:00

Αναμφίβολα η εισαγωγή στον κόσμο του linux είναι μια δυνατή εμπειρία που σε κάνει να σκέφτεσαι με άλλο /διαφορετικό /νέο τρόπο και να εκτιμάς προσόντα του Λειτουργικού Συστήματος. Αυτή η νέα εμπειρία φαίνεται πολλές φορές και από τον τρόπο που αναφέρονται σε αυτό οι χρήστες του σε κουβέντες που κάνουν με μη-χρήστες του Linux. Είναι απόλυτοι, δυναμικοί, απαξιωτικοί και ελιτιστές.

Από την άλλη οι μη-χρήστες Linux επειδή δεν μπορούν να εκτιμήσουν όλα τα προσόντα που έχουν ακούσει ότι έχει αυτό το Λειτουργικό Σύστημα και επειδή βλέπουν /ακούν μια τέτοια συμπεριφορά από τους Linux-τύπους , κάνουν ένα βήμα πίσω και αποστασιοποιούνται νομίζοντας ότι είναι κάτι δύσκολο και άκρος τεχνικό.

Η συναναστροφή με μη-Linux χρήστες δεν πρέπει να εμπεριέχει δυνατές απαξιωτικές εκφράσεις και να μην μειώνει ούτε τις ικανότητες ούτε τις γνώσεις του άλλου, μόνο και μόνο επειδή έχει άλλο OS. “Αν” το Linux κάνει για σένα, εγκατέστησε το. Αν όχι, δεν πειράζει.

Στην εποχή του ανοιχτού κώδικα και της κοινοτικής ανάπτυξης των εφαρμογών η δική μας στάση είναι ο καλύτερος πρεσβευτής του Linux. Ας μην γίνουμε απόλυτοι και ακραίοι σαν τον Richard Stallman αλλά ας αποδείξουμε ότι όχι μόνο τα Ubuntu αλλά και τα Linux γενικά, είναι λειτουργικό σύστημα για … ανθρώπους.

μοίρασε και εσύ:

Digital Hardcore: Προσδόκιμο ζωής στην Ελλάδα

2009-02-11T19:38:51-05:00

Ύστερα από μια μικρή και γρήγορη ανάλυση των δεδομένων που μας προσφέρει ο ΟΗΕ, συσχέτισα το προσδόκιμο μέσο όρο ηλικίας ανά φύλλο για τα τελευταία χρόνια στην Ελλάδα, και να το αποτέλεσμα:

Με μια ματιά βλέπουμε πως ο γυναικείος πληθυσμός έχει μεγαλύτερο μέσο όρο ζωής τουλάχιστον τα τελευταία 28 χρόνια.

μοίρασε και εσύ:

Digital Hardcore: Φυτά εσωτερικού χώρου για καλύτερο οξυγόνο

2009-02-11T11:23:04-05:00

Αυτά είναι τα πιο αξιόλογα από πλευράς ποσότητας οξυγόνου,φυτά για να έχουμε στους χώρους που ζούμε. Areca palm, Mother-in-law’s Tongue, και Money Plant.

source

μοίρασε και εσύ:

Digital Hardcore: Create histogram in ArcView

2009-02-09T16:03:38-05:00

If you still use ArcView and avenue language to script things around, then you may consider this script to perform histogram representations of your data.

‘ Name: Theme.Histogram
‘ Title: Creates a histogram for the active theme
‘ Topics: Analysis, Charts
‘ Description: Generates a histogram for the active theme in the current
‘ view. A new Chart document is created to display the histogram. A temporary
‘ file is created to store interval counts and other information used to
‘ create the histogram. The color scheme used to create the chart will be the
‘ same as the legend of the active theme, i.e. there is direct correlation
‘ between the theme classification colors and chart colors.
‘
‘ Should be associated with the Click property of a button on the View
‘ DocGUI. An update script should be associated with the control to ensure
‘ that this script can only be executed when there is at least one active
‘ theme.
‘ Requires: A View with an active theme. The theme must be classified.
theView=av.GetActiveDoc
theTheme=theView.GetActiveThemes.Get(0)

‘ Get the components of the Legend that will be used to create the chart…
theLegend=theTheme.GetLegend
theSymbols=theLegend.GetSymbols
theClasses=theLegend.GetClassifications
theFieldName=theLegend.GetFieldNames.Get(0)

theVTab=theTheme.GetFTab
theField = theVTab.FindField(theFieldName)

‘ Create the new data file for the histogram…
outFName = av.GetProject.MakeFileName( theTheme.GetName, "dbf")
outFName = FileDialog.Put( outFName, "*.dbf", "Output Histogram File" )
if (outFName = Nil) then
exit
end

newVTab=VTab.MakeNew( outFName, dBASE )
labelf=Field.Make( "Label", #FIELD_CHAR, 20, 0 )
countf=Field.Make( "Count", #FIELD_DECIMAL, 10, 0)
newVTab.AddFields( {labelf, countf} )

‘ Loop through the classes recording the ranges.
countlist = {}
for each c in theClasses
countlist.Add(0)
end
numClasses = theClasses.Count

‘ Loop through the records recording which class they fall in.
for each rec in theVTab
v = theVTab.ReturnValue(theField,rec)
for each i in 0..(numClasses - 1)
if (theClasses.Get(i).Contains(v)) then
countlist.Set(i,countlist.Get(i)+1)
break
end
end
end

‘ Loop through the classes writing the information to disk.
maxcount=0
for each i in 0..(numClasses-1)
rec=newVTab.AddRecord
newVTab.SetValue(labelf,rec,theClasses.Get(i).GetLabel)
newVTab.SetValue(countf,rec,countlist.Get(i))
maxcount=maxcount max countlist.Get(i)
end

‘ Create a chart and match the colors to the legend.
newChart=Chart.Make(newVTab,{countf})
newChart.SetRecordLabelField(labelf)
for each i in 0..(numClasses-1)
newChart.GetChartDisplay.SetSeriesColor(i,theSymbols.Get(i).GetColor)
end
newChart.GetTitle.SetName("Histogram of"++theTheme.GetName)
newChart.GetYAxis.SetBoundsUsed(true)
newChart.GetYAxis.SetBoundsMin(0)
newChart.GetYAxis.SetBoundsMax(maxcount)
newChart.GetWin.Open μοίρασε και εσύ:

Digital Hardcore: R code competition

2009-02-09T15:50:19-05:00

This tutorial show how we can have code competition for R statistical language. We use CompletePlus function in the svMisc package. This function uses the completion engine that comes with R, and looks in documentation files for additional information related to each finding.

R> require( svMisc )
Loading required package: svMisc
R> CompletePlus( "rnorm(" )
[,1] [,2]
[1,] "n = " "rnorm"
[2,] "mean = " "rnorm"
[3,] "sd = " "rnorm"
[,3]
[1,] "number of observations. If ‘length(n) > 1′, the length is taken to be the number required."
[2,] "vector of means."
[3,] "vector of standard deviations."

The power editor plugin uses this information to display completion popups:

In special cases, instead of argument or function names, the engine will complete for colours using the current R palette :

or names of colors if you started to type a quote character

here the user started to type gre so the completion engine looks for colors having a name that matches the pattern gre. This is basically obtained as follows:

> head( grep( "gre", colors(), value = T ) )
[1] "darkgreen" "darkgrey" "darkolivegreen" "darkolivegreen1"
[5] "darkolivegreen2" "darkolivegreen3"

Usually the lty argument is associated with a line type, the completion engine suggests the basic line types as documented in ?par

Same with the pch argument and the plotting character.

source

μοίρασε και εσύ:

Digital Hardcore: Automatically Chart Web Based Global Temperature Data with “R”

2009-02-08T16:19:02-05:00

## Get Monthly anomaly data
link1<- "http://www.remss.com/data/msu/monthly_time_series/RSS_Monthly_MSU_AMSU_Channel_TLT_Anomalies_Land_and_Ocean_v03_2.txt"
mo_RSS_in <- read.table(link1,
skip = 3, sep = "", dec=".",
row.names = NULL, header = FALSE,
as.is = T,
colClasses = c(rep("numeric",3), rep("NULL", 8)),
comment.char = "#", na.strings = c("*", "-",-99.9, -999.9),
col.names = c("yr", "mo", "RSS_lo", rep("",8)))
yr_frac <- mo_RSS_in$yr + (mo_RSS_in$mo-1)/12 # yr_frac simplifies calcs
# Create new data frame & attach
mo_RSS_lo <- data.frame(mo_RSS_in, yr_frac)
attach(mo_RSS_lo)
# Get last mo, yr and value
c <- nrow(mo_RSS_lo) # Find number of data rows
lmo <- mo_RSS_lo$mo[c] # Fimd last month of data
lyr <- mo_RSS_lo$yr[c] # Find last year of data
lRSS <- RSS_lo[c] # Find last reading
# Create plot
# Set plot parameters
par(las=1); par(ps = c(10)) ; par(bty="l")
par(oma=c(0,0,0,0)) # no outer margin
plooo=plot(RSS_lo ~ yr_frac, type="l", col ="grey60", xlab = "",
ylab = expression(paste("RSS Temperature Anomaly - ",degree,"C")),
xlim=c(1979, 2010), ylim=c(-0.6, 0.80),
xaxs="i", yaxs="i",
cex.axis = 0.95, cex.lab = 0.95)
abline(h=0, col = "grey")
# Calculate Linear Model for rate of change
lm_fit <- lm(RSS_lo ~ yr_frac)
a <- coef(lm_fit)[1]
b <- coef(lm_fit)[2]
## Determine min & max yr_frac
yr1 <- min(yr_frac)
yr2 <- max(yr_frac)
y1 <- a + b* yr1
y2 <- a + b *yr2
x_val <- c(yr1, yr2)
y_val <- c(y1, y2)
lines(x_val,y_val, type = "l", col = "red")
b <- signif(b, 3)
# Plot annotation
n_text <- 0.9 # use to control note font size
# Establish plot titles
title_3 <- expression(paste("RSS Land & Ocean Temperature Anomalies - ",degree, "C"))
title_2 <- paste("Period: 1/1979 to ",lmo,"/",lyr)
mtext(title_3, side = 3, line = 3, adj = 0.5)
mtext(title_2, side = 3, line = 2, adj = 0.5, cex = n_text)
mtext( "RSS Version 3.2 - MSU/AMSU TLT", side = 3,line = 1, adj=.5, cex = n_text)
# Establish plot notes
text(1995,-0.4, "Overall slope = ", pos = 1, col = "red", cex = n_text)
text(1998.7, -0.4, b, pos = 1, col ="red", cex = n_text)
text(2002,-0.4,expression(paste(degree,"C/yr")), pos = 1,cex = n_text, col = "red")
text(1980, 0.7, " Area: 70S to 82.5N", col = "black", pos =4, cex = n_text)
# Highlight last reading
points( yr2, lRSS, pch=19, col = "black")
points(1996, -0.5, pch=19)
note <- paste(lmo, "/", lyr, " @ ", lRSS," C")
text(1996, -0.5, note, pos = 4, col = "black", cex = n_text)
# Add margin notes for name and plot date
mtext("K O’Day, ChartsGraphs.WordPress.Com",side=1,line = 3,adj = 0,cex = 0.7)
mtext(format(Sys.time(), "%m/%d/ %Y"), side = 1, line = 3, adj = 1, cex = 0.7)
detach(mo_RSS_lo) μοίρασε και εσύ:

Digital Hardcore: Mitilini Linux User Group

2009-02-06T18:25:51-05:00

Είπα λοιπόν να ξεκινήσω και να κάνω το πρώτο βήμα για να φτιαχτεί ένα Linux User Group και στην πόλη της Μυτιλήνης.

Μπορείτε να το βρείτε πατώντας τις παρακάτω εικόνες:

Είναι ένα εγχείρημα για να φέρουμε πιο κοντά στην κοινωνία της Μυτιλήνης το Linux αλλά και να αληλο-βοηθάμε χρήστες.

μοίρασε και εσύ:

Digital Hardcore: Search a directory for text

2009-02-06T16:09:09-05:00

Search all text file in a directory, for specific text

# =========== dimitrisk.gr =============
# Dimitris Kavroudakis
#
# Search all text files in a directory, for a specific text.
# eg.
# #################################### run the program
# search.py
# #################################### Input the directory name
# Directory: mydirectory
# ################################### Input the text phrase or word
# Text: man
# ################################### See the results
# mydirectory/one.txt
# mydirectory/two.txt

import os

def main():
try:
directory = get_directory()
text = get_text()
results = do_search(directory, text)
finish(results)
except:
pass

#Get a directory from the user.
def get_directory():
while True:
try:
directory = raw_input(‘Directory: ‘)
assert os.path.isdir(directory)
return directory
except AssertionError:
print ‘You must enter a directory.’

#get the text to search from the user.
def get_text():
while True:
try:
text = raw_input(‘Text: ‘).lower()
assert text
return text
except AssertionError:
print ‘You must enter some text.’

#Search all files for this text
def do_search(directory, text):
results = list()
for dirpath, dirnames, filenames in os.walk(directory):
for name in filenames:
full_path = os.path.join(dirpath, name)
if text in file(full_path).read().lower():
results.append(full_path)
return results

#Show the result.
def finish(results):
print
for filename in results:
print filename
raw_input(‘Done.’)

if __name__ == ‘__main__’:
main() μοίρασε και εσύ:

Digital Hardcore: Download file with FTP

2009-02-06T16:06:32-05:00

Download a file with FTP:

# =========== dimitrisk.gr =============
# Dimitris Kavroudakis
#
#download a file from an FTP folder

from ftplib import FTP

#======== Edit your details =============
host=‘ftp.mysite.com’
username=‘username’
password=‘password’
folder=‘folder/folder2/’
filename=‘myFile.txt’

#======== No need to edit below =============

# Handle the data being downloaded
def handleDownload(block):
file.write(block)
#print ".",

# FTP(’hostname’, ‘username’, ‘password’)
ftp = FTP(host)
ftp.login(username, password)
print "||"

#change to directory
ftp.cwd(folder)

# Print the contents of the directory
ftp.retrlines(‘LIST’)

# Open the file for writing in binary mode
file = open(filename, ‘wb’)

# Download the file a chunk at a time
# Each chunk is sent to handleDownload
# We append the chunk to the file and then print a ‘||’ for progress
# RETR is an FTP command
ftp.retrbinary(‘RETR ‘ + filename, handleDownload)

# Close file
file.close()

#Close connection
print ftp.close() μοίρασε και εσύ:

Digital Hardcore: e-mail extractor

2009-02-06T16:04:47-05:00

Extract e-mail addresses from a text file.

# =========== dimitrisk.gr =============
# Dimitris Kavroudakis
#
# Extract email adresses from any text related file
# eg. python email_extractor.py < anyFile.html
import sys,re

#read any txt, html, file and get data.
origin=open("origin.txt", "r")
origindata = origin.read()
origin.close()

#create an "emails.txt" file and write all extracted emails.
destination = open("emails.txt", "w")
results= ‘\n‘.join(re.findall(‘([\w\.\-]+@[\w\.\-]+)’,origindata))
destination.write(results)
destination.close() μοίρασε και εσύ:

Digital Hardcore: Ascii2xyz

2009-02-06T16:01:24-05:00

Converts ascii coordinates to XYZ coordinate system. Edit the location of your files and then run the script. The file should contain list of ascii caracters.

infile = "pugetgrid.asc" # ESRI ASCII Grid filename
outfile = "output.xyz" # output filename for x,y,z triplets

# ========== no need to edit below here =============
def float2str(number):
""" remove trailing zeros from coordinates """
s = "%f" % number
if "." in s:
s = s.rstrip("0").rstrip(".")
return s

# Load grid files
fin = open(infile, ‘r’)
fout = open(outfile, ‘w’)

# Read header
line = fin.readline().split()
ncol = int(line[1])

line = fin.readline().split()
nrow = int(line[1])

line = fin.readline().split()
xllcorner = float(line[1])

line = fin.readline().split()
yllcorner = float(line[1])

line = fin.readline().split()
cellsize = float(line[1])

line = fin.readline().split()
NODATA_value = float(line[1])

# Pre-calculate the x and y coordinates
xcoords = []
for col in range(ncol):
xcoords.append(float2str(xllcorner + (0.5 * cellsize) + (col * cellsize)))

ycoords = []
for row in range(nrow):
ycoords.append(float2str(yllcorner - (0.5 * cellsize) + (nrow - row) * cellsize))

# Process the file
print "Converting %s to X,Y,Z triplets…\n" % (infile)
for row in range(nrow):
if (row % 100) == 0: print ".",
for col in range(ncol):
# Get new data if necessary
if col == 0: line = fin.readline().split()
fout.write("%s,%s,%s\n" % (xcoords[col], ycoords[row], line[col]))

# Exit
fin.close()
fout.close()

print "\nConversion complete.\n"
raw_input("Press ENTER to exit.\n") μοίρασε και εσύ:

Digital Hardcore: List all files in a directory

2009-02-06T15:55:20-05:00

$directory="http://www.google.com/folder01/";
while ($file = readdir($directory)) {
echo "$file\n";
}
closedir($handle);

Digital Hardcore: Cookies in PHP

2009-02-06T15:36:45-05:00

$check = "test";
$check .= $filename;
if ($test == $check){
print("Cookie has already been set before.");
}else{
$rated = "test";
$rated .= $filename;
setcookie(test, $rated, time()+86400);
print("No cookie yet. Just saved your cookie");
}

Digital Hardcore: EndNote alternative για Linux

2009-02-04T12:48:21-05:00

Αν γράφουμε σε OpenOffice και θέλουμε ένα καλό τρόπο να χειριζόμαστε την βιβλιογραφία μας, υπάρχει το Zotero το οποίο είναι extension του Firefox και το οποίο μαζεύει εύκολα άρθρα και links από το internet για να μπορούμε να τα βάζουμε στο κειμενο μας ως παραπομπή.
Zotero Firefox Extension
Zotero Homepage

Digital Hardcore: Java Linux look & feel

2009-02-04T12:46:09-05:00

Βρήκα ένα τρόπο να γράφω σε Java χωρίς κανένα extra framework και οι εφαρμογές μου να αποκτούν το look & Feel του εκάστοτε χρήστη (ειτε Linux ειτε Win). Απλά προσθέτουμε :

try {
UIManager.setLookAndFeel( UIManager.getSystemLookAndFeelClassName());
} catch (Exception e) {
}