MapAfricaSize.gif(480 × 481 pixeli, mărime fișier: 12,05 MB, tip MIME: image/gif, în buclă, 213 imagini, 21 s)

Acest fișier se află la Wikimedia Commons. Consultați pagina sa descriptivă acolo.

Comparing without considering lines of longitude. Africa is on the equator.

Descriere fișier

Descriere
English: Comparison of Africa size with other continents
Dată
Sursă https://twitter.com/j_bertolotti/status/1258391481922080773
Autor Jacopo Bertolotti
Permisiune
(Reutilizarea acestui fișier)
https://twitter.com/j_bertolotti/status/1030470604418428929

Mathematica 12.0 code

(*Beware! The code is not optimized at all!*)
sinstep[t_] := Sin[\[Pi]/2 t]^2;
stopstep[t_] := t (2 - t);
bouncestep[t_] := 1 - Sin[\[Pi]/(2 (1 - t))] (1 - t)^2; (**beware of 

p0 = Table[
   Graphics @@ GeoGraphics[GeoRange -> "World", GeoProjection -> {"Orthographic", "Centering" -> (stopstep[t] ({0, 360 + 20} - c1) + c1) }, GeoGridLines -> Automatic, GeoZoomLevel -> 2, Background -> Black]
   , {t, 0, 1, 0.02}];
p1 = Table[Show[
    Graphics @@ GeoGraphics[GeoRange -> "World", GeoProjection -> {"Orthographic", "Centering" -> c2}, GeoGridLines -> Automatic, GeoZoomLevel -> 2, Background -> Black]
    ,
    Graphics @@ GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5*sinstep[t]], Purple}], Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> c2, 
        GeoZoomLevel -> 1}, Background -> None, GeoBackground -> None] 
    ]
   , {t, 0, 1, 0.1}];
p2 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c5 - c2) + c2 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 20}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];
p3 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c3 - c5) + c5 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 20}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];
p4 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c4 - c3) + c3 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 20}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];
p5 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c6 - c4) + c4 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 20}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];
p6 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c7 - c6) + c6 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 20}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];
p7 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c8 - c7) + c7 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 20}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];
p8 = Table[Show[
    Graphics @@ 
     GeoGraphics[GeoRange -> "World", 
      GeoProjection -> {"Orthographic", 
        "Centering" -> bouncestep[t]*(c2 - c8) + c8 }
      , GeoGridLines -> Automatic, GeoZoomLevel -> 2, 
      Background -> Black]
    ,
    Graphics @@ 
     GeoGraphics[{GeoStyling[Automatic, {Opacity[0.5], Purple}], 
       Polygon[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Africa", Typeset`boxes$$ = 
            TemplateBox[{"\"Africa\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"GeographicRegion\"", ",", "\"Africa\""}], "]"}], 
              "\"Entity[\\\"GeographicRegion\\\", \\\"Africa\\\"]\"", 
              "\"geographic region\""}, "Entity"], 
            Typeset`allassumptions$$ = {{
             "type" -> "Clash", "word" -> "Africa", 
              "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3", 
              "Values" -> {{
                "name" -> "GeographicRegion", "desc" -> "a continent",
                  "input" -> "*C.Africa-_*GeographicRegion-"}, {
                "name" -> "CountryClass", 
                 "desc" -> "a class of countries", 
                 "input" -> "*C.Africa-_*CountryClass-"}, {
                "name" -> "GivenName", "desc" -> "a given name", 
                 "input" -> "*C.Africa-_*GivenName-"}}}}, 
            Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
            Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, 
             "mparse.jsp" -> 0.777247`6.342104047934638, 
             "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{202.2265625, {8.11328125, 18.11328125}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, 
               Typeset`allassumptions$$, Typeset`assumptions$$, 
               Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)]}, GeoRange -> "World", 
      GeoProjection -> {"Orthographic", "Centering" -> {0, 50pc}, 
        GeoZoomLevel -> 1}, Background -> None, 
      GeoBackground -> None]
    ]
   , {t, 0, 1, 0.051}];

ListAnimate[Join[p0, p1, p2, p3, p4, p5, p6, p7, p8, Reverse[p1]] ]

Licențiere

Eu, deținătorul drepturilor de autor ale acestei opere, prin prezenta îmi public lucrarea sub următoarea licență:
Creative Commons CC-Zero Acest fișier a fost eliberat sub licența Creative Commons CC0 1.0 Universal Public Domain Dedication.
Persoana care a asociat o operă cu acest document o oferă domeniului public, renunțând la toate drepturile asupra operei, în toată lumea, atât în ce privește drepturile de autor cât și orice alte drepturi juridice conexe pe care le avea asupra operei, în măsura permisă de lege. Puteți copia, modifica sau distribui opera, inclusiv în scopuri comerciale, fără a fi necesară permisiunea autorului.

Captions

Add a one-line explanation of what this file represents
Comparison of Africa size with other continents

Items portrayed in this file

subiectul reprezentat

globe engleză

7 mai 2020

Istoricul fișierului

Apăsați pe Data și ora pentru a vedea versiunea trimisă atunci.

Data și oraMiniaturăDimensiuniUtilizatorComentariu
actuală8 mai 2020 13:56Miniatură pentru versiunea din 8 mai 2020 13:56480x481 (12,05 MB)BertoUploaded own work with UploadWizard

Următoarele pagini conțin această imagine:

Utilizarea globală a fișierului

Următoarele alte proiecte wiki folosesc acest fișier:

Informații