Populating Third Dimesion Based on Average of three elements of Third Dimension

[ExcelMonkey]

I have a 3D array I populate the first and second dimension with rando
numbers (i.e. all rows and columns). I continue doing this into th
third element of the third dimension. For the 4th and 5th elements o
the third dimsions I only want to populate the rows and columns if
certain criteria is met. Otherwise make the value = 0.

(1,1,4) = Rnd() if the average of (1,1,1) to (1,1,3) is < .5 . I wan
to average across the 3rd dimension for the rows and columns. Thi
would be tantamount to averaging specific cells across three differen
sheets.

How do you do this?

Sub Thing()
Dim Array1() As Variant
Dim X As Integer
Dim Y As Integer
Dim Z As Integer

ReDim Array1(1 To 4, 1 To 3, 1 To 5)

'Populate 4 rows and 3 columns of top 3 layers with random numbers
For Z = 1 To 3
For X = 1 To 4
For Y = 1 To 3
Array1(X, Y, Z) = Rnd()
Next Y
Next X
Next Z


'Populuate remaining layers ( 4 and 5 )if the x values in 1-3 element
of third dimension Average<.5
For Z = 4 To 5
For X = 1 To 4
For Y = 1 To 3
If .........Then 'Average across
Array1(X, Y, Z) = Rnd()
Else
Array1(X, Y, Z) = 0
Next Y
Next X
Next

 

[Tom Ogilvy]

Sub Thing()
Dim Array1() As Variant
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
Dim tot as Single
ReDim Array1(1 To 4, 1 To 3, 1 To 5)

'Populate 4 rows and 3 columns of top 3 layers with random numbers
For X = 1 To 4
For Y = 1 To 3
tot = 0
For Z = 1 To 3
Array1(X, Y, Z) = Rnd()
tot = tot + array1(X,Y,Z)
Next Z
if Tot/3 < .5 then
array1(x,y,4) = rnd()
array1(x,y,5) = "?" ' you didn't say what to set it to
else
array1(x,y,4) = 0
array1(x,y,5) = 0
End if
Next Y
Next X

End Sub

 

[Sonny Kocak]

Hello Tom,

Thank you for answering this issue.

Issue resolved by community.

Sonny Kocak
(e-mail address removed)
Microsoft Developer Support

This posting is provided "AS IS" with no warranties, and confers no rights.

--------------------
| From: "Tom Ogilvy" <[email protected]>
| References: <[email protected]>
| Subject: Re: Populating Third Dimesion Based on Average of three elements
of Third Dimension
| Date: Tue, 3 Feb 2004 16:27:46 -0500
| Lines: 85
| X-Priority: 3
| X-MSMail-Priority: Normal
| X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
| X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
| Message-ID: <[email protected]>
| Newsgroups: microsoft.public.excel.programming
| NNTP-Posting-Host: host-141-116-172-231.ptr.hqda.pentagon.mil
141.116.172.231
| Path:
cpmsftngxa07.phx.gbl!cpmsftngxa10.phx.gbl!TK2MSFTNGXA05.phx.gbl!TK2MSFTNGP08
..phx.gbl!TK2MSFTNGP12.phx.gbl
| Xref: cpmsftngxa07.phx.gbl microsoft.public.excel.programming:458999
| X-Tomcat-NG: microsoft.public.excel.programming
|
| Sub Thing()
| Dim Array1() As Variant
| Dim X As Integer
| Dim Y As Integer
| Dim Z As Integer
| Dim tot as Single
| ReDim Array1(1 To 4, 1 To 3, 1 To 5)
|
| 'Populate 4 rows and 3 columns of top 3 layers with random numbers
| For X = 1 To 4
| For Y = 1 To 3
| tot = 0
| For Z = 1 To 3
| Array1(X, Y, Z) = Rnd()
| tot = tot + array1(X,Y,Z)
| Next Z
| if Tot/3 < .5 then
| array1(x,y,4) = rnd()
| array1(x,y,5) = "?" ' you didn't say what to set it to
| else
| array1(x,y,4) = 0
| array1(x,y,5) = 0
| End if
| Next Y
| Next X
|
| End Sub
|
| --
| Regards,
| Tom Ogilvy
|
|
message
| | > I have a 3D array I populate the first and second dimension with random
| > numbers (i.e. all rows and columns). I continue doing this into the
| > third element of the third dimension. For the 4th and 5th elements of
| > the third dimsions I only want to populate the rows and columns if a
| > certain criteria is met. Otherwise make the value = 0.
| >
| > (1,1,4) = Rnd() if the average of (1,1,1) to (1,1,3) is < .5 . I want
| > to average across the 3rd dimension for the rows and columns. This
| > would be tantamount to averaging specific cells across three different
| > sheets.
| >
| > How do you do this?
| >
| > Sub Thing()
| > Dim Array1() As Variant
| > Dim X As Integer
| > Dim Y As Integer
| > Dim Z As Integer
| >
| > ReDim Array1(1 To 4, 1 To 3, 1 To 5)
| >
| > 'Populate 4 rows and 3 columns of top 3 layers with random numbers
| > For Z = 1 To 3
| > For X = 1 To 4
| > For Y = 1 To 3
| > Array1(X, Y, Z) = Rnd()
| > Next Y
| > Next X
| > Next Z
| >
| >
| > 'Populuate remaining layers ( 4 and 5 )if the x values in 1-3 elements
| > of third dimension Average<.5
| > For Z = 4 To 5
| > For X = 1 To 4
| > For Y = 1 To 3
| > If .........Then 'Average across
| > Array1(X, Y, Z) = Rnd()
| > Else
| > Array1(X, Y, Z) = 0
| > Next Y
| > Next X
| > Next Z
| >
| >
| > ---
| > Message posted
| >
|
|
|