Question: how can i add a line on the surface in a 3d surface plot

Hi, I'm a new user of Maple16.  I'm plotting a surface using plot3d and I'd like to add a line on the surface. You can see my unsatisfying attempt to do this below.  The line that shows in the third figure is basically what I want to show but I don't want the rest of the second surface at all, just the line visible on the first surface.  

thanks

Tom 
 

 

NULL

p1 := plot3d((1/2)*(-100+(1/2)*(200*Ab__T+200*Ag__T+20000)/sqrt(Ab__T^2-2*Ab__T*Ag__T+Ag__T^2+200*Ab__T+200*Ag__T+10000))/Ab__T, Ab__T = 1 .. 1000, Ag__T = 10 .. 1000, axis[1, 2] = [mode = log])

 

NULL

I next want to add a line along the "ridge" in the figure. I'll try using a proc

 

 

p2 := proc (Ab__T, Ag__T) if abs(Ab__T-Ag__T+100) < 10 then (1/2)*(-100+(1/2)*(200*Ab__T+200*Ag__T+20000)/sqrt(Ab__T^2-2*Ab__T*Ag__T+Ag__T^2+200*Ab__T+200*Ag__T+10000))/Ab__T else 0 end if end proc:

p3 := plot3d(p2, 1 .. 1000, 10 .. 1000, grid = [200, 200])

 

plots:-display(p1, p3)

 

``


 

Download surface_plot_question.mw
 

{{(1/2)*(-100+(1/2)*(200*Ab__T+200*Ag__T+20000)/(Ab__T^2-2*Ab__T*Ag__T+Ag__T^2+200*Ab__T+200*Ag__T+10000)^(1/2))/Ab__T}}

(1)

NULL

p1 := plot3d((1/2)*(-100+(1/2)*(200*Ab__T+200*Ag__T+20000)/sqrt(Ab__T^2-2*Ab__T*Ag__T+Ag__T^2+200*Ab__T+200*Ag__T+10000))/Ab__T, Ab__T = 1 .. 1000, Ag__T = 10 .. 1000, axis[1, 2] = [mode = log])

 

NULL

I next want to add a line along the "ridge" in the figure. I'll try using a proc

 

 

p2 := proc (Ab__T, Ag__T) if abs(Ab__T-Ag__T+100) < 10 then (1/2)*(-100+(1/2)*(200*Ab__T+200*Ag__T+20000)/sqrt(Ab__T^2-2*Ab__T*Ag__T+Ag__T^2+200*Ab__T+200*Ag__T+10000))/Ab__T else 0 end if end proc:

p3 := plot3d(p2, 1 .. 1000, 10 .. 1000, grid = [200, 200])

 

plots:-display(p1, p3)

 

``


 

Download surface_plot_question.mw

 

Please Wait...