From: lfoard@Turing.ORG (Lawrence C. Foard)
Subject: Re: Homosexuals anywhere are wrong
Organization: The Turing Project, Charlottesville Virginia.
Date: Thu, 30 Jul 1992 08:49:08 GMT

In article <1992Jul29.174138.24488@spdcc.com> dyer@spdcc.com (Steve Dyer) writes:
>In article <1992Jul29.153107.26021@murdoch.acc.Virginia.EDU> lfoard@Turing.ORG (Lawrence C. Foard) writes:
>>Even if 50% do that still leaves 50% a survival rate of 1% less than
>>average will wipe out a gene in a fairly small number of generations.
>
>There is nothing less interesting than someone trying to argue a
>point when they're ignorant of the topic.

Since you choose to insult me I assume you disagree with the statement?
Perhaps you can present some evidence for your view that a gene imparting
a 1% disadvantage will not be removed by evolution?

>Stay away from genetics, Larry, you're not helping things.

Don't make ignorant assumptions of ignorance :-)

I will admit that my statistics arn't that great so instead I wrote a
program to test the ascertions of the author who stated the 1% figure. I
also tried it with a conservative figure for homosexuality. If homosexuality
requires 2 copies of the "queer" gene, results in someone reproducing 1/2 as
often , and the gene was present in 50% of the population 2000 years ago,
homosexuality would now only show up in around 1 out of 10,000 people.  

There are 3 possible conclusions-
 1) The program is incorrect.
 2) Homosexuality is environmental in origin.
 3) Homosexuality provides an advantage thats greater the loss of
    reproduction.

Unless someone can find a major flaw in my reasoning, or the program,
I think this should put the question of a defect to rest, a defect
of the order that homosexuality is claimed to be wouldn't survive
even recent human history. 

---------------------------program-----------------------------------

/* copyright (c), 1992 Lawrence Foard, may be distributed under the gnu
   license */

#define SIZE 10000
#define DIF 50 /* percentage loss of reproduction for DEF_GENES defective genes */
#define DEF_GENES 2 /* number of defective genes needed for disadvantage */

/* select a mate */
int select(char pop[SIZE])
 {
  int a,b;
  /* a potential mate without the defect gets selected on first try */
  /* mate with DEF_GENES defective genes might be turned down according to DIF */
  while((pop[a=((unsigned int)random()) % SIZE]>=DEF_GENES) && 
   ((((unsigned int)random()) % 100)<DIF));
  return a;
 }

/* split genes of parent randomly */
#define split(genes) ((random() & 1)<(genes))

main() 
 {
  char pop1[SIZE],pop2[SIZE];
  int a,defects=1000,gen=1,expressed;
  srandom(getpid());
  /* give 50% of population defective gene */
  for(a=0;a<SIZE;a++)
   pop1[a]=(a>(SIZE/2)) ? 0 : 1;
  while(defects)
   {
    for(a=defects=expressed=0;a<SIZE;a++)
     {
      /* pump out babies */
      defects+=pop2[a]=split(pop1[select(pop1)])+split(pop1[select(pop1)]);
      expressed+=(pop2[a]>=DEF_GENES);
     }
    printf("%d defective genes %d expressed in generation %d\n",defects,expressed,gen++);
    memcpy(pop1,pop2,sizeof(int)*SIZE);
   }
  printf("defect gone in %d generations\n",gen);
 }


-- 
>>Unix/C Contract worker available 5 years C/unix work experience<<  ______
Available for Telecommuting/Travel and contracts on the T Line       \    /
in the Boston MA area. Send me e-mail for a copy of my Resume.        \  /
       -- VWIS 508-793-9568 (2400 baud), Linux support BBS.--          \/