资源描述：
《MATHEMATICA讲座十讲》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、MATHEMATICA讲座渭南师范学院数学系计算数学教研室路玉麟第17页共17页MATHEMATICA讲座第一讲第17页共17页1数的运算算例378/123N[378/123,6](*取小数点后6位的近似值*)Pi^2E^(-1)100!N[Pi,100]N[I^(-I)]2常用数学函数Sqrt[]平方根,Exp[]指数函数,Log[]对数函数,Sin[]正弦函数,Cos[]余弦函数,Tan[]正切函数,Cot[]余切函数,Sec[]正割函数,Csc[]余割函数,ArcSin[]反正弦函数,ArcCos[]反余弦函数,ArcTan[]反正切函数,ArcCot[]反余切函数,ArcSec[]反
2、正割函数,ArcCsc[]反余割函数,Sinh[]双曲正弦,Cosh[]双曲余弦,Tanh[]双曲正切,Coth[]双曲余切,Sech[]双曲正割,Csch[]双曲余割,ArcSinh[]反双曲正弦,ArcCosh[]反双曲余弦,ArcTanh[]反双曲正切,...算例Sin[N[Sqrt[3],50]]3其它函数!阶乘Mod[n,m]n取模m的结,Quotient[n,m]n除以m的商的整数部分GCD[n,m]LCM[n,m]n和m的最大公约数和最小公约数Round[]距离近似数x最近的整数Floor[]不大于x的最大整数算例100!Quotient[10,3]GCD[105,30]Rou
3、nd[-1.234]Floor[-1.234]4变量的赋值与替换算例f1=x^2+3x+1(*将表达式赋给变量f1*)f1/.x->3(*求f1当x=3时的值f1(3)*)f1/.x->x+1(*在f1中用x+1替换x得到f1(x+1)*)f1=.(*取消变量f1的定义*)f1/.x->3(*此时已经得不到所想的结果f1(3)*)5多项式计算Expand[p](*多项式展开*)Factor[p](*多项式因式分解*)算例p1=x^3-6x^2+11x-6p2=(x-1)*(x-2)*(x-3)Factor[p1]Expand[p2] 第17页共17页MATHEMATICA讲座第二讲第17页共
4、17页一元函数的图形一命令语句Plot[表达式,{变量,下限,上限},可选项]Plot[{表达式,表达式,...},{变量,下限,上限},可选项]二可选参数项第一类参数1.PlotRange->{y1,y2}指定作图纵座标范围为(y1,y2)默认值为Atuomatic或指定All执行算例Plot[Tan[x],{x,-2Pi,2Pi}]Plot[Tan[x],{x,-2Pi,2Pi},PlotRange->{-10,10}]Plot[Exp[-x^2]*Sin[6x],{x,-2,2},PlotRange->{-0.5,0.5}]Plot[Exp[-x^2]*Sin[6x],{x,-2,2}
5、,PlotRange->All]2.AspectRatio->Automatic按实际比例作图默认值为Atuomatic=0.618:1执行算例Plot[Sqrt[1-x^2],{x,-1.5,1.5}]Plot[Sqrt[1-x^2],{x,-1.5,1.5},AspectRatio->Automatic]3.Axes->Automatic画坐标轴自动确定位置Axes->None不画坐标轴Axes->{x0,y0}指定坐标原点在(x0,y0)处第17页共17页执行算例Plot[Cos[x],{x,-2Pi,2Pi}]Plot[Cos[x],{x,-2Pi,2Pi},Axes->None]P
6、lot[Cos[x],{x,-2Pi,2Pi},Axes->{1,2}]4AxesLabel->None不说明坐标轴的标记AxesLabel->{x,y}指定横轴为x纵轴为yAxesLabel->{u,v}指定横轴为u纵轴为v执行算例Plot[Sin[x]/x,{x,-10,10},AxesLabel->None]Plot[Sin[x]/x,{x,-10,10},AxesLabel->{x,y}]Plot[Sin[x]/x,{x,-10,10},AxesLabel->{时间T,电流I}]5.Ticks->{i,j}规定坐标轴上的刻度位置Ticks->{t1,t2,t3,...}执行算例Plo
7、t[{ArcSin[x],ArcCos[x]},{x,-1,1},PlotStyle->{{RGBColor[0,1,1],Thickness[0.01]},{RGBColor[1,0,1],Dashing[{0.05,0.05}]}}]第二类参数1.DisplayFunction->Identity只生成图形现在不显示执行算例Plot[{Sin[Tan[x]]-Tan[Sin[x]]},{x,1,2},Di
