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 >=
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 15:29:33
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 >=
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}]
这个是代码.
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 >=
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}]