| 查看: 1125 | 回复: 2 | ||
| 【悬赏金币】回答本帖问题，作者wuzhidi520将赠送您 10 个金币 | ||
wuzhidi520铜虫 (小有名气)
|
[求助]
转角石墨烯建模 已有1人参与
|
|
|
两层石墨烯之间有相对角度的模型可以在MS中实现吗？具体怎么做呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
青基如何破局
已经有7人回复
-
有多少人是今天查系统知道结果的？
已经有17人回复
-
基金不中，共勉
已经有10人回复
-
国自然面上复盘~欢迎讨论
已经有11人回复
-
为什么资助数各大高校都创新高，自己申请怎么就这么难
已经有7人回复
-
基金未中，这种答复是模板吗？
已经有6人回复
-
看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉……
已经有6人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有6人回复
-
怎么看青基中了没有啊
已经有5人回复
-
梦想
已经有3人回复
» 本主题相关商家推荐: (我也要在这里推广)
李在弦
木虫 (职业作家)
- 应助: 10 (幼儿园)
- 金币: 4903.5
- 散金: 1397
- 红花: 15
- 帖子: 3099
- 在线: 584.8小时
- 虫号: 1681404
- 注册: 2012-03-10
- 性别: GG
- 专业: 配位化学
2楼2020-07-17 07:54:32
【答案】应助回帖
感谢参与，应助指数 +1
|
自己寫程式去產生 MS 應當是辦不到的 簡單 google 一下，就會看到有一個網頁跟你說明要如何寫 下面是 Mathematica code (from a website somewhere) angles = {0}; For[q = 0, q <= 150, q++, For[r = 0, r <= Abs[q], r++, For[s = q, s <= q + 5, s++, For[sign = -1, sign <= 1, sign = sign + 2, t = 1/2 (s - sign*Sqrt[4 q^2 - 4 q r + 4 r^2 - 3 s^2]); If[Abs[t - Round[t]] < 0.001 && Abs[q] != Abs[r], kosin = (q*s + r*t - (q*t + s*r)/2)/(q*q + r*r - q*r); angle = 180./Pi*ArcCos[kosin]; If[angle < 2 && angle != 0, Print[{q, r, s, t, angle}]; angles = angles~Join~{angle},],]; ]; ]; ]; ]; |
3楼2020-07-19 13:01:41
投票: