24小时热门版块排行榜    

CyRhmU.jpeg
查看: 671  |  回复: 3
【悬赏金币】回答本帖问题,作者xiaomeim将赠送您 29 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

xiaomeim

新虫 (初入文坛)

[求助] 请各位大神伸出援手帮我解个题(有偿)已有1人参与

想求出f effective(x),请问有没有大神可以帮忙算一算这个公式?能够用R或C语言算出来最好,手算也行,提供思路也可以(有偿)。感谢感谢感谢!!!

请各位大神伸出援手帮我解个题(有偿)


@laosam280 发自小木虫Android客户端
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyh700600

金虫 (小有名气)

【答案】应助回帖

感谢参与,应助指数 +1
CODE:
  

%  用 Matlab 2009a 求解

syms x y

r = sqrt(x*x+y*y)
f_wald = sqrt(3/(2*pi*r^3))*exp( -3*(r-2)^2/(8*r) )
f_eff_1 = f_wald/(2*pi*r)

g = matlabFunction(f_eff_1)

f_eff = @(x) quadgk( @(y) g(x,y) ,-inf,inf)

xx = -2:0.01:2;  %  x坐标
fxx = arrayfun( @(x) f_eff(x) ,xx);  %  f_effective(x)

figure
plot(xx,fxx)

3楼2022-06-05 12:15:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

du660283

禁虫 (小有名气)

本帖内容被屏蔽

2楼2022-06-04 05:53:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyh700600

金虫 (小有名气)

4楼2022-06-05 12:46:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
信息提示
请填处理意见