使用Multiwfn+VMD绘制片段贡献的跃迁偶极矩矢量

桌坛新星10500

sobereva 发表于 2022-2-11 01:23
-用 to 替换，逗号用空格替换

谢谢社长解答！

静静子

老师您好，按照您的帖子流程，
18   //电子激发分析功能
1    //空穴-电子分析
Azobenzene.out   //Gaussian输出文件
1    //选第一激发态
5    //将跃迁偶极矩进行分解
1    //跃迁电偶极矩
当前目录下得到了trdipcontri.txt，将trdipcontri.txt拷到VMD目录下，并将帖子中的loaddip.tcl文件拷入VMD文件夹下，启动VMD，将pdb文件导入，然后在VMD的文本窗口运行source loaddip.tcl命令执行，结果显示couldn't execute "C:\Users\wenjing\Desktop\loaddip.tcl": no such file or directory，可能是我自己的操作问题，但不知是哪里出了问题，麻烦sob老师了

sobereva

静静子 发表于 2022-7-21 12:14
老师您好，按照您的帖子流程，
18   //电子激发分析功能
1    //空穴-电子分析

VMD启动后文本窗口输入pwd，显示的目录在哪，tcl脚本就放到哪

静静子

set begx [expr $cenx-$fragdx/2]
set begy [expr $ceny-$fragdy/2]
set begz [expr $cenz-$fragdz/2]
set endx [expr $cenx+$fragdx/2]
set endy [expr $ceny+$fragdy/2]
set endz [expr $cenz+$fragdz/2]
将$fragdz改为比如2*$fragdz，就可以让箭头长度变为之前两倍。是加减号后面的$fragdz都改为2*$fragdz，才表示键长变为两倍嘛？

静静子

set begx [expr $cenx-$fragdx/2]
set begy [expr $ceny-$fragdy/2]
set begz [expr $cenz-$fragdz/2]
set endx [expr $cenx+$fragdx/2]
set endy [expr $ceny+$fragdy/2]
set endz [expr $cenz+$fragdz/2]
将$fragdz改为比如2*$fragdz，就可以让箭头长度变为之前两倍。是加减号后面的$fragdz都改为2*$fragdz，才表示键长变为两倍嘛？

snljty2

静静子 发表于 2022-10-6 14:32
set begx [expr $cenx-$fragdx/2]
set begy [expr $ceny-$fragdy/2]
set begz [expr $cenz-$fragdz/2]

把/2删了。

静静子

snljty2 发表于 2022-10-6 19:17
把/2删了。

好的，感谢