Sari la conținut

Fișier:MapAfricaSize.gif

Conținutul paginii nu este suportat în alte limbi.
De la Wikipedia, enciclopedia liberă

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ă

înființare

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 12:56Miniatură pentru versiunea din 8 mai 2020 12: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

Acest fișier conține informații suplimentare, introduse probabil de aparatul fotografic digital sau scannerul care l-a generat. Dacă fișierul a fost modificat între timp, este posibil ca unele detalii să nu mai fie valabile.

Adus de la https://ro.wikipedia.org/wiki/Fișier:MapAfricaSize.gif