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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » MATLAB » 求助啊！求一程序，用matlab程序做，用蒙特卡洛方法模拟
51/1返回列表
查看: 5679  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

匿名

用户注销 (小有名气)
本帖仅楼主可见

» 收录本帖的淘帖专辑推荐

科研工具专辑

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-12-08 19:47:36
已阅   同方向广播   申请仿真EPI   回复此楼   编辑   查看我的主页

lvqing323

木虫 (正式写手)

【答案】应助回帖

★
王碎碎狼(xiegangmai代发): 金币+1, 谢谢参与！ 2013-04-05 21:17:22
上面的SPEC好为三种粒子到达的几率，至于EnergyMean值，应该和 前面的程序输出的Sa相一致，但结果不一样，不知道怎么回事。请高手指正哟。
程序仅供参考，欢迎批评指正。
输出：
引用回帖:
spec =

    0.1455    0.0606    0.0362


EnergyMean =

    0.2709
赞一下 回复此楼
缘来如梦，缘去为空。
9楼2013-04-04 19:05:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

dbb627

荣誉版主 (著名写手)

【答案】应助回帖

王碎碎狼(金币+1): ★有帮助 2012-01-06 09:03:58
写了一个，不知道是不是符合你的要求
CODE:
S=0;
N=5e7;
for i=1:N
     p=rand;
     E=3.0*(p<0.15)+1*(0.15<=p&p<0.4)+0.7*(0.4<=p&p<=1);
     r = -20+40*rand;
     a=-pi/2+pi/2*rand;
if r>=35/2
       a1=atan((35/2-r)/45);
       a2=atan((-35/2-r)/(45+35));
       S=E*(a>=a2&&a<=a1)+S;
elseif r>=-35/2 &r<35/2
      a1=atan((35/2-r)/45);
      a2=atan((-35/2-r)/(45+35));
      S=E*(a>=a2&&a<=a1)+S;
else
      a1=atan((35/2-r)/(45+35));
      a2=atan((-35/2-r)/45);
      S=E*(a>=a2&&a<=a1)+S;  
    end
end
  
Sa=S/N

Sa =

    0.1502
赞一下 回复此楼
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
2楼2011-12-10 10:53:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)

【答案】应助回帖

引用回帖:
2楼: Originally posted by dbb627 at 2011-12-10 10:53:27:
写了一个，不知道是不是符合你的要求
[code]
S=0;
N=5e7;
for i=1:N
     p=rand;
     E=3.0*(p<0.15)+1*(0.15<=p&p<0.4)+0.7*(0.4<=p&p<=1);
     r = -20+40*rand;
     a= ...

原理图如下
赞一下 回复此楼
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
3楼2011-12-10 10:54:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)

【答案】应助回帖

[quote]2楼: Originally posted by dbb627 at 2011-12-10 10:53:27:
写了一个，不知道是不是符合你的要求
CODE:
S=0;
N=5e7;
for i=1:N
     p=rand;
     E=3.0*(p<0.15)+1*(0.15<=p&p<0.4)+0.7*(0.4<=p&p<=1);
     r = -20+40*rand;
     a= ... [/quote]


有点错误
[code]
S=0;
N=5e7;
for i=1:N
     p=rand;
     E=3.0*(p<0.15)+1*(0.15<=p&p<0.4)+0.7*(0.4<=p&p<=1);
     r = -20+40*rand;
     a=-pi/2+pi/2*rand;
if r>=35/2
       a1=atan((35/2-r)/45);
       a2=atan((-35/2-r)/(45+35));
       S=E*(a>=a2&&a<=a1)+S;
elseif r>=-35/2 &r<35/2
     [color=red] a1=atan((35/2-r)/(45+35));[/color]
      a2=atan((-35/2-r)/(45+35));
      S=E*(a>=a2&&a<=a1)+S;
else
      a1=atan((35/2-r)/(45+35));
      a2=atan((-35/2-r)/45);
      S=E*(a>=a2&&a<=a1)+S;  
    end
end
   Sa=S/N

Sa =

    0.1502
赞一下 回复此楼
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
4楼2011-12-10 10:58:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 建议基金发布提前给出明确的时间点 +11 kulium 2026-08-21 14/700 2026-08-24 02:12 by 流流伤
[基金申请] 范进中举一文的中心思想 +4 炎黄贵胄 2026-08-22 5/250 2026-08-24 02:09 by 流流伤
[基金申请] 让我中一个面上吧！ +12 大萍1987 2026-08-20 15/750 2026-08-23 20:44 by 大萍1987
[基金申请] 什么时候开奖？ +9 CrisMessi 2026-08-18 10/500 2026-08-23 12:03 by 丶昵称占用
[基金申请] 今天放榜吗？ +15 布布和一二 2026-08-19 16/800 2026-08-23 09:55 by 张春生
[基金申请] filecode，4个jtjc了 +13 ziyangfang 2026-08-19 16/800 2026-08-22 17:08 by WH3796
[基金申请] 人气不行了 +8 fansofjerry 2026-08-21 8/400 2026-08-22 16:30 by zyqchem
[基金申请] 今天基金会出结果吗？20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 放榜前的不淡定 40+4 snowwithsea 2026-08-19 14/700 2026-08-21 23:51 by cratir
[基金申请] 科研孤儿太难了 +17 我4大白菜 2026-08-20 18/900 2026-08-21 20:57 by zhangev
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 8/400 2026-08-21 12:31 by 酷酷墨镜
[基金申请] 应该是下周三26日公布了吧？ +4 哈哈蛤？ 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
信息提示
关闭
请填处理意见
关闭