<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=iso-8859-1"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
color:black;
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
span.E-MailFormatvorlage18
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:windowtext;}
span.E-MailFormatvorlage19
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body bgcolor=white lang=DE link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='color:#1F497D'>Hallo Jürg und Christoph,<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>vielen Dank für Eure Erklärungen. Damit bin ich nun wieder etwas schlauer.<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Ich werde dann zukünftig folgende Generator verwenden:<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>- T($r,65536) $wuerfel+=$r $wuerfel*=25173 $wuerfel+=13849 $wuerfel%=6 $wuerfel+=1<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Somit spare ich wenigstens noch einen Befehl und komme dann mit J() und P() auf 8 Befehle. Das reicht für meine Programmierung.<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Vielen Dank Euch.<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Gruß<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'>Marcel<o:p></o:p></span></p><p class=MsoNormal><span style='color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><a name="_MailEndCompose"><span style='color:#1F497D'><o:p> </o:p></span></a></p><div><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext;mso-fareast-language:DE'>Von:</span></b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext;mso-fareast-language:DE'> tiptoi [mailto:tiptoi-bounces@lists.nomeata.de] <b>Im Auftrag von </b>Christoph Weber<br><b>Gesendet:</b> Montag, 17. September 2018 08:47<br><b>An:</b> tiptoi@lists.nomeata.de<br><b>Betreff:</b> Re: [Tiptoi] Pseudo Zufallsgenerator<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><p>Hi Marcel,<o:p></o:p></p><p>ich versuch mal eine kurze Erklärung was hier passiert:<o:p></o:p></p><p>T($r, 65535) liest den Timer aus und "begrenzt" ihn über die modulo-funktion auf 0-65535.<o:p></o:p></p><p>Das register $rnd enthält den aktuellen Zufallszahlen-Seed-Wert; initial 0, nach $rnd+=$r steht darin die maskierte Zeit von eben. Beim nächsten Durchlauf (also nächster Zufallszahl) wird wieder die aktuelle Zeit addiert um eine zufälligere Streuung zu erzeugen. <o:p></o:p></p><p>Danach wird der Wert mit 25173 multipliziert - der Wert ist relativ willkürlich aber in der Literatur und typischen Implementierungen zu finden; ebenso der Werte 13849 der aufaddiert wird. Das ganze dient nur dazu bei jeder Zufallszahl einen neuen seed-Wert zu bekommen aus dem die eigentliche Zufallszahl berechnet wird.<o:p></o:p></p><p>Man kann für die beiden Konstanten auch andere Werte verwenden, aber bei ungeeigneten Konstanten ist der Zufall halt schlechter oder gar nicht mehr vorhanden (z.B. Multipliator 0 oder 1 oder beim offset kleine Zahlen. Der Multiplikator sollte z.B. auch immer ungerade sein, sonst kommen (wegen des ungeraden Offsets) nur ungerade Würfelergebnisse raus.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p>Deine Version würde zwar auch Zufallszahlen erzeugen, aber mit einer erheblich schlechteren Streuung weil der seed-Wert nur noch von der aktuellen Zeit abhängt - Extrembeispiel: dreimal in der gleichen Sekunde würde dreimal der gleiche "Zufallswert"erzeugt. Deshalb auch das dritte register $r - um es auf $rnd aufzuaddieren.<o:p></o:p></p><p>Die Befehle $wuerfel%=6 und $wuerfel+=1 sind nur dazu da um die Zufallszahl zuerst auf 0-5 zu begrenzen und dann um 1 zu erhöhen damit Würfelaugen herauskommen.<o:p></o:p></p><p><o:p> </o:p></p><p>Oder als Formel geschrieben:<o:p></o:p></p><p> $rnd = ($rnd + AktuelleZeitInSekunden modulo 65535) * 25173 + 13849 <o:p></o:p></p><p> $wuerfel= ($rnd modulo 6) + 1<o:p></o:p></p><p><o:p> </o:p></p><p><o:p> </o:p></p><p>Schöne Grüße<o:p></o:p></p><p> christoph<o:p></o:p></p><p><o:p> </o:p></p><div><p class=MsoNormal>Am 17.09.2018 um 07:59 schrieb Marcel Eilers:<o:p></o:p></p></div><blockquote style='margin-top:5.0pt;margin-bottom:5.0pt'><p class=MsoNormal>Guten Morgen,<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>auf die Notwendigkeit meine Programmierung auf maximal 8 Befehle in einer Reihe zu kürzen, habe ich mir den „Pseudo-Zufallsgenerator“ nochmal angesehen. Irgendwie bin ich da nicht ganz dahinter gestiegen. Aber interessieren würde es mich trotzdem.<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Also der Standard Generator lautet:<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>- T($r,65535) $rnd+=$r $rnd*=25173 $rnd+=13849 $wuerfel:=$rnd $wuerfel%=6 $wuerfel+=1<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Damit habe ich schon 7 Befehle verbraucht. Jetzt noch ein J und ein P Befehl und der Assembler macht Probleme.<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Warum werden für diese Funktion 3 Register verwendet?? Man könnte dies auch so schreiben:<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>- T($wuerfel,65535) $wuerfel*=25173 $wuerfel+=13849 $wuerfel%=6 $wuerfel+=1<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Dann hätte ich das um 2 Befehle reduziert…<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Welche Bedeutung haben die Zahlen 25173 und 13849???? Ist das willkürlich?<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Wäre schön, wenn mir jemand dieser Funktion einfach nur mal erläutern könnte. Dies einfach nur interessehalber…<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Vielen Dank für Eure Bemühungen.<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal>Schöne Grüße<o:p></o:p></p><p class=MsoNormal>Marcel<o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal> <o:p></o:p></p><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Times New Roman","serif";mso-fareast-language:DE'><br><br><o:p></o:p></span></p></blockquote><p class=MsoNormal><span style='font-size:12.0pt;font-family:"Times New Roman","serif";mso-fareast-language:DE'><o:p> </o:p></span></p></div></body></html>