Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

I get n =7 out of this. Why? And why do I get 14.002 for S1?

Status
Not open for further replies.

ReeceB65

Technical User
Dec 9, 2020
12
AU
x = Forms![Density Test]![No of Test]
For n = 1 To x

Dat = Choose(n, Forms![Density Test]!DENS1, Forms![Density Test]!DENS2, Forms![Density Test]!DENS3, Forms![Density Test]!DENS4, Forms![Density Test]!DENS5, Forms![Density Test]!DENS5, Forms![Density Test]!DENS6, Forms![Density Test]!DENS7, Forms![Density Test]!DENS8, Forms![Density Test]!DENS9, Forms![Density Test]!DENS10)

S1 = S1 + Dat

Next
Forms![Density Test]![AvD] = n

Forms![Density Test]![Av Density] = Forms![Density Test]![AvD]

I get 7 out of n! Why?

Also doing testing of the routine with x=6, and the 6 DENS equaling 2.333, 2.287, 2.365, 2.264, 2.377 and 2.339 respectively I get S1 = 14.002 instead of 13.965.

When I do Forms![Density Test]![AvD] = x, i get 6 ( in place of Forms![Density Test]![AvD] = n)

When I do Forms![Density Test]![AvD] = S1/x, I get 2.334 instead of the correct answer 2.327.

This is driving me crazy!
Please help?
Regards
Reece
 
I found the problem with the average issue but would still like to know why n comes back as 7?
 
Managed to get my code working

I'd like to share how I did this

Be mindful that x was a varying number of fields from 3 to 6.
x was stated as number of samples on my form.
"x = Forms![Density Test]![No of Test]"
So had to be able to calculate from whatever number of fields was required.

'Average Density Ratio
For q = 1 To x
Dat4 = Choose(q, Forms![Density Test]!DR1, Forms![Density Test]!DR2, Forms![Density Test]!DR3, Forms![Density Test]!DR4, Forms![Density Test]!DR5, Forms![Density Test]!DR6)
S4 = S4 + Dat4
Next
Forms![Density Test]!MDR = S4 / x
MDR = S4 / x

'Charact Density Ratio
For t = 1 To x
Dat5 = Choose(t, Forms![Density Test]!DR1, Forms![Density Test]!DR2, Forms![Density Test]!DR3, Forms![Density Test]!DR4, Forms![Density Test]!DR5, Forms![Density Test]!DR6)
S5 = S5 + (Dat5 - MDR) ^ 2
Next
DRSD = Sqr(S5 / (x - 1))
Forms![Density Test]!CDR = MDR - (Forms![Density Test]!K * DRSD)

K is a factor of risk applied to the std dev. THe base calc is Characteristic DR = Av DR-(0.92*stddev of DR)
The density ratios are across 6 different fields in a table and on a form.

Thanks for the help here on this site.
Really appreciated!
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top