MMA-mathematica绘图

一、二维作图

二维作图

Plot[f,{x,xmin,xmax}] 一维函数f[x]在区间[xmin,xmax]上的函数曲?
Plot[,f2.{f1.},{x,xmin,xmax}] 在一张图上画几条曲线
ListPlot[{y1,y2,..}] 绘出由离散点对(n,yn)组成的图
ListPlot[{{x1,y1},{x2,y2},..}] 绘出由离散点对(xn,yn)组成的图
PlarametricPot[{fx,fy},{t,tmin,tmax}] 由参数方程在参数变化范围内的曲线
ParametricPlot[{{fx,fy},{gx,gy},...},{t,tmin,tmax}]在一张图上画多条参数曲线

1、平面曲线的绘制

Plot[Abs[Sinc[x]],{x,-20,20}]
Plot[Sinc[x],{x,-20,20}]
Plot[1/Exp[x],{x,-20,20}]
Plot[Tan[x], {x, -2*Pi, 2*Pi}]
Plot[Sin[x], {x, -2*Pi, 2*Pi}]
Plot[1/Exp[-1/x], {x, 0, 20}]

在这里插入图片描述
在这里插入图片描述

在这里插入图片描述

在这里插入图片描述

2、绘制参数函数的图形

ParametricPlot[{2 Cos[t]^3, 2 Sin[t]^3}, {t, 0, 2*Pi}]

在这里插入图片描述

选项:

PlotRange->{0,1} 作图显示的值域范围
AspectRatio->1/GoldenRatio生成图形的纵横比
PlotLabel ->label 标题文字
Axes ->{False,True} 分别制定是否画x,y轴
AxesLabel->{xlabel,ylabel}x,y轴上的说明文字
Ticks->None,Automatic,fun用什么方式画轴的刻度
AxesOrigin ->{x,y} 坐标轴原点位置
AxesStyle->{{xstyle}, {ystyle}}设置轴线的线性颜色等属性
Frame ->True,False 是否画边框
FrameLabel ->{xmlabel,ymlabel,xplabel,yplabel} 边框四边上的文字
FrameTicks同Ticks 边框上是否画刻度
GridLines 同Ticks 图上是否画栅格线
FrameStyle ->{{xmstyle},{ymstyle}设置边框线的线性颜色等属性
ListPlot[data,PlotJoined->True] 把离散点按顺序连线
PlotSytle->{{style1},{style2},..}曲线的线性颜色等属性
PlotPoints->15 曲线取样点,越大越细致

二、三维作图

Plot3D[f,{x,xmin,xmax}, {y,ymin,ymax}]
二维函数f[x,y]的空间曲面
Plot3D[{f,s}, {x,xmin,xmax}, {y,ymin,ymax}]同上,曲面的染色由s[x,y]值决定
ListPlot3D[array] 二维数据阵array的立体高度图
ListPlot3D[array,shades]同上,曲面的染色由shades[数据]值决定
ParametricPlot3D[{fx,fy,fz},{t,tmin,tmax}]
二元数方程在参数变化范围内的曲线
二元数方程在参数变化范围内的曲线
ParametricPlot3D[{{fx,fy,fz},{gx,gy,gz},...},{t,tmin,tmax}]多条空间参数曲线
Plot3D[Abs[Sinc[x*y]],{x,-20,20},{y,1,10}]

在这里插入图片描述

选项:

ViewPoint ->{x,y,z} 三维视点,默认为{1.3,-2.4,2}
Boxed -> True,False 是否画三维长方体边框
BoxRatios->{sx,sy,sz} 三轴比例
BoxStyle 三维长方体边框线性颜色等属性
Lighting ->True 是否染色
LightSources->{s1,s2..} si为某一个光源si={{dx,dy,dz},color}
color为灯色,向dx,dy,dz方向照射
AmbientLight->颜色函数 慢散射光的光源
Mesh->True,False 是否画曲面上与x,y轴平行的截面的截线
MeshStyle 截线线性颜色等属性
MeshRange->{{xmin,xmax}, {ymin,ymax}}网格范围
ClipFill->Automatic,None,color,{bottom,top}指定图形顶部、底部超界后所画的颜色
Shading ->False,True 是否染色
HiddenSurface->True,False 略去被遮住不显示部分的信息
等高线
ContourPlot[f,{x,xmin,xmax},{y,ymin,ymax}]
二维函数f[x,y]在指定区间上的等高线图
ListContourPlot[array] 根据二维数组array数值画等高线
选项:
Contours->n 画n条等高线
Contours->{z1,z2,..} 在zi处画等高线
ContourShading -> False 是否用深浅染色
ContourLines -> True 是否画等高线
ContourStyle -> {{style1},{style2},..}等高线线性颜色等属性
FrameTicks 同上
密度图
DensityPlot[f,{x,xmin,xmax},{y,ymin,ymax}]二维函数f[x,y]在指定区间上的密度图
ListDensityPlot[array] 同上
图形显示
Show[graphics,options] 显示一组图形对象,options为选项设置
Show[g1,g2...] 在一个图上叠加显示一组图形对象
GraphicsArray[{g1,g2,...}]在一个图上分块显示一组图形对象
SelectionAnimate[notebook,t]把选中的notebook中的图画循环放映

选项:(此处选项适用于全部图形函数)

Background->颜色函数 指定绘图的背景颜色
RotateLabel -> True 竖着写文字
TextStyle 此后输出文字的字体,颜色大小等
ColorFunction->Hue等 把其作用于某点的函数值上决定某点的颜色
RenderAll->False 是否对遮挡部分也染色
MaxBend 曲线、曲面最大弯曲度

三、图元函数

Graphics[prim, options]
prim为下面各种函数组成的表,表示一个二维图形对象
Graphics3D[prim, options]
prim为下面各种函数组成的表,表示一个三维图形对象
SurfaceGraphics[array, shades]表示一个由array和shade决定的曲面对象
ContourGraphics[array]表示一个由array决定的等高线图对象
DensityGraphics[array]表示一个由array决定的密度图对象
以上定义图形对象,可以进行对变量赋值,合并显示等操作,也可以存盘
Point[p] p={x,y}{x,y,z},在指定位置画点
Line[{p1,p2,..}]经由pi点连线
Rectangle[{xmin, ymin}, {xmax, ymax}] 画矩形
Cuboid[{xmin,ymin,zmin},{xmax,ymax,zmax}]由对角线指定的长方体
Polygon[{p1,p2,..}] 封闭多边形
Circle[{x,y},r] 画圆
Circle[{x,y},{rx,ry}] 画椭圆,rx,ry为半长短轴
Circle[{x,y},r,{a1,a2}] 从角度a1~a2的圆弧
Disk[{x, y}, r] 填充的园、 衷病⒃ 弧等参数同上
Raster[array,ColorFunction->f] 颜色栅格
Text[expr,coords] 在坐标coords上输出表达式
PostScript["string"] 直接用PostScript图元语言写
Scaled[{x,y,..}] 返回点的坐标,且均大于0小于1
u = Graphics[  Line [{{2, 0}, {3, Sqrt[3]}, {5, Sqrt[3]}, {6,  0}, {5, -Sqrt[3]}, {3, -Sqrt[3]}, {2, 0}}]]

Line[{p1,p2,…}]经由pi点连线
在这里插入图片描述

蜂窝图绘制

unit = Table[{Cos[x], Sin[x]}, {x, 0, 2*Pi, Pi/3}];
Ul[xn_, xZ_] := Module[{un, ss},
   un = unit[[{4, 3, 2, 1}]];
   ss = {};
   Do[ss = Join[ss, Table[un[[j]] + {3*i, xZ}, {j, 1, 4}]], {i, 1, 
     xn}];
   Line[ss]
   ];
Ll[xn_, xZ_] := Module[{un, ss},
   un = unit[[{4, 5, 6, 1}]];
   ss = {};
   Do[ss = Join[ss, Table[un[[j]] + {3*i, xZ}, {j, 1, 4}]], {i, 1, 
     xn}];
   Line[ss]
   ];
FW[xR_, xC_] := Module[{GG},
  GG = {};
  Do[GG = Join[GG, {Ul[xC, i*Sqrt[3]], Ll[xC, i*Sqrt[3]]}], {i, 1, 
    xR}];
  Graphics[GG]
  ]
FW[10, 8]

在这里插入图片描述

颜色函数(指定其后绘图的颜色)

GrayLevel[level] 灰度level为0~1间的实数
RGBColor[red, green, blue] RGB颜色,均为0~1间的实数
Hue[h, s, b] 亮度,饱和度等,均为0~1间的实数
CMYKColor[cyan, magenta, yellow, black] CMYK颜色
其他函数(指定其后绘图的方式)
Thickness[r] 设置线宽为r
PointSize[d] 设置绘点的大小
Dashing[{r1,r2,..}] 虚线一个单元的间隔长度
ImageSize->{x, y} 显示图形大小(像素为单位)
ImageResolution->r 图形解析度r个dpi
小(像素为单位)
ImageResolution->r 图形解析度r个dpi
ImageMargins->{{left,right},{bottom,top}}四边的空白
ImageRotated->False 是否旋转90度显示

音乐

Sound[Table[
      SoundNote[i, 1, 
        "Piano"]{i, ("C4", "D4", "E4", "F4", "G4", "A4", "B4", "C5",
          "C#5"}}], 4]

符号运算

在这里插入图片描述

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值