利用Mathematica画平面区域.ppt

利用Mathematica画平面区域.ppt

ID:48776497

大小:1.52 MB

页数:57页

时间:2020-01-23

利用Mathematica画平面区域.ppt_第1页
利用Mathematica画平面区域.ppt_第2页
利用Mathematica画平面区域.ppt_第3页
利用Mathematica画平面区域.ppt_第4页
利用Mathematica画平面区域.ppt_第5页
资源描述:

《利用Mathematica画平面区域.ppt》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、曲线围成的区域30JUN2010X型区域用Filling曲线下方的区域Plot[f[x],{x,a,b},Filling->Bottom,FillingStyle->Yellow]f[x_]:=x^2;Quxian=Plot[f[x],{x,-0.1,1.1},PlotStyle->{AbsoluteThickness[2],Red}];Quyu=Plot[f[x],{x,0,1},Filling->Bottom,AspectRatio->1,PlotRange->All,Ticks->{{-1,0,1},{-1,0,1}}

2、,FillingStyle->Green];Show[Quyu,Quxian]30JUN2010曲线与x轴围成的区域Plot[f[x],{x,a,b},Filling->Axis,FillingStyle->Yellow]f[x_]:=Sin[x];Quxian=Plot[f[x],{x,-1.1,1.1},PlotStyle->{AbsoluteThickness[3],Red}];Quyu=Plot[f[x],{x,-1,1},Filling->Axis,AspectRatio->1,PlotRange->All,Tic

3、ks->{{-1,0,1},{-1,0,1}},FillingStyle->Green];Show[Quyu,Quxian]30JUN2010两曲线围成的区域Quyu=Plot[{f[x],g[x]},{x,a,b},Filling->{1}]f[x_]:=x;g[x_]:=x^2;Quxian1=Plot[f[x],{x,-1.3,1.3},PlotStyle->{AbsoluteThickness[2],Red}];Quxian2=Plot[g[x],{x,-1.3,1.3},PlotStyle->{AbsoluteTh

4、ickness[2],Blue}];Quyu=Plot[{f[x],g[x]},{x,0,1},Filling->{1->{2}},AspectRatio->1,PlotRange->All,Ticks->{{-1,0,1},{-1,0,1}},FillingStyle->Green];Show[Quyu,Quxian1,Quxian2]30JUN2010f[x_]:=Sin[x];g[x_]:=Cos[x];Quxian1=Plot[f[x],{x,0,2Pi},PlotStyle->{AbsoluteThickness[

5、2],Red}];Quxian2=Plot[g[x],{x,0,2Pi},PlotStyle->{AbsoluteThickness[2],Blue}];Quyu=Plot[{f[x],g[x]},{x,0,2Pi},Filling->{1->{2}},AspectRatio->.8,PlotRange->All,Ticks->{{0,Pi/2,Pi,3Pi/2,2Pi},{-1,0,1}},FillingStyle->Yellow];Show[Quyu,Quxian1,Quxian2]30JUN2010f[x_]:=Sin

6、[Pix]Exp[-(x-1)^2];g[x_]:=4Cos[x-2];Quxian1=Plot[f[x],{x,0,4},PlotStyle->{AbsoluteThickness[2],Red}];Quxian2=Plot[g[x],{x,0,4},PlotStyle->{AbsoluteThickness[2],Blue}];Quyu=Plot[{f[x],g[x]},{x,0.6,3.6},Filling->{1->{2}},AspectRatio->1,PlotRange->All,Ticks->{{0,1,2,3

7、,4},{-1,0,1,2,3,4}},FillingStyle->LightRed,AxesOrigin->{0,0}];Show[Quyu,Quxian1,Quxian2]30JUN2010f[x_]:=x;g[x_]:=x^3;Quxian1=Plot[f[x],{x,-1.3,1.3},PlotStyle->{AbsoluteThickness[2],Red}];Quxian2=Plot[g[x],{x,-1.3,1.3},PlotStyle->{AbsoluteThickness[2],Red}];Quyu=Plo

8、t[{f[x],g[x]},{x,-1,1},Filling->{1->{2}},AspectRatio->1.4,PlotRange->All,Ticks->{{-1,0,1},{-1,0,1}},FillingStyle->Green];Show[Quyu,Quxian1,Quxian

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。