August 2015 – Ingenio en marcha

26 Aug

Lanzamiento de la versión web de NetLogo NLW

El 25 de Agosto fue el lanzamiento oficial de la esperada versión web de NetLogo (NLW por sus siglas en inglés). Como ya hemos comentado en este blog NetLogo es un software de distribución gratuita enfocado principalmente en la simulación multi-agentes, desarrollado por el centro en la universidad de Northwestern (Chicago) el cual cuenta con una extensa comunidad de usuarios en el mundo y una amplia gama de aplicaciones (ver link) .

El lanzamiento es un gran avance respecto al trabajo iniciado a comienzos del año 2013 cuando el CCL lanzó un proyecto para desarrollar NetLogo en la web de manera que los usuarios puedan publicar y popularizar así sus modelos. Esto debido a que la versión tradicional requiere que el software estuviese instalado en el computador donde se ejecuta o exportar un Java Applet que puede ser ejecutado por exploradores web, sin embargo estos Applets han tenido serios cuestionamientos de seguridad y en consecuencia están siendo lentamente excluidos del mercado (ver link).

El primer paso fue entonces el desarrollo de una librería llamada Tortoise que permite ejecutar simulaciones multi-agente en la web utilizando Javascript y HTML replicando la misma estructura y comandos que el original NetLogo. Adicionalmente desarrollaron una librería llamada Galapagos la cual aloja y reproduce NLW.

Lo más interesante de esta nueva versión es que buena parte de los modelos generados en la versión tradicional de NetLogo pueden ser cargados a la web y exportados, y mejor aún, ejecutados desde cualquier dispositivo (PC, Mac, Tablet, Smartphone, etc.).

Lo invito a intentar cualquiera de los modelos de prueva visitando http://netlogoweb.org/

21 Aug

Modeloff 2015 - Campeonato mundial de Excel

Este año se celebra la cuarta versión del campeonato mundial de modelación financiera en Excel Modeloff. El campeonato cuenta cada vez con más adeptos, solo en su versión del año 2014 participaron cerca de 4,000 concursantes provenientes de 110 países vinculados a las disciplinas de finanzas, banca, contabilidad, seguros, actuaría, ingeniería y consultoría.

Al igual que el año anterior (ver post) el concurso se realizará en tres fases, las dos primeras en línea (sábado octubre 17 y sábado octubre 31) cada una con duración máxima de 2 horas. Los 16 mejores resultados llegarán a la final que se realizará en la ciudad de Londres (UK) los días 3 y 4 de diciembre de este año.

El siguiente video hace parte de la campaña promocional del concurso. Si usted es un apasionado por las finanzas aplicadas en Excel, este es concurso es recomendado.

13 Aug

Macro para obtener historico de precios de una accion en Excel

[ File # csp9666250, License # 2222627 ]
Licensed through http://www.canstockphoto.com in accordance with the End User License Agreement (http://www.canstockphoto.com/legal.php)
(c) Can Stock Photo Inc. / bbbar

Este programa permite descargar cualquier serie de precios disponible Yahoo Finanzas directamente a Excel con solo conocer el símbolo de la acción. Antes de comenzar es importante adicionar la referencia Microsoft XML en el módulo VBA accediendo con el método abreviado Alt+F11, luego haciendo click en Tools + Reference y buscar la referencia (ver imagen) la cuál permite importar y manipular archivos en formato XML.

La macro central de este programa se compone de varios elementos. El primero es la subrutina que genera la consulta llamada GetYahooFinanceTable (ver código a continuación).

Sub GetYahooFinanceTable()
    Dim s1 As Worksheet
    Set s1 = Sheets(ActiveSheet.Index)
    Range("A:I").Select
    Selection.ClearContents
    Range("A1").Select
    Dim sURL As String, sResult As String
    Dim oResult As Variant, oData As Variant, r As Long, C As Long
    sURL = "http://ichart.finance.yahoo.com/table.txt?s=" & LCase(s1.Cells(2, 10))
    Debug.Print "URL: " & sURL
    sResult = GetHTTPResult(sURL)
    oResult = Split(sResult, vbLf)
    Debug.Print "Lines of result: " & UBound(oResult)
    For r = 0 To UBound(oResult)
        oData = Split(oResult(r), ",")
        For C = 0 To UBound(oData)
            ActiveSheet.Cells(r + 1, C + 1) = oData(C)
        Next
    Next
    Set oResult = Nothing
    Range("A1").Select
    Selection.End(xlDown).Select
    Dim l As Long
    l = Selection.Row
    ActiveWorkbook.Worksheets(s1.Name).Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(s1.Name).Sort
        .SetRange Range(Cells(2, 1), Cells(l, 7))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    Call UpdatePriceData(True, 9, 10)
    MsgBox ("Ok!")
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

Sub GetYahooFinanceTable()

Dim s1 As Worksheet

Set s1 = Sheets(ActiveSheet.Index)

Range("A:I").Select

Selection.ClearContents

Range("A1").Select

Dim sURL As String, sResult As String

Dim oResult As Variant, oData As Variant, r As Long, C As Long

sURL = "http://ichart.finance.yahoo.com/table.txt?s=" & LCase(s1.Cells(2, 10))

Debug.Print "URL: " & sURL

sResult = GetHTTPResult(sURL)

oResult = Split(sResult, vbLf)

Debug.Print "Lines of result: " & UBound(oResult)

For r = 0 To UBound(oResult)

oData = Split(oResult(r), ",")

For C = 0 To UBound(oData)

ActiveSheet.Cells(r + 1, C + 1) = oData(C)

Set oResult = Nothing

Range("A1").Select

Selection.End(xlDown).Select

Dim l As Long

l = Selection.Row

ActiveWorkbook.Worksheets(s1.Name).Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets(s1.Name).Sort

.SetRange Range(Cells(2, 1), Cells(l, 7))

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("A1").Select

Call UpdatePriceData(True, 9, 10)

MsgBox ("Ok!")

End Sub

La macro obtiene la información utilizando APIs de Yahoo Finanzas (lea aquí el wiki de los APIs de Yahoo finanzas). Un API que traducido al español significa Interfaz de programación de aplicaciones, es un conjunto de subrutinas predefinidas que puede ser utilizado por otro software de manera abreviada (Wikipedia API) en este caso para descargar datos de Yahoo (lea aquí un blog sobre como utilizar el API de Yahoo finanzas para archivos CSV).

Para utilizar el API simplemente construimos el query con los parámetros deseados, en este caso solamente necesitamos el código de la acción almacenado en la celda J2 (2, 10). Utilizemos como ejemplo la acción de 3M (MMM). El comando requerido por el API será http://ichart.finance.yahoo.com/table.txt?s=mmm. Si usted introduce este código en su explorador podrá descargar un archivo de texto con el histórico de precios.

GetYahooFinanceTable ejecuta a su vez la función GetHTTPResult y la subrutina UpdatePriceData. La función permite crear la consulta (query) en formato XMLHTTP y lanzarla a la web.

Function GetHTTPResult(sURL As String) As String
    Dim XMLHTTP As Variant, sResult As String
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    XMLHTTP.Open "GET", sURL, False
    XMLHTTP.send
    Debug.Print "Status: " & XMLHTTP.Status & " - " & XMLHTTP.statusText
    sResult = XMLHTTP.responseText
    Debug.Print "Length of response: " & Len(sResult)
    Set XMLHTTP = Nothing
    GetHTTPResult = sResult
End Function

1

2

3

4

5

6

7

8

9

10

11

Function GetHTTPResult(sURL As String) As String

Dim XMLHTTP As Variant, sResult As String

Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

XMLHTTP.Open "GET", sURL, False

XMLHTTP.send

Debug.Print "Status: " & XMLHTTP.Status & " - " & XMLHTTP.statusText

sResult = XMLHTTP.responseText

Debug.Print "Length of response: " & Len(sResult)

Set XMLHTTP = Nothing

GetHTTPResult = sResult

End Function

La subrutina UpdatePriceData prepara y llena los vectores con el resultado de la consulta. Para ello llama a la función GetQuoteXmlFromWeb y la subrutina GetQuoteFromXml.

Sub UpdatePriceData(Optional manageCalcStatus As Boolean = True, Optional r As Integer = 2, Optional cc As Integer = 1)
    Dim stockXml As MSXML2.IXMLDOMNode
    Dim stockData(5) As Double ' Open, High, Low, Current/Close, Volume
    Dim stockDate As Date   ' Last Trade Date
    Dim stockTime As Date   ' Last Trade time
    
    sbState = Application.DisplayStatusBar  
    Application.DisplayStatusBar = True     
    Application.StatusBar = "Preparing quote request..."
    If manageCalcStatus Then
        appCalcStatus = Application.Calculation
        Application.Calculation = xlCalculationManual
    End If
    Range(Cells(r - 1, cc), Cells(r - 1, cc)).Select
    Selection.End(xlDown).Select
    iRowLast = ActiveCell.Row
    For i = r To iRowLast
        Range(Cells(i, cc), Cells(i, cc)).Select
        Application.StatusBar = "Get quote for: " & ActiveCell.Value
        Set stockXml = GetQuoteXmlFromWeb(ActiveCell.Value)
        If stockXml Is Nothing Then
            For n = 0 To UBound(stockData) - 1
                stockData(n) = 0
            Next n
            stockDate = Date
            stockTime = 0
        Else
            stockData(0) = Val(GetQuoteFromXml(stockXml, "Open"))
            stockData(1) = Val(GetQuoteFromXml(stockXml, "DaysHigh"))
            stockData(2) = Val(GetQuoteFromXml(stockXml, "DaysLow"))
            stockData(3) = Val(GetQuoteFromXml(stockXml, "LastTradePriceOnly"))
            stockData(4) = Val(GetQuoteFromXml(stockXml, "Volume"))
            stockDate = CDate(GetQuoteFromXml(stockXml, "LastTradeDate"))
            stockTime = TimeValue(GetQuoteFromXml(stockXml, "LastTradeTime"))
            stockName = (GetQuoteFromXml(stockXml, "Name"))
            Application.StatusBar = "Get quote for: " & ActiveCell.Value
        End If
        For n = 0 To UBound(stockData) - 1
            Cells(i, cc + n + 1) = stockData(n)
        Next n
         Cells(i, cc + n + 1) = stockDate
         Cells(i, cc + n + 2) = stockTime
         Cells(i, cc + n + 3) = stockName
    Next i
        
    If manageCalcStatus Then
        Application.StatusBar = "Resetting calculation state..."
        Application.Calculation = appCalcStatus  
    End If
    Application.StatusBar = False    
    Application.DisplayStatusBar = sbState
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

Sub UpdatePriceData(Optional manageCalcStatus As Boolean = True, Optional r As Integer = 2, Optional cc As Integer = 1)

Dim stockXml As MSXML2.IXMLDOMNode

Dim stockData(5) As Double ' Open, High, Low, Current/Close, Volume

Dim stockDate As Date ' Last Trade Date

Dim stockTime As Date ' Last Trade time

sbState = Application.DisplayStatusBar

Application.DisplayStatusBar = True

Application.StatusBar = "Preparing quote request..."

If manageCalcStatus Then

appCalcStatus = Application.Calculation

Application.Calculation = xlCalculationManual

End If

Range(Cells(r - 1, cc), Cells(r - 1, cc)).Select

Selection.End(xlDown).Select

iRowLast = ActiveCell.Row

For i = r To iRowLast

Range(Cells(i, cc), Cells(i, cc)).Select

Application.StatusBar = "Get quote for: " & ActiveCell.Value

Set stockXml = GetQuoteXmlFromWeb(ActiveCell.Value)

If stockXml Is Nothing Then

For n = 0 To UBound(stockData) - 1

stockData(n) = 0

Next n

stockDate = Date

stockTime = 0

Else

stockData(0) = Val(GetQuoteFromXml(stockXml, "Open"))

stockData(1) = Val(GetQuoteFromXml(stockXml, "DaysHigh"))

stockData(2) = Val(GetQuoteFromXml(stockXml, "DaysLow"))

stockData(3) = Val(GetQuoteFromXml(stockXml, "LastTradePriceOnly"))

stockData(4) = Val(GetQuoteFromXml(stockXml, "Volume"))

stockDate = CDate(GetQuoteFromXml(stockXml, "LastTradeDate"))

stockTime = TimeValue(GetQuoteFromXml(stockXml, "LastTradeTime"))

stockName = (GetQuoteFromXml(stockXml, "Name"))

Application.StatusBar = "Get quote for: " & ActiveCell.Value

End If

For n = 0 To UBound(stockData) - 1

Cells(i, cc + n + 1) = stockData(n)

Next n

Cells(i, cc + n + 1) = stockDate

Cells(i, cc + n + 2) = stockTime

Cells(i, cc + n + 3) = stockName

Next i

If manageCalcStatus Then

Application.StatusBar = "Resetting calculation state..."

Application.Calculation = appCalcStatus

End If

Application.StatusBar = False

Application.DisplayStatusBar = sbState

End Sub

La función GetQuoteXmlFromWeb es la que descarga la información en archivo XML y lo traduce. Un archivo XML es una estructura anidada de datos (padre e hijo) lo que permite manipular múltiples dimensiones y gran cantidad de información. Desafortunadamente no es tan simple descifrar la estructura por lo que utilizamos una función para descifrar la relación jerárquica de datos (ver función FindChildNodeName al final).

Function GetQuoteXmlFromWeb(stockSymbol As String) As MSXML2.IXMLDOMNode
    Dim QuoteXMLstream As MSXML2.DOMDocument
    Dim QuoteXMLHttp As MSXML2.XMLHTTP60
    Dim oChild As MSXML2.IXMLDOMNode
    Dim fSuccess As Boolean
    Dim URL As String

    On Error GoTo HandleErr    
    ' create the URL that requests the XML stream from Yahoo Finance
    URL = "http://query.yahooapis.com/v1/public/yql?q=SELECT%20*%20FROM%20yahoo.finance.quotes%20WHERE%20symbol%3D'" & Trim(stockSymbol) & "'"
    URL = URL & "&diagnostics=false&env=store%3A%2F%2Fdatatables.org%2Falltableswithkeys"
    
    ' pull in the XML stream
    Set QuoteXMLHttp = New MSXML2.XMLHTTP60
    With QuoteXMLHttp
        Call .Open("GET", URL, False)
        Call .send
    End With
    fSuccess = QuoteXMLHttp.Status
    If Not fSuccess Then    
      MsgBox "error loading Yahoo Finance XML stream"
      Exit Function
    End If
    
    ' Turn it into an XML document
    Set QuoteXMLstream = New MSXML2.DOMDocument
    fSuccsss = QuoteXMLstream.LoadXML(QuoteXMLHttp.responseText)
   
    If Not fSuccess Then                          ' quit on failure
      MsgBox "error parsing Yahoo Finance XML stream"
      Exit Function
    End If
    
    ' Structure is: query.results.quote (3 children in) to get to our quote params
    Set oChild = FindChildNodeName(QuoteXMLstream.ChildNodes, "query")
    If oChild Is Nothing Then
      MsgBox "error loading Yahoo Finance XML stream: cannot find 'query'"
      Exit Function
    End If
    
    Set oChild = FindChildNodeName(oChild.ChildNodes, "results")
    If oChild Is Nothing Then
      MsgBox "error loading Yahoo Finance XML stream: cannot find 'results'"
      Exit Function
    End If
    ' If this works, we will have the XML quote data node -- our target
    Set oChild = FindChildNodeName(oChild.ChildNodes, "quote")
    
    Set GetQuoteXmlFromWeb = oChild     ' Either the node or NOTHING
        
' error handlers
ExitHere:
            Exit Function
HandleErr:
            MsgBox "GetQuoteXmlFromWeb Error " & Err.Number & ": " & Err.Description
            Resume ExitHere
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

Function GetQuoteXmlFromWeb(stockSymbol As String) As MSXML2.IXMLDOMNode

Dim QuoteXMLstream As MSXML2.DOMDocument

Dim QuoteXMLHttp As MSXML2.XMLHTTP60

Dim oChild As MSXML2.IXMLDOMNode

Dim fSuccess As Boolean

Dim URL As String

On Error GoTo HandleErr

' create the URL that requests the XML stream from Yahoo Finance

URL = "http://query.yahooapis.com/v1/public/yql?q=SELECT%20*%20FROM%20yahoo.finance.quotes%20WHERE%20symbol%3D'" & Trim(stockSymbol) & "'"

URL = URL & "&diagnostics=false&env=store%3A%2F%2Fdatatables.org%2Falltableswithkeys"

' pull in the XML stream

Set QuoteXMLHttp = New MSXML2.XMLHTTP60

With QuoteXMLHttp

Call .Open("GET", URL, False)

Call .send

End With

fSuccess = QuoteXMLHttp.Status

If Not fSuccess Then

MsgBox "error loading Yahoo Finance XML stream"

Exit Function

End If

' Turn it into an XML document

Set QuoteXMLstream = New MSXML2.DOMDocument

fSuccsss = QuoteXMLstream.LoadXML(QuoteXMLHttp.responseText)

If Not fSuccess Then ' quit on failure

MsgBox "error parsing Yahoo Finance XML stream"

Exit Function

End If

' Structure is: query.results.quote (3 children in) to get to our quote params

Set oChild = FindChildNodeName(QuoteXMLstream.ChildNodes, "query")

If oChild Is Nothing Then

MsgBox "error loading Yahoo Finance XML stream: cannot find 'query'"

Exit Function

End If

Set oChild = FindChildNodeName(oChild.ChildNodes, "results")

If oChild Is Nothing Then

MsgBox "error loading Yahoo Finance XML stream: cannot find 'results'"

Exit Function

End If

' If this works, we will have the XML quote data node -- our target

Set oChild = FindChildNodeName(oChild.ChildNodes, "quote")

Set GetQuoteXmlFromWeb = oChild ' Either the node or NOTHING

' error handlers

ExitHere:

Exit Function

HandleErr:

MsgBox "GetQuoteXmlFromWeb Error " & Err.Number & ": " & Err.Description

Resume ExitHere

End Function

Function FindChildNodeName(xmlChildren As MSXML2.IXMLDOMNodeList, childName As String) As MSXML2.IXMLDOMNode
    Dim oChild As MSXML2.IXMLDOMNode
    Dim childResult As MSXML2.IXMLDOMNode
    Set childResult = Nothing
    For i = 1 To xmlChildren.Length
        Set oChild = xmlChildren.Item(i - 1)    ' 0-based index
        If oChild.nodeName = childName Then
            Set childResult = oChild
            Exit For
        End If
    Next
    Set FindChildNodeName = childResult
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

Function FindChildNodeName(xmlChildren As MSXML2.IXMLDOMNodeList, childName As String) As MSXML2.IXMLDOMNode

Dim oChild As MSXML2.IXMLDOMNode

Dim childResult As MSXML2.IXMLDOMNode

Set childResult = Nothing

For i = 1 To xmlChildren.Length

Set oChild = xmlChildren.Item(i - 1) ' 0-based index

If oChild.nodeName = childName Then

Set childResult = oChild

Exit For

End If

End Function

Finalmente, la función GetQuoteFromXml es una adición que bien puede ser opcional. Su utilidad es lanzar una nueva consulta que permite conocer los datos básicos de la acción, como el nombre, el último volumen transado, el mayor y menor valor de transacción del día, el último valor de transacción y la última hora de actualización. Si bien una buena parte de la información se encuentra en la serie de precios, esta función es útil cuando se tiene el símbolo y no se conoce el nombre exacto, o cuando se lanza la consulta y los mercados están aún abiertos por tanto no se conoce el precio de cierre de la acción. La siguiente es la función:

Function GetQuoteFromXml(stockXml As MSXML2.IXMLDOMNode, Optional QuoteParameter As String = "LastTradePriceOnly", Optional statusText As String = "") As String
    Dim oChild As MSXML2.IXMLDOMNode
    Dim sText As String
    On Error GoTo HandleErr
    If statusText <> "" Then
        sText = statusText & " - " & QuoteParameter
    Else
        sText = ""
    End If
    For Each oChild In stockXml.ChildNodes
        If sText <> "" Then
            Application.StatusBar = sText & " (found " & oChild.nodeName & ")"
        End If
        If oChild.nodeName = QuoteParameter Then
            s = oChild.Text
            GetQuoteFromXml = s
            If sText <> "" Then Application.StatusBar = sText
            Exit Function
        End If
    Next oChild
    If sText <> "" Then Application.StatusBar = sText & " not found!"
' error handlers
ExitHere:
     Exit Function
HandleErr:
            MsgBox "GetQuoteFromXml Error " & Err.Number & ": " & Err.Description
            Resume ExitHere
            Resume
End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

Function GetQuoteFromXml(stockXml As MSXML2.IXMLDOMNode, Optional QuoteParameter As String = "LastTradePriceOnly", Optional statusText As String = "") As String

Dim oChild As MSXML2.IXMLDOMNode

Dim sText As String

On Error GoTo HandleErr

If statusText <> "" Then

sText = statusText & " - " & QuoteParameter

Else

sText = ""

End If

For Each oChild In stockXml.ChildNodes

If sText <> "" Then

Application.StatusBar = sText & " (found " & oChild.nodeName & ")"

End If

If oChild.nodeName = QuoteParameter Then

s = oChild.Text

GetQuoteFromXml = s

If sText <> "" Then Application.StatusBar = sText

Exit Function

End If

Next oChild

If sText <> "" Then Application.StatusBar = sText & " not found!"

' error handlers

ExitHere:

Exit Function

HandleErr:

MsgBox "GetQuoteFromXml Error " & Err.Number & ": " & Err.Description

Resume ExitHere

Resume

End Function

Lo demás es estético y a gusto del usuario, una vez la serie se carga en la hoja de cálculo se pueden crear gráficos, estadísticas y demás. Usted puede descargar una versión comprimida de esta macro con algunas adiciones en el siguiente link. Una vez funcional la macro usted tendrá un reporte como el presentado a continuación.

Comentarios finales:

Algunos de los códigos utilizados en este programa fueron reutilizados de foros y sitios públicos en internet. Una de las fuentes fue stackoverflow.
Otra metodología a explorar en otro post es la de descargar el indicador de la bolsa (NYSE, Nasdaq, etc) el siguiente código es un ejemplo aplicado para nasdaq: http://www.nasdaq.com/screening/companies-by-name.aspx?letter=0&exchange=nasdaq&render=download(remplazando nasdaq por el mercado deseado).

06 Aug

Ingeniosos CV's (hojas de vida)

La revista electrónica Business Insider publicó recientemente un artículo donde resaltaba como ejemplo el mejor resumen (hoja de vida) para cargos medios a ejecutivos por su consistencia y sencillez (ver imagen siguiente).

En síntesis el artículo resalta la facilidad para encontrar la información en una sola página, la lista concreta de competencias, los logros cuantificados obtenidos en cada rol de la experiencia y la educación que se recomienda mover al final de la hoja de vida (Lea también 19 razones por las cuales este es un excelente resumen).

La empresa Career cup también hace un análisis similar listando 11 puntos claves para la elaboración de hojas de vida (ver link).

Continue reading →

06 Aug

El movimiento global de los migrantes

El centro Wittgenstein para la demografía y el capital humano global (Wittgenstein Centre for Demography and Global Human Capital) publico recientemente un artículo en la reconocida revista Science sobre los movimientos migratorios entre países. El infograph que resume los resultados puede ser descargado en el siguiente link.

El estudio concluye que en los últimos anos las migraciones han alcanzado un ciclo estable en periodos de 5 años en los cuales el 0.6% de la población mundial migra entre países, al tiempo que prevé que las migraciones más altas en los próximos años ocurrirán entre los países del sur y oeste asiático, así como entre Latinoamérica y Norteamérica. Finalmente prevé una gran migración entre países africanos.

En el continente americano los países con mayor emigración son México, Perú, Brasil y Argentina, mientras que los que más inmigrantes reciben son Estados Unidos, Canadá, Costa Rica y Chile.

Adicionalmente los autores han desarrollado una entretenida herramienta de visualización interactiva que permite a los usuarios consultar información de países puntuales. La herramienta fue desarrollada utilizando la librería D3.js (basada en javascript). A continuación presentamos este interesante recurso:

The global flow of people

02 Aug

AnyLogic versión 7.2

Finalmente el pasado 30 de Julio de 2015 fue lanzado oficialmente la versión 7.2 de AnyLogic. Como se pudo prever en la versión beta que circula hace poco menos de un mes la nueva edición cuenta con dos principales innovaciones, la librería de fluídos que integra elementos de simulación continua (desplazamiento de fluídos) con los eventos discretos, y la base de datos incorporada que permite manipular datos más rápidamente. Esto es perticulamente útil cuando se carga gran cantidad de información al principio de la simulación o se colectan estadísticas durante la simulación para ser transferidas al final. Ambas actividades requerían antes de la utilización de colecciones locales o de archivos de texto temporales, ahora simplemente puede almacenarse la información en tablas de la base de datos local a una mayor velocidad con menor consumo de memoria. Otra ventaja de la base de datos incorporada es la portabilidad, es decir que no se requiere software adicional para la creación y manipulación de las tablas al desplazar el modelo entre ordenadores.

Otras adiciones son las colas y escaleras no lineales (librería de peatones), integración de los sistemas geográficos (GIS) a la librería de trenes, la conversión de archivos ESRI Shapefile a marcadores de posición lo que permite personalizar layouts con geometrías complejas que marcan recorridos y fronteras (como importar un camino de un mapa y convertirlo en una carretera o una via férrea), y la ventana de ayuda que aparece en cada elemento al posar el cursor del mouse por cierto tiempo sobre él.

El consultor y blogista Benjamin Schumann hace un completo review de la nueva versión en su blog Simulación e Innovación, vale la pena leerlo.

Ingenio en marcha

Simulación y Analytics

Monthly Archives: August 2015

Lanzamiento de la versión web de NetLogo NLW

Like this:

Modeloff 2015 - Campeonato mundial de Excel

Like this:

Macro para obtener historico de precios de una accion en Excel

Like this:

Ingeniosos CV's (hojas de vida)

Like this:

El movimiento global de los migrantes

Like this:

AnyLogic versión 7.2

Like this: