Table for all combinatios

[ms02kk1]

I want to create a table with seven columns that each line will have all the possible combinations in order the sum of the line to be always 1. Each number will increase by 0.1 from 0 to 1. See example below:

C1 C2 C3 C4 C5 C6 C7
1 0 0 0 0 0 0
0.9 0.1 0 0 0 0 0
0.8 0.1 0.1 0 0 0 0
0.7 0.1 0.1 0.1 0 0 0
.
.
.
.
0.3 0.2 0.1 0.1 0.1 0.1 0.1
.
.
.

 

[Gary's Student]

If c1 has .9 and c2 has .1 they add to 1
if c1 has .1 and c2 has .9 they also add to 1

Do you want them both listed??

 

[ms02kk1]

Yes I want both listed

 

[shg]

Thare are 8008 such arrangements.

Another way to look at it is to generate all the partitions of 10 that have 7 or fewer elements -- there are a lot fewer of those to stare at:

10
9+1
8+2
8+1+1
7+3
7+2+1
7+1+1+1
6+4
6+3+1
6+2+2
6+2+1+1
6+1+1+1+1
5+5
5+4+1
5+3+2
5+3+1+1
5+2+2+1
5+2+1+1+1
5+1+1+1+1+1
4+4+2
4+4+1+1
4+3+3
4+3+2+1
4+3+1+1+1
4+2+2+2
4+2+2+1+1
4+2+1+1+1+1
4+1+1+1+1+1+1
3+3+3+1
3+3+2+2
3+3+2+1+1
3+3+1+1+1+1
3+2+2+2+1
3+2+2+1+1+1
3+2+1+1+1+1+1
2+2+2+2+2
2+2+2+2+1+1
2+2+2+1+1+1+1

(Divide all the numbers by 10 to get them to add to 1 instead of 10)

 

[Gary's Student]

This macro will list them as integers summing to 10:

Sub marine()
Dim I As Long, J As Long, K As Long, L As Long
Dim M As Long, N As Long, O As Long, x As Long
x = 1
For I = 0 To 9
For J = 0 To 9
For K = 0 To 9
For L = 0 To 9
For M = 0 To 9
For N = 0 To 9
For O = 0 To 9
If I + J + K + L + M + N + O = 10 Then
Cells(x, 1) = I
Cells(x, 2) = J
Cells(x, 3) = K
Cells(x, 4) = L
Cells(x, 5) = M
Cells(x, 6) = N
Cells(x, 7) = O
x = x + 1
End If
Next
Next
Next
Next
Next
Next
Next
MsgBox x
End Sub