COVID収束後：1 BITCOINと1kg GOLD

by Vitaliy Kaurov
[このノートブックは以下のwolfram blogをLLMツールにより日本語に翻訳したものです：Post-COVID Convergence: 1 BITCOIN and 1kg GOLD - 2025年10月6日
​https://community.wolfram.com/groups/-/m/t/3558536]

はじめに

2025年10月8日，金が急騰しました．最近ではCOSTCOで金の延べ棒を購入できるようになったため，金を異なる単位（キログラム）で見るという最近の観察を実演してみようと思いました．この単位ははCOSTCOでは使えませんが，”golden standard”（洒落です）であり，驚くべきことに最近その価格は1ビットコインと非常に密接に連動しています．通常，人々はこのことに気づきません．なぜなら金は標準的にはるかに小さな質量単位で表示されているからです．
過去1年間，ビットコインの価格が金1kgの価格とほぼ同じであることに気づきました．これはWolfram Alphaで簡単に確認できます：

In[]:=
1kg gold price / bitcoin
Result
1.021
Out[]=
1.021
または，単純にオンラインで確認します：
https://wolfr.am/GOLD-BTC
金の価格は標準的に1トロイオンスの価値で示されます．これは約31グラムに相当します：
In[]:=
UnitConvert
,"Grams"//N
Out[]=
31.1035
g
そのため，金の価格が表示されているとき，単位変換を行わない限り，1kgの金がどのような価値を持つのかは，すぐには明らかではありません．

現在の金価格急騰

◼
  • 金先物が1オンス当たり4,000ドルを初めて上回りました
    • ◼
  • https://apnews.com/article/gold-record-price-silver-shutdown-fbe2b3c43780923569a7b5db1a55f06b
    • ◼
  • Gold Tops $4,000 for First Time Fueled by US Shutdown
    • ◼
  • https://finance.yahoo.com/news/gold-tops-4-000-first-020751070.html
    • ◼
  • 不安な投資家が金価格を初めて1オンス4,000ドル超に押し上げます
    • ◼
  • https://www.nytimes.com/2025/10/06/business/gold-price-us-economy.html

    • データのインポート

    米ドル建てのビットコイン（BTC）データのインポートから始めます：
    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
    
    先ほど申し上げましたように，インポートされた金価格データは通常，金1トロイオンスの価値として与えられます．これは約31グラムに相当します．金1kgの価格に変換するには，質量比に比例して乗算係数を計算する必要があります：
    In[]:=
    N
    1
    kg
    
    1
    oz t
    
    Out[]=
    32.1507
    したがって，金1kgの価格データは次のように取得されます：
    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
    
    最後に，プロットは次のように計算されます：
    In[]:=
    DateListPlot[{GoldData,BTCdata},PlotTheme->"Detailed"]
    Out[]=

    代替データ手法：Entityフレームワークとその他

    Entity frameworkは，金融データを取得するもう一つの優れた方法です．金データを異なる方法で抽出する次のコードを考えてみてください：
    In[]:=
    Entity["Element","Gold"][​​Dated[EntityProperty["Element","Price"],​​DateInterval[{{2015},Today}]]]
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    07 Oct 2025
    Data points: 3663
    
    適切にフォーマットされると，コンパクトで美しく見えます：
    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
    
    bitcoinについては，
    CurrencyConvert
    の別の代替方法を使用することができます．これは通貨単位間の変換に
    FinancialData
    によって提供される為替レート情報を使用します．
    In[]:=
    CurrencyConvert["BTC","USDollars",{{2015},Today}]
    Out[]=
    TimeSeries
    Time:
    01 Jan 2015
    to
    07 Oct 2025
    Data points: 3848
    

    最終グラフィックスデザイン

    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

    このノートブックを引用してください

    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