应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 被积函数为变量，画图
61/1返回列表
查看: 811  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

xiao-niao-

银虫 (正式写手)

[求助] 被积函数为变量，画图 已有2人参与

函数方程如图，
请问，如果被积函数为函数方程，该怎么编程呢？只用过简单的编程，这个复杂点的就不会了
我倒是编出来了，但是报错说：被积函数没有non-numerical values.
所以想问是不是有特殊的函数来解决这类问题啊
谢谢啦

被积函数为变量，画图
Picture1.png


被积函数为变量，画图-1
回复此楼

» 猜你喜欢
1楼 2016-03-12 01:05:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Mr__Right

专家顾问 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
xiao-niao-: 金币+25, ★★★很有帮助 2016-03-13 13:13:39
这类情况用Mathematica似乎更合适。
被积函数为变量，画图-2
CODE:
f[x_]:=NIntegrate[(Tanh[t]-Tanh[x])/(x^2-t^2),{t,0,Infinity}];Plot[f[x],{x,0,50},
AxesOrigin->{0,-.1},PlotStyle->Red],ImageSize->700,AxesStyle->{{Directive[Black, 18],Arrowheads[.035],Thick},{Directive[Black, 18],Arrowheads[.035],Thick}}
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

xiao-niao-
文章乃身外之物,要多考虑编辑、审稿人和读者的感受。
2楼2016-03-12 09:58:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiao-niao-

银虫 (正式写手)
送红花一朵
引用回帖:
2楼: Originally posted by Mr__Right at 2016-03-12 09:58:12
这类情况用Mathematica似乎更合适。



f:=NIntegrate;Plot,ImageSize->700,AxesStyle->{{Directive,Arrowheads,Thick},{Directive,Arrowheads,Thick}}
...

好厉害，可是为什么我把你的代码复制进mathamatica，不画图呢
赞一下 回复此楼
3楼2016-03-12 12:45:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Mr__Right

专家顾问 (著名写手)
引用回帖:
3楼: Originally posted by xiao-niao- at 2016-03-12 12:45:43
好厉害，可是为什么我把你的代码复制进mathamatica，不画图呢...

后面漏掉一个 “]", 然后Shift+Enter
赞一下 回复此楼
文章乃身外之物,要多考虑编辑、审稿人和读者的感受。
4楼2016-03-12 12:52:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiao-niao-

银虫 (正式写手)
引用回帖:
4楼: Originally posted by Mr__Right at 2016-03-12 12:52:47
后面漏掉一个 “]", 然后Shift+Enter...

很感谢
检查过了，没有落下 ] , 还是不画图，也不报错，你遇到过这种情况吗。我用mathamatica很少，不懂啊
赞一下 回复此楼
5楼2016-03-13 02:34:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cooooldog

铁杆木虫 (著名写手)

ส็็็

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
xiao-niao-: 金币+25, ★★★很有帮助 2016-03-13 13:12:32
引用回帖:
5楼: Originally posted by xiao-niao- at 2016-03-13 02:34:42
很感谢
检查过了，没有落下 ] , 还是不画图，也不报错，你遇到过这种情况吗。我用mathamatica很少，不懂啊...

提问的时候一定要说明自己的基础，否则很难回答。

试下这个吧
CODE:
f[x_]:=NIntegrate[(Tanh[t]-Tanh[x])/(x^2-t^2),{t,0,Infinity}]
Plot[f[x],{x,0,50},AxesOrigin->{0,-.1},PlotStyle->Red]
赞一下 回复此楼
ส็็็็็็็็็็็็็็็็็็็็
6楼2016-03-13 13:03:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xiao-niao- 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭