Mathematica 训练课(9)

您所在的位置:网站首页 分段函数如何写出来 Mathematica 训练课(9)

Mathematica 训练课(9)

2023-08-05 06:17| 来源: 网络整理| 查看: 265

(1)对于分段函数的图形绘制,如下所示:

输入代码:

y = If[x >= 0, x - 1, x^2 + 5]; Plot[y, {x, -5, 5}]

得到如下图形:

(2)图形填充

增加一个函数,使得图形中呈现出空间区域:

(*定义一个函数*) findArea[expr1_,expr2,x1_,x2_,d_,y0_]:=Block[{x3,y3,x4,y4},Table[{x3,y3}=FindRoot[{expr1==y,y==1.5(x-x0)+y0},{{x,x0},{y,y0}}][[;;,2]];{x3,y3}=FindRoot[{expr1==y,y==1.5(x-x0)+y0},{{x,x0},{y,y0}}][[;;,2]]  Line@{{x3,y3},{x4,y4}},{x0,x1,x2,d}]] findArea[expr1_,x1_,x2_,d_,y0_]:=Table[Line[FindRoot[{#==y,y==1.5(x-x0)+y0],{{x,x0},{y,y0}}][[;;,2]]&/@expr],{x0,x1,x2,d}] a,ea=findArea[Sin[x],Cos[x],-2,8,.1,0]; Plot[{Sin[x],Cos[x]},{x,0,2 Pi},Prolog→{Gray,area},Evaluate@FStyle[],Ticks→{FTicks[0,6.4,0.2,5],FTicks[-1,1,0.1,5]}]

(3)复杂填充图形:

再比如,画一个复杂的八卦图:

Graphics[{Circle[{0, 0}, 2], Red, Disk[{0, 0}, 2, {0, \[Pi]}], Black, Disk[{0, 0}, 2, {\[Pi], 2 \[Pi]}], Red, Disk[{1, 0}, 1, {0, 2 \[Pi]}], Black, Disk[{-1, 0}, 1, {0, 2 \[Pi]}], Black, Disk[{1, 0}, .25, {0, 2 \[Pi]}], Red, Disk[{-1, 0}, .25, {0, 2 \[Pi]}]}]



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3