| 查看: 1113 | 回复: 2 | ||
| 【悬赏金币】回答本帖问题，作者wuzhidi520将赠送您 10 个金币 | ||
wuzhidi520铜虫 (小有名气)
|
[求助]
转角石墨烯建模 已有1人参与
|
|
|
两层石墨烯之间有相对角度的模型可以在MS中实现吗？具体怎么做呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有7人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有8人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有7人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有8人回复
-
一个有机合成实验室都需要哪些设备？
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有7人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有8人回复
» 本主题相关商家推荐: (我也要在这里推广)
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
50