TI-82 Program BEPOPITA

• Input the initial population of brood, house bees, and foragers.
• Choose a strength in egg laying potential for you queen.
  Input 1 for a weak queen, laying a maximum of 1000 eggs per day.
  Input 3 for a strong queen, laying a maximum of 3000 eggs per day.
  Input some number between 1 and 3 to indicate an appropriate intermediate stregth in egg laying potential.
• Input the month.
  The choice 0 exits the program.
  Follow the classroom activities A Month in the Hive and A Year in the Hive in using BEPOPITA.

     PROGRAM: BEPOPITA
     :Disp "INITIAL"
     :Disp "POPULATION"
     :Disp "(THOUSANDS)"
     :Disp "BROOD"
     :Input U
     :Disp "HOUSE BEES"
     :Input V
     :Disp "FORAGERS"
     :Input W
     :Disp "QUEEN STRENGTH"
     :Input Q
     :Lbl 1
     :Disp "MONTH"
     :Input M
     :If M=0
     :Goto 2
     :Disp "BROOD SCORE"
     :Input B
     :Disp "DEATH RATE"
     :Input D
     :For(I,1,30,1)
     :20*U/21+0.571*B*Q*log(W+1) -> L1(I)
     :U/21+20*V/21 -> L2(I)
     :V/21+(1-D)*W -> L3(I)
     :L1(I) -> U
     :L2(I) -> V
     :L3(I) -> W
     :End
     :Disp "MONTH",M
     :Disp "POPULATION"
     :Disp U,V,W
     :L1(30) -> L4(M)
     :L2(30) -> L5(M)
     :L3(30) -> L6(M)
     :Goto 1
     :Lbl 2