用 Wolfram 语言模拟东京奥运会开幕式的无人机地球表演

WolframChina

发布于 2021-08-24 14:37:28

3760

发布于 2021-08-24 14:37:28

文章被收录于专栏：WOLFRAMWOLFRAM

迟到的 2020 年夏季奥运会开幕式于 2021 年 7 月 23 日在东京奥林匹克体育场举行。1824 架无人机在体育场上空以 3D 方式呈现东京奥运会会徽和之后拥有各大洲的地球。我尝试使用 Mathematica 重新创建这些球体。

初始化

R=1; (* radius of inner circle of the emblem *)\[IndentingNewLine]pr=2; (* radius of outer circle of the emblem *)\[IndentingNewLine]r=0.03; (* radius of sphere as a drone *)\[IndentingNewLine]imgsize=240; (* image size *)\[IndentingNewLine]fr=12; (* frame rate *)\[IndentingNewLine]\[IndentingNewLine](* options of Graphics3D *) g3Dopt={Background->Black,ImageSize->imgsize,Boxed->True,BoxStyle->Black,PlotRange->pr{{-1,1},{-1,1},{-1,1}},SphericalRegion->True,\[IndentingNewLine]Lighting->{{"Point",White,{0,-2.5,0},{.5,1,0}},{"Point",Blue,{0,0,0}}},ViewPoint->{0,-10,0}};

2020 年东京奥运会会徽的要点

可以参考两年前我发表的东京2020奥运会和残奥会会徽：https://community.wolfram.com/groups/-/m/t/1758435

地球上的点

从 pts 到 earthpts 的路径

旋转地球

制作框架

从显示会徽开始制作框架，然后显示地球，旋转和关掉照明。

blackframe=Image@ConstantArray[0.,{imgsize,imgsize,3}];\[IndentingNewLine]frame3=Join[Table[blackframe,{fr/2}],(* black background *)\[IndentingNewLine]Table[Darker[frame1[[1]],(fr-i)/fr],{i,1,fr}],(* turning on the lights *)\[IndentingNewLine]Table[frame1[[1]],2fr],(* the emblem *)\[IndentingNewLine]frame1,(* converting from the emblem to the earth *)\[IndentingNewLine]Table[frame1[[-1]],fr],(* the earth *)\[IndentingNewLine]frame2,(* rotating the earth  *)\[IndentingNewLine]Table[Darker[frame2[[i]],i/(Length@frame2/2)],{i,2,Length@frame2/2}](* turning off the lights *)\[IndentingNewLine]];\[IndentingNewLine](* crop frames *)\[IndentingNewLine]frame4=ImageCrop[#,160]&/@frame3;

产生动画

使用带有添加背景的框架产生动画。