| 查看: 1030 | 回复: 2 | ||
| 【悬赏金币】回答本帖问题，作者wuzhidi520将赠送您 10 个金币 | ||
wuzhidi520铜虫 (小有名气)
|
[求助]
转角石墨烯建模 已有1人参与
|
|
|
两层石墨烯之间有相对角度的模型可以在MS中实现吗？具体怎么做呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
英文综述是否需要润色及查重
已经有5人回复
-
救命帖
已经有5人回复
-
限项规定
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
招博士
已经有3人回复
-
存款400万可以在学校里躺平吗
已经有35人回复
-
最失望的一年
已经有18人回复
-
求推荐英文EI期刊
已经有5人回复
» 本主题相关商家推荐: (我也要在这里推广)
李在弦
木虫 (职业作家)
- 应助: 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