Geo Redes

Servicios Ofrecidos por GeoRedes - 2008
(vea los últimos trabajos realizados por GeoRedes-GeoCalculo)

1.- levantamientos batimétricos

2.- levantamiento de concesiones marítimas y de acuicultura

3.- traspaso de rutinas en avenue a arcgis

4.- soluciones a propiedad minera

5.- gestión de excavaciones

6.- asistente para levantamientos de salidas a terreno

7.- auditoría de bases de datos espaciales (SIG)

8.- organización de capas de información geográfica

9.- traspaso de capas geograficas a GoogleEarth

10.- traspaso de archivos CAD a capas Geográficas

11.- geodesia y cartografía

12.- programación en ArcView y ArcGIS

13.- conocimientos básicos en ArcView y ArcGIS

14.- análisis multivariado y bivariado

15.- modelos de dispersión atmosférica

16.- modelos aerofotogramétricos

Vean que también se puede programar, en ArcView Script, el proceso de restitución fotogramétrica que tiene lugar en nuestro cerebro, al mirar un cuerpo 3D, con ambos ojos.

Introduzca la siguiente línea de comando para liberar memoria.


av.PurgeObjects

Avances de la investigación...

te recordamos pío, amigo.

'Rutina para recorrer un Tema ArcView (shape), y
extraer la geometria de cada registro.

mv = av.GetActiveDoc

mt = mv.GetThemes.Get(0).GetFTab

For each rec in mt

miForma = mt.returnvalue(mt.getfields.get(0),rec)

end

'rutina para abrir y leer un archivo de texto desde el disco duro
'lenguaje : Avenue Script

ruta = "c:\......\"

nombrearchivo = "archivo.txt"

nombreyruta = (ruta+nombrearchivo).asfilename

tf = TextFile.Make( nombreyruta, #FILE_PERM_READ)
cadena = tf.Read( tf.GetSize)
tf.Close

'Obtencion de temas, activos y visibles en vistas de ArcView, lenguaje Avenue Script

vista = av.getactivedoc

temas = vista.getthemes
temasactivos = vista.getactivethemes
temasvisibles = vista.getvisiblethemes

'Rutina para recorrer las vistas de un proyecto ArcView, lenguaje: AvenueScript
'Autor: Dario E. Aguirre de la L.

misdocumentos = av.getproject.getdocs

For each d in misdocumentos
If (d.Is(View)) then
'lineas de codigo...
end
end

fila = self.get(0)
columna = self.get(1)
valor = self.get(2)

' Create the ArcView DDEClient. This initiates the Excel conversation.
' Verify that there are no errors.
systemClient = DDEClient.Make("Excel", "System")
if (systemClient.HasError) then
MsgBox.error(systemClient.GetErrorMsg, "")
exit
end

' Create the new Excel worksheet
'systemClient.Execute("[NEW(1,0,FALSE)]")
' Get the name of the new worksheet. Selection is an Excel item
' supported for the System topic.
selection = systemClient.Request("Selection")
spreadsheet = selection.Left(selection.IndexOf("!"))

' Ensure R1C1 format
systemClient.Execute("[Workspace(,,TRUE)]")
systemClient.Close

' Open a new conversation with the Excel spreadsheet as the topic
ssClient = ddeClient.Make("Excel", spreadsheet)
' Get table information for later use
'tableName = theTable.GetName
'theVTab = theTable.GetVTab
'theFields = theVTab.GetFields
' Write the table name to the spreadsheet
row = fila
column = columna
'ssClient.Poke("F"+row.AsString+"C"+column.AsString, tableName)
' Allow user to select fields of interest

' Write chosen field names to the spreadsheet
'row = 2
'column = 0

' Write the values for selected features to spreadsheet
datastring = valor.asstring
ssClient.Poke("F"+row.AsString+"C"+column.AsString, dataString)

ssClient.Close

El siguiente Script, exporta una esctructura geométrica de origen ESRI, a formato DXF del entrono AutoDesk. Lenguaje Avenue Script

Script.The.SetNumberFormat("d.dddddd")

theFile = SELF.Get(0)
theShape = SELF.Get(1)
theLayerName = SELF.Get(2)
theShapeType = SELF.Get(3)
theShapeSize = SELF.Get(4)

if (theShapeType = "Point") then
theFile.WriteElt(" 0")
theFile.WriteElt("POINT")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
theFile.WriteElt(" 10")
theFile.WriteElt(theShape.GetX.AsString)
theFile.WriteElt(" 20")
theFile.WriteElt(theShape.GetY.AsString)
theFile.WriteElt(" 30")
theFile.WriteElt("0.0")
elseif (theShapeType = "Polyline") then
theFile.WriteElt(" 0")
theFile.WriteElt("POLYLINE")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
theFile.WriteElt(" 66")
theFile.WriteElt(" 1")
theFile.WriteElt(" 10")
theFile.WriteElt("0.0")
theFile.WriteElt(" 20")
theFile.WriteElt("0.0")
theFile.WriteElt(" 30")
theFile.WriteElt("0.0")
theFile.WriteElt(" 70")
theFile.WriteElt(" 0")
pointList = theShape.AsPolyLine.AsMultiPoint.AsList
for each vertex in pointList
theFile.WriteElt(" 0")
theFile.WriteElt("VERTEX")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
theFile.WriteElt(" 66")
theFile.WriteElt(" 1")
theFile.WriteElt(" 10")
theFile.WriteElt(vertex.GetX.AsString)
theFile.WriteElt(" 20")
theFile.WriteElt(vertex.GetY.AsString)
theFile.WriteElt(" 30")
theFile.WriteElt("0.0")
end
theFile.WriteElt(" 0")
theFile.WriteElt("SEQEND")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
elseif (theShapeType = "Polygon") then
theFile.WriteElt(" 0")
theFile.WriteElt("POLYLINE")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
theFile.WriteElt(" 66")
theFile.WriteElt(" 1")
theFile.WriteElt(" 10")
theFile.WriteElt("0.0")
theFile.WriteElt(" 20")
theFile.WriteElt("0.0")
theFile.WriteElt(" 30")
theFile.WriteElt("0.0")
theFile.WriteElt(" 70")
theFile.WriteElt(" 1")
pointList = theShape.AsPolyLine.AsMultiPoint.AsList
for each vertex in pointList
theFile.WriteElt(" 0")
theFile.WriteElt("VERTEX")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
theFile.WriteElt(" 66")
theFile.WriteElt(" 1")
theFile.WriteElt(" 10")
theFile.WriteElt(vertex.GetX.AsString)
theFile.WriteElt(" 20")
theFile.WriteElt(vertex.GetY.AsString)
theFile.WriteElt(" 30")
theFile.WriteElt("0.0")
end
theFile.WriteElt(" 0")
theFile.WriteElt("SEQEND")
theFile.WriteElt(" 8")
theFile.WriteElt(theLayerName)
end
return nil

Ruta 5 Norte, Kilómetro 830

http://www.georedes.blogspot.com
georedes@hotmail.com
8-962 79 65

Darío E. Aguirre de la Lastra

Objetivo
Presentación Profesional

Formación académica
1995, Licenciado en Ciencias de la Ingeniería, Universidad de Santiago de Chile
1997, Ingeniero Civil en Geografía, Universidad de Santiago de Chile

Premios, becas de investigación y ayudas
Universidad de Santiago de Chile
Mejor alumno promoción 1991, Ingeniería Civil en Geografía

Universidad de Santiago de Chile
Ayudantía de cátedra, Geología y Geomorfología, Ingeniería de Transportes

Puestos desempeñados
1998 — 2001, Ingeniero de Proyecto Sistema de Información Territorial de Atacama
Secretaría Regional Ministerial de Planificación Región de Atacama

2002 — 2004, Ingeniero de Proyecto Sistema de Información Ambiental
Comisión Nacional del Medio Ambiente, Región de Atacama

2006 — 2006, Profesional Departamento de Desarrollo Urbano
Secretaría Regional de Vivienda y Urbanismo, Región de Atacama

Publicaciones
Teorema de Ordenamiento Territorial “Teorema de Aguirre”

Referencias
Pedro Sanhueza Herrera, Ph.D, Enviromental Engineering, Director Escuela de Ingeniería Geográfica, USACH.

Carmen Gloria Contreras, Control de la Contaminación, CONAMA.

Áreas de interés
Programación, Álgebra Lineal, Mecánica Celeste, Electromagnetismo, Geofísica, Astronomía, Geodesia, Ordenamiento Territorial, Evaluación de Impacto Territorial

Organizaciones profesionales
Diplomado Solidario en Gestión y Desarrollo Local
Profesor y Fundador

Idiomas
Inglés: lectura muy bien, escritura bien

Intereses y actividades
Creador del primer Teorema en Ordenamiento Territorial
Validado por la SAM (Sociedad Americana de Matemáticas)

Trabajos voluntarios
Profesor y Fundador del Diplomado Solidario en Gestión y Desarrollo Local

Informática
Programación avanzada (18 años de experiencia)

Licencias y certificados
Licenciado en Ciencias de la Ingeniería— http://www.universidaddesantiago.cl
Ingeniero Civil en Geografía— http://www.universidaddesantiago.cl

El siguiente código muestra como crear y definir un Esferoide (Elipsoide de Revolución), en AvenueScript (ArcView 3.2)

' Crea al Sistema Coordenado...
SystemmyCoordSys = CoordSys.Make
myCoordSys.SetName("My Custom Projections")
thePrjs = myCoordSys.GetProjections

' Crea la Proyección...
myPrj = TrnMerc.Make(Rect.MakeXY(-180,-90,180,90))
myPrj.SetDescription("Trinidad")
myPrj.SetCentralMeridian(-63)
myPrj.SetReferenceLatitude(0)
myPrj.SetScale(0.99960)
myPrj.SetFalseEasting(500000)
myPrj.SetFalseNorthing(0)
myPrj.SetSpheroid(#SPHEROID_CLARKE1866)

' Obtiene la proyección del esferoide y lo modifica
mySphere = myPrj.GetSpheroid
mySphere.SetName("Clarke 1858")
mySphere.SetMajorAndMinorAxes(6378294,6356621)
mySphere.SetUnits(#UNITS_LINEAR_METERS)

' Agrega la proyección al sistema de proyecciones
thePrjs.Add(myPrj)

' Crea un archivo de proyeccion por defecto y lo agrega al Sistema de Proyecciones
defprj = ODB.Make("$HOME/default.prj".AsFilename)
defprj.Add(myCoordSys)
defprj.Commit

Georedes, tiene el agrado de comunicar a sus clientes, que se ha tomado la decisión de formar una alianza estratégica con un "nuevo" socio. Esta sociedad permitirá, en el futuro, crecer y poder prestar un mejor servicio a nuestros clientes. Para conocer al nuevo socio haga click aquí

• 
  
  a) matriz origen destino, o total de viajes entre comuna y comuna, entre manzana y manzana, el nivel de detalle es arbitrario;


• 
  
  b) Catastro de la totalidad de las vias de conexión. (calles, ciclovias, autopistas, metro, etc);


• 
  
  c) Catastro de la totalidad de modos de transporte disponibles para cada vía;


• 
  
  d) Un algoritmo de asignación de viajes, a los distinos modos de viaje, sobre la red de conexión, de manera que el costo marginal de un usuario extra, sea minimizado.


• 
  
  e) Se vuelve al punto a), de forma que el resultado con cada iteración mejore tanto en su estimación como en su resolutividad.

complejo? fácil? no es un tema para el congreso, o si?

/d.a.

Para todos aquellos que deseen ver un poco más allá en la Geomática...

un presente...la página oficial de recursos online para desarrolladores...ejemplos, scripts, funciones geodésicas y mucho más.

Ejemplo:

' This section retrieves the spheroid parameters from the geographic
' coordinate system.
Dim pDatum As IDatum
Dim pSpheroid As ISpheroid
Set pDatum = pGCS.Datum
Set pSpheroid = pDatum.Spheroid
a = pSpheroid.SemiMajorAxis
f = pSpheroid.Flattening
e2 = f * (2# - f)

Vista de un área de manejo en el sector de Huasco - Región de Atacama
Vista de localidades de Atacama
Vista Red Vial

Georedes, incorpora a su lista de productos, el traspaso de información cartográfica, a formato Google Earth

...disfrute su trabajo...comparta su información de manera sencilla y rápida...

--- enjoy this job---

Teorema de Aguirre:

Dado un conjunto G de elementos agrupados, y ordenados según dos criterios W1 y W2 ,
cuyas posición según el orden están dadas por w1 y w2 respectivamente.
Es posible hallar un conjunto H que pertenezca a G, de manera tal que S (H) <= S (G-H). Donde S ( h1 ( w1 , w2 ) ) < = S ( h2 (w1 , w2) ) , Si w1(h1) <= w1(h2) y w2(h1) <= w2 (h2). S : sinergia de h, en función de w1,w2

Teorema : Hipótesis

Si G es suficientemente grande, y
h1 = {h (w1, w2)/ w1 = Min (W1), igual al elemento agrupado en G}, con el menor valor w1
h2 = {h (w1, w2)/ w2 = Min (W2), igual al elemento agrupado en G-{h1}}, con el menor valor w2, entonces
1. S(h1) <= S(h2) 2. S(h2) <= S (g”), g” Î G – ({h1} +{h2})

Teorema : Tesis

Sea H1 = Min ({w1}, p %), el porcentaje p % de elementos,
cuyos valores de w1, son los menores en G. G’ = G – H1
Sea H2 = Min ({w2}, p %), el porcentaje p % de elementos,
cuyos valores de w2, son los menores en G’. G” = G’ – H1
Se cumple S (hÎH) <= S (g” pertenece a G”) ; H = H1 È H2;

Teorema : Demostración

Por construcción se tiene que:
w1(h1) <= w1(h2) entonces S(h1) <= S(h2), según Hip.1. w2(h2) <= w2(g”) entonces S(h2) <= S (g”), según Hip.2. luego S(h1) <= S(h2) <= S(g”) entonces S(h1 v h2) £ S (g”) entonces S (h) <= S (g”); h pertenece a H, g ”pertenece a G”.

Queda Entonces Demostrado

Según el Banco Central, la proyección de crecimiento económico superará levemente el 5% anual.
Cómo dijo un filósofo: "si es lógico es bueno".
Púes bien, resulta que en un sistema económico como el nuestro, crecer es sinónimo de desarrollo, lo que nos ha llevado a tener una economía muy superior a la de nuestros amigos latinoamericanos, pero por otro lado, tenemos la peor distribución del ingreso; el 10% más rico gana 14 veces lo que gana en promedio el 10% más pobre.

No cabe duda alguna, que la llamada ciencia económica no es tal, la ciencia médica por ejemplo, sirve para sanar a poderosos y miserables, que no se lleve a cabo es un problema del sistema de salud. En cambio, la llamada “ciencia económica”, sólo funciona si permite la riqueza de unos pocos, y la infelicidad de muchos otros.

Ahora bien, cuando la ignorancia se mezcla con orgullo, vemos resultados tales como las ciudades metropolitanas en Chile, dónde el sufrimiento y la sensación de impotencia frente al hecho de ver cómo nuestras vidas son consumidas con gran voracidad por ésta sociedad que llama a tener el mejor auto (hombres), y las mejores pechugas (mujeres).

Cuando creemos que el crecimiento económico es lo importante, nos vamos a defender la actividad inmobiliaria, que a su vez es la que genera mayor mano de obra, consecuentemente en forma recursiva se requerirá de pasajes, comida, viviendas, bienes y servicios por doquier. Finalmente, nos damos cuenta que consumado el crecimiento, no contamos con la dotación policial, médica, docente, directiva mínima para un desarrollo armónico.

Lo preocupante es que mientras acumulamos bienes, lo único seguro para la mayoría es; el hambre, la inseguridad, la delincuencia, la guerra, la discriminación y la pobreza. Situaciones cómo la descrita generalmente se perpetúan, excepto lo ocurrido en Francia en 1789; la revolución.

Programación y Modelamiento Fotogramétrico

GeoRedes se encuentra desarrollando un moderna aplicación computacional para la orientación interna y relativa de fotogramas para la restitución digital de Modelos Digitales de Terreno

Restitución Aerofotogramétrica

Abril 2006: GeoRedes trabaja en el levantamiento de 4 puntos de control en terreno, para la restitución digital de aerofotogramas

Die deutschen wissenchaftlichen der Max Planck, haben gesagt das Georedes in Copiapó ist eine sehr tolle überraschung

Georedes se reune con científicos del Instituto Max Planck - Alemania

Acompañado por un imponente escenario natural (laguna santa rosa, nevado tres cruces), georedes compartió con científicos pertenecientes al instituto Max Planck - Bremen Alemania, http://www.mpi-bremen.de , quienes se mostraron muy interesados por los avances en materia de modelamiento tridimensional y bidimensional, posibles de ser aplicados en la representación espacial de comunidades de flora y fauna microscópica.

GeoRedes - Ingeniería Espacial y Territorial

1. Levantamientos gps diferencial DGPS
2. Planos de concesiones Marinas
3. Digitalización de Redes de Transporte
4. Restitución de fotografía aérea
5. Programación de aplicaciones para entorno ESRI
6. Estudios de prospección territorial
7. Replanteos con Estación Total