{"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-related-posts":[{"id":18841,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/08\/19\/raumfahrtgrundlagen-fuer-dummys-die-raketengrundgleichung\/","url_meta":{"origin":9925,"position":0},"title":"Raumfahrtgrundlagen f&uuml;r Dummys \u2013 Die Raketengrundgleichung","author":"Bernd Leitenberger","date":"19.08.2026","format":false,"excerpt":"Im heutigen, zentralen Teil der Grundlagen geht es um die Raketengrundgleichung, nach dem ersten, der die Raketengrundgleichung aufstellte, auch \u201eZiolkowski\u2011Gleichung\u201c genannt. Die Raketengrundgleichung ist verglichen mit anderen Formeln in der Raumfahrt eine recht einfache Gleichung, deren Folgen aber viele bis heute nicht richtig verstanden haben. Die Raketengrundgleichung ist einfach diese:\u2026","rel":"","context":"In &quot;Grundlagen&quot;","block_context":{"text":"Grundlagen","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/grundlagen\/"},"img":{"alt_text":"","src":"https:\/\/vg04.met.vgwort.de\/na\/3788de6fc2a4423999a11ac3666576a3","width":350,"height":200},"classes":[]},{"id":18813,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/08\/13\/raumfahrtgrundlagen-fuer-dummys-treibstoffe\/","url_meta":{"origin":9925,"position":1},"title":"Raumfahrtgrundlagen f&uuml;r Dummys \u2013 Treibstoffe","author":"Bernd Leitenberger","date":"13.08.2026","format":false,"excerpt":"Eine \u2013 wie ich finde \u2013 der besten Sektionen auf meiner Website sind die \u201eGrundlagen der Raumfahrt\u201c, die ich jedem empfehlen kann. In dem Bestreben, dass ich dort mein Wissen unterbringe, ist sie aber auch recht umfangreich und komplex geworden. Daher starte ich ab jetzt mit einer lockeren Reihe von\u2026","rel":"","context":"In &quot;Grundlagen&quot;","block_context":{"text":"Grundlagen","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/raumfahrt\/grundlagen\/"},"img":{"alt_text":"","src":"https:\/\/vg04.met.vgwort.de\/na\/0b4d2b74edf042c0a4ac71528facbec5","width":350,"height":200},"classes":[]},{"id":18689,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/06\/03\/explodiert-bevor-es-losging-2019-bis-2026\/","url_meta":{"origin":9925,"position":2},"title":"Explodiert, bevor es losging \u2013 2019 bis 2026","author":"Bernd Leitenberger","date":"03.06.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":18811,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/08\/12\/der-traum-vom-raketenabwehrschild\/","url_meta":{"origin":9925,"position":3},"title":"Der Traum vom Raketenabwehrschild","author":"Bernd Leitenberger","date":"12.08.2026","format":false,"excerpt":"Die USA z\u00fcndeten am 6. August 1945 \u00fcber Hiroshima die erste Atombombe, die als Waffe eingesetzt wurde, wenige Tage sp\u00e4ter folgte die zweite, die \u00fcber Nagasaki abgeworfen wurde. Danach waren die USA die milit\u00e4risch st\u00e4rkste Macht weltweit, was sie auch bis heute sind. Es begann eine Periode, in der die\u2026","rel":"","context":"In &quot;Allgemein&quot;","block_context":{"text":"Allgemein","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/allgemein\/"},"img":{"alt_text":"","src":"https:\/\/vg04.met.vgwort.de\/na\/e305f7937333449491cbfd543414c6dc","width":350,"height":200},"classes":[]},{"id":18536,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/02\/22\/thor-nomenklaturchaos\/","url_meta":{"origin":9925,"position":4},"title":"Thor Nomenklaturchaos","author":"Bernd Leitenberger","date":"22.02.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":18709,"url":"https:\/\/www.bernd-leitenberger.de\/blog\/2026\/06\/14\/der-blog-wird-20\/","url_meta":{"origin":9925,"position":5},"title":"Der Blog wird 20","author":"Bernd Leitenberger","date":"14.06.2026","format":false,"excerpt":"Vor genau 20 Jahren erschien der erste Blog, damals noch unter der Bezeichnung \u201eWeb-Log\u201c. Ich habe gerade einen Artikel gelesen \u00fcber das Zustandekommen des Worts \u201eBlog\u201c. Interessanterweise war es genauso wie bei mir. Obwohl es die Bezeichnung \u201eBlog\u201c damals schon gab, bezeichnete ich meinen Blog lange Zeit als \u201eWeb-Log\u201c, also\u2026","rel":"","context":"In &quot;Allgemein&quot;","block_context":{"text":"Allgemein","link":"https:\/\/www.bernd-leitenberger.de\/blog\/category\/allgemein\/"},"img":{"alt_text":"","src":"https:\/\/vg09.met.vgwort.de\/na\/635ab0c6229b4d6898fff3de77fa418a","width":350,"height":200},"classes":[]}],"jetpack_sharing_enabled":true,"amp_enabled":true,"jetpack_featured_media_url":"","_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}]}}