|
FOURTH-LEVEL GROUPS IN THE FIRST YEAR, continued
As in the previous program for finding the populations of 2-B and 3-E at the
end of the first "year", we now calculate fourth-level groups, but from 3-F:
4-P, 4-Q, and 4-R --- The baggage principle now applies to 4-Q and 4-R.
rem finds populations of 3-F, 4-P, 4-Q, and 4-R at the end of "year one"
rem "population" means 2-B, while F3 and P4 refer to 3-F and 4-P, etc
countit = 0
original = 5.49450549*10^16
rem 5.49450549*10^16 2-B per saturation cycle of 1-A
population = 0
F3 = 0
P4 = 0
Q4 = 0
R4 = 0
[start]
population = population + original
F3 = F3 + (population/(1.96 * 10^14))
F3 = F3 * 1.01
P4 = P4 + (F3/(1.82 * 10^12))
P4 = P4 * 1.02
Q4 = Q4 + (F3/(1.82 * 10^12))
Q4 = Q4 * 1.01
Q4 = Q4 * .9999
rem 4-Q and 4-R have PAES = 3, therefore the baggage principle is in effect
R4 = R4 + (F3/(1.96 * 10^14))
R4 = R4 * 1.02
R4 = R4 * .9999
countit = countit + 1
IF countit = 1000 then [end]
GOTO [start]
[end]
print F3
print P4
print Q4
print R4
end
answers:
5.99050083*10e10 (3-F)
16434.0722 or about 1.64*10e4 4-P
25.5418514 or about 26 4-Q
140.891191 or about 141 4-R
|
|
