利用Mathematica画平面区域PPT学习教案

1、会计学1利用利用Mathematica画平面区域画平面区域X型区域用 Filling第1页/共57页曲线下方的区域Plotfx,x,a,b,Filling-Bottom,FillingStyle-Yellow第2页/共57页2yxfx_:=x2;Quxian=Plotfx,x,-0.1,1.1,PlotStyle-AbsoluteThickness2,Red;Quyu=Plotfx,x,0,1,Filling-Bottom,AspectRatio-1,PlotRange-All,Ticks-1,0,1,-1,0,1,FillingStyle-Green;ShowQuyu,Quxian30 JU

2、N 2010第3页/共57页曲线与x轴围成的区域Plotfx,x,a,b,Filling-Axis,FillingStyle-Yellow第4页/共57页sinyx fx_:=Sinx;Quxian=Plotfx,x,-1.1,1.1,PlotStyle-AbsoluteThickness3,Red;Quyu=Plotfx,x,-1,1,Filling-Axis,AspectRatio-1,PlotRange-All,Ticks-1,0,1,-1,0,1,FillingStyle-Green;ShowQuyu,Quxian30 JUN 2010第5页/共57页两曲线围成的区域Quyu=Plot

3、fx,gx,x,a,b,Filling-1第6页/共57页2yxandyx fx_:=x;gx_:=x2;Quxian1=Plotfx,x,-1.3,1.3,PlotStyle-AbsoluteThickness2,Red;Quxian2=Plotgx,x,-1.3,1.3,PlotStyle-AbsoluteThickness2,Blue;Quyu=Plotfx,gx,x,0,1,Filling-1-2,AspectRatio-1,PlotRange-All,Ticks-1,0,1,-1,0,1,FillingStyle-Green;ShowQuyu,Quxian1,Quxian230 JU

4、N 2010第7页/共57页sincosyxandyx fx_:=Sinx;gx_:=Cosx;Quxian1=Plotfx,x,0,2 Pi,PlotStyle-AbsoluteThickness2,Red;Quxian2=Plotgx,x,0,2Pi,PlotStyle-AbsoluteThickness2,Blue;Quyu=Plotfx,gx,x,0,2Pi,Filling-1-2,AspectRatio-.8,PlotRange-All,Ticks-0,Pi/2,Pi,3Pi/2,2 Pi,-1,0,1,FillingStyle-Yellow;ShowQuyu,Quxian1,Qux

5、ian230 JUN 2010第8页/共57页2(2)4cos(2)sinxandyxyx e fx_:=SinPi x Exp-(x-1)2;gx_:=4Cosx-2;Quxian1=Plotfx,x,0,4,PlotStyle-AbsoluteThickness2,Red;Quxian2=Plotgx,x,0,4,PlotStyle-AbsoluteThickness2,Blue;Quyu=Plotfx,gx,x,0.6,3.6,Filling-1-2,AspectRatio-1,PlotRange-All,Ticks-0,1,2,3,4,-1,0,1,2,3,4,FillingStyle

6、-LightRed,AxesOrigin-0,0;ShowQuyu,Quxian1,Quxian230 JUN 2010第9页/共57页3yxand yx fx_:=x;gx_:=x3;Quxian1=Plotfx,x,-1.3,1.3,PlotStyle-AbsoluteThickness2,Red;Quxian2=Plotgx,x,-1.3,1.3,PlotStyle-AbsoluteThickness2,Red;Quyu=Plotfx,gx,x,-1,1,Filling-1-2,AspectRatio-1.4,PlotRange-All,Ticks-1,0,1,-1,0,1,Fillin

7、gStyle-Green;ShowQuyu,Quxian1,Quxian230 JUN 2010第10页/共57页X型区域用 RegionPlot第11页/共57页曲线下方的区域第12页/共57页2yx fx_:=x2;Quxian=Plotfx,x,-1,1.1,PlotStyle-AbsoluteThickness4,Red;Quyu=RegionPlot0yGreen;ShowQuyu,Quxian,PlotRange-All,Axes-Automatic,AspectRatio-0.7,Frame-False,Ticks-1,0,1,0,1,230 JUN 2010第13页/共57页曲

8、线与x轴围成的区域第14页/共57页sinyx fx_:=Sinx;Quxian=Plotfx,x,-4,4,PlotStyle-AbsoluteThickness3,Red;Quyu=RegionPlotfxy0 ,x,-Pi,Pi ,y,-1,1,PlotStyle-Cyan;Quyu2=RegionPlotfxyGreen;ShowQuyu,Quyu2,Quxian,PlotRange-All,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-Pi,-Pi/2,0,Pi/2,Pi,-1,0,130 JUN 2010第15页/共57页两曲线围成的

9、区域第16页/共57页2yxandyx fx_:=x;gx_:=x2;Quxian=Plotfx,x,-0.1,1.1,PlotStyle-AbsoluteThickness3,Red;Quxian2=Plotgx,x,-0.1,1.1,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotgxyGreen;ShowQuyu,Quxian,Quxian2,PlotRange-All,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-1,0,1,0,1,230 JUN 2010第17页/共57页 fx_:=x

10、+1/2;gx_:=x2+1/5;Quxian=Plotfx,x,0.1,1,PlotStyle-AbsoluteThickness3,Red;Quxian2=Plotgx,x,0.1,1,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotgxyGreen;ShowQuyu,Quxian,Quxian2,PlotRange-All,Axes-True,AxesOrigin-0,0,AspectRatio-1,Frame-False,Ticks-1/2,0,1/2,1,0,1/1,1,3/230 JUN 2010第18页/共57页sincosyxa

11、ndyx30 JUN 2010 fx_:=Sinx;gx_:=Cosx;Quxian=Plotfx,x,0,2Pi,PlotStyle-AbsoluteThickness3,Red;Quxian2=Plotgx,x,0,2Pi,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfxygx ,x,0,2Pi ,y,-1,1,PlotStyle-Pink;Quyu2=RegionPlotfxyGreen;ShowQuyu,Quyu2,Quxian,Quxian2,PlotRange-All,Axes-Automatic,AspectRatio-1,F

12、rame-False,Ticks-0,Pi/2,Pi,3Pi/2,2Pi,-1,0,1第19页/共57页2(2)4cos(2)sinxandyxyx e fx_:=SinPi x Exp-(x-1)2;gx_:=4Cosx-2;Quxian=Plotfx,x,0,4,PlotStyle-AbsoluteThickness3,Red;Quxian2=Plotgx,x,0,4,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfxyGreen;ShowQuyu,Quxian,Quxian2,PlotRange-All,Axes-Automatic,A

13、spectRatio-1,Frame-False,Ticks-1,0,1,2,3,4,-3,-2,-1,0,1,2,3,430 JUN 2010第20页/共57页3yxand yx30 JUN 2010 fx_:=x;gx_:=x3;Quxian=Plotfx,x,-1.2,1.2,PlotStyle-AbsoluteThickness3,Red;Quxian2=Plotgx,x,-1.2,1.2,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfxygx,x,-1.2,1.2,y,-1,1,PlotStyle-Pink;Quyu2=Regio

14、nPlotfxyGreen;ShowQuyu,Quyu2,Quxian,Quxian2,PlotRange-All,Axes-Automatic,AspectRatio-1.2,Frame-False,Ticks-1,-1/2,0,1/2,1,-1,-1/2,0,1/2,1第21页/共57页Y型区域第22页/共57页sin0 xyand x fy_:=Siny;Quxian=ParametricPlotfy,y,y,0,Pi,PlotStyle-AbsoluteThickness3,Red;Quyu=RegionPlotfyx0,x,0,1,y,0,Pi,PlotStyle-Green;Sho

15、wQuyu,Quxian,PlotRange-All,Axes-Automatic,AspectRatio-1.7,Frame-False,Ticks-0,1/2,1,0,Pi/2,Pi30 JUN 2010第23页/共57页2312()0 xyyand x fy_:=12 (y2-y3);Quxian=ParametricPlotfy,y,y,0,1,PlotStyle-AbsoluteThickness3,Red;Quyu=RegionPlotfyx0,x,0,5,y,0,1,PlotStyle-Green;ShowQuyu,Quxian,PlotRange-All,Axes-Automa

16、tic,AspectRatio-0.7,Frame-False,Ticks-0,1,2,0,1/2,130 JUN 2010第24页/共57页422422yyxyand x fy_:=y2/2;gy_:=y4/4-y2/2;Quxian=ParametricPlotfy,y,y,0,2.3,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlotgy,y,y,0,2.1,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfyxgy,x,-1/2,2,y,0,2.3,PlotStyle-Gree

17、n;ShowQuyu,Quxian,Quxian2,PlotRange-All,Axes-Automatic,AspectRatio-0.7,Frame-False,Ticks-0,1,2,0,1,230 JUN 2010第25页/共57页 fy_:=y2+1;gy_:=y4+1/2;Quxian=ParametricPlotfy,y,y,0,1,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlotgy,y,y,0,1,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfyxgy,x,-1

18、/2,2,y,0.4,0.8,PlotStyle-Green;ShowQuyu,Quxian,Quxian2,PlotRange-All,Axes-True,AxesOrigin-0,0,AspectRatio-1,Ticks-0,1,2,0,1/2,1,Frame-False30 JUN 2010第26页/共57页(1sin1)xyxyandy fy_:=Siny;gy_:=(1-y) y+1;Quxian=ParametricPlotfy,y,y,0,2.1,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlotgy,y,y,0,2.

19、1,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfyxgy,x,-1,2,y,0,2,PlotStyle-Green;Quyu2=RegionPlotfyxPink;ShowQuyu,Quyu2,Quxian,Quxian2,PlotRange-All,Axes-Automatic,AspectRatio-0.7,Frame-False,30 JUN 2010第27页/共57页21xyandx fy_:=y2;gy_:=1;Quxian=ParametricPlotfy,y,y,-1.2,1.2,PlotStyle-AbsoluteThic

20、kness3,Red;Quxian2=ParametricPlotgy,y,y,-1.2,1.2,PlotStyle-AbsoluteThickness3,Blue;Quyu=RegionPlotfyxCyan;ShowQuyu,Quxian,Quxian2,PlotRange-All,Axes-Automatic,AspectRatio-1.5,Frame-False,Ticks-0,1/2,1,-1,0,130 JUN 2010第28页/共57页多边形区域第29页/共57页 fx_,y_:=x+y;gx_,y_:=x-2y;Quyu=RegionPlot-2fx,y2 & 1gx,yGre

21、en,PlotPoints-100;ShowQuyu,PlotRange-2,3,-2,1,AxesOrigin-0,0,Axes-True,AspectRatio-0.7,Frame-False,Ticks-1,0,1,2,3,-2,-1,0,1,22 JULY 2010第30页/共57页fx_,y_:=y/x2;gx_,y_:=x2+y2 ;Quyu=RegionPlot1fx,y4 & 1gx,yGreen,PlotPoints-100;ShowQuyu,PlotRange-0,2,0,2,AxesOrigin-0,0,Axes-True,AspectRatio-1,Frame-Fals

22、e,Ticks-1,2,3,0,1,22 JULY 2010第31页/共57页 fx_,y_:=y/x2;gx_,y_:=x2+y2 ;Quxian1=Plot1 x2,x,0,2,PlotStyle-Red,AbsoluteThickness2;Quxian2=Plot4 x2,x,0,2,PlotStyle-Red,AbsoluteThickness2;Quxian3=ParametricPlotCost,Sint,t,0,Pi/2,PlotStyle-Blue,AbsoluteThickness2;Quxian4=ParametricPlot2 Cost,2 Sint,t,0,Pi/2,

23、PlotStyle-Blue,AbsoluteThickness2;Quyu=RegionPlot1fx,y4 & 1gx,yGreen;ShowQuyu,Quxian1,Quxian2,Quxian3,Quxian4,PlotRange-0,2,0,2,AxesOrigin-0,0,Axes-True,AspectRatio-1,Frame-False,Ticks-1,2,3,0,1,22 JULY 2010第32页/共57页 fx_,y_:=y/x2;gx_,y_:=x/y2 ;Quxian1=Plot1 x2,x,0,2,PlotStyle-Red,AbsoluteThickness2;

24、Quxian2=Plot4 x2,x,0,2,PlotStyle-Red,AbsoluteThickness2;Quxian3=ParametricPlot y2,y,y,0,2,PlotStyle-Blue,AbsoluteThickness2;Quxian4=ParametricPlot 4y2,y,y,0,2,PlotStyle-Blue,AbsoluteThickness2;Quyu=RegionPlot1fx,y4 & 1gx,yGreen;ShowQuyu,Quxian1,Quxian2,Quxian3,Quxian4,PlotRange-0,2,0,2,AxesOrigin-0,

25、0,Axes-True,AspectRatio-1,Frame-False,Ticks-1,2,3,0,1,22 JULY 2010第33页/共57页曲边扇形区域第34页/共57页 Quyu=RegionPlotx2+y20,x,-4,4,y,-4,4,PlotStyle-Cyan;ShowQuyu,PlotRange-3,3,-0,3,Axes-Automatic,AspectRatio-0.7,Frame-False,Ticks-2,-1,0,1,2,-2,-1,0,1,22 July 2010第35页/共57页 Quyu=RegionPlot1x2+y2Cyan;ShowQuyu,Plo

26、tRange-3,3,-3,3,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-2,-1,0,1,2,-2,-1,0,1,22 July 2010第36页/共57页 Quyu=RegionPlotx2+y25 & yx/2 & x0,x,-4,4,y,-4,4,PlotStyle-Cyan;ShowQuyu,PlotRange-0,3,-0,3,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-2,-1,0,1,2,-2,-1,0,1,22 July 2010第37页/共57页 Quxian1=Polar

27、Plot4 Sint,t,0,2Pi,PlotStyle-Red,AbsoluteThickness3;Quxian2=PolarPlot2 ,t,0,2Pi,PlotStyle-Red,AbsoluteThickness3;Quyu=RegionPlotx2+(y-2)24 & x2+y2Gray;Quyu2=RegionPlotx2+(y-2)2Yellow;Quyu3=RegionPlot x2+y2Pink;ShowQuyu3,Quyu2,Quyu,Quxian1,Quxian2,PlotRange-2,2,-2,4,Axes-Automatic,AspectRatio-1.4,Fra

28、me-False,Ticks-2,-1,0,1,2,-2,-1,0,1,2,3,42 July 2010第38页/共57页2 July 2010利用参数方程绘制平面区域第39页/共57页(1) 利用平面参数方程绘制平面区域第40页/共57页 Quyu=ParametricPlotx,y,x,1,2,y,x,x2,PlotStyle-Blue;ShowQuyu,PlotRange-0,3,0,5,Axes-Automatic,AspectRatio-1.5,Frame-False,Ticks-0,1,2,3,0,1,2,3,4,52 July 2010利用平面参数方程绘制平面区域第41页/共57

29、页 Quyu=ParametricPlotr Cost,r Sint,t,0.05Pi,0.35Pi,r,1,Sint,PlotStyle-Black;ShowQuyu,PlotRange-0,1,0,1,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-0,1,0,12 July 2010利用参数方程绘制平面区域第42页/共57页 Quyu=ParametricPlotr Cost,r Sint,t,-Pi/6,Pi/3,r,Cost,2Cost,PlotStyle-Black;ShowQuyu,PlotRange-1,2,-1,2,Axes-Au

30、tomatic,AspectRatio-1,Frame-False,Ticks-1,0,1,2,-1,0,1,22coscos两圆和两直线所围的区域6 32 July 2010第43页/共57页 Quyu=ParametricPlotr Cost,r Sint,t,Pi/6,Pi/2,r,1+Sint,3Cost,PlotStyle-Black,PlotPoints-30;ShowQuyu,PlotRange-1,3,-1,3,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-1,0,1,2,-1,0,1,21 sin 3cos两圆和两直线所围的区域

31、 2 July 201062第44页/共57页 Quyu=ParametricPlotr Cost,r Sint,t,Pi/6,5Pi/6,r,1+Sint,3Sint;ShowQuyu,PlotRange-2,2,-1,3,Axes-Automatic,AspectRatio-1,Frame-False,Ticks-2,-1,0,1,2,-1,0,1,2,3,4(1 sin )a3 sina心形线和圆所围的区域2 July 2010第45页/共57页(2) 利用3D参数方程绘制平面区域第46页/共57页Quyu=ParametricPlot3Dx,y,0,x,1,2,y,x,x2,PlotS

32、tyle-Red,Mesh-False;ShowQuyu,PlotRange-0,3,0,5,0,0.01,Axes-Automatic,AspectRatio-1.4,Ticks-0,1,2,3,0,1,2,3,4,5,ViewPoint-0,0,1,Boxed-False2 July 2010第47页/共57页 fx_:=x+1/2;gx_:=x2+1/5;Quxian1=ParametricPlot3Dx,fx,0,x,0,1.2,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlot3Dx,gx,0,x,0,1.2,PlotSty

33、le-AbsoluteThickness3,Blue;Quyu=ParametricPlot3Dx,y,0,x,0.3,1,y,fx,gx,PlotStyle-LightGray,Mesh-False;ShowQuyu,Quxian1,Quxian2,PlotRange-0,1.2,0,1.6,0,0.01,Axes-Automatic,AspectRatio-1.3,Ticks-0.5,1,0,0.5,1,1.5,2,ViewPoint-0,0,1,Boxed-False,AxesOrigin-0,0,02 July 2010第48页/共57页sincosyxandyx fx_:=Sinx;

34、gx_:=Cosx;Quxian1=ParametricPlot3Dx,fx,0,x,0,2Pi,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlot3Dx,gx,0,x,0,2Pi,PlotStyle-AbsoluteThickness3,Blue;Quyu=ParametricPlot3Dx,y,0,x,0.2,1.8Pi,y,fx,gx,PlotStyle-LightYellow,Mesh-False,PlotPoints-50;ShowQuyu,Quxian1,Quxian2,PlotRange-0,2Pi,-1.2,1.2,0

35、,0.01,Axes-Automatic,AspectRatio-0.4,Ticks-Pi/2,Pi,3Pi/2,2Pi,0,1,ViewPoint-0,0,1,Boxed-False,AxesOrigin-0,0,02 July 2010第49页/共57页 fy_:=y2+1;gy_:=y4+1/2;Quxian=ParametricPlot3Dfy,y,0,y,0,1,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlot3Dgy,y,0,y,0,1,PlotStyle-AbsoluteThickness3,Blue;Quyu=Par

36、ametricPlot3Dx,y,0,y,0.2,0.8,x,gy,fy,PlotStyle-Yellow,Mesh-False;ShowQuyu,Quxian,Quxian2,PlotRange-0,2,0,1.2,0,0.01,Axes-Automatic,AspectRatio-.6,Ticks-0.5,1,1.5,2,0,0.5,1,ViewPoint-0,0,1,Boxed-False,AxesOrigin-0,0,02 July 2010第50页/共57页(1sin1)xyxyandy fy_:=Siny;gy_:=(1-y) y+1;Quxian=ParametricPlot3D

37、fy,y,0,y,0,2.1,PlotStyle-AbsoluteThickness3,Red;Quxian2=ParametricPlot3Dgy,y,0,y,0,2.1,PlotStyle-AbsoluteThickness3,Blue;Quyu=ParametricPlot3Dx,y,0,y,0.2,2,x,gy,fy,PlotStyle-LightBlue,Mesh-False;ShowQuyu,Quxian,Quxian2,PlotRange-1.5,1.5,0,2.4,0,0.01,Axes-Automatic,AspectRatio-0.8,Ticks-1.5,-1,-0.5,0

38、,0.5,1,1.5,2,0.5,1,1.5,2,2.5,ViewPoint-0,0,1,Boxed-False,AxesOrigin-0,0,02 JULY 2010第51页/共57页 r1t_:=1+Sint;r2t_:=3*Sint;Quxian1=ParametricPlot3Dr1tCost,r1t Sint,0,t,0,2Pi,PlotStyle-AbsoluteThickness4,Blue,PlotPoints-30;Quxian2=ParametricPlot3Dr2t Cost,r2t Sint,0,t,0,2Pi,PlotStyle-AbsoluteThickness4,Red,PlotPoints-30;Quyu=ParametricPlot3Dr Cost,r Sint,0,t,Pi/6,5Pi/6,r,r1t,r2t,PlotStyle-Yellow,Mesh-False,PlotPoints-30;ShowQuyu,Quxian1,Quxian2,PlotRange-2,2,-1,3.5,0,0.01,AxesOrigin-0,0,0,AspectRatio-1,Ticks-2,-1,0,1,2,-1,0,1,2,3,ViewPoint-0,0,1,Boxed-False(1