微积分教学 习题解答 26 二重积分的计算-1-153-154页.pptVIP

;;;;;with(plots):a:=1: f:=x-sqrt(2*a*x-x^2):g:=x-sqrt(2*a*x): quxian1:=spacecurve([a+a*cos(t),a*sin(t),0],t=0..Pi,color=red,thickness=4): quxian2:=spacecurve([x,g(x),0],x=0..2*a+0.2,color=blue,thickness=4): quyu:=plot3d([x,y,0],x=0..2*a,y=f(x)..g(x),color=green,style=patchnogrid): display(quxian1,quxian2,quyu,orientation=[270,0],axes=normal,tickmarks=[0,0,0]);;;;with(plots): f:=y--sqrt(4-y):g:=y-sqrt(4*y-y^2): quxian1:=spacecurve([f(y),y,0],y=-0.5..4,color=red,thickness=3): quxian2:=spacecurve([g(y),y,0],y=0..4,color=blue,thickness=3): quyu:=plot3d([x,y,0],x=f(y)..g(y),y=0..4,color=green,style=patchnogrid): display(quxian1,quxian2,quyu,orientation=[270,0],axes=normal,tickmarks=[3,3,0]);;;;with(plots): f:=x-sin(x):g:=x--sin(x/2):a:=0:b:=Pi: quxian1:=spacecurve([x,f(x),0],x=a..b+0.1,color=red,thickness=2): quxian2:=spacecurve([x,g(x),0],x=a..b+0.1,color=blue,thickness=2): quyu:=plot3d([x,y,0],x=a..b,y=f(x)..g(x),color=grey,style=patchnogrid): display(quxian1,quxian2,quyu,orientation=[270,0],axes=normal,tickmarks=[4,3,0],scaling=constrained);;with(plots): f:=y-arcsin(y):g:=y-Pi-arcsin(y): quxian1:=spacecurve([f(y),y,0],y=0..1,color=red,thickness=3): quxian2:=spacecurve([g(y),y,0],y=0..1,color=blue,thickness=3): quyu:=plot3d([x,y,0],x=f(y)..g(y),y=0..1,color=green,style=patchnogrid): f2:=y--2*arcsin(y):g2:=y-Pi: quxian3:=spacecurve([f2(y),y,0],y=-1..0,color=red,thickness=3): quxian4:=spacecurve([g2(y),y,0],y=-1..0,color=blue,thickness=3): quyu2:=plot3d([x,y,0],x=f2(y)..g2(y),y=-1..0,color=green,style=patchnogrid): display(quxian1,quxian2,quxian3,quxian4,quyu,quyu2,orientation=[270,0],axes=normal,tickmarks=[3,3,0],scaling=constrained);;;with(plots): a:=0:b:=1: f:=y--sqrt(y):g:=y--sqrt(y)/2: quyu:=plot3d([x,y,0],x=f(y)..g(y),y=a..b,color=green,style=patchnogrid): f:=y-sqrt(y)/2:g:=y-sqrt(y): quxian1:=spacecurve([x,x^2,0],x=-1.1..1.1,color=red,thickness=3): quxian2:=spacecurve([x,4*x^2,0],x=-0.6..0.6,color=blue,thickness=3): zhixian:=spacecurve([x,1,0],x=-1.2..1.2,thicknes