24小时热门版块排行榜    

查看: 977  |  回复: 3
当前主题已经存档。
【有奖交流】积极回复本帖子,参与交流,就有机会分得作者 coolrainbow 的 1 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

coolrainbow

木虫 (著名写手)

未来国家冻凉

[交流] 【求助】请问个vmd中tcl的问题 已有2人参与

有没有这样的操作,可以高效完成

{a1 b1 c1 d1} ** {a2 b2 c2 d2} = {a1*a2  b1*b2  c1*c2  d1*d2}

vec操作只有点积和叉积
回复此楼

» 收录本帖的淘帖专辑推荐

编程 VMD 可视化软件

» 猜你喜欢

技术博客:http://hi.baidu.com/coolrainbow/blog
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

coolrainbow

木虫 (著名写手)

未来国家冻凉

引用回帖:
Originally posted by bay__gulf at 2010-04-21 09:03:54:
自己写个函数吧
proc vecstarstar {v1 v2} {
set a1 [lindex $v1 0]; set b1 [lindex $v1 1]; set c1 [lindex $v1 2]; set d1 [lindex $v1 3]
set a2 [lindex $v2 0]; set b2 [lindex $v2 1]; set c2 [lindex  ...

谢谢!我也是这么写的,类似:

set extrostructx {}
set extrostructy {}
set extrostructz {}
foreach  px [$trjstruct get x]  py [$trjstruct get x] pz [$trjstruct get z]{
    lappend extrostructx [expr $px * $px]
    lappend extrostructy [expr $py * $py]
    lappend extrostructz [expr $pz * $pz]
}

我只是想问问有没有现成的,可是感觉代码很冗长,我的程序是构造结构插值的,list维数都在几千以上(而且还得按frame循环),速度慢(我的程序得运行50多分钟),像vecadd都是用C++写的,不知道有没有C++级别的
技术博客:http://hi.baidu.com/coolrainbow/blog
3楼2010-04-21 10:26:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

bay__gulf

金虫 (著名写手)

刘苏州

★ ★
ghcacj(金币+2):谢谢 2010-04-21 10:06
coolrainbow(金币+1):谢谢 2010-04-21 10:27
自己写个函数吧
proc vecstarstar {v1 v2} {
set a1 [lindex $v1 0]; set b1 [lindex $v1 1]; set c1 [lindex $v1 2]; set d1 [lindex $v1 3]
set a2 [lindex $v2 0]; set b2 [lindex $v2 1]; set c2 [lindex $v2 2]; set d2 [lindex $v2 3]
return "[expr "$a1*$a2"] [expr "$b1*$b2"] [expr "$c1*$c2"] [expr "$d1*$d2"]"
}
调用方法
set v1 {1 2 3 4}
set v2 {2 3 4 5}
set v3 [vecstarstar $v1 $v2]
puts $v3
输出结果2 6 12 20
2楼2010-04-21 09:03:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bay__gulf

金虫 (著名写手)

刘苏州


ghcacj(金币+1):谢谢 2010-04-21 11:49
tcl 这种脚本语言没有速度快的, 追求速度建议转化格式后用c 或fortran 编写
50分钟也可以等待
4楼2010-04-21 11:02:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085410人工智能专硕317求调剂(0854都可以) +3 xbxudjdn 2026-03-18 3/150 2026-03-18 22:14 by zhq0425
[考研] 一志愿中海洋材料工程专硕330分求调剂 +5 小材化本科 2026-03-18 5/250 2026-03-18 21:53 by 无懈可击111
[考研] 328求调剂,英语六级551,有科研经历 +3 生物工程调剂 2026-03-16 10/500 2026-03-18 20:41 by Wangjingyue
[考研] 一志愿天津大学化学工艺专业(081702)315分求调剂 +10 yangfz 2026-03-17 10/500 2026-03-18 20:14 by walc
[考研] 344求调剂 +6 knight344 2026-03-16 7/350 2026-03-18 20:13 by walc
[考研] 化学工程321分求调剂 +15 大米饭! 2026-03-15 18/900 2026-03-18 14:52 by haxia
[考研] 297求调剂 +8 戏精丹丹丹 2026-03-17 8/400 2026-03-18 14:30 by laoshidan
[考研] 299求调剂 +5 △小透明* 2026-03-17 5/250 2026-03-18 11:49 by 尽舜尧1
[考研] 0703化学调剂 +3 妮妮ninicgb 2026-03-17 3/150 2026-03-18 10:29 by macy2011
[考研] 工科材料085601 279求调剂 +6 困于星晨 2026-03-17 6/300 2026-03-18 10:21 by kkcoco25
[考研] 环境工程调剂 +8 大可digkids 2026-03-16 8/400 2026-03-18 09:36 by zhukairuo
[考研] 326求调剂 +5 上岸的小葡 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[考研] 一志愿华中师范071000,325求调剂 +6 RuitingC 2026-03-12 6/300 2026-03-16 14:50 by 可淡不可忘
[考研] 0703化学调剂 290分有科研经历,论文在投 +7 腻腻gk 2026-03-14 7/350 2026-03-16 10:12 by houyaoxu
[考研] 0856求调剂 +3 刘梦微 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
[考研] 070305求调剂 +3 mlpqaz03 2026-03-14 4/200 2026-03-15 11:04 by peike
[考研] 085601材料工程315分求调剂 +3 yang_0104 2026-03-15 3/150 2026-03-15 10:58 by peike
[考研] 复试调剂 +4 z1z2z3879 2026-03-14 5/250 2026-03-14 16:30 by JourneyLucky
[考研] 290求调剂 +7 ADT 2026-03-12 7/350 2026-03-13 15:17 by JourneyLucky
[考研] 0817化学工程与技术考研312分调剂 +3 T123 tt 2026-03-12 3/150 2026-03-13 10:49 by houyaoxu
信息提示
请填处理意见