make_rp;
rp.mu = 0.3;

rp.a1=-0.9750; rp.a2=0.95; rp.lam1=1.5;   rp.lam2=0.5; xl=5; yl=3;
[v, w]=steepest_descent(rp);make_plot(v, w, rp, 5, xl, yl, 'figure 4.8b', 'figure 4.9b');

print -dpsc 4_9b
figure(get(0,'currentfigure')-1);
print -dpsc 4_8b