Date: Mon, 16 Aug 1999 13:38:17 +0200
From: "Gatherer, D. (Derek)" <D.Gatherer@organon.nhe.akzonobel.nl>
Subject: RE: Class defections etc
To: "'memetics@mmu.ac.uk'" <memetics@mmu.ac.uk>
My sloppy terminologising has caused some confusion, so I'll try to be
clearer here:
for ($round = 1; $round <= $cycle; $round++)
{
$P_old_money = ($P * $Rp); # this is the number of babies born to
current members of the professional class. I assume they stay in the
professional class.
$W = $W * $Rw; # this is the number of babies born to the current
worker class.
$total = $P_old_money + $W; # this is the total number of babies
born
$P_new_money = ($proportion * $total) - $P_old_money; # the
vacancies in the upper class
$W = $W - $P_new_money; # the workers are reduced by movement
upwards.
$P = $P_old_money + $P_new_money; # this is the size of the new
upper class, the combination of the old_money kids and the upwardly mobile
workers.
print OUTFILE "\n$round\t$P_old_money\t$P_new_money\t$W";
}
===============================================================
This was distributed via the memetics list associated with the
Journal of Memetics - Evolutionary Models of Information Transmission
For information about the journal and the list (e.g. unsubscribing)
see: http://www.cpm.mmu.ac.uk/jom-emit