Convergência Pós-COVID: 1 BITCOIN e 1kg de OURO

Por Vitaliy Kaurov
Publicação Original

Introdução

O valor do ouro disparou em 8 de outubro de 2025. Como hoje em dia é possível comprar uma barra de ouro numa grande rede de supermercados dos Estados Unidos, achei interessante demonstrar uma observação recente ao analisar o ouro em diferentes unidades — quilogramas. Essas unidades não estão disponíveis no supermercado, mas representam um “padrão ouro” (trocadilho intencional) e, de forma notável, recentemente seu preço tem acompanhado de perto o de 1 Bitcoin. Normalmente isso passa despercebido porque o ouro é tradicionalmente cotado em unidades de massa muito menores.
Percebi que, no último ano, o preço do Bitcoin tem sido aproximadamente equivalente ao preço de 1 kg de ouro. É fácil verificar isso no Wolfram Alpha:

In[]:=
1kg gold price / bitcoin
Result
1.021
Out[]=
1.021
Ou simplesmente conferindo online:
https://wolfr.am/GOLD-BTC
O preço do ouro é normalmente apresentado por uma onça troy - que equivale a cerca de 31 gramas:
In[]:=
UnitConvert
,"Grams"//N
Out[]=
31.1035
g
Assim, quando o preço do ouro é divulgado, não fica imediatamente claro qual é o valor de 1 kg de ouro, a menos que se faça a conversão de unidades.

Alta recente do ouro

◼
  • Futuros do ouro sobem acima de US$ 4.000 por onça pela primeira vez
    • ◼
  • https://apnews.com/article/gold-record-price-silver-shutdown-fbe2b3c43780923569a7b5db1a55f06b
    • ◼
  • O ouro ultrapassa US$ 4.000 pela primeira vez, impulsionado por paralisação do governo dos Estados Unidos
    • ◼
  • https://finance.yahoo.com/news/gold-tops-4-000-first-020751070.html
    • ◼
  • Investidores apreensivos elevam o ouro acima de US$ 4.000 por onça pela primeira vez
    • ◼
  • https://www.nytimes.com/2025/10/06/business/gold-price-us-economy.html

    • Importação de dados

    Vamos começar importando os dados do Bitcoin (BTC) avaliados em dólares norte-americanos (US$):
    In[]:=
    FinancialData["BTC/USD",{2015},Method->"Legacy"]​​BTCdata=TimeSeries@%
    Out[]=
    {{{2015,1,1},320.035},{{2015,1,2},315.255},{{2015,1,3},315.415},{{2015,1,4},288.175},{{2015,1,5},264.945},{{2015,1,6},273.957},{{2015,1,7},282.556},{{2015,1,8},292.251},{{2015,1,9},285.659},{{2015,1,10},293.655},{{2015,1,11},276.135},{{2015,1,12},269.615},{{2015,1,13},269.715},{{2015,1,14},234.2},
    ⋯3829⋯
    ,{{2025,9,26},109588.},{{2025,9,27},109416.},{{2025,9,28},110247.},{{2025,9,29},113679.},{{2025,9,30},112913.},{{2025,10,1},117691.},{{2025,10,2},119781.},{{2025,10,3},122227.},{{2025,10,4},121742.},{{2025,10,5},123431.},{{2025,10,6},125405.},{{2025,10,7},121718.},{{2025,10,8},123057.}}
    Full expression not available
    (
    original memory size:
    0.7 MB)
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    08 Oct 2025
    Data points: 3856
    
    Como mencionado anteriormente, os dados importados do preço do ouro geralmente são fornecidos com base no valor de uma onça troy de ouro, equivalente a cerca de 31 gramas. Para converter o preço para 1 kg de ouro, é necessário calcular o fator de multiplicação proporcional à razão entre as massas:
    In[]:=
    N
    1
    kg
    
    1
    oz t
    
    Out[]=
    32.1507
    Assim, os dados de preço para 1 kg de ouro são obtidos da seguinte forma:
    In[]:=
    FinancialData["XAU/USD",{2015},Method->"Legacy"];​​MapAtN
    1
    kg
    
    1
    oz t
    #&,%,{All,2}​​GoldData=TimeSeries@%
    Out[]=
    {{{2015,1,1},38031.8},{{2015,1,2},37664.6},{{2015,1,3},38243.6},{{2015,1,5},38547.1},{{2015,1,6},38900.8},{{2015,1,7},38981.2},{{2015,1,8},39084.1},{{2015,1,9},39084.1},{{2015,1,10},39324.5},{{2015,1,12},39432.9},{{2015,1,13},39733.5},{{2015,1,14},39775.3},{{2015,1,15},40387.8},
    ⋯3646⋯
    ,{{2025,9,27},120882.},{{2025,9,28},121113.},{{2025,9,29},123231.},{{2025,9,30},124196.},{{2025,10,1},124215.},{{2025,10,2},124182.},{{2025,10,3},124960.},{{2025,10,4},124960.},{{2025,10,5},125696.},{{2025,10,6},127624.},{{2025,10,7},128424.},{{2025,10,8},128984.}}
    Full expression not available
    (
    original memory size:
    0.7 MB)
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    08 Oct 2025
    Data points: 3671
    
    Por fim, o gráfico é gerado da seguinte maneira:
    In[]:=
    DateListPlot[{GoldData,BTCdata},PlotTheme->"Detailed"]
    Out[]=

    Métodos alternativos de dados: Entity Framework e outros

    Outra abordagem altamente eficaz para acessar dados financeiros é o Entity Framework. Considere este código que extrai os dados do ouro de uma forma diferente:
    In[]:=
    Entity["Element","Gold"][​​Dated[EntityProperty["Element","Price"],​​DateInterval[{{2015},Today}]]]
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    07 Oct 2025
    Data points: 3663
    
    Quando devidamente formatado, o resultado fica compacto e visualmente agradável:
    In[]:=
    gold
    ELEMENT
    Dated
    price
    ,DateInterval
    Beginning: Thu 1 Jan 2015
    Through: Thu 7 Mar 2024
    
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    07 Mar 2024
    Data points: 3091
    
    Para o Bitcoin, pode-se utilizar outro método alternativo:
    CurrencyConvert
    . Ele utiliza informações de taxa de câmbio fornecidas por
    FinancialData
    para conversão entre unidades monetárias.
    In[]:=
    CurrencyConvert["BTC","USDollars",{{2015},Today}]
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    07 Oct 2025
    Data points: 3848
    

    Design gráfico final

    In[]:=
    header=Style["Post-COVID Convergence: 1 Bitcoin and 1kg Gold",43,GrayLevel[.9],FontFamily->"DIN Condensed"];​​sub1=Style["🔒 GOLD: safety asset 🔥 BITCOIN: risk asset",20,GrayLevel[.75],FontFamily->"Georgia"];​​sub2=Style[" 🦋 Is perception changing?",20,GrayLevel[.75],FontFamily->"Georgia"];​​footer1=Style["Data | Tools: WOLFRAM Language",15,GrayLevel[.5],FontFamily->"Verdana"];​​footer2=Style["𝕏.com/SUPERFLOW",15,GrayLevel[.5],FontFamily->"Verdana"];​​​​Framed​​Column​​header,Row[{sub1,sub2}],"",​​DateListPlot{GoldData,BTCdata},​​PlotTheme->"Detailed",​​PerformanceGoal->"Speed",​​PlotStyle->
    ,
    ,​​FrameStyle->GrayLevel[.75],​​BaseStyle->19,​​ImageSize->700,​​AspectRatio->.55GoldenRatio,​​FrameTicks->{{{{40000,"40K"},{80000,"80K"},{120000,"120K"}},None},{Automatic,None}},​​PlotLegends->Placed[Style[#,21,GrayLevel[.75],FontFamily->"Copperplate"]&/@{"Gold, 1kg, USD","Bitcoin, BTC, USD"},{Left,Top}],​​Epilog->​​Text[Style["COVID",21,GrayLevel[.75],FontFamily->"Copperplate"],{AbsoluteTime[{2020,3,11}],105000},{Left,Bottom}],​​
    ,Thickness[.005],Arrow[{{AbsoluteTime[{2020,3,11}],105000},{AbsoluteTime[{2020,3,11}],60000}}]​​,​​DateListPlot{GoldData,BTCdata},​​PlotTheme->"Detailed",​​PerformanceGoal->"Speed",​​PlotStyle->
    ,
    ,​​BaseStyle->19,​​FrameStyle->GrayLevel[.75],​​ImageSize->700,​​AspectRatio->.55GoldenRatio,​​FrameTicks->{{{{40000,"40K"},{80000,"80K"},{120000,"120K"}},None},{Automatic,None}},​​PlotRange->{{{2020,1,1},Now},All},​​Epilog->
    ,Thickness[.005],Arrow[{{AbsoluteTime[{2020,3,11}],105000},{AbsoluteTime[{2020,3,11}],60000}}]​​,​​DateListPlotBTCdataGoldData,​​PlotTheme->"Detailed",​​PerformanceGoal->"Speed",​​PlotStyle->Cyan,​​BaseStyle->19,​​FrameStyle->GrayLevel[.75],​​PlotStyle->Red,​​ImageSize->700,​​Filling->1,​​AspectRatio->.55GoldenRatio,​​FrameTicks->{{{.2,.6,1,1.4},None},{Automatic,None}},​​PlotRange->{{{2020,1,1},Now},{0,1.4}},​​FrameLabel->{None,Style["",0]},​​PlotLegends->Placed[Style["1 BTC / 1kg GOLD, in USD",GrayLevel[.9],21,FontFamily->"Copperplate"],{Left,Top}],​​Epilog->​​{Green,Dashed,Thickness[.005],Line[{{AbsoluteTime[{2010,3,11}],1},{AbsoluteTime[{2030,3,11}],1}}]},​​
    ,Thickness[.005],Arrow[{{AbsoluteTime[{2020,3,11}],.7},{AbsoluteTime[{2020,3,11}],.3}}],​​"",​​Row[{footer1,Spacer[300],footer2}]​​,Alignment->Center,​​Background->Black,FrameMargins10

    CITE ESTE NOTEBOOK

    Post-COVID Convergence: 1 BITCOIN and 1kg GOLD​
    by Vitaliy Kaurov
    Wolfram Community, STAFF PICKS, October 9, 2025
    ​https://community.wolfram.com/groups/-/m/t/3558536