Enjoy it!
Ésta imagen dispone de más de 200 nodos y 230 vértices y el movimiento y los cálculos siguen siendo muy rápidos.
También os dejo el último vídeo que ha subido mostrando las últimas características implementadas y que espero que os sorprendan y os gusten:
Durante las últimas semanas he estado mirando diferentes modelos de libros electrónicos y después de largas comparaciones entre modelos, por fin! ya tengo mi Sony eReader PRS-505. Éste modelo (no táctil) es uno de los mejores situados en las comparaciones por su calidad y precio. Los que me seguís en el blog sabéis que soy un lector asiduo y hacía tiempo que me quería mirar uno de éstos lectores ya que en la última conferencia que fui vi que la gente los utilizaba bastante. Además de ser increíblemente útil, te permite poder llevar encima todos los libros que quieras. Dispone de una memoria base de unos 200 Mb y luego podemos ir añadiendo memorias SD. Ya casi tengo el dispositivo listo, con todos mis libros en formato electrónico, audio libros, imágenes, etc.
En el siguiente enlace podemos encontrar la información necesaria para crear los diagramas. Además os dejo un enlace para que podáis ver un ejemplo online.
Continuando con el tema del día, he encontrado una aplicación muy interesante para el procesado de imágenes. Ésta aplicación Open Source llamada Processing 1.0 permite a través de código similar al java crear diversas aplicaciones donde la parte gráfica ya está implementada y solo nos tenemos que preocupar del código. Creo que es bastante interesante para estudios científicos ya que permite a la persona que está al otro lado centrarse en la parte importante del algoritmo sin tener que preocuparse de los diferentes eventos que pueden aparecer en una aplicación gráfica. Aunque la aplicación pesa unos 70 Mb (la versión para windows), dispone de muchos ejemplos y documentación para empezar a generar diagramas y tratar imágenes fácilmente.
Además el IDE es bastante amigable con una codificación como la de java y un código exportable.
En la misma web del autor (Ben Fry y Casey Reas) encontraremos mucha información sobre éste lenguaje de programación para un contexto visual.
digraph if {
graph [rankdir=LR];
node [label="\N"];
graph [bb="0,0,218,108"];
{
graph [rank=same,
bb=""];
b [pos="119,18", width="0.75", height="0.5"];
c [pos="119,90", width="0.75", height="0.5"];
}
a [pos="27,18", width="0.75", height="0.5"];
a -> b [pos="e,91.77,18 54.105,18 62.732,18 72.431,18 81.65,18"];
c -> b [label="long long long", pos="s,119,71.831 119,36.413 119,44.059 119,53.108 119,61.573", lp="168.5,54"];
}
Es bastante interesante ya que podemos tener herramientas que generen éstos pequeños scripts y luego instalar un servicio de renderizado de grafos y ver el resultado en una imagen.
Además recomiendo la lectura de los diferentes documentos de ayuda que contienen referéncias muy buenas a diferente bibliografía relacionada con el tema de los grafos. Uno de los libros que yo recomiendo es el siguiente:Thomas M. J. Fruchterman and Edward M. Reingold. Graph Drawing by Force- directed Placement. Software– Practice and Experience, 21(11):1129–1164, November 1991Dentro de la propia arquitectura del Graphviz, podemos encontrar las diferentes aplicaciones que modelan los grafos y los posicionan en función del algoritmo seleccionado. En su caso, dispone de los programas NEATO, TWOPI, CIRCO, FDP, DOTTY y LEFTY. Cada uno de éstos tiene un tipo de posicionamiento diferente, ordenando los diagramas en formas circulares, de redes, etc. Todo para que el dibujo final sea mucho más inteligible.
Navegando por internet no he encontrado una buena unit con toda la información necesaria para compartir y descompartir carpetas utilizando la librería netapi32.dll del SO. Recopilando información de varias webs, he conseguido crear una pequeña librería bastante útil que nos permitirá compartir y descompartir las carpetas que queramos a partir de unas funciones muy sencillas sin tener que manejar las complicadas NetShareAdd y NetShareDel.
unit uNetShare;
interface
uses
SysUtils, Windows;
type
SHARE_INFO_2 = record
shi2_netname: LPWSTR;
shi2_type: DWORD;
shi2_remark: LPWSTR;
shi2_permissions: DWORD;
shi2_max_uses: DWORD;
shi2_current_uses: DWORD;
shi2_path: LPWSTR;
shi2_passwd: LPWSTR;
end;
PSHARE_INFO_2 = ^SHARE_INFO_2;
const
STYPE_DISKTREE = 0;
STYPE_PRINTQ = 1;
STYPE_DEVICE = 2;
STYPE_IPC = 3;
STYPE_DFS = 100;
STYPE_SPECIAL = $80000000;
ACCESS_NONE = 0;
ACCESS_READ = 1;
ACCESS_WRITE = 2;
ACCESS_CREATE = 4;
ACCESS_EXEC = 8;
ACCESS_DELETE = 16;
ACCESS_ATRIB = 32;
ACCESS_PERM = 64;
ACCESS_ALL = (ACCESS_READ + ACCESS_WRITE + ACCESS_CREATE + ACCESS_EXEC + ACCESS_DELETE + ACCESS_ATRIB + ACCESS_PERM);
function UnshareFolder(sName: string): boolean;
procedure ShareFolder(StrName: string);
function getNetName(sFolder: string): string;
implementation
uses
StrUtils;
function NetShareAdd(servername: LPWSTR; level: DWORD; buf: pSHARE_INFO_2; parm_err: LPDWORD): LongWord; stdcall; external 'netapi32.dll';
function NetShareDel(ServerName, ShareName: pwChar; level: DWord): DWord; stdcall; external 'NETAPI32.DLL';
function UnshareFolder(sName: string): boolean;
var
Size: Integer;
rep: LongInt;
NameNT: PWChar;
ret : Boolean;
begin
ret := false;
if DirectoryExists(sName) then
begin
Size := SizeOf(WideChar) * 256;
GetMem(NameNT, Size);
StringToWideChar(getNetName(sName), NameNT, Size);
rep := NetShareDel(nil, NameNT, 0);
if rep = 0 then
ret := True
else
ret := false;
end;
Result := ret;
end;
procedure ShareFolder(StrName: string);
var
buf: Pointer;
UserInf: Share_INFO_2;
err: lpdword;
F: integer;
begin
err := nil;
if DirectoryExists(strName) then
begin
UserInf.shi2_netname := StringToOleStr(getNetName(strName));
UserInf.shi2_type := STYPE_DISKTREE;
UserInf.shi2_remark := '';
UserInf.shi2_permissions := ACCESS_ALL;
//UserInf.shi2_max_uses := -1;
UserInf.shi2_current_uses := 0;
UserInf.shi2_path := StringToOleStr(StrName);
UserInf.shi2_passwd := nil;
GetMem(Buf, sizeof(UserInf));
F := NetSHAREAdd(nil, 2, @UserInf, err);
FreeMem(Buf);
end;
end;
function getNetName(sFolder: string): string;
var
ipos, i: integer;
sTemp: string;
begin
ipos := 0;
for i := 1 to Length(sFolder) do
if sFolder[Length(sFolder)-i] = '\' then
begin
iPos := Length(sFolder)-i;
break;
end;
stemp := AnsiRightStr(sFolder, Length(sFolder) - ipos);
result := sTemp;
end;
end.
ShareFolder('C:\temp');
UnshareFolder('C:\temp');
Muchas veces nos encontraremos en diferentes situaciones donde tenemos que controlar los servicios de un equipo. En éste pequeño artículo, he recuperado diversos posts de gente que hizo el trabajo en su día y hago una pequeña adaptación para el ejemplo que quiero mostrar. Los servicios de windows los podemos encontrar en Herramientas administrativas -> Servicios. Desde la propia herramienta del SO podemos iniciar, parar o ver el estado de los servicios que tenemos instalados en nuestro equipo. En varias webs podemos encontrar mucha información referente a los servicios, algunas interesantes con el código desarrollado son por ejemplo:
procedure StartSQLServer();
var
i: integer;
begin
//Iniciar un altre cop els serveis
Log('Starting Service MSSQLSERVER');
while ServiceManager2.ServiceStopped do
begin
mmolog.Lines.Add('.');
Sleep(defTime);
i := 0;
while i < timeout do
begin
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Inc(i);
Application.ProcessMessages;
end;
ServiceManager2.StartService;
Sleep(defTime);
end;
while not ServiceManager2.ServiceRunning do
begin
mmolog.Lines.Add('.');
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Application.ProcessMessages;
end;
if ServiceManager2.ServiceRunning then
begin
Log('Service Started MSSQLSERVER');
Sleep(defTime);
Log('Starting Service SQLSERVERAGENT');
while ServiceManager1.ServiceStopped do
begin
mmolog.Lines.Add('.');
Sleep(defTime);
i := 0;
while i < timeout do
begin
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Inc(i);
Application.ProcessMessages;
end;
ServiceManager1.StartService;
Sleep(defTime);
end;
while not ServiceManager1.ServiceRunning do
begin
mmolog.Lines.Add('.');
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Application.ProcessMessages;
end;
if ServiceManager1.ServiceRunning then
begin
Log('Service Started SQLSERVERAGENT');
end;
end;
Log('Status Services SQLSERVERAGENT: ' + BoolToStr(ServiceManager1.ServiceRunning) + ' MSSQLSERVER: ' + BoolToStr(ServiceManager2.ServiceRunning));
end;
procedure StopSQLServer();
var
status: DWORD;
i: integer;
begin
//Primer hem d'aturar el SQLSERVERAGENT
status := ServiceGetStatus(GetComputerNetName(), 'SQLSERVERAGENT');
Log('Getting status from service SQLSERVERAGENT -> ' + GetTextStatus(status));
ServiceManager1.Connect(PAnsiChar(name));
ServiceManager1.OpenServiceConnection('SQLSERVERAGENT');
status := ServiceGetStatus(GetComputerNetName(), 'MSSQLSERVER');
Log('Getting status from service MSSQLSERVER -> ' + GetTextStatus(status));
ServiceManager2.Connect(PAnsiChar(name));
ServiceManager2.OpenServiceConnection('MSSQLSERVER');
Log('Stopping Service SQLSERVERAGENT');
while ServiceManager1.ServiceRunning do
begin
mmolog.Lines.Add('.');
Sleep(defTime);
i := 0;
while i < timeout do
begin
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Inc(i);
Application.ProcessMessages;
end;
ServiceManager1.StopService;
Sleep(defTime);
end;
while not ServiceManager1.ServiceStopped do
begin
mmolog.Lines.Add('.');
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Application.ProcessMessages;
end;
if ServiceManager1.ServiceStopped then
begin
Log('Service Stopped SQLSERVERAGENT');
Sleep(defTime);
Log('Stopping Service MSSQLSERVER');
while ServiceManager2.ServiceRunning do
begin
mmolog.Lines.Add('.');
Sleep(defTime);
i := 0;
while i < timeout do
begin
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Inc(i);
Application.ProcessMessages;
end;
ServiceManager2.StopService;
Sleep(defTime);
end;
while not ServiceManager2.ServiceStopped do
begin
mmolog.Lines.Add('.');
mmolog.Lines[mmolog.Lines.count - 1] := mmolog.Lines[mmolog.Lines.count - 1] + '.';
Sleep(defTime);
Application.ProcessMessages;
end;
if ServiceManager2.ServiceStopped then
Log('Service Stopped MSSQLSERVER');
end;
Log('Status Services SQLSERVERAGENT: ' + BoolToStr(ServiceManager1.ServiceStopped) + ' MSSQLSERVER: ' + BoolToStr(ServiceManager2.ServiceStopped));
end;
uses
ServiceManager, WinSvc;
procedure Destroy();
begin
FreeAndNil(ServiceManager1);
FreeAndNil(ServiceManager2);
FreeAndNil(IniFile);
end;
procedure Create();
begin
ServiceManager1 := TServiceManager.Create();
ServiceManager2 := TServiceManager.Create();
end;
In this quick article I will show you how to create your own Raspberry Pi cluster for parallel computing via MPI (Messaging Passing ...
