08第八章亲体补充.ppt

Sub solution() a = 42.47: b = 0.02498 P1 = 1: P2 = 1000 Do While Abs(P1 - P2) 0.0001 P3 = (P1 + P2) / 2 f1 = P1 - (a * Exp(-b * P1) - 1) / (a * b * Exp(-b * P1)) f3 = P3 - (a * Exp(-b * P3) - 1) / (a * b * Exp(-b * P3)) If Abs(f1 - f3) = Abs(f1) + Abs(f3) Then P2 = P3 Else P1 = P3 End If Loop Debug.Print P=, P3 End Sub (3) 直线与曲线相交点RF ; (4)根据第5章动态综合模型方法，计算相应条件下的单位补充量渔获量 ; (5)最后根据 ,估算总渔获量YF . 图7-11，捕捞努力量的增加对不同亲体与补充量关系曲线平衡位置的影响. (a) 不受影响 (b) 到中等, R 增加 (