N_SENSOR ¼ IF (PHI_D2PHI_D2) AND (PHI_D1<
(PHI_D2+PI))) THEN 1 ELSE IF (PHI_D2>¼PI) AND ((PHI_D1>PHI_D2)
OR (PHI_D1<(PHI_D2ÀPI))) THEN 1 ELSE À1 {Rel. angle sizes sets normal
up or down.}
N_X ¼ (ÀΔ_Y2 * ΔCONC_1 + ΔCONC_2 * Δ_Y1) * N_SENSOR {The projection
of the normal vector to the plane by the last two steps, on the X-Y plane. This is
the X component of the max. rise vector.}
N_Y ¼ (ÀΔCONC_2 * Δ_X1 + Δ_X2 * ΔCONC_1) * N_SENSOR {The y component
of the projection of the normal vector to the plane by the last two steps, onto the
X-Y plane. This is the y component of the max. rise vector}
R ¼ 17.5 {At this radius (meters), the fruit can be seen by the troop.}
R1 ¼ SQRT((XÀTREE_X1)^2 + (YÀTREE_Y1)^2) {The straight line distance
from the troop to the center of tree 1.}
R2 ¼ SQRT((XÀTREE_X2)^2 + (YÀTREE_Y2)^2) {The straight line distance
from the troop to the center of tree 2.}
RAND ¼ 2 * PI * RANDOM(1,0) * .05 * 1
RAND_1 ¼ IF RANDOM(0,2) > 1 THEN 1 ELSE À1
RIPENESS_1 ¼ 0 {Specified fruit odor emission rate, ug/sec, from tree 1.}
RIPENESS_2 ¼ 7000 {Specified fruit odor emission rate, ug/sec, from tree 2.}
RY ¼ IF WIND_SPEED < 2 THEN .4 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .36 ELSE .32
RZ ¼ IF WIND_SPEED < 2 THEN .4 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .33 ELSE .22 {For the odor dispersion equation.
See SIG Y.}
R_Y ¼ IF WIND_SPEED < 2 THEN .9 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .86 ELSE .78
R_Z ¼ IF WIND_SPEED < 2 THEN 2 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .86 ELSE .78
SIG_Y1 ¼ IF X1 > 0 THEN RY * X1^R_Y ELSE 0 {A term in the odor dispersion
equation.}
SIG_Y2 ¼ IF X2 > 0 THEN RY * X2^R_Y ELSE 0 {A term in the odor dispersion
equation.}
SIG_Z1 ¼ IF X1 > 0 THEN RZ * X1^R_Z ELSE 0 {A term in the odor dispersion
equation.}
SIG_Z2 ¼ IF X2 > 0 THEN RZ * X2^R_Z ELSE 0 {A term in the odor dispersion
equation.}
TARGET ¼ IF (TIME > 16) AND ((R1 <¼ 17) OR (R2 <¼ 17) ) THEN 0 ELSE
1 {Senses relation of troop to tree circle of visual influence (17 m. radius). When
this circle is reached, it is assumed that the troop can proceed by sight.}
THETA ¼ IF (TIME >¼ 14) AND (TIME <¼ 15) THEN -2 * PI * RANDOM(1,0)
ELSE PHI
TREE_HEIGHT ¼ 20 {Specified height of the ripe fruit and canopy of tree,
meters.}
TREE_X ¼ IF TIME < 6 THEN TREE_X1 ELSE IF TIME < 12 THEN TREE_X2
ELSE 0
238
28 Monkey Travels
(PHI_D2+PI))) THEN 1 ELSE IF (PHI_D2>¼PI) AND ((PHI_D1>PHI_D2)
OR (PHI_D1<(PHI_D2ÀPI))) THEN 1 ELSE À1 {Rel. angle sizes sets normal
up or down.}
N_X ¼ (ÀΔ_Y2 * ΔCONC_1 + ΔCONC_2 * Δ_Y1) * N_SENSOR {The projection
of the normal vector to the plane by the last two steps, on the X-Y plane. This is
the X component of the max. rise vector.}
N_Y ¼ (ÀΔCONC_2 * Δ_X1 + Δ_X2 * ΔCONC_1) * N_SENSOR {The y component
of the projection of the normal vector to the plane by the last two steps, onto the
X-Y plane. This is the y component of the max. rise vector}
R ¼ 17.5 {At this radius (meters), the fruit can be seen by the troop.}
R1 ¼ SQRT((XÀTREE_X1)^2 + (YÀTREE_Y1)^2) {The straight line distance
from the troop to the center of tree 1.}
R2 ¼ SQRT((XÀTREE_X2)^2 + (YÀTREE_Y2)^2) {The straight line distance
from the troop to the center of tree 2.}
RAND ¼ 2 * PI * RANDOM(1,0) * .05 * 1
RAND_1 ¼ IF RANDOM(0,2) > 1 THEN 1 ELSE À1
RIPENESS_1 ¼ 0 {Specified fruit odor emission rate, ug/sec, from tree 1.}
RIPENESS_2 ¼ 7000 {Specified fruit odor emission rate, ug/sec, from tree 2.}
RY ¼ IF WIND_SPEED < 2 THEN .4 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .36 ELSE .32
RZ ¼ IF WIND_SPEED < 2 THEN .4 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .33 ELSE .22 {For the odor dispersion equation.
See SIG Y.}
R_Y ¼ IF WIND_SPEED < 2 THEN .9 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .86 ELSE .78
R_Z ¼ IF WIND_SPEED < 2 THEN 2 ELSE IF (WIND_SPEED >¼ 2) AND
(WIND_SPEED <¼ 5) THEN .86 ELSE .78
SIG_Y1 ¼ IF X1 > 0 THEN RY * X1^R_Y ELSE 0 {A term in the odor dispersion
equation.}
SIG_Y2 ¼ IF X2 > 0 THEN RY * X2^R_Y ELSE 0 {A term in the odor dispersion
equation.}
SIG_Z1 ¼ IF X1 > 0 THEN RZ * X1^R_Z ELSE 0 {A term in the odor dispersion
equation.}
SIG_Z2 ¼ IF X2 > 0 THEN RZ * X2^R_Z ELSE 0 {A term in the odor dispersion
equation.}
TARGET ¼ IF (TIME > 16) AND ((R1 <¼ 17) OR (R2 <¼ 17) ) THEN 0 ELSE
1 {Senses relation of troop to tree circle of visual influence (17 m. radius). When
this circle is reached, it is assumed that the troop can proceed by sight.}
THETA ¼ IF (TIME >¼ 14) AND (TIME <¼ 15) THEN -2 * PI * RANDOM(1,0)
ELSE PHI
TREE_HEIGHT ¼ 20 {Specified height of the ripe fruit and canopy of tree,
meters.}
TREE_X ¼ IF TIME < 6 THEN TREE_X1 ELSE IF TIME < 12 THEN TREE_X2
ELSE 0
238
28 Monkey Travels