perl脚本运行后.out结果文件是空文件怎么办？

小白白

小白一枚，体系是100个液晶5CB分子，将第一个苯环左边和第二个苯环右边的C原子连接，将该向量作为该分子的分子主轴，用以代表该分子的取向，现在想求一下盒子里这100个分子的平均取向，并求出每个分子与平均取向之间的有序参数，用perl脚本实现，编译没有错误，语法也没有错误，但是输出文件是空的，猜想是逻辑错误或者是前后功能没有连接起来，求助这里面的大佬可否给看一下，小白感激不尽

lyj714

同一个问题不要在多个板块发帖，此板块就是正确的。

小白白

lyj714 发表于 2021-3-9 17:55
同一个问题不要在多个板块发帖，此板块就是正确的。

不好意思不好意思...看了入门介绍说审核以后才能发，我以为是发错地方了给删了呢，您知道我这问题怎么解决吗？

hxd_yi

首先代码要缩进，增加可读性。
然后，你先用MS里的debug按钮运行一下，就可以看到报错信息了。
第15行有bug，sets中的atoms并不能保证后续代码在处理的时候，C1，C2就按你想象的顺序排列。
而且粗粗看完你的代码，最后输出的 $theta 都是1。