资源描述:
《mathmatic数学实验讲稿》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、MATHEMATICA第一讲1数的运算 算例 378/123 N[378/123,6](*取小数点后6位的近似值*) Pi^2 E^(-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最近的整数 F
3、loor[]不大于x的最大整数 算例 100! Quotient[10,3] GCD[105,30] Round[-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]
4、(*多项式因式分解*) 算例 p1=x^3-6x^2+11x-6 p2=(x-1)*(x-2)*(x-3) Factor[p1] Expand[p2] MATHEMATICA第二讲 一元函数的图形 一命令语句 Plot[表达式,{变量,下限,上限},可选项] Plot[{表达式,表达式,...},{变量,下限,上限},可选项]二可选参数项 第一类参数 1.PlotRange->{y1,y2}指定作图纵座标范围为(y1,y2) 默认值为Atuomatic或指定All 执行算例 Plot[Tan[x],{x,-2Pi,2Pi
5、}] 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},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.
6、5,1.5},AspectRatio->Automatic] 3.Axes->Automatic画坐标轴自动确定位置 Axes->None不画坐标轴 Axes->{x0,y0}指定坐标原点在(x0,y0)处 执行算例 Plot[Cos[x],{x,-2Pi,2Pi}] Plot[Cos[x],{x,-2Pi,2Pi},Axes->None] Plot[Cos[x],{x,-2Pi,2Pi},Axes->{1,2}] 4AxesLabel->None不说明坐标轴的标记 AxesLabel->{x,y}指定横轴为x纵轴为y A
7、xesLabel->{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,...} 执行算例 Plot[{ArcSin[x],ArcCos[x]},{x,-1,1}, PlotStyle->
8、{{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[