19BII Program Question « Next Oldest | Next Newest »

 ▼ Hans van der Drift Junior Member Posts: 3 Threads: 2 Joined: Jan 1970 01-28-2007, 10:02 PM Hello, I would like to ask for some help. I have some general knowledge of the solver and formulas but I am stumped on how (or if) to create a simple dice rolling equation. I am trying to create a solver function that will re-create the following. NUM DICE? = D HIT MIN? = H Number of hits = X So if I needed to recreate the rolling of 48 dice and show how many results are 5 and 6 cumulatively. or 32 dice and how many results are 4, 5 and 6 cumulatively. I saw a post from a guy that has done the on a TI-82. He used this formula. Quote: ClrHome --clear the screen 0->X --the variable x gets reset to 0, x will hold the # of successful hits Input ("Num Dice? ", D) --Prompts for # of dice to roll, stores the value in variable D Input ("Hit Min? ", H) --Prompts for Minimum number needed for a succesful hit, usually 4,5, or 6, and stores in Variable H) For (I,1,D,1) --This is a loop, the Variable I is our incrememted by 1 each time through until it is equal to D, which is the # of dice rolls If ((int (rand*6+1)>=H) --if the randomly generated number of 1-6 is greater than variable H, your minimum hit #, then... X+1->X --X, your hit count variable, gets incremented by 1 END --end the loop Disp X --print out the number of hits Quote: REPLACE THIS TEXT WITH THE QUOTE ▼ Marcus von Cube, Germany Posting Freak Posts: 3,283 Threads: 104 Joined: Jul 2005 01-29-2007, 04:33 AM This is a bit tricky but should work: ```HITS=SUM(I:1:DICE:1:MAX(0:SGN(INT(6xRAN#)+2-HMIN))) ``` Replace SUM by the summation sign (Sigma) ```INT(6xRAN#) returns an integer from 0 to 5 +2-HMIN converts it to a posive number if the margin is hit MIN(0:SGN()) returns a 1 if the argument is positive, 0 else ``` The summation sums up the ones that indicate a hit. ▼ Marcus von Cube, Germany Posting Freak Posts: 3,283 Threads: 104 Joined: Jul 2005 01-29-2007, 04:43 AM I just found out about the IF function: ```HITS=SUM(I:1:DICE:1:IF(INT(6xRAN#)+1

 Possibly Related Threads... Thread Author Replies Views Last Post Solver issue with HP 17BII - different from 19BII Jeff Kearns 13 3,293 11-28-2013, 02:36 AM Last Post: Don Shepherd HP Prime: run a program in another program Davi Ribeiro de Oliveira 6 1,863 11-11-2013, 08:28 PM Last Post: Davi Ribeiro de Oliveira 42s program question David Persinger (US) 5 1,388 08-09-2012, 06:34 AM Last Post: David Persinger (US) Why is the 19BII faster than the 17BII(+)? Timo Labrenz 8 2,014 05-03-2012, 08:00 AM Last Post: Xerxes HP 19Bii Market Value Celso Lima 1 800 04-18-2012, 05:39 AM Last Post: Don Shepherd WP34S program question Mike Maiorana 12 2,427 04-05-2012, 03:09 AM Last Post: Steve Simpkin 19BII replacement recommendations/decision making help needed Timo Labrenz 20 3,450 03-28-2012, 12:24 PM Last Post: Timo Labrenz 17BII+ vs 19BII Business Consulatant II Jeff Kearns 18 3,492 01-06-2012, 08:52 PM Last Post: Raymond Del Tondo Needed - a little help with my HP-19BII Palmer O. Hanson, Jr. 30 4,970 05-18-2010, 12:36 PM Last Post: Steve Perkins A new 19BII variant... Massimo Gnerucci (Italy) 3 1,014 04-14-2010, 04:46 PM Last Post: Sancerre (Phoenix)

Forum Jump: