Variables

VariableDescription Options
i Period  
PPN Preplant N  
P.1, P.2, etc. P analyzed for period 1, 2, etc. (ppm)  
NO3.1, NO3.2 NO3 analyzed (ppm)  
{co.K} K analyzed (%)  
LbsN Cumulative pounds N applied,
first period to current period 		 
Date1 Date of first bloom  
rec Recommendation code  
Fruit Fruiting Rate 1=Excellent 2=Good 3=Fair 4=Poor
Insect Insect Control 1=Excellent 2=Good 3=Fair 4=Poor
Stalk Stalk Size 1=Normal 2=Excess 3=Short 4=Stunted
Moisture Soil Moisture 1=Excess 2=Good 3=Sl. dry 4=Drouthy
Lime Limed during last 2 years? 0=No 1=Yes

Recommendations

CodeComment
1.No recommendation.
2.Analyses suggest fruit loss. Check for cause.
3.Please enter date of first bloom on the petiole information form as soon as 1st bloom occurs. This date is a key factor that affects your recommendations.
4.N is deficient. Apply 4.5 lbs. of N, as urea, in 5 to 10 gallons of water or liquid insecticide per acre.
5.N is deficient. Apply 15 lbs. of N per acre to the soil; however, if a previous N sidedressing has been made, make a foliar application of 4.5 lbs. of N, as urea, in 5 to 10 gallons of solution per acre.
6.Apply 15 lbs. of N per acre to the soil. Also apply FOLIAR N as follows if moisture is not adequate:
a. 4.5 lbs. of N, as urea, in 5 gallons of water or liquid insecticide per acre by airplane or ground equipment.
7.Apply FOLIAR N as follows:
a. 4.5 lbs. of N, as urea, in 5 gallons of solution per acre by airplane, or
b. 7 lbs. of N, as urea, in 15 gallons of water or liquid insecticide per acre with ground equipment.
(See recommendation 9.)
8.N is deficient. Apply FOLIAR N as follows:
a. 9 lbs. of N, as urea, in 20 gallons of water or liquid insecticide per acre with ground equipment, or
b. make two applications by airplane using 4.5 lbs. N, as urea, (total of 9 lbs. of N) in 5 gallons of water or liquid insecticide.
(See recommendation 9.)
9.Under prolonged drouthy conditions, do not apply more than three consecutive weekly foliar applications of N. Do not apply foliar N when leaves wilt by noon.
10.Apply 0.2 lbs. of actual boron in 2 to 5 gallons of water or liquid insecticide per acre as a foliar spray. Boron hastens translocation of N and sugars, improves fruiting, and may make plants less attractive to insects.
11.Add 0.2 lbs. actual boron per acre to the urea solution.
12.On the next information card, please enter the pounds of N per acre applied on this field to date this year. This affects early season N recommendations.
13.The fruiting rate on information cards affects N and B recommendations. Use fruiting rates table provided on back of cards.
14.P is low. If less than 40 lbs. of P2O5 per acre was applied preplant or later, sidedress a liquid N-P fertilizer if possible (5-15 lbs. of N and up to 50 lbs. P2O5 per acre).
15.N is low but not strongly deficient. The next sample period is very important.
16.If climate and fruiting conditions are good or excellent, apply FOLIAR N as follows: a. 4.5 lbs. N, as urea, in 5 gallons of water or liquid insecticide solution per acre by air, or b. 7 lbs. N, as urea, in 15 to 20 gallons of water or liquid insecticide per acre with ground equipment.
17.Apply 0.2 lb. actual boron and 2 lbs. N, as urea, in 2 to 5 gallons of solution per acre. Urea aids boron intake. Boron hastens translocation of N and sugars, improves fruiting, and may make plants less attractive to insects.
18.Analyses indicate water deficiency.
K1.If the yield potential is at least 1 1/2 bales per acre and if the depth to subsoil is less than 16 inches, apply 50 lbs. K2O (potash) per acre to the soil. If the depth to subsoil is greater than 16 inches apply 90 lbs. K2O (potash) per acre to the soil.
K2.If the yield potential is at least 1 1/2 bales per acre, and if less than 50 lbs. K2O (potash) per acre has been applied in the fertilizer program, apply 50 lbs. K2O (potash) per acre to the soil.
K3.Petiole potassium (K) concentration is sufficient; do not apply more K2O (potash).
K4.Warning! Do not apply any more potash (K2O) to this crop since excessive potassium (K) application can result in induced magnesium (Mg) deficiency.
K5.If the yield potential is at least 1 1/2 bales per acre, apply 50 lbs. K2O (potash) per acre to the soil.
K6.If the yield potential is at least 1 1/2 bales per acre, apply 50 lbs. K2O (potash) per acre to the soil or apply 10 lbs. potassium nitrate (KNO3) or its equivalent per acre as a foliar application.
K7.If the yield potential is at least 1 1/2 bales per acre and if less than 50 lbs. K2O (potash) per acre has been applied in the fertilizer program, apply 50 lbs. K2O (potash) per acre to the soil or apply 10 lbs. potassium nitrate (KNO3) or its equivalent per acre as a foliar application.
K8.If the yield potential is at least 1 1/2 bales per acre, apply 10 lbs. potassium nitrate (KNO3) or its equivalent per acre as a foliar application.

Logic per period (i is period)

  1. if i=1 then do
  2. if PPN=0 then rec.3.i= 12
  3. if (P.1<800) & (NO3.1<9000) then rec.1.i= 4
  4. else if NO3.1>=13000 then rec.1.i= 10
  5. else if NO3.1>= 7000 then nop
  6. else if NO3.1>= 5000 then rec.1.i= 15
  7. else if ((Fruit=1) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.1.i= 17
  8. else do
  9. if PPN+LbsN>=40 then rec.1.i= 4
  10. else rec.1.i= 6
  11. if Lime>0 then rec.2.i= 11
  12. end
  13. end
  15. if i=2 then do
  16. if Month(Date1)='' then rec.1.i= 3
  17. rec.4.i= 13
  18. if (P.2<800) & (NO3.2<4500) then rec.2.i= 14
  19. else if NO3.2>=12500 then rec.2.i= 10
  20. else if NO3.2>=4500 then nop
  21. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.2.i= 17
  22. else do
  23. if PPN+LbsN>=40 then rec.2.i= 4
  24. else rec.2.i= 6
  25. if Lime>0 then rec.3.i= 11
  26. end
  27. end
  29. if i=3 then do
  30. if Month(Date1)='' then rec.1.i= 3
  31. if subset(Moisture,3,4) & (P.2-P.3>300) & (NO3.2-NO3.3>2000) then rec.2.i= 18
  32. if NO3.3>=11000 then do
  33. if P.2-P.3>=400 then do; rec.3.i= 2; rec.4.i= 10; end
  34. else rec.3.i= 10
  35. end
  36. else if NO3.3>=3500 then nop
  37. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.3.i= 17
  38. else do
  39. if (PPN+LbsN>=40) | (Moisture=4) then rec.3.i= 4
  40. else rec.3.i= 6
  41. if Lime>0 then rec.4.i= 11
  42. end
  43. end
  45. if i=4 then do
  46. if Month(Date1)='' then rec.1.i= 3
  47. if subset(Moisture,3,4) & (P.3-P.4>300) & (NO3.3-NO3.4>2000) then rec.2.i= 18
  48. if NO3.4>=9500 then do
  49. if (P.3-P.4>=400) | (P.2-P.4>=600) then rec.4.i= 2
  50. if Roll(i)<3 then rec.3.i= 10
  51. end
  52. else if NO3.4>=2500 then do
  53. if (NO3.4-NO3.3>=5000) & ((P.3-P.4>=400) | (P.2-P.4>=600)) then rec.3.i= 2
  54. end
  55. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.3.i= 17
  56. else do
  57. if (PPN+LbsN>=60) | ((PPN+LbsN<60) & subset(Moisture,3,4)) then rec.4.i= 7
  58. else rec.4.i= 6
  59. if Lime>0 then rec.3.i= 11
  60. end
  61. end
  63. if i=5 then do
  64. if subset(Moisture,3,4) & (P.4-P.5>300) & (NO3.4-NO3.5>1000) then rec.1.i= 18
  65. if NO3.5>=8500 then do
  66. if (P.4-P.5>=400) | (P.3-P.5>=600) then rec.3.i= 2
  67. if Roll(i)<3 then rec.2.i= 10
  68. end
  69. else if NO3.5>=1500 then nop
  70. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.2.i= 17
  71. else do
  72. if NO3.5>=750 then rec.2.i= 7
  73. else rec.2.i= 8
  74. if Lime>0 then rec.3.i= 11
  75. end
  76. end
  78. if i=6 then do
  79. if subset(Moisture,3,4) & (P.5-P.6>300) & (NO3.5-NO3.6>1000) then rec.1.i= 18
  80. if NO3.6>=7000 then do
  81. if P.5-P.6>=400 then rec.3.i= 2
  82. if Roll(i)<3 then rec.2.i= 10
  83. end
  84. else if NO3.6>1000 then do
  85. if (NO3.6-NO3.5>=1500) and (P.5-P.6>=400) then rec.2.i= 2
  86. end
  87. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.4.i= 17
  88. else do
  89. if (P.5=0) or (P.4=0) then rec.2.i= 7
  90. else if (P.6-P.5>400) | (P.6-P.4>600) then rec.2.i= 8
  91. else rec.2.i= 7
  92. if Lime>0 then rec.3.i= 11
  93. end
  94. end
  96. if i=7 then do
  97. if subset(Moisture,3,4) and (P.6-P.7>200) & (NO3.6-NO3.7>3000) then rec.1.i= 18
  98. if NO3.7>=6000 then do
  99. if P.6-P.7>=400 then rec.3.i= 2
  100. if Roll(i)<3 then rec.2.i= 10
  101. end
  102. else if NO3.7>=1000 then nop
  103. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.2.i= 17
  104. else rec.2.i= 16
  105. end
  107. if i>=8 then do
  108. if NO3.i>=4000 then do
  109. if Roll(i)<3 then rec.1.i= 10
  110. end
  111. else if NO3.i>=500 then nop
  112. else if ((Fruit=4) & (Insect=4)) | (subset(Stalk,2,4) & ((Insect=4) | (Fruit=4))) then rec.1.i= 0
  113. else rec.1.i= 16
  114. end
  116. if i<8 then do
  117. if i=1 then do
  118. if format({co.K})<3 then rec.5.i= 'K1'
  119. else if format({co.K})<4 then rec.5.i= 'K2'
  120. else if format({co.K})<5 then rec.5.i= 'K3'
  121. else rec.5.i= 'K4'
  122. end
  123. if i=2 then do
  124. if format({co.K})<2.5 then rec.5.i= 'K5'
  125. else if format({co.K})<3.5 then rec.5.i= 'K2'
  126. else if format({co.K})<4.5 then rec.5.i= 'K3'
  127. else rec.5.i= 'K4'
  128. end
  129. if i=3 then do
  130. if format({co.K})<2 then rec.5.i= 'K6'
  131. else if format({co.K})<3 then rec.5.i= 'K7'
  132. else if format({co.K})<4 then rec.5.i= 'K3'
  133. else rec.5.i= 'K4'
  134. end
  135. if i=4 then do
  136. if format({co.K})<1.75 then rec.5.i= 'K8'
  137. else rec.5.i= 'K3'
  138. end
  139. if i=5 then do
  140. if format({co.K})<1.5 then rec.5.i= 'K8'
  141. else rec.5.i= 'K3'
  142. end
  143. if i=6 then do
  144. if format({co.K})<1.5 then rec.5.i= 'K8'
  145. else rec.5.i= 'K3'
  146. end
  147. if i=7 then do
  148. if format({co.K})<1.5 then rec.5.i= 'K8'
  149. else rec.5.i= 'K3'
  150. end
  151. end
  154. Roll: parse arg p
  155. rr= 0
  156. do jj= p-3 to p-1
  157. do ii= 1 to 4
  158. if subset(rec.ii.jj,10,11,13,17) then do
  159. inc rr
  160. ii= 5
  161. end
  162. end
  163. end
  164. return rr /*Roll*/