MATHEMATICA基本数学函数及应用.docxVIP

MATHEMATICA 第一讲 1数的运算 算例 378/123 N[378/123,6] (*取小数点后6位的近似值*) PiA2 EA(-1) 100! N[Pi,100] N[IA(-I)] 2常用数学函数 Sqrt[]平方根,Exp[]指数函数,Log[]对数函数, Sin[]正弦函数,Cos[]余弦函数, Tan[]正切函数，Cot[]余切函数， Sec[]正割函数，Csc[]余割函数， ArcSin[]反正弦函数，ArcCos[]反余弦函数， ArcTan[]反正切函数，ArcCot[]反余切函数， ArcSec[]反正割函数,ArcCsc[]反余割函数, Sinh[]双曲正弦，Cosh[]双曲余弦， Tanh[]双曲正切，Coth[]双曲余切， Sech[]双曲正割,Csch[]双曲余割, ArcSinh[]反双llll正弦，ArcCosh[]反双曲余弦， ArcTanh[]反双曲正切，… 算例 Sin[N[Sq rt[3],50]] 3其它函数 !阶乘 Mod[nzm] n取模m的结， Quoti ent[n,m] n除以m的商的整数部分 GCD[n,m]LCM[n,m] n和m的最大公约数利最小公约数 Round]]距离近似数x最近的整数 Floor[]不大于x的最大整数 算例 100! Quoti ent[10z3] GCD[105z30] Round —1.234] Floor[-1.234] 4变量的赋值与替换 算例 fl=x^2+3 x+1 (*将表达式赋给变量fl*) fl/.x-3 (*求 fl 当 x = 3 时的值 fl(3)*) fl/.x-x+l (*在 fl 中用 x+1 替换 X 得到 fl(x+l)*) fl = . (*取消变量fl的定义*) fl/.x-3 (*此时已经得不到所想的结果fl(3)*) 5多项式计算 Expand[p] (*多项式展开*) Factor[p] (*多项式因式分解*) 算例 pl=xA3-6xA2+llx-6 p2=(x-l)*(x-2)*(x-3) Factor[pl] Expand[p2] MATHEMATICA 第二讲 一元断数的图形 一命令语句 Plot[表达式,{变量，下限，上限}，可选项] Plot[{表达式，表达式,???},{变量，下限，上限},可选项] 二可选参数项 第一类参数 PlotRange-{ylzy2}指定作图纵座标范围为(ylzy2) 默认值为Atuomatic或指定All 执行算例 Plot[Tan[x]z{xz-2Piz2Pi}] Plot[Tan[x]/{xz-2Piz2Pi}/PlotRange-{-10/10}] Plot[Exp[-xA2]*Sin[6x]z{xz-2z2}/PlotRange-{-0.5z0.5}] Plot[Exp[-xA2] *Sin [6x]z{x/-2/2},PlotRange-AII] AspectRatio-Automatic 按实际比例作图 默认值为 Atuomatic=0.61 1 执行算例 Plot[Sqrt[l-xA2],{xz-1.5z1.5}] Plot[Sqrt[l-xA2],{xz-l.5Z1-5}Z AspectRatio-Automatic] Axes-Automatic imi坐标轴白动确定位置 Axes-None不画坐标轴 Axes-{xOzyO}指定坐标原点在(xOzyO)处 执行算例 Plot[Cos[x],{x,?2Pi,2Pi}] Plot[Cos[x]z{xz-2Piz2Pi},Axes-None] Plot[Cos[x],{x,?2Pi,2Pi},Axes?{l,2}] AxesLabel-None不说明坐标轴的标记 AxesLabel-{x,y}指定横轴为x纵轴为y AxesLabel-{u,v}指定横轴为u纵轴为v 执行算例 Plot[Sin[x]/x,{xz-10,10},AxesLabel-None] Plot[Sin[x]/xz{xz-10,10}zAxesLabel-{x/y}] Plot[Sin[x]/x,{xz-10,10},AxesLabel-{时间 T,电流 I}] 5. Ticks-{i,j}规定坐标轴上的刻度位置 Ticks-{tlzt2,t3z...} 执行算例 Plot[{ArcSin[x]zArcCos[x]}z{xz-l,l}/ PlotStyle-{{RGBColor[0zl,l]zThickness[0.01]}z {RGBColor[l,0zl]zDashing[{0.05z0.05}]}}] 第二类参数 DisplayFunction-Identity 只4：.成图形现在不显示 执行算例 Plot[{S