mathematica中将两个函数画在一张图中,为什么不行啊?
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/10/09 03:31:40
mathematica中将两个函数画在一张图中,为什么不行啊?
f1 = If[x < 10000,1.5*10^11*(9.9^3*10^-31*x)^(1/6),
If[x >= 10000,
1.5*10^11*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(1/6))]]
f2 = If[x < 10000,1.43*10^24*(9.9^3*10^-31*x)^(2/3),
If[x >= 10000,
1.43*10^24*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(2/3))]]
Plot[{f1,f2},{x,0,10^8}]
这个是代码.
f1 = If[x < 10000,1.5*10^11*(9.9^3*10^-31*x)^(1/6),
If[x >= 10000,
1.5*10^11*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(1/6))]]
f2 = If[x < 10000,1.43*10^24*(9.9^3*10^-31*x)^(2/3),
If[x >= 10000,
1.43*10^24*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(2/3))]]
Plot[{f1,f2},{x,0,10^8}]
这个是代码.
f1[x_] :=
If[x < 10000, 1.5*10^11*(9.9^3*10^-31*x)^(1/6),
If[x >= 10000, 1.5*10^11*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(1/6))]]
f2[x_] :=
If[x < 10000, 1.43*10^24*(9.9^3*10^-31*x)^(2/3),
If[x >= 10000,
1.43*10^24*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(2/3))]]
In[11]:=
Plot[{f1[x], f2[x]}, {x, 0, 10^8}]
If[x < 10000, 1.5*10^11*(9.9^3*10^-31*x)^(1/6),
If[x >= 10000, 1.5*10^11*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(1/6))]]
f2[x_] :=
If[x < 10000, 1.43*10^24*(9.9^3*10^-31*x)^(2/3),
If[x >= 10000,
1.43*10^24*(((9.9*10^-9)^3 + 9.7*10^-29*(x - 10^4))^(2/3))]]
In[11]:=
Plot[{f1[x], f2[x]}, {x, 0, 10^8}]
mathematica中将两个函数画在一张图中,为什么不行啊?
在mathematica中我在一张图表中画了好几个曲线,我想在下面加上一个图示来说明下哪条曲线是对应哪个函数?
Mathematica 一张图中画出多个三维函数图象的命令
mathematica中怎么画统计函数的图
Mathematica 中有没有求两个集合笛卡尔乘积的函数啊?请高手指教啊.
Mathematica中,如何在函数中输出图像
mathematica中如何在定义的函数中输出图形
mathematica中怎么定义函数在某个单点的值?
在mathematica中如何给函数自变量赋值后求值
mathematica中,怎么样把两个图放在一个坐标系上?
怎么在mathematica 中打出导数啊
为什么用Mathematica画周期函数,只出来坐标轴,没有函数图呢?