ALGORITHMEN - Teil XXVII: Kaum ist alles richtig, schon stimmt alles!

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • Abt. Nordpolwanderung
      ===============
      Diesmal müssen sich Menschen nicht mehr bis zum Nordpol durchquälen: Der magnetische Pol kommt womöglich schon bald zu ihnen! Die Wissenschaft ist um Klärung und Nachmodellierung bemüht, um traditionelle Navigationsgeräte funktionsfähig zu halten und das Risiko einer baldigen Pol-Umkehr zu evaluieren: Eigentlich ist die ja überfällig! Das könnte in einigen Gebieten mehr Höhenstrahlung bis zum Erdboden bedeuten. Ein Youtube-Bericht dazu findet sich HIER. Die nächste Weltbild-Änderung?
    • Abt. Corona-Desinfektion mittels Schnaps??
      ===========================
      ... funktioniert nicht wirklich: Eine Desinfektionswirkung gegenüber Viren setzt nämlich erst bei deutlich höheren Konzentrationen von Alkohol ein (ca. 58 %) als gegen Bakterien (42%). Mit Bier (5%) geht erst mal garnichts, Rum (38 %), Schaps (41 %). Korn (48%) helfen eventuell gegen Ängste, aber nicht gegen Corona. Ausserdem kommt es auf die Alkohol-Art an: Professionelle Desinfektionsmittel enthalten etwa 65 % bis 82 % Isopropyl-Alkohol, Ethanol und Propanol. Getrunken macht der je nach Menge aber blind bis tot. Naja, totmachen soll er ja auch, aber nur Krankheitskeime. Hier ein Youtube-Link zum Thema.
      Gruss
    • Theoretisch könnte Bourbon-Wiskey (62,5 bis 80 Volumsprozent) funktionieren. Mit Wodka (bis 52 %) müsste man schon lange gurgeln. Achtung: Auch größerflächige äußere Anwendung macht stock-besoffen (Hautatmung!). Trumps Tipp - Bleichmittel gurgeln - bewirkt ledigllich, daß vor der Himmelstür starkes Gedränge entsteht. Also: Pfoten weg!
    • Abt. KAR-05 ´Neue Mathematik´
      ====================
      1 + 1 = 5
      2 + 2 = 20
      3 + 3 = 45
      4 + 4 = ___ ?


      1 + 1 = 5 (1*(1*5))
      2 + 2 = 20 (2*(2*5))
      3 + 3 = 45 (3*(3*5))
      4 + 4 = ___ ? (4*(4*5)) = 80

      Abt. KAR-06
      ========
      Auf wieviele verschiedene Arten kann man eine Unterhose verkehrt anziehen?

      Richtig gekrempelt: 1 (Vorderseite hinten)
      Umgekrempelt: 2 (Vorderseite vorn oder hinten)

      Antwort: Auf 3 Arten

      Abt. Corona-Desinfektion mittels Schnaps??
      ===========================

      Dann empfehle ich Strohrum (80%), Klosterfrau-Melissengeist (79%) oder zumindest Escorial grün (56%)..

      Rabe
      Computer setzen logisches Denken fort!
      Unlogisches auch....

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von ravenheart ()

    • Abt. Sterben gehört zum Leben!
      ====================
      Mich hat etwas gestört, daß Corona-Fallzahlen in den "Mainstream-Medien" gerne sensationsgeil als absolute Fallzahlen genannt werden. Deshalb habe ich mir angesehen, wieviele Menschen pro Jahr / pro Monat / pro Woche / pro Tag eigentlich in normalen Jahren ohne Pandemie in den Ländern der Welt sterben. Die Datengrundlagen beziehen sich auf Juni 2019 und enthalten im Hintergrund auch Geburtenraten sowie Lebenserwartungen von Männern und Frauen - für spätere Erweiterungsmöglichkeit. Das beiliegende Programm zeigt die - schlichte Gemüter erschreckende - Normalität in Sachen Lebensende. Ein Halloween-Thema also. Wir verdrängen das nur gerne.
      Gruss

      TEIL 1:

      Quellcode

      1. WindowTitle "Länder-TotePerAnno in normalen Jahren"
      2. Window 0,0-%maxx,%maxy:ShowMax
      3. AppendMenubar 100," Land, Bevölkerung, Sterberate je 1000, Normaljahr-Tote absolut je Zeitspanne:"
      4. 'Q: https://de.wikipedia.org/wiki/Liste_von_Staaten_und_Territorien_nach_Einwohnerzahl#Liste
      5. ' Land, Einwohnerzahl
      6. VAR b$=\
      7. "China,1433783692#"+\
      8. "Indien,1366417756#"+\
      9. "Europäische Union,446824564#"+\
      10. "Vereinigte Staaten,329064917#"+\
      11. "Indonesien,270625567#"+\
      12. "Pakistan,216565317#"+\
      13. "Brasilien,211049519#"+\
      14. "Nigeria,200963603#"+\
      15. "Bangladesch,163046173#"+\
      16. "Russland,145872260#"+\
      17. "Mexiko,127575529#"+\
      18. "Japan,126860299#"+\
      19. "Äthiopien,112078727#"+\
      20. "Philippinen,108116622#"+\
      21. "Ägypten,100388073#"+\
      22. "Vietnam,96462108#"+\
      23. "Demokratische Republik Kongo,86790568#"+\
      24. "Deutschland,83517046#"+\
      25. "Türkei,83429607#"+\
      26. "Iran,82913893#"+\
      27. "Thailand,69625581#"+\
      28. "Vereinigtes Königreich,67530172#"+\
      29. "Frankreich,65129728#"+\
      30. "Italien,60100075#"+\
      31. "Südafrika,58558270#"+\
      32. "Tansania,58005461#"+\
      33. "Myanmar,54045422#"+\
      34. "Kenia,52573967#"+\
      35. "Südkorea,51225321#"+\
      36. "Kolumbien,50339443#"+\
      37. "Spanien,46736782#"+\
      38. "Argentinien,44780675#"+\
      39. "Uganda,44269587#"+\
      40. "Ukraine,43993643#"+\
      41. "Algerien,43053054#"+\
      42. "Sudan,42813237#"+\
      43. "Irak,39309789#"+\
      44. "Afghanistan,38041757#"+\
      45. "Polen,37887771#"+\
      46. "Kanada,37411038#"+\
      47. "Marokko,36471766#"+\
      48. "Saudi-Arabien,34268529#"+\
      49. "Usbekistan,32981715#"+\
      50. "Peru,32510462#"+\
      51. "Malaysia,31949789#"+\
      52. "Angola,31825299#"+\
      53. "Ghana,30417858#"+\
      54. "Mosambik,30366043#"+\
      55. "Jemen,29161922#"+\
      56. "Nepal,28608715#"+\
      57. "Venezuela,28515829#"+\
      58. "Madagaskar,26969306#"+\
      59. "Kamerun,25876387#"+\
      60. "Elfenbeinküste,25716554#"+\
      61. "Nordkorea,25666158#"+\
      62. "Australien,25203200#"+\
      63. "Taiwan,23773881#"+\
      64. "Niger,23310719#"+\
      65. "Sri Lanka,21323734#"+\
      66. "Burkina Faso,20321383#"+\
      67. "Mali,19658023#"+\
      68. "Rumänien,19364558#"+\
      69. "Chile,18952035#"+\
      70. "Malawi,18628749#"+\
      71. "Kasachstan,18551428#"+\
      72. "Sambia,17861034#"+\
      73. "Guatemala,17581476#"+\
      74. "Ecuador,17373657#"+\
      75. "Niederlande,17097123#"+\
      76. "Syrien,17070132#"+\
      77. "Kambodscha,16486542#"+\
      78. "Senegal,16296362#"+\
      79. "Tschad,15946882#"+\
      80. "Somalia,15442906#"+\
      81. "Simbabwe,14645473#"+\
      82. "Guinea,12771246#"+\
      83. "Ruanda,12626938#"+\
      84. "Benin,11801151#"+\
      85. "Tunesien,11694721#"+\
      86. "Belgien,11539326#"+\
      87. "Burundi,11530577#"+\
      88. "Bolivien,11513102#"+\
      89. "Kuba,11333484#"+\
      90. "Haiti,11263079#"+\
      91. "Südsudan,11062114#"+\
      92. "Dominikanische Republik,10738957#"+\
      93. "Tschechien,10689213#"+\
      94. "Griechenland,10473452#"+\
      95. "Portugal,10226178#"+\
      96. "Jordanien,10101697#"+\
      97. "Aserbaidschan,10047719#"+\
      98. "Schweden,10036391#"+\
      99. "Vereinigte Arabische Emirate,9770526#"+\
      100. "Honduras,9746115#"+\
      101. "Ungarn,9684680#"+\
      102. "Weißrussland,9452409#"+\
      103. "Tadschikistan,9321023#"+\
      104. "Österreich,8955108#"+\
      105. "Papua-Neuguinea,8776119#"+\
      106. "Serbien,8772228#"+\
      107. "Schweiz,8591361#"+\
      108. "Israel,8519373#"+\
      109. "Togo,8082359#"+\
      110. "Sierra Leone,7813207#"+\
      111. "Hongkong,7436157#"+\
      112. "Laos,7169456#"+\
      113. "Paraguay,7044639#"+\
      114. "Bulgarien,7000117#"+\
      115. "Libanon,6855709#"+\
      116. "Libyen,6777453#"+\
      117. "Nicaragua,6545503#"+\
      118. "El Salvador,6453550#"+\
      119. "Kirgisistan,6415851#"+\
      120. "Turkmenistan,5942094#"+\
      121. "Singapur,5804343#"+\
      122. "Dänemark,5771877#"+\
      123. "Finnland,5532159#"+\
      124. "Slowakei,5457012#"+\
      125. "Republik Kongo,5380504#"+\
      126. "Norwegen,5378859#"+\
      127. "Costa Rica,5047561#"+\
      128. "Palästina,4981422#"+\
      129. "Oman,4974992#"+\
      130. "Liberia,4937374#"+\
      131. "Irland,4882498#"+\
      132. "Neuseeland,4783062#"+\
      133. "Zentralafrikanische Republik,4745179#"+\
      134. "Mauretanien,4525698#"+\
      135. "Panama,4246440#"+\
      136. "Kuwait,4207077#"+\
      137. "Kroatien,4130299#"+\
      138. "Moldau,4043258#"+\
      139. "Georgien,3996762#"+\
      140. "Eritrea,3497117#"+\
      141. "Uruguay,3461731#"+\
      142. "Bosnien und Herzegowina,3300998#"+\
      143. "Mongolei,3225166#"+\
      144. "Armenien,2957728#"+\
      145. "Jamaika,2948277#"+\
      146. "Puerto Rico,2933404#"+\
      147. "Albanien,2880913#"+\
      148. "Katar,2832071#"+\
      149. "Litauen,2759631#"+\
      150. "Namibia,2494524#"+\
      151. "Gambia,2347696#"+\
      152. "Botswana,2303703#"+\
      153. "Gabun,2172578#"+\
      154. "Lesotho,2125267#"+\
      155. "Nordmazedonien,2083458#"+\
      156. "Slowenien,2078654#"+\
      157. "Guinea-Bissau,1920917#"+\
      158. "Lettland,1906740#"+\
      159. "Bahrain,1641164#"+\
      160. "Trinidad und Tobago,1394969#"+\
      161. "Äquatorialguinea,1355982#"+\
      162. "Estland,1325649#"+\
      163. "Osttimor,1293120#"+\
      164. "Mauritius,1269670#"+\
      165. "Republik Zypern,1198574#"+\
      166. "Eswatini,1148133#"+\
      167. "Dschibuti,973557#"+\
      168. "Fidschi,889955#"+\
      169. "Réunion,888932#"+\
      170. "Komoren,850891#"+\
      171. "Guyana,782775#"+\
      172. "Bhutan,763094#"+\
      173. "Salomonen,669821#"+\
      174. "Macau,640446#"+\
      175. "Montenegro,627988#"+\
      176. "Luxemburg,615730#"+\
      177. "Westsahara,582458#"+\
      178. "Suriname,581363#"+\
      179. "Kap Verde,549936#"+\
      180. "Malediven,530957#"+\
      181. "Malta,440377#"+\
      182. "Brunei,433296#"+\
      183. "Guadeloupe,400048#"+\
      184. "Belize,390351#"+\
      185. "Bahamas,389486#"+\
      186. "Martinique,375557#"+\
      187. "Island,339037#"+\
      188. "Vanuatu,299882#"+\
      189. "Französisch-Guayana,290823#"+\
      190. "Barbados,287021#"+\
      191. "Neukaledonien,282757#"+\
      192. "Französisch-Polynesien,279285#"+\
      193. "Mayotte,266153#"+\
      194. "São Tomé und Príncipe,215048#"+\
      195. "Samoa,197093#"+\
      196. "St Lucia,182795#"+\
      197. "UK Kanalinseln,172264#"+\
      198. "Guam,167295#"+\
      199. "Curaçao,163423#"+\
      200. "Kiribati,117608#"+\
      201. "Mikronesien,113811#"+\
      202. "Grenada,112002#"+\
      203. "St Vincent und die Grenadinen,110593#"+\
      204. "Aruba,106310#"+\
      205. "Amerikanische Jungferninseln,104579#"+\
      206. "Tonga,104497#"+\
      207. "Seychellen,97741#"+\
      208. "Antigua und Barbuda,97115#"+\
      209. "Ile of Man,84589#"+\
      210. "Andorra,77146#"+\
      211. "Dominica,71808#"+\
      212. "Cayman Islands,64948#"+\
      213. "Bermuda,62508#"+\
      214. "Marshallinseln,58791#"+\
      215. "Nördliche Marianen,57213#"+\
      216. "Grönland,56660#"+\
      217. "Amerikanisch-Samoa,55312#"+\
      218. "St Kitts und Nevis,52834#"+\
      219. "Färöer,48677#"+\
      220. "Sint Maarten,42389#"+\
      221. "Monaco,38967#"+\
      222. "Turks- und Caicosinseln,38194#"+\
      223. "Liechtenstein,38020#"+\
      224. "Saint-Martin,38002#"+\
      225. "San Marino,33864#"+\
      226. "Gibraltar,33706#"+\
      227. "Britische Jungferninseln,30033#"+\
      228. "Bonaire Sint Eustatius und Saba,25983#"+\
      229. "Palau,18001#"+\
      230. "Cookinseln,17547#"+\
      231. "Anguilla,14872#"+\
      232. "Tuvalu,11655#"+\
      233. "Wallis und Futuna,11436#"+\
      234. "Nauru,10764#"+\
      235. "Saint Barthelemy,9853#"+\
      236. "St Helena Ascension und Tristan da Cunha,6061#"+\
      237. "Saint-Pierre und Miquelon,5821#"+\
      238. "Montserrat,4991#"+\
      239. "Falklandinseln,3372#"+\
      240. "Niue,1614#"+\
      241. "Tokelau,1330#"+\
      242. "Vatikanstadt,81#"+\
      243. "Welt,7713468205"
      244. Declare tmp$[],Country$[],Bev$[]
      245. tmp$[]=Explode(b$,"#"):SetSize tmp$[],SizeOf(tmp$[])
      246. WhileLoop 0,SizeOf(tmp$[])-1
      247. Country$[&Loop]=SubStr$(tmp$[&Loop],1,",")
      248. Bev$[&Loop]=SubStr$(tmp$[&Loop],2,",")
      249. EndWhile
      250. 'Print "Letzter Eintrag: ",Country$[SizeOf(Country$[])-1], Bev$[SizeOf(Country$[])-1]
      Alles anzeigen
    • ... mit diesem TEIL 2 zusammenhängen:

      Quellcode

      1. 'Q: https://www.laenderdaten.info/lebenserwartung.php#by-population
      2. ' Land LEma LEwa GR%% SR%%
      3. VAR z$=\
      4. "Taiwan,80.86,80.86,7.9,7.9#"+\
      5. "Hongkong,82.3,87.7,7.2,6.4#"+\
      6. "Schweiz,81.9,85.7,10.0,7.8#"+\
      7. "Island,81.3,84.5,12.0,6.4#"+\
      8. "Japan,81.3,87.3,7.4,11.0#"+\
      9. "Italien,81.2,85.6,7.3,10.5#"+\
      10. "Macau,81.1,87.1,11.1,3.9#"+\
      11. "Norwegen,81.1,84.5,10.4,7.7#"+\
      12. "Singapur,81.0,85.4,8.8,5.0#"+\
      13. "Schweden,80.9,84.3,11.4,9.1#"+\
      14. "Israel,80.9,84.8,20.8,5.0#"+\
      15. "Spanien,80.7,86.3,7.9,9.1#"+\
      16. "Australien,80.7,84.9,12.6,6.3#"+\
      17. "Irland,80.5,84.1,12.5,6.4#"+\
      18. "Malta,80.4,84.6,9.2,7.6#"+\
      19. "Niederlande,80.3,83.4,9.7,8.9#"+\
      20. "Neuseeland,80.2,83.6,12.0,6.9#"+\
      21. "Luxemburg,80.1,84.6,10.3,7.1#"+\
      22. "Kanada,79.9,84.1,10.1,7.7#"+\
      23. "Südkorea,79.7,85.7,6.4,5.8#"+\
      24. "Frankreich,79.7,85.9,11.3,9.2#"+\
      25. "Vereinigtes Königreich,79.5,83.1,11.0,9.3#"+\
      26. "Belgien,79.4,83.9,10.3,10.7#"+\
      27. "Österreich,79.4,84.1,9.7,9.5#"+\
      28. "Griechenland,79.3,84.4,8.1,11.2#"+\
      29. "Finnland,79.1,84.5,8.6,9.9#"+\
      30. "Dänemark,79.1,82.9,10.6,9.5#"+\
      31. "Katar,79.0,81.9,9.5,1.2#"+\
      32. "Zypern,78.7,82.9,10.5,7.0#"+\
      33. "Deutschland,78.6,83.3,9.5,11.5#"+\
      34. "Slowenien,78.5,84.4,9.4,9.9#"+\
      35. "Portugal,78.3,84.5,8.5,11.0#"+\
      36. "Bermuda,77.9,85.6,8.2,7.5#"+\
      37. "Chile,77.6,82.4,12.4,6.2#"+\
      38. "Costa Rica,77.5,82.7,14.0,5.1#"+\
      39. "Malediven,77.2,80.5,14.2,2.8#"+\
      40. "Vereinigte Arabische Emirate,77.1,79.2,10.3,1.5#"+\
      41. "Libanon,77.1,80.8,17.5,4.4#"+\
      42. "Albanien,76.8,80.2,11.8,7.9#"+\
      43. "Kuba,76.8,80.7,10.2,9.0#"+\
      44. "Puerto Rico,76.3,83.4,6.7,9.2#"+\
      45. "Bahrain,76.3,78.3,14.0,2.4#"+\
      46. "Tschechien,76.2,82.0,10.7,10.6#"+\
      47. "Vereinigte Staaten,76.1,81.1,11.6,8.6#"+\
      48. "Oman,75.9,80.1,19.2,2.4#"+\
      49. "Algerien,75.5,77.9,24.3,4.7#"+\
      50. "Iran,75.4,77.7,18.8,4.8#"+\
      51. "Panama,75.2,81.6,19.0,5.1#"+\
      52. "Marokko,75.2,77.7,18.9,5.1#"+\
      53. "Kroatien,74.9,81.4,9.0,12.9#"+\
      54. "Bosnien und Herzegowina,74.8,79.7,8.1,10.7#"+\
      55. "Kuwait,74.7,76.5,13.9,2.7#"+\
      56. "China,74.5,79.1,10.9,7.1#"+\
      57. "Tunesien,74.5,78.5,17.6,6.3#"+\
      58. "Türkei,74.4,80.3,16.0,5.4#"+\
      59. "Kolumbien,74.3,79.9,14.9,5.6#"+\
      60. "Montenegro,74.3,79.2,11.7,10.7#"+\
      61. "Malaysia,74.1,78.2,16.8,5.1#"+\
      62. "Ecuador,74.1,79.6,19.7,5.1#"+\
      63. "Estland,74.0,82.7,10.9,11.9#"+\
      64. "Uruguay,74.0,81.4,13.9,9.5#"+\
      65. "Slowakei,73.9,80.8,10.6,10.0#"+\
      66. "Peru,73.8,79.3,17.9,5.5#"+\
      67. "Saudi-Arabien,73.8,76.6,17.8,3.5#"+\
      68. "Polen,73.7,81.7,10.2,10.9#"+\
      69. "Nordmazedonien,73.7,77.7,10.8,10.1#"+\
      70. "Serbien,73.5,78.4,9.2,14.6#"+\
      71. "Sri Lanka,73.4,80.1,15.8,6.7#"+\
      72. "Thailand,73.2,80.7,10.3,7.7#"+\
      73. "Argentinien,73.1,79.9,17.0,7.6#"+\
      74. "Jamaika,72.8,76.0,16.1,7.6#"+\
      75. "Honduras,72.8,77.4,21.6,4.4#"+\
      76. "Jordanien,72.7,76.2,22.0,3.9#"+\
      77. "Ungarn,72.7,79.6,9.6,13.4#"+\
      78. "Palästina,72.3,75.6,29.3,3.5#"+\
      79. "Paraguay,72.2,76.3,20.6,5.5#"+\
      80. "Mexiko,72.1,77.8,17.6,6.0#"+\
      81. "Brasilien,72.0,79.4,13.9,6.5#"+\
      82. "Rumänien,71.7,79.2,9.6,13.5#"+\
      83. "Bulgarien,71.5,78.6,8.9,15.4#"+\
      84. "Mauritius,71.3,77.7,10.2,8.5#"+\
      85. "Armenien,71.2,78.4,14.0,9.9#"+\
      86. "Vietnam,71.2,79.4,16.7,6.3#"+\
      87. "Salomonen,71.2,74.7,32.4,4.3#"+\
      88. "Bhutan,71.1,71.8,17.3,6.2#"+\
      89. "Guatemala,71.1,76.9,24.6,4.7#"+\
      90. "Litauen,70.9,80.7,10.0,14.1#"+\
      91. "Dominikanische Republik,70.8,77.2,19.5,6.2#"+\
      92. "Trinidad und Tobago,70.8,76.1,12.9,8.4#"+\
      93. "Nicaragua,70.7,77.8,20.6,5.1#"+\
      94. "Bangladesch,70.6,74.3,18.2,5.5#"+\
      95. "Aserbaidschan,70.3,75.3,14.0,5.8#"+\
      96. "Lettland,70.1,79.7,10.0,15.0#"+\
      97. "Kosovo,70.0,74.5,16.0,7.0#"+\
      98. "Libyen,69.9,75.8,18.8,5.1#"+\
      99. "Ägypten,69.6,74.2,26.4,5.8#"+\
      100. "Usbekistan,69.4,73.7,23.3,4.7#"+\
      101. "Indonesien,69.4,73.7,18.1,6.5#"+\
      102. "Kap Verde,69.3,76.0,19.5,5.6#"+\
      103. "Weißrussland,69.2,79.4,9.9,12.7#"+\
      104. "Georgien,69.2,78.0,13.5,12.8#"+\
      105. "Nepal,69.0,71.9,19.9,6.4#"+\
      106. "Kasachstan,68.8,77.2,21.8,7.1#"+\
      107. "Tadschikistan,68.7,73.2,30.8,4.9#"+\
      108. "Nordkorea,68.4,75.5,13.9,9.1#"+\
      109. "Bolivien,68.4,74.2,21.8,6.8#"+\
      110. "Irak,68.4,72.5,29.1,4.8#"+\
      111. "Venezuela,68.4,76.1,17.9,7.0#"+\
      112. "Suriname,68.4,74.9,18.5,7.3#"+\
      113. "Indien,68.2,70.7,17.9,7.2#"+\
      114. "El Salvador,68.2,77.6,18.3,7.0#"+\
      115. "Russland,67.8,77.8,11.5,12.4#"+\
      116. "Moldawien,67.5,76.1,10.1,11.6#"+\
      117. "Kirgisistan,67.4,75.6,27.1,5.2#"+\
      118. "Kambodscha,67.3,71.6,22.5,6.0#"+\
      119. "Osttimor,67.3,71.4,29.4,6.0#"+\
      120. "Philippinen,67.1,75.4,20.5,5.9#"+\
      121. "Guyana,66.8,73.0,20.0,7.5#"+\
      122. "Ukraine,66.7,76.7,8.7,14.8#"+\
      123. "Syrien,66.6,77.8,23.7,5.4#"+\
      124. "Ruanda,66.5,70.8,31.7,5.2#"+\
      125. "Botswana,66.2,72.0,24.8,5.7#"+\
      126. "Pakistan,66.2,68.1,28.3,6.9#"+\
      127. "Laos,65.8,69.4,23.5,6.4#"+\
      128. "Fidschi,65.6,69.2,21.3,8.2#"+\
      129. "Mongolei,65.6,74.0,24.1,6.3#"+\
      130. "Senegal,65.5,69.6,34.5,5.7#"+\
      131. "Madagaskar,65.1,68.3,32.7,6.1#"+\
      132. "Dschibuti,64.6,68.8,21.5,7.1#"+\
      133. "Turkmenistan,64.6,71.6,23.8,7.0#"+\
      134. "Jemen,64.4,67.8,30.5,6.0#"+\
      135. "Äthiopien,64.4,68.2,32.3,6.6#"+\
      136. "Gabun,64.2,68.3,31.6,6.8#"+\
      137. "Kenia,64.0,68.7,28.7,5.5#"+\
      138. "Eritrea,63.8,68.2,30.3,7.2#"+\
      139. "Myanmar,63.8,69.9,17.6,8.2#"+\
      140. "Sudan,63.3,66.9,32.2,7.2#"+\
      141. "Tansania,63.2,66.8,36.7,6.4#"+\
      142. "Mauretanien,63.1,66.3,33.7,7.2#"+\
      143. "Afghanistan,63.0,66.0,32.5,6.4#"+\
      144. "Papua-Neuguinea,63.0,65.6,27.1,7.4#"+\
      145. "Republik Kongo,62.8,65.7,32.9,6.7#"+\
      146. "Ghana,62.7,64.9,29.4,7.3#"+\
      147. "Komoren,62.4,65.9,31.9,7.2#"+\
      148. "Liberia,62.3,65.1,33.0,7.5#"+\
      149. "Haiti,61.5,65.8,24.3,8.5#"+\
      150. "Niger,60.9,63.2,46.1,8.3#"+\
      151. "Uganda,60.7,65.2,38.1,6.6#"+\
      152. "Malawi,60.7,66.9,34.1,6.6#"+\
      153. "Sambia,60.5,66.4,36.2,6.5#"+\
      154. "Guinea,60.5,61.7,36.4,8.5#"+\
      155. "Südafrika,60.5,67.4,20.5,9.4#"+\
      156. "Gambia,60.4,63.2,38.5,7.9#"+\
      157. "Burkina Faso,60.4,61.9,37.9,8.1#"+\
      158. "Namibia,60.4,66.2,28.6,8.1#"+\
      159. "Benin,59.9,63.0,36.2,8.9#"+\
      160. "Togo,59.9,61.6,33.1,8.4#"+\
      161. "Simbabwe,59.5,62.6,30.7,7.9#"+\
      162. "Burundi,59.4,63.0,39.0,7.9#"+\
      163. "Demokratische Republik Kongo,58.9,61.9,41.2,9.5#"+\
      164. "Mali,58.1,59.6,41.5,9.7#"+\
      165. "Angola,58.1,63.7,40.7,8.2#"+\
      166. "Kamerun,57.7,60.2,35.4,9.3#"+\
      167. "Äquatorialguinea,57.4,59.6,33.2,9.3#"+\
      168. "Mosambik,57.1,63.0,37.5,8.5#"+\
      169. "Elfenbeinküste,56.3,58.7,35.7,10.1#"+\
      170. "Südsudan,56.1,59.1,35.0,10.5#"+\
      171. "Guinea-Bissau,56.0,59.9,35.1,9.6#"+\
      172. "Somalia,55.4,58.8,41.8,10.9#"+\
      173. "Eswatini,55.3,64.0,26.3,9.4#"+\
      174. "Sierra Leone,53.5,55.1,33.4,11.7#"+\
      175. "Nigeria,53.5,55.2,37.9,11.9#"+\
      176. "Tschad,52.6,55.4,42.2,12.1#"+\
      177. "Zentralafrikanische Republik,50.6,55.0,35.3,12.3#"+\
      178. "Lesotho,50.6,57.0,26.8,14.2"
      179. Declare temp$[], Land$[],LEma$[],LEwa$[],GebProm$[],SterbProm$[]
      180. Temp$[]=Explode(z$,"#")
      181. WhileLoop 0,SizeOf(Temp$[])-1
      182. Land$[&Loop]=SubStr$(temp$[&Loop],1,",")
      183. ' LEma$[&Loop]=SubStr$(temp$[&Loop],2,",")
      184. ' LEwa$[&Loop]=SubStr$(temp$[&Loop],3,",")
      185. ' GebProm$[&Loop]=SubStr$(temp$[&Loop],4,",")
      186. SterbProm$[&Loop]=SubStr$(temp$[&Loop],5,",")
      187. EndWhile
      188. 'Print "Letzter Eintrag: ", Land$[SizeOf(Land$[])-1], SterbProm$[SizeOf(Land$[])-1] 'debug
      189. 'Main TABELLEN-MERGER
      190. Declare i&,j&,flg&
      191. ClearClip
      192. Set("Decimals",2)
      193. WhileLoop 0,SizeOf(Country$[])-1:i&=&Loop
      194. flg&=1
      195. Color 0,15
      196. WhileLoop 0,SizeOf(Land$[])-1:j&=&Loop
      197. If Land$[j&]=Country$[i&]
      198. flg&=0
      199. Case (Land$[j&]="Österreich") Or (Land$[j&]="Deutschland") Or (Land$[j&]="Schweiz"):Color 0,13
      200. Print
      201. Print " ";Land$[j&],Tab(35);Bev$[i&]," ",SterbProm$[j&]+"/k",
      202. Print Format$(" #,0",Val(Bev$[i&])*Val(SterbProm$[j&])/1000)+" p.a.",
      203. Print Format$(" #0",Val(Bev$[i&])*Val(SterbProm$[j&])/1000/12)+"/M ",
      204. Print Format$(" #0",Val(Bev$[i&])*Val(SterbProm$[j&])/1000/52)+"/W ",
      205. Print Tab(100);Val(Bev$[i&])*Val(SterbProm$[j&])/1000/365,"/Tag"
      206. EndIf
      207. :If %csrlin>34:WaitInput:cls:EndIf
      208. EndWhile
      209. Case flg&:PutClip Country$[i&]+", "
      210. EndWhile
      211. Print "\n--ENDE--"
      212. Beep
      213. Print " Gebiete mit fehlenden Geburten- und Sterbdaten siehe Zwischenablage! "
      214. WaitInput
      215. End
      Alles anzeigen
    • Abt. Quantenwelt
      ===========
      Wer schon immer mal die Schrödingergleichung kapieren wollte, aber sich nie zu fragen traute: Hier gibt es eine einleuchtende Erklärung (Youtube, engl.)

      Lösung zu KAR-08
      --------------------
      Spoiler anzeigen

      A * B = 2
      A - B = 2 ==> A = B + 2
      A + B = ?

      -----------
      (B+2)*B = 2
      B²+2*B - 2 = 0
      B_1,2 = -2/2 +\- Sqrt( (2/2)² - (-2) ) =
      = -1 +\- Sqrt(1+2) = +\- Sqrt(3) - 1

      A = B+2 = Sqrt(3)+1
      Antwort daher:
      A + B = Sqrt(3)+1 + Sqrt(3)-1 = 2*Sqrt(3)
      --------------------------------------------------
      Probe:
      A * B = 2 ?
      (Sqrt(3)+1) * (Sqrt(3)-1) =
      3+Sqrt(3) - Sqrt(3) - 1 = 3 - 1 = 2

      A - B = 2 ?
      Sqrt(3)+1 - (Sqrt(3)-1) =
      Sqrt(3)+1 - Sqrt(3) + 1 = 1 + 1 = 2
      q.e.d.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von p. specht ()