| 查看: 1021 | 回复: 2 | ||
| 【悬赏金币】回答本帖问题，作者wuzhidi520将赠送您 10 个金币 | ||
wuzhidi520铜虫 (小有名气)
|
[求助]
转角石墨烯建模 已有1人参与
|
|
|
两层石墨烯之间有相对角度的模型可以在MS中实现吗？具体怎么做呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
求个博导看看
已经有16人回复
-
上海工程技术大学张培磊教授团队招收博士生
已经有4人回复
-
上海工程技术大学【激光智能制造】课题组招收硕士
已经有5人回复
-
求助院士们，这个如何合成呀
已经有4人回复
-
临港实验室与上科大联培博士招生1名
已经有9人回复
-
需要合成515-64-0，50g，能接单的留言
已经有4人回复
-
自荐读博
已经有4人回复
-
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？
已经有6人回复
-
带资进组求博导收留
已经有10人回复
-
最近几年招的学生写论文不引自己组发的文章
已经有11人回复
» 本主题相关商家推荐: (我也要在这里推广)
李在弦
木虫 (职业作家)
- 应助: 10 (幼儿园)
- 金币: 5167.5
- 散金: 1397
- 红花: 15
- 帖子: 3089
- 在线: 582.2小时
- 虫号: 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