利用Mathematica画平面区域.pptVIP

2007-12-31 f[x_,y_]:=y/x^2;g[x_,y_]:=x^2+y^2 ; Quyu=RegionPlot[1f[x,y]4 1g[x,y]4,{x,0,2},{y,0,2},PlotStyle-Green,PlotPoints-100]; Show[Quyu,PlotRange-{{0,2},{0,2}},AxesOrigin-{0,0},Axes-True,AspectRatio-1,Frame-False,Ticks-{{1,2,3},{0,1,2}}] 2 JULY 2010 f[x_,y_]:=y/x^2;g[x_,y_]:=x^2+y^2 ; Quxian1=Plot[1 x^2,{x,0,2},PlotStyle-{Red,AbsoluteThickness[2]}]; Quxian2=Plot[4 x^2,{x,0,2},PlotStyle-{Red,AbsoluteThickness[2]}]; Quxian3=ParametricPlot[{Cos[t],Sin[t]},{t,0,Pi/2},PlotStyle-{Blue,AbsoluteThickness[2]}]; Quxian4=ParametricPlot[{2 Cos[t],2 Sin[t]},{t,0,Pi/2},PlotStyle-{Blue,AbsoluteThickness[2]}]; Quyu=RegionPlot[1f[x,y]4 1g[x,y]4,{x,0,2},{y,0,2},PlotStyle-Green]; Show[Quyu,Quxian1,Quxian2,Quxian3,Quxian4,PlotRange-{{0,2},{0,2}},AxesOrigin-{0,0},Axes-True,AspectRatio-1,Frame-False,Ticks-{{1,2,3},{0,1,2}}] 2 JULY 2010 f[x_,y_]:=y/x^2;g[x_,y_]:=x/y^2 ; Quxian1=Plot[1 x^2,{x,0,2},PlotStyle-{Red,AbsoluteThickness[2]}]; Quxian2=Plot[4 x^2,{x,0,2},PlotStyle-{Red,AbsoluteThickness[2]}]; Quxian3=ParametricPlot[{ y^2,y},{y,0,2},PlotStyle-{Blue,AbsoluteThickness[2]}]; Quxian4=ParametricPlot[{ 4y^2,y},{y,0,2},PlotStyle-{Blue,AbsoluteThickness[2]}]; Quyu=RegionPlot[1f[x,y]4 1g[x,y]4,{x,0,2},{y,0,2},PlotStyle-Green]; Show[Quyu,Quxian1,Quxian2,Quxian3,Quxian4,PlotRange-{{0,2},{0,2}},AxesOrigin-{0,0},Axes-True,AspectRatio-1,Frame-False,Ticks-{{1,2,3},{0,1,2}}] 2 JULY 2010 曲边扇形区域 Quyu=RegionPlot[x^2+y^24 y0,{x,-4,4},{y,-4,4},PlotStyle-Cyan]; Show[Quyu,PlotRange-{{-3,3},{-0,3}},Axes-Automatic,AspectRatio-0.7,Frame-False,Ticks-{{-2,-1,0,1,2},{-2,-1,0,1,2}}] 2 July 2010 Quyu=RegionPlot[1x^2+y^24,{x,-4,4},{y,-4,4},PlotStyle-Cyan]; Show[Quyu,PlotRange-{{-3,3},{-3,3}},Axes-Automatic,AspectRatio-1,Frame-False,Ticks-{{-2,-1,0,1,2},{-2,-1,0,1,2}}] 2 July 2010 Quyu=RegionPlot[x^2+y^25 y 2x yx/2 x0,{x,-4,4},{y,-4,4},PlotStyle-Cyan]; Show[Quyu,PlotRange-{{-0,3},{-0,3}},Axes-Automatic,AspectRatio-1,Frame-False,Ticks-{{-2,-1,0,1,2},{-2,-1,0,1,2}}] 2 July 2010 Quxian1=PolarPlot[4