mathematica中将两个函数画在一张图中,为什么不行啊? 20

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+... 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}]
这个是代码。。。求高手指点
展开
ws白春
2011-12-13
知道答主
回答量:41
采纳率:0%
帮助的人:16.5万
展开全部

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}]

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式