TITLE PLOT STATEMENT OPTIONS 00000010 * NARROW 00000030 * EULER 00000040 L RAB.K=INTGRL(RB.JK-RD.JK) 00000050 N RAB=150 00000060 R RB.KL=RAB.K*FERT 00000070 R RD.KL=RAB.K*DEAT 00000080 C FERT=.12 00000090 C DEAT=.04 00000100 PARM DT=.08 00000110 PARM STOP=50 00000120 PARM PLTPER=2 00000130 PARM PRTPER=2 00000140 PRINT RAB,RB,RD 00000141 PRINT RAB.2,RB.2,RD.2 00000142 PRINT RAB.3,RB.3,RD.3 00000143 PRINT RD.* 00000144 PLOT RAB(0,*),RB,RD 00000150 PLOT RAB.2/RB.2 00000170 PLOT RAB.3/RB.3 00000185 PLOT RAB.* 00000186 PLOT RB,RD//RAB 00000187 NOTE RABBIT DATA GRAPHED 00000190 RERUN CHANGED DEATH RATE 00000200 C DEAT=.08 00000210 RERUN CHANGED DEATH RATE 00000220 * RKINT 00000221