(DM42) Lottery number generator programming

02102019, 09:54 AM
Post: #1




(DM42) Lottery number generator programming
Hello,
I am a sheer beginner of DM42 programming and interesting in a simple and useful program. Today I conceive something like the random number generator and show sets of integers on DM42/Free42 or HP42S. In short, Linux command: Code: shuf i 1Y n X By the way, this program would suggest horse racing Trio BOX or Lotto 7 (which I don't buy them so often.) I wish you could help me to improve this idea. Sample select 4 nominations from 18 horses. Y=18 X=4  X and Y register into R0 and R1 STO 00 R↓ STO 01  Random Number Part to store into Alpha memory LBL "RNG" DATE TIME x SEED RAN RCLx 01 IP  Verify given numbers are not the same each other. (This is going to mess my brain) x=y? R↓ ASTO GTO "RNG" Loop for X times LBL "LOOP" 1 STO 00 RCL 00 X≤0? RTN AVIEW END How you combine or improve these, I only know a little about 8bit BASIC. Thank you for reading and I look forward to hearing your great help. Best regards, 

02112019, 07:35 PM
(This post was last modified: 02112019 07:45 PM by Dieter.)
Post: #2




RE: (DM42) Lottery number generator programming
(02102019 09:54 AM)psw Wrote: I am a sheer beginner of DM42 programming and interesting in a simple and useful program. I see this is your first post here, so welcome to the forum. Regarding the intended program, I think we have to start from scratch here. There seem to be several misconceptions about various DM42 (or Free42, or HP42s) commands. For instance it is not a good idea at all to seed the random number generator before every single RAN call. Essentially you can forget about SEED unless you want to reproduce a certain random number sequence. Also your code would not generate integers between 1 and 18 but between 0 and 17 – you have to add 1 here. Then there are loop counters DSE and ISG so that manually decrementing R00 and checking whether it is > 0 or not is not required. This works like a FORloop in other programming languages. Finally ASTO does not store a value into Alpha, but it stores the first six characters of Alpha into the specified register (that's why the command then reads ASTO 03 or ASTO ST X or whatever). So the code snippets you posted will not work, neither separately nor combined. OK, let's forget about all this. The program you want would have to behave like this: Code: Generate X random integers between 1 and Y The following Free42 program implements this algorithm. The max. random integer Y is stored in "MAX", flag 01 is used to mark the first loop, it is automatically cleared when tested, and the loops are controlled by ISG and DSE. The loop counter is in R00, the test loop counter is on the stack. The random integers are stored in R01, R02, R03 etc. If, say, the 4th number has been calculated, the program compares this to R03, R02 and R01 to see whether there are duplicates. If there are, a new number is calculated. If not, the new R is stored in the respective register, here R04. The first two lines correct input errors ("18 different numbers out of 4" instead of vice versa) and the final lines restore the original Y and X and remove "MAX" (cleanup). This way you can repeat the whole thing by simply pressing [R/S]. This program can be optimized. For instance the whole flag thing can be removed. ;) But it is more clear this way. Now take a look at the program and ask everything you don't understand. Code: 00 { 90Byte Prgm } Note: "Rv" means R↓ and line 34 appends a space to Alpha. The following example was obtained after 0,12345 [SEED] on Free42. But I can't say if this will produce the same numbers on the DM42. 18 [ENTER] 4 XEQ"RANDOM" 4 7 3 16 [R/S] 9 6 17 4 [R/S] 3 16 4 18 etc. Now, what about adding a sorted output ?) Dieter 

02122019, 12:57 AM
Post: #3




RE: (DM42) Lottery number generator programming
(02112019 07:35 PM)Dieter Wrote: Now, what about adding a sorted output ?) The following program uses the bits of an integer to simulate a set. Using the BIT? function allows to detect a duplicate value. It then goes back to label 00 and tries again. Code: 00 { 54Byte Prgm } The limitation however is that this works only up to 35 horses. Example: 18 ENTER 4 XEQ "RANDOM" ST X=6.017 R/S ST X=10.017 R/S ST X=15.017 R/S ST X=16.017 R/S 18.017 Make sure to have the printer off (POFF) and flag 21 (Printer Enable) set, i.e. SF 21. Otherwise the VIEW command in line 23 will not stop. Have fun with your DM42. Thomas 

02122019, 05:56 AM
(This post was last modified: 02142019 07:43 AM by psw.)
Post: #4




RE: (DM42) Lottery number generator programming
Thank you very much, Dieter and Thomas, how grateful your help are.
To Dieter, your explanation is very clear and handy, digesting a lot of complicated images into the beginner's brains. This 41/42 programming is a little similar to BASIC and C for the loop control. I am very happy to know the counter functions are bundled and do not need to use registers. And it also tells me that I need to study all the functions do what in this machine. Quote:01>LBL "RANDOM"First, I am sort of impressed like a lightning into my eyes. This small idea is unexpectedly useful for someone who doesn't know which number to put X register. It makes user friendly and some nontech savvy people can get the right numbers without errors. This tells me to use my brain more flexible. I will try to do. The concept that RAN x Y results 0 to Y1, came up my mind, short after trying RAN function without programming. That's my bad. Quote:04 1E3Second, I wondered why you made a change of X register into 1.004, puzzled a lot and finally figured out this is for the Loop control DSE and ISG indirectly (so the registers don't mess up by loop counter), also I was amazed that the way of LOOP work to reduce memory into just ONE stack value for a loop. Therefore this HP 41 base series was used by NASA in 80's. SetFlag and FlagChech?Clear is as C language Code: if (i==0) do {next program} else {skip next program}; i=0 FYI, input of Quote: 0.12345 [SEED] 18 [ENTER] 4 [EXQ] "RANDOM"to my DM42 returns 5 14 4 6 [R/S] 12 3 14 14 [R/S] 1 12 10 3 Perhaps, random generator is different from Free42. To Thomas, yes they are my flowchart flaws. The first one; "the numbers may not be unique each other" issue, I noticed this early but couldn't really find the way to do the comparison. Now, what BIT? does is still not clear in my brain but the hint "this may detect up to 35 horses", thus this machine operate 36 bits in BASE mode, my friend has an idea about binary numbers but unfortunately I don't have much, now I understand this program can't be used for a lottery which the numbers are usu more than 35. The second concern the AVIEW could be very long, well, for lottery buyers need 6 or 7 numbers, for horse ticket buyers wouldn't be crazy and it used to be many horses at one race, these days 18 is maximum gate number in Japan and 20 or so in France. So, the name of the program should be "horseracing ticket picker" and the number limit MAX = 35 and 6 drawings due to the printable capacity of AVIEW at glance. Will you add this collection to the DM42/Free42 program library? It can be used as a dice roller, if they don't watch horse races. I'd like to think and hear what would Dieter and Thomas develop the program together. Best regards, 

« Next Oldest  Next Newest »

User(s) browsing this thread: 1 Guest(s)