实验1 给定函数x)=5+58x 5+x2+x3+x (1)画出 f 在区间 [44] 上的 (2)画出区间[44+f(x)与cim)(x)的图形。 程序: fxl=(5+x^2+x^3+x^4)(5+5x+5x^2) gl=Plot[fx]x 4, 4), Plotstyle->RGBColor[1,0,0 AspectRatio->Automatic] 结果: 程序 g2=Plot[ Sinx]fx](x,- 4, 4) Plotstyle->RGBColor[0, 1,0] AspectRatio->Automatic Showlgl, g2 结果
实验1 给定函数 (1)画出 在区间 上的图形; (2)画出区间 上 与 的图形。 程序: f[x_]=(5+x^2+x^3+x^4)/(5+5x+5x^2); g1=Plot[f[x],{x,-4,4},PlotStyle->RGBColor[1,0,0], AspectRatio->Automatic]; 结果: 程序: g2=Plot[Sin[x]f[x],{x,-4,4}, PlotStyle->RGBColor[0,1,0], AspectRatio->Automatic]; Show[g1,g2]; 结果:
实验2观察函数 sIn 1的图形 程序: Plot[Sin[1/x],x,-1, 1), AspectRatio->Automatic] 结果
实验2 观察函数 的图形。 程序: Plot[Sin[1/x],{x,-1,1}, AspectRatio->Automatic]; 结果:
实验3(参数方程图形)绘出以下参数方程图形 x()=2cost x()=2(t-sint) y(t)=2sin't y(t)=2(1-cost) 程序: xl[t=2Cos[t]3 yI[t=2Sin[t] 3 ParametricPlot[(xl[tyl[t,,t, 0, 2Pi) AspectRatio->Automatic] 结果 程序: x2t=(t-Sin[tD); y2[t]=2(1-Cos[t]) ParametricPlot[ (x2[tl,y2[t,,t, 0, 4Pi) spectRatio->Automatic]
实验3(参数方程图形)绘出以下参数方程图形 程序: x1[t_]=2Cos[t]^3; y1[t_]=2Sin[t]^3; ParametricPlot[{x1[t],y1[t]},{t,0,2Pi}, AspectRatio->Automatic]; 结果: 程序: x2[t_]=2(t-Sin[t]); y2[t_]=2(1-Cos[t]); ParametricPlot[{x2[t],y2[t]},{t,0,4Pi}, AspectRatio->Automatic];
结果 实验4(极坐标图形)心形线、三叶玫瑰线。 程序: rlt ] =1-Cos[t] ParametricPlot[r[ Cos[t], r[tSin[t,t, 0, 2P1) AspectRatio->Automatic] 结果: 程序: rt]: =2Cos 3t ParametricPlot[r[t]Cos[t], r[tSin[t]i, t,0, 2Pi]
结果: 实验4(极坐标图形)心形线、三叶玫瑰线。 程序: r[t_]:=1-Cos[t]; ParametricPlot[{r[t]Cos[t],r[t]Sin[t]},{t,0,2Pi}, AspectRatio->Automatic]; 结果: 程序: r[t_]:=2Cos[3t]; ParametricPlot[{r[t]Cos[t],r[t]Sin[t]},{t,0,2Pi}
AspectRatio->Automatic] 结果 实验5(分段函数图形) x sIn x≠0 程序 fx: =-x2Sin[ 1/x; xI=0 fx]:=0/:x=0: Pot[x],{x,-1,1} 结果:
AspectRatio->Automatic]; 结果: 实验5(分段函数图形) 程序: f[x_]:=x^2Sin[1/x]/;x!=0; f[x_]:=0/;x=0; Plot[f[x],{x,-1,1}]; 结果:
实验6(单调性)函数 f(x)=x3+32+log(-x)在区 间 [-2,21上的单调性 程序 Potx^5+3E^x+Log[3,3-X{x-2,2} 结果:
实 验 6 ( 单 调 性 ) 函 数 在 区 间 上的单调性。 程序: Plot[x^5+3E^x+Log[3,3-x],{x,-2,2}]; 结果:
实验7(周期性)函数 f()=sin 2Tx+ COS 2Tx 程序: Plot[sin[2Pix+Cos[2Pix]x,-4, 4] 结果 实验8(反函数) y=f(x)=x2+3x2+3x+1的反函数 程序: Solve ly==x3+3x2+3x+l, x] {(x→-1+y13 x→-1 1 1 又→-1 L/3 Plot-1+x^(1/3),{x0,3} 结果
实验7(周期性)函数 程序: Plot[Sin[2Pi x]+Cos[2Pi x],{x,-4,4}]; 结果: 实验8(反函数) 的反函数 程序: Solve [y==x^3+3x^2+3x+1,x]; Plot[-1+x^(1/3),{x,0,3}]; 结果:
实验9动画演示函数 中参数。对图形的影响 sIn cx 程序: Do Plot sin c x,x, -Pi, P1 Plotrange->{-1,1},{c,1,4,1/3}; 实验10基本初等函数图形 幂函数 程序: P1=Plot{xx^2,x^3},{x,-2,2}, Plotstyle-> Thickness[0.01], CMYKColor[0,0,0, 1]) Thickness[0.01]. CMyKcolor[1, 1,0,) tHickness[0.01], CMYKColor[o, 1, 1,011 P2=Plot{x^(1/5)x^(1/3),x^(1/2)},{x0,2} Plotstyle->Thickness[0. 01]. CMYKColor[1,0,0,0) Thickness[0.01], CMyKcolor[0,0, 1,0J) Thickness[0.01, CMYKColor[0, 1,0,0)] ShowR(Pl, P2), AspectRatio->Automatic, AxesLabel->("y 1 结果
实验9 动画演示函数 中参数 对图形的影响 程序: Do[Plot[Sin[c x],{x,-Pi,Pi}, PlotRange->{-1,1}],{c,1,4,1/3}]; 实验1 0 基本初等函数图形 幂函数 程序: P1=Plot[{x,x^2,x^3},{x,-2,2}, PlotStyle->{ {Thickness[0.01],CMYKColor[0,0,0,1]}, {Thickness[0.01],CMYKColor[1,1,0,0]}, {Thickness[0.01],CMYKColor[0,1,1,0]}}]; P2=Plot[{x^(1/5),x^(1/3),x^(1/2)},{x,0,2}, PlotStyle->{{Thickness[0.01],CMYKColor[1,0,0,0]}, {Thickness[0.01],CMYKColor[0,0,1,0]}, {Thickness[0.01],CMYKColor[0,1,0,0]}}]; Show[{P1,P2},AspectRatio->Automatic, AxesLabel->{"x","y"}]; 结果:
指数函数 程序: Pot[{(1/3)^x、(1/2)^x,1,2^ x, Exple]},{x-2,2} Plotstyle->Thickness[0.01, CMYKColor[1,0,0,0) Thickness[0.01, CMyKcolor[0, 0, 1,01) Thickness[0.01]. CMYKColor[0,0,0, 11) tHickness[0.011,CMyKColor[1, 1,0,O1) Thickness[0.01], CMYKColor[o, 1, 1, 01), AxesLabel->("y 1 结果
指数函数 程序: Plot[{(1/3)^x,(1/2)^x,1,2^x,Exp[x]},{x,-2,2}, PlotStyle->{{Thickness[0.01],CMYKColor[1,0,0,0]}, {Thickness[0.01],CMYKColor[0,0,1,0]}, {Thickness[0.01],CMYKColor[0,0,0,1]}, {Thickness[0.01],CMYKColor[1,1,0,0]}, {Thickness[0.01],CMYKColor[0,1,1,0]}}, AxesLabel->{"x","y"}]; 结果:
对数函数 程序: Plot[f-Log[7, x]-Log5, x],-Loglxl, Logix] Log[5,x],Log[7,x]},{x0.14} PlotStyle->&Thickness[0. 01, CMYKColor[1,0,0,01) tHickness[0.01], CMY KColor[0,0, 1,0 Thickness[0.01], CMYKColor[0,0,0 Thickness[0.01, CMYKColor[0,0, 0, 1 Thickness[0.01]. CMYKColor[1, 1,0,01) Thickness[0.01], CMYKColor[o, 1, 1, 0), AspectRatio->Automatic, AxesLabel->(","y) Grid 结果
对数函数 程序: Plot[{-Log[7,x],-Log[5,x],-Log[x],Log[x], Log[5,x],Log[7,x]},{x,0.1,4}, PlotStyle->{{Thickness[0.01],CMYKColor[1,0,0,0]}, {Thickness[0.01],CMYKColor[0,0,1,0]}, {Thickness[0.01],CMYKColor[0,0,0,1]}, {Thickness[0.01],CMYKColor[0,0,0,1]}, {Thickness[0.01],CMYKColor[1,1,0,0]}, {Thickness[0.01],CMYKColor[0,1,1,0]}}, AspectRatio->Automatic,AxesLabel->{"x","y"}, GridLines->{{1},{}}]; 结果: