利用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,AbsoluteThickne