Nuevo Portal GeoCalculo

En algunos días, estará disponible un servicio gratuito para obtener un perfil territorial de un determinado punto del territorio.
Paso 1: Usuario Ingresa Coordenadas y dirección válida de correo electrónico.
Paso 2: Usuario Presiona Botón Consultar
Paso 3: El informe llegará adjunto en formato documento adjunto a la dirección de correo ingresada

El perfil contiene informacíon que incluye planos reguladores, planos intercomunales, geología, división política, distritos, clima, cuenca, etc.

se comunicará oportunamente el lanzamiento.

Servicios GeoRedes

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

Restitución Estereoscópica

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.

Liberar momoria al programar en ArcView

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


av.PurgeObjects

Recordando al amigo a dos años del día fome

Avances de la investigación...

te recordamos pío, amigo.

Abrir un shape, registro a registro...

'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

Leyendo un archivo desde el disco, Lenguaje Avenue Script

'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

'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

Programa para recorrer las vistas de un proyecto ArcView, lenguaje AvenueScript

'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

Intervención de un objeto externo, desde una rutina en Avenue Script

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

Generación de un archivo AutoDesk, a partir de un archivo ArcView...

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

Curriculum Vitae Darío E. Aguirre

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

Como crear una tabla en arcview, y agregar registros...

La siguiente rutina, crea una tabla de formas, y agrega formas de manera secuencial.

Lenguaje Avenue Script

‘declara una tabla de atributos en blanco

miFTab = FTab.MakeNew("nuevatabladeatributos".AsFileName,Point)

’crea un campo nuevo

fld = Field.Make("ID", #FIELD_DECIMAL, 8, 0)

fld.SetVisible(FALSE)

’agrega el campo recién creado a la tabla

miFTab.AddFields({fld})

’localiza la el campo “forma” en la tabla

shapeField = miFTab.FindField("Shape")

’inicia ciclo para crear 10 registros

for each i in 1..10

‘agrega registro en el puntero

newRecNum = miFTab.AddRecord

‘inserta un punto 1@1, 2@2 , etc. en el tema

miFTab.SetValue(shapeField, newRecNum, i@i)

end

’abre la vista1

v = av.GetProject.FindDoc("Vista1")

’inserta tema en la vista

v.AddTheme(FTheme.Make(anFTab))

Definiendo un Esferoide...

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

Visión de largo plazo...

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í

Transantiago - una respuesta...

Que pasó con Santiago, la ciudad de la nueva extramadura? al parecer derivó en una "centradura".

Aplicando futurología y mucho instinto, basta para darse cuenta del triste y penoso final que tendrá, la hasta hace poco tiempo, "capital" de América Latina.

La ciudad micro, donde todos hacían 1/4 de su jornada (micros amarillas).

En teoría del transporte urbano, está demostrado matemática y empíricamente, que si el precio de la locomoción colectiva es constante, las ciudades son de gran extensión y bajas en altura (2 a 3 pisos en promedio). La otra alternativa es el pasaje proporcional al recorrido (kms), cuyo resultado son ciudades de bajo crecimiento horizontal, y gran desarrollo vertical (edificios y construcciones en altura).

Ahora, una vez tomada la decisión política del tipo de capital a la que aspiramos, se debe implementar adecuadamente.

Para implementar un sistema de transporte urbano, basta concentrarse en 4 aspectos;

• 
  
  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.

Programando ArcObjects

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)

Servicio Gratis...Todos en Google Earth...

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

Envíanos tu información gerreferenciada, y te la enviamos en formato Google Earth.
Los archivos pueden estar en formato DWG, ACAD, ArcVIEW, ArcGIS, etc.

envíenos su e-mail a :

geocalculo@gmail.com

tendrá su mapa de regreso en 24 horas.

Presentación en Formato Google Earth

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---

Últimos Trabajos Realizados...

Interpolacion de parametros de muestro en columna de lixiviacion; para conocer el comportamiento del desarrollo de microorganismos (bacterias), para cada altura (h) de la columna de lixiviacion. BioCobre (2007).

Configuración y ensamble en ArcGIS, de toda la información disponible en el Departamento de Propiedad Minera.

Demandante Compañia Minera Punta del Cobre S.A. http://www.pucobre.cl

Diciembre 2006 - Enero 2007

Plaforma WEB, a partir de una base cartogrfáfica en ARCGIS.
Demandante (Corfo ATACAMA)
Noviembre - Diciembre 2006

Manejo y modificación del formato original de un archivo DXF, cuyo contenido es una maya tridimensional, con más de 800,000 puntos.
Demandante (Far West Minning - Minera Lejano Oeste)
Diciembre 2006

Teorema de Aguirre - Primer Teorema de Ordenamiento Territorial en el Mundo

Durante los años 2002-2004, GeoRedes colaboró en un estudio respecto de la vulnerabilidad y riesgo en la ciudad de Copiapó, Atacama - Chile.

Dicho estudio quedó plasmado en una Tesis de Magister en Economía y Gestión Regional, Universidad Austral, 2004.

El aporte en el Trabajo de Tesis se materializó mediante la creación y posterior validación del primer teorema en ordenamiento territorial.

El teorema de ordenamiento bi-variado, Teorema de Aguirre, se presenta a continuación:

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

Proyección crecimiento económico Banco Central de Chile

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.

Desprendido de la lógica más sincera, podemos decir con alivio, que esta baja en la proyección del crecimiento planteada por el Banco Central, es un merecido descanso para aquellos que se sienten fuera del carro de la victoria, es decir, cerca del 40% de todos los chilenos.
Que bendición, felices fiestas patrias a todos.

La Responsabilidad Política - Un Ejemplo

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.

Fenomenología Espacial y Territorial

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