| 查看: 1007 | 回复: 2 | ||
| 【悬赏金币】回答本帖问题，作者wuzhidi520将赠送您 10 个金币 | ||
wuzhidi520铜虫 (小有名气)
|
[求助]
转角石墨烯建模已有1人参与
|
|
|
两层石墨烯之间有相对角度的模型可以在MS中实现吗？具体怎么做呢 发自小木虫IOS客户端 |
回复此楼» 猜你喜欢
2025冷门绝学什么时候出结果
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关商家推荐: (我也要在这里推广)
李在弦
木虫 (职业作家)
- 应助: 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