2、raphicsImplicitPlot.m调出函数ImplicitPlot,再输入ImplicitPlot[表达式,{x,x1,x2}]如:作隐函数的图像。ImplicitPlot[x^3+y^3==3x*y,{x,-3,3}]3.5绘图参数Mathematica的绘图命令有两类参数,第一类是对图形的比例,边框和绘图范围等的限定;第二类是对图形的修饰与加工3.5.1第一类可选参数项AspectRatio->Automatic表示按实际比例作图。在不加这项参数时,系统按高宽比1/0.618作图。也可按需求自设比例,如AspectRatio->
3、1/2,表示高宽比为1/2。Frame->False(或True)指定图形是否加边框AxesLabel->{“x轴”,“y轴”}指出坐标轴的标记PlotLabel->“图形名称”指出所画图形的名称PlotRange->{a,b}指定图形在纵坐标方向上的范围3.5.2第二类参数对图形的修饰与加工PlotStyle说明用什么方式画图形。其值主要有RGBColor[r,g,b]说明图形的颜色。r,g,b是三个[0,1]之间的实数,分别说明红(Red)、绿(Green)、兰(Blue)的强度。不同的搭配能形成各种各样的颜色。Thickness[t]描
4、述线的粗细程度。Dashing[{d1,d2,…}]画虚线,d1、d2等都是[0,1]之间的实数,说明虚线的分段方式。PlotPoints->a采样点的基本点数。在某些场合下需要增加采样点的数目才能完整的描绘出图形的实际情况。系统默认的采样点的基本点数为12。3.6三维图形命令Lighting光照参数。如果光照参数设为False,则显示黑白效果。系统默认为True。这时系统将以照明模拟效果代替内在颜色;ViewPoint->{x0,y0,z0}视点的位置。在Input菜单中有一个3DViewPointSelector,点击它会打开一个选择对话
5、框,调整各个选项,然后按Paste键,可以得到合适的观察角度;Boxed当设为False时,取消边框;Axes当设为False时,将不显示坐标轴;HiddenSurface说明是否隐藏曲面被遮住的部分;BoxRatios三轴比例例画出的图形。Plot3D[x^2+y^2,{x,-2,2},{y,-2,2}]Plot3D[x^2+y^2,{x,-2,2},{y,-2,2},ViewPoint->{4,0,0}]习题1、试着选定合适的区间及可选项作出下列函数的图形2、画出下列参数方程给出的函数图形3、画出下列函数的图像用Mathematica解方
6、程Solve[f[x]==0,x]4.1Mathematica用于解方程的命令:1、Solve[f[x]==0,x]2、NSolve[f[x]==0,x]3、Roots[f[x]==0,x]4、Reduce[f[x]==0,x]5、FindRoot[f[x]==0,{x,x0}]6、FindRoot[f[x]==0,{x,x0,x1}]注意:“=”表示赋值,“==”表示逻辑等。例1解方程解:NSolve[f[x]==0,x]对于5次及5次以上的方程已经没有公式解Solve[]只能给出以Root表示的抽象解这时改用NSolve[]能求出近似值。
7、例2求五次方程的根改用NSolve[]可以得到近似解只能得出符号解Roots[]Roots的用法有所区别,其输出的结果是逻辑表达式。结果是两个逻辑表达式的”或”.为了转化成x→a的形式,可以用ToRules函数。Reduce[]Reduce函数给出方程的全部解。Reduce函数详细讨论了各种可能的情况,而Solve只考虑了a≠0的一种情况。切线法FindRoot[eqn,{x,x0}]对于没有初等函数解的方程,Solve可能解不出来,这时用FindRoot求函数的近似解。用FindRoot[egn,{x,x0}]时Mathematica是根据
8、牛顿迭代法求根的近似值。因此初值x0要选择的与真值不能太远。求解方程割线法FindRoot[eqn,{x,x0,x1}]如果用牛顿法求不出根,则用割线法求近似值。割