Mathematica: I made a program, but can't manipulate it. Please help!

  • Mathematica
  • Thread starter gikiian
  • Start date
  • #1
98
0
The program I wrote accepts a certain number between 3 and 18.
Then it returns the ways this number can be obtained by throwing three dice simultaneously and adding the face values.
I want to manipulate this number, :biggrin:
but can't achieve it using the ordinary code of manipulation. :grumpy:

I tried to find any error, but really wasn't able to figure out where have I gone wrong. :confused:

Need help!

Code:
j = 0;
For [
      x = 1, 
      x <= 6, 
      x++, 
      For [ 
            y = 1, 
            y <= 6, 
            y++, 
            For [ 
                  z = 1, 
                  z <= 6, 
                  z++,
                  {
                   If [ 
                       x + y + z == 5,  (*accepts the required sum of the face values*)
                       { 
                        If [
                            j + 1 <= 9, 
                            Print [j + 1, ".", "   ", x , " ", y, " " , z ], 
                            Print [j + 1, ".", "  ", x , " ", y, " " , z ]
                           ], 
                        j++
                       }    
                      ]
                  }
                 ]
           ]
     ]
 
Last edited:

Answers and Replies

  • #2
phyzguy
Science Advisor
4,598
1,553
You could define a function, and then evaluate it for different values, like this:

Code:
f[w_] :=
 Module[{j = 0},
  For[x = 1, x <= 6, x++, 
   For[y = 1, y <= 6, y++, 
    For[z = 1, z <= 6, 
     z++, {If[
       x + y + z == 
        w,(*accepts the required sum of the face values*){If[
         j + 1 <= 9, Print[j + 1, ".", "   ", x, " ", y, " ", z], 
         Print[j + 1, ".", "  ", x, " ", y, " ", z]], j++}]}]]]]

f[5]

1.   1 1 3

2.   1 2 2

3.   1 3 1

4.   2 1 2

5.   2 2 1

6.   3 1 1

f[3]

1.   1 1 1

f[4]

1.   1 1 2

2.   1 2 1

3.   2 1 1
 

Related Threads on Mathematica: I made a program, but can't manipulate it. Please help!

  • Last Post
Replies
1
Views
4K
Replies
3
Views
1K
Replies
5
Views
5K
Replies
2
Views
2K
Replies
11
Views
9K
Replies
1
Views
3K
Replies
4
Views
3K
Replies
2
Views
4K
Replies
0
Views
2K
Top