Dosya:MapAfricaSize.gif

Daha yüksek çözünürlüğe sahip sürüm bulunmamaktadır.

MapAfricaSize.gif ((480 × 481 piksel, dosya boyutu: 12,05 MB, MIME tipi: image/gif), döngüye girdi, 213 kare, 21 sn)

Bu dosya Wikimedia Commons'ta bulunmaktadır. Dosyanın açıklaması aşağıda gösterilmiştir.
Commons, serbest/özgür telifli medya dosyalarının bulundurulduğu depodur. Siz de yardım edebilirsiniz.

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

Özet

AçıklamaMapAfricaSize.gif	English: Comparison of Africa size with other continents
Tarih	7 Mayıs 2020
Kaynak	https://twitter.com/j_bertolotti/status/1258391481922080773
Yazar	Jacopo Bertolotti
İzin (Bu dosyanın tekrar kullanımı)	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]] ]

Lisanslama

Ben, bu işin telif sahibi, burada işi aşağıdaki lisans altında yayımlıyorum:

Bu dosya Creative Commons CC0 1.0 Evrensel Kamu Malı Adanması altında kullanıma sunulmuştur.

Bu çalışmayı oluşturan kişi bu senet ile eser hakkında tüm dünya çapında telif hakkı yasaları kapsamında, yasalar tarafından izin verilen ölçülerde ve diğer benzer tüm haklarından feragat etmiş ve kamu malı olarak nitelendirmiştir. Siz bu çalışmayı ve eseri hiç bir izin almadan ticari amaçlar da dahil olmak üzere kopyalayabilir, değiştirebilir ve serbestçe dağıtabilirsiniz.

CC0falsefalse

Dosya geçmişi

Dosyanın herhangi bir zamandaki hâli için ilgili tarih/saat kısmına tıklayın.

	Tarih/Saat	Küçük resim	Boyutlar	Kullanıcı	Yorum
güncel	10.56, 8 Mayıs 2020		480 × 481 (12,05 MB)	Berto	Uploaded own work with UploadWizard

Dosya kullanımı

Bu görüntü dosyasına bağlantısı olan sayfalar:

Afrika

Küresel dosya kullanımı

Aşağıdaki diğer vikiler bu dosyayı kullanmaktadır:

arz.wikipedia.org üzerinde kullanımı
- افريقيا
ee.wikipedia.org üzerinde kullanımı
- Afrika
en.wikipedia.org üzerinde kullanımı
- Africa
- Talk:Africa/Archive 5
iba.wikipedia.org üzerinde kullanımı
- Afrika
incubator.wikimedia.org üzerinde kullanımı
- Wp/iba/Afrika
ne.wikipedia.org üzerinde kullanımı
- अफ्रिका
ro.wikipedia.org üzerinde kullanımı
- Africa
sd.wikipedia.org üzerinde kullanımı
- آفريڪا
tum.wikipedia.org üzerinde kullanımı
- Afilika

Üstveri

Bu dosyada, muhtemelen fotoğraf makinesi ya da tarayıcı tarafından eklenmiş ek bilgiler mevcuttur. Eğer dosyada sonradan değişiklik yapıldıysa, bazı bilgiler yeni değişikliğe göre eski kalmış olabilir.

GIF dosyası yorumu	Created with the Wolfram Language : www.wolfram.com

Dosya:MapAfricaSize.gif

Özet

Mathematica 12.0 code

Lisanslama

Altyazılar

Bu dosyada gösterilen öğeler

betimlenen

globe

yaratıcı

Vikiveri ögesi olmayan bir değer

telif hakkı durumu

copyrighted, dedicated to the public domain by copyright holder ^İngilizce

telif hakkı lisansı

CC0

kuruluşu

7 Mayıs 2020

Dosya geçmişi

Dosya kullanımı

Küresel dosya kullanımı

Üstveri

Özet

Mathematica 12.0 code

Lisanslama

Altyazılar

Bu dosyada gösterilen öğeler

betimlenen

globe

yaratıcı

Vikiveri ögesi olmayan bir değer

telif hakkı durumu

copyrighted, dedicated to the public domain by copyright holder İngilizce

telif hakkı lisansı

CC0

kuruluşu

7 Mayıs 2020

Dosya geçmişi

Dosya kullanımı

Küresel dosya kullanımı

Üstveri

copyrighted, dedicated to the public domain by copyright holder ^İngilizce