{"id":9925,"date":"2014-05-08T00:43:07","date_gmt":"2014-05-07T22:43:07","guid":{"rendered":"http:\/\/www.bernd-leitenberger.de\/blog\/?p=9925"},"modified":"2014-05-08T01:33:55","modified_gmt":"2014-05-07T23:33:55","slug":"mal-ein-kleiner-nischenfueller","status":"publish","type":"post","link":"https:\/\/www.bernd-leitenberger.de\/blog\/2014\/05\/08\/mal-ein-kleiner-nischenfueller\/","title":{"rendered":"Mal ein kleiner Nischenf&uuml;ller"},"content":{"rendered":"<p>Inzwischen habe ich wieder das Korrekturlesen der zweiten Ausgabe von &#8222;Europ&auml;ische Tr&auml;gerraketen 1&#8220; aufgenommen. Die Vertr&auml;ge f&uuml;r dieses Buch und die beiden Raketenlexika sind auch gek&uuml;ndigt, nachdem sie nun auslaufen. Michel Van hat mir auch einen Entwurf f&uuml;r die Ariane 4 XXL geschickt, die ich als eigene Raketensch&ouml;pfung mit aufgenommen habe.<\/p>\n<p>wer das buch noch in der alten Form haben will (ohne OTRAG, aber mit Einf&uuml;hrung in die Technologien) sollte es sich bis zum 24.6 kaufen. Der neue Band wird teurer (wahrscheinlich 34,90 Euro), aber auch umfangreicher (so um die 400 Seiten). Nur wegen der OTRAG lohnt sich ein Neukauf nicht, das sind nur 50 Seiten.<\/p>\n<p>Band 1 des Raketenlexikons wird nicht neu aufgelegt, da es ja ein Nachfolgebuch mit dem doppelten Umfang gibt. Band 2 wird neu aufgelegt werden, aktualisierte und erg&auml;nzt, aber bis dahin (ende November) habe ich ja noch Zeit. Derzeit habe ich nichts dran gemacht. An meinem Computerbuch habe ich auch ein paar Seiten neu geschrieben, aber das dauert noch. Irgendwie fehlt mir derzeit die Lust. Ich sollte ja eigentlich mein Ern&auml;hrunglehre-Buch fertigstellen, das weiter im Manuskript ist, aber irgendwie habe ich die Lust verloren.<!--more--><\/p>\n<p>Aber zu etwas komplett anderem. Nun ist ja bald Fu&szlig;ball-WM. Da gab es in meiner Jugend immer so Sammelalben. Das gibt es auch mit anderen Themen. Das Prinzip ist einfach: Man kauft (oder bekommt als Zugabe zu einem anderen Kauf) ein P&auml;ckchen mit Bildern die man in ein Album einklebt, bis es voll ist. Da die Bilder zuf&auml;llig verteilt sind, wird man nachdem man einige Bilder hat Bilder zuerst doppelt bekommen, dann eventuell dreifach. Je mehr Bilder man hat um so kleiner ist die Chance bei einer neuen Packung die noch fehlenden zu bekommen. Das ganze wird schnell zum Taschengeldgrab, vor allem weil schon wenn man alle Bilder auf einmal bekommt das Album teurer wird als ein gekauftes Buch. Wenn man nicht mit jemanden tauschen kann wird es wirklich teuer, doch auch da habe ich das Gef&uuml;hl das Bilder von besonders gefragten Stars oder Autos verknappt waren, also es von einigen Bildern mehr als von anderen gab.<\/p>\n<p>mich hat mal interessiert das zu simulieren und so habe ich folgendes <a href=\"\/prog\/Bildersammeln.dpr\">Pascal Programm <\/a>geschrieben: Man m&uuml;sste es mit kleinen &Auml;nderungen auch auf Lazarus kompilieren k&ouml;nnen.<\/p>\n<style type=\"text\/css\">\n.pas1-assembler { color: #800040; }\n.pas1-character { color: #004040; }\n.pas1-comment { color: #008000; font-style: italic; }\n.pas1-float { color: #004080; }\n.pas1-hexadecimal { color: #800000; }\n.pas1-identifier { color: #000000; }\n.pas1-number { color: #0000FF; }\n.pas1-preprocessor { color: #008080; }\n.pas1-reservedword { color: #000080; font-weight: bold; }\n.pas1-space { }\n.pas1-string { color: #800080; }\n.pas1-symbol { color: #000000; }\n<\/style>\n<p><!--StartFragment--><\/p>\n<pre><code><span class=\"pas1-reservedword\">program<\/span><span class=\"pas1-space\"> Bildersammeln;\r\n\r\n<\/span><span class=\"pas1-preprocessor\">{$APPTYPE CONSOLE}\r\n\r\n<\/span><span class=\"pas1-reservedword\">uses\r\n<\/span><span class=\"pas1-space\">  System.SysUtils,Math;\r\n\r\n<\/span><span class=\"pas1-reservedword\">function<\/span><span class=\"pas1-space\"> Albumvoll(<\/span><span class=\"pas1-reservedword\">const<\/span><span class=\"pas1-space\"> Album : <\/span><span class=\"pas1-reservedword\">array<\/span><span class=\"pas1-reservedword\">of<\/span><span class=\"pas1-space\"> Integer) : Boolean;\r\n\r\n<\/span><span class=\"pas1-reservedword\">var\r\n<\/span><span class=\"pas1-space\">  I : Integer;\r\n\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-space\">  Result:=True;\r\n  <\/span><span class=\"pas1-reservedword\">for<\/span><span class=\"pas1-space\"> I:=low(Album) <\/span><span class=\"pas1-reservedword\">to<\/span><span class=\"pas1-space\"> high(Album) <\/span><span class=\"pas1-reservedword\">do\r\n<\/span><span class=\"pas1-reservedword\">if<\/span><span class=\"pas1-space\"> Album[I]=<\/span><span class=\"pas1-number\">0<\/span><span class=\"pas1-reservedword\">then\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-space\">      Result:=False;\r\n      Break;\r\n    <\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">;\r\n<\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">;\r\n\r\n<\/span><span class=\"pas1-reservedword\">procedure<\/span><span class=\"pas1-space\"> Sammeln(<\/span><span class=\"pas1-reservedword\">const<\/span><span class=\"pas1-space\"> Bilderzahl,Packung,Durchlaeufe : Integer);\r\n\r\n<\/span><span class=\"pas1-reservedword\">var\r\n<\/span><span class=\"pas1-space\">  I,J : Integer;\r\n  Album : <\/span><span class=\"pas1-reservedword\">array<\/span><span class=\"pas1-reservedword\">of<\/span><span class=\"pas1-space\"> Integer;\r\n  Anzahl : Integer;\r\n  Minimum,Maximum,Summe : Integer;\r\n\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-space\">  Setlength(Album,Bilderzahl);\r\n  Summe:=<\/span><span class=\"pas1-number\">0<\/span><span class=\"pas1-symbol\">;\r\n  Minimum:=Maxint;\r\n  Maximum:=-Maxint;\r\n  <\/span><span class=\"pas1-reservedword\">for<\/span><span class=\"pas1-space\"> I:=<\/span><span class=\"pas1-number\">1<\/span><span class=\"pas1-reservedword\">to<\/span><span class=\"pas1-space\"> Durchlaeufe <\/span><span class=\"pas1-reservedword\">do\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-reservedword\">for<\/span><span class=\"pas1-space\"> j:=low(Album) <\/span><span class=\"pas1-reservedword\">to<\/span><span class=\"pas1-space\"> high(Album) <\/span><span class=\"pas1-reservedword\">do\r\n<\/span><span class=\"pas1-space\">    Album[j]:=<\/span><span class=\"pas1-number\">0<\/span><span class=\"pas1-symbol\">;\r\n    Anzahl:=<\/span><span class=\"pas1-number\">0<\/span><span class=\"pas1-symbol\">;\r\n    <\/span><span class=\"pas1-reservedword\">repeat\r\n<\/span><span class=\"pas1-reservedword\">for<\/span><span class=\"pas1-space\"> J:=<\/span><span class=\"pas1-number\">1<\/span><span class=\"pas1-reservedword\">to<\/span><span class=\"pas1-space\"> Packung <\/span><span class=\"pas1-reservedword\">do\r\n<\/span><span class=\"pas1-space\">        Inc(Album[Random(Bilderzahl)]);\r\n      Inc(Anzahl);\r\n    <\/span><span class=\"pas1-reservedword\">until<\/span><span class=\"pas1-space\"> Albumvoll(Album);\r\n    Minimum:=Min(Minimum,Anzahl);\r\n    Maximum:=Max(Maximum,Anzahl);\r\n    Summe:=Summe+Anzahl;\r\n  <\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">;\r\n  Writeln(<\/span><span class=\"pas1-string\">'Ergebnis:'<\/span><span class=\"pas1-symbol\">);\r\n  Writeln(<\/span><span class=\"pas1-string\">'Minimale Anzahl an Packungen: '<\/span><span class=\"pas1-symbol\">,Minimum);\r\n  Writeln(<\/span><span class=\"pas1-string\">'Maximale Anzahl an Packungen: '<\/span><span class=\"pas1-symbol\">,Maximum);\r\n  Writeln(<\/span><span class=\"pas1-string\">'Durchschnitt: '<\/span><span class=\"pas1-symbol\">,Round(Summe\/Durchlaeufe));\r\n<\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">;\r\n\r\n<\/span><span class=\"pas1-reservedword\">var\r\n<\/span><span class=\"pas1-space\">  BilderproAlbum,BilderproPackung,Duchlaeufe : Integer;\r\n\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-reservedword\">try\r\n<\/span><span class=\"pas1-reservedword\">if<\/span><span class=\"pas1-space\"> Paramcount&gt;<\/span><span class=\"pas1-number\">1<\/span><span class=\"pas1-reservedword\">then\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-space\">      BilderproAlbum:=Strtoint(Paramstr(<\/span><span class=\"pas1-number\">1<\/span><span class=\"pas1-symbol\">));\r\n      BilderproPackung:=Strtoint(Paramstr(<\/span><span class=\"pas1-number\">2<\/span><span class=\"pas1-symbol\">));\r\n      <\/span><span class=\"pas1-reservedword\">if<\/span><span class=\"pas1-space\"> Paramcount=<\/span><span class=\"pas1-number\">3<\/span><span class=\"pas1-reservedword\">then\r\n<\/span><span class=\"pas1-space\">        Duchlaeufe:=Strtoint(Paramstr(<\/span><span class=\"pas1-number\">3<\/span><span class=\"pas1-symbol\">));\r\n    <\/span><span class=\"pas1-reservedword\">end\r\n<\/span><span class=\"pas1-reservedword\">else\r\n<\/span><span class=\"pas1-reservedword\">begin\r\n<\/span><span class=\"pas1-space\">      write(<\/span><span class=\"pas1-string\">'Bilder pro Album: '<\/span><span class=\"pas1-symbol\">); Readln(BilderproAlbum);\r\n      write(<\/span><span class=\"pas1-string\">'Bilder pro Packung: '<\/span><span class=\"pas1-symbol\">); Readln(BilderproPackung);\r\n      write(<\/span><span class=\"pas1-string\">'anzahl der Simulationen: '<\/span><span class=\"pas1-symbol\">); Readln(Duchlaeufe);\r\n    <\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">;\r\n    Sammeln(BilderproAlbum,BilderproPackung,Duchlaeufe);\r\n  <\/span><span class=\"pas1-reservedword\">except\r\n<\/span><span class=\"pas1-reservedword\">on<\/span><span class=\"pas1-space\"> E : Exception <\/span><span class=\"pas1-reservedword\">do\r\n<\/span><span class=\"pas1-space\">      Writeln(E.ClassName,<\/span><span class=\"pas1-string\">': '<\/span><span class=\"pas1-symbol\">,E.<\/span><span class=\"pas1-reservedword\">Message<\/span><span class=\"pas1-symbol\">);\r\n  <\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">;\r\n  Readln;\r\n<\/span><span class=\"pas1-reservedword\">end<\/span><span class=\"pas1-symbol\">.\r\n<\/span><\/code><\/pre>\n<p><!--EndFragment--><\/p>\n<p>Das Ergebnis: Wenn man 30 Bilder pro Album hat und 3 pro Packung, so braucht man anstatt 10 im Durchschnitt 40 Packungen um das Album voll zu bekommen. Das Missverh&auml;ltnis nimmt zu je mehr Bilder man pro Album hat. Bei 60 Bildern sind es schon 94 im Durchschnitt. Im Extremfall sogar 316 Packungen, minimal immerhin auch schon 44. Meine Vermutung die ich schon als Jugendlicher hatte, dass sich das vor allem f&uuml;r den Verk&auml;ufer lohnt wird also best&auml;tigt.<br \/>\n<img loading=\"lazy\" decoding=\"async\" src=\"http:\/\/vg06.met.vgwort.de\/na\/4424b373bbea444d896ee7f662afc987\" width=\"1\" height=\"1\" alt=\"\"\/><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Inzwischen habe ich wieder das Korrekturlesen der zweiten Ausgabe von &#8222;Europ&auml;ische Tr&auml;gerraketen 1&#8220; aufgenommen. Die Vertr&auml;ge f&uuml;r dieses Buch und die beiden Raketenlexika sind auch gek&uuml;ndigt, nachdem sie nun auslaufen. Michel Van hat mir auch einen Entwurf f&uuml;r die Ariane 4 XXL geschickt, die ich als eigene Raketensch&ouml;pfung mit aufgenommen habe. wer das buch noch [&hellip;]<\/p>\n","protected":false},"author":169,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[1],"tags":[3631,3632],"class_list":["post-9925","post","type-post","status-publish","format-standard","hentry","category-allgemein","tag-album","tag-sammeln","entry"],"a3_pvc":{"activated":false,"total_views":542,"today_views":0},"jetpack_featured_media_url":"","jetpack-related-posts":[{"id":18689,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/06\/03\/explodiert-bevor-es-losging-2019-bis-2026\/","url_meta":{"origin":9925,"position":0},"title":"Explodiert, bevor es losging \u2013 2019 bis 2026","author":"Bernd Leitenberger","date":"3. Juni 2026","format":false,"excerpt":"Ich habe als ich vor einigen Jahren (2018) mal als ich f\u00fcr das Mercuryprogramm recherchiert habe einen Blog zu Explosionen auf dem Pad geschrieben, eigentlich zwei, weil ich ihn geteilt habe. Da es vor allem in den letzten Jahren neue Explosionen auf dem Pad gab, erg\u00e4nze ich ihn an dieser\u2026","rel":"","context":"In &quot;Raumfahrt&quot;","block_context":{"text":"Raumfahrt","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/"},"img":{"alt_text":"","src":"https:\/\/vg09.met.vgwort.de\/na\/27c754e9f7aa497393ce94c417289ade","width":350,"height":200},"classes":[]},{"id":18536,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/02\/22\/thor-nomenklaturchaos\/","url_meta":{"origin":9925,"position":1},"title":"Thor Nomenklaturchaos","author":"Bernd Leitenberger","date":"22. Februar 2026","format":false,"excerpt":"Heute geht es wieder um einen Splitter meiner Recherche zu dem Buch und zwar um Bezeichnungen und Abk\u00fcrzungen der Thor. Wer mit den Akronymen PGM-17, SM-75, WS-315A, DM-18, MB3, DSV-2L-1A, DSV3E, SLV-2G, Thorad, TAT, TAID, LTTAT, UBT ELT und XLT etwas anfangen kann, der braucht den Blog nicht zu lesen.\u2026","rel":"","context":"In &quot;Raumfahrt&quot;","block_context":{"text":"Raumfahrt","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/"},"img":{"alt_text":"","src":"https:\/\/vg07.met.vgwort.de\/na\/b59364b1981c43209378f0bd5b9df7ef","width":350,"height":200},"classes":[]},{"id":18469,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2025\/11\/13\/operation-fishbowl\/","url_meta":{"origin":9925,"position":2},"title":"Operation Fishbowl","author":"Bernd Leitenberger","date":"13. November 2025","format":false,"excerpt":"Hallo, ich schreibe weiter an meinem Buch, die Auskopplung der Thor und Delta aus dem Buch \u00fcber die US-Tr\u00e4gerraketen. Und wie immer nutze ich die Zeit noch was zu erg\u00e4nzen. Seitens des Einsatzes der Thor bzw. Delta als Satellitentr\u00e4ger gibt es wenig Neues zu schreiben da habe ich schon beim\u2026","rel":"","context":"In &quot;Raumfahrt&quot;","block_context":{"text":"Raumfahrt","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/"},"img":{"alt_text":"","src":"https:\/\/upload.wikimedia.org\/wikipedia\/commons\/e\/e2\/Radiocarbon_bomb_spike.svg","width":350,"height":200,"srcset":"https:\/\/upload.wikimedia.org\/wikipedia\/commons\/e\/e2\/Radiocarbon_bomb_spike.svg 1x, https:\/\/upload.wikimedia.org\/wikipedia\/commons\/e\/e2\/Radiocarbon_bomb_spike.svg 1.5x"},"classes":[]},{"id":18458,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2025\/10\/23\/die-agena-c-2\/","url_meta":{"origin":9925,"position":3},"title":"Die Agena C","author":"Bernd Leitenberger","date":"23. Oktober 2025","format":false,"excerpt":"Wie ihr sicher bemerkt habt, war es etwas ruhig hier im Blog. Der Grund ist ganz einfach, ich habe mich endlich entschlossen, einen Schlussstrich zu ziehen. Nein, nicht unter dem Blog. Seit f\u00fcnf Jahren will ich Band 2 des Apolloprogramms fertigstellen und habe in den letzten Jahren eigentlich immer nur\u2026","rel":"","context":"In &quot;Raumfahrt&quot;","block_context":{"text":"Raumfahrt","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/"},"img":{"alt_text":"","src":"https:\/\/vg04.met.vgwort.de\/na\/d6474dec02b34cf385a0dfced0cffb64","width":350,"height":200},"classes":[]},{"id":14192,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2019\/08\/03\/wernher-von-braun-und-sergej-korolow\/","url_meta":{"origin":9925,"position":4},"title":"Wernher von Braun und Sergej Korolow","author":"Bernd Leitenberger","date":"3. August 2019","format":false,"excerpt":"Die Welle der Mondlande-dokus hat auch eine sehr interessante Doku hervorgebracht, und zwar \u201eMondm\u00e4nner mit Hammer und Sichel\u201c. Es geht dabei um den Wettlauf im All, von Gagarin bis zur N-1. Vor allem um die dreht es sich. Das Format ist relativ authentisch. Nie zuvor habe ich von Russen, und\u2026","rel":"","context":"In &quot;Raumfahrt&quot;","block_context":{"text":"Raumfahrt","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/"},"img":{"alt_text":"","src":"https:\/\/vg02.met.vgwort.de\/na\/fc8f8fae3486407ba191d9f6e79f5c25","width":350,"height":200},"classes":[]},{"id":18705,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/06\/12\/wir-bauen-und-ein-fast-vollstaendig-wiederverwendbare-rakete-1\/","url_meta":{"origin":9925,"position":5},"title":"Wir bauen und ein (fast) vollst&auml;ndig wiederverwendbare Rakete (1)","author":"Bernd Leitenberger","date":"12. Juni 2026","format":false,"excerpt":"Nachdem wir mit dem Starship nun schon den zweiten Versuch haben, ein vollst\u00e4ndig wiederverwendbares Tr\u00e4gersystem zu entwickeln, m\u00f6chte ich heute mal zeigen, wie ich dies angehen w\u00fcrde. Aber zuerst einmal zu der Historie und wie ich zu meinen \u00dcberlegungen komme. Also dieser Blog wird wieder Grundlagenwissen vermitteln. Als man 1969\u2026","rel":"","context":"In &quot;Raumfahrt&quot;","block_context":{"text":"Raumfahrt","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/"},"img":{"alt_text":"","src":"https:\/\/vg09.met.vgwort.de\/na\/f7302b0d057d42bdb3f42e6720314906","width":350,"height":200},"classes":[]}],"jetpack_sharing_enabled":true,"amp_enabled":true,"_links":{"self":[{"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/posts\/9925","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/users\/169"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/comments?post=9925"}],"version-history":[{"count":0,"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/posts\/9925\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/media?parent=9925"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/categories?post=9925"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.bernd-leitenberger.de\/blog\/wp-json\/wp\/v2\/tags?post=9925"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}