24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 983  |  回复: 3
当前主题已经存档。
【有奖交流】积极回复本帖子,参与交流,就有机会分得作者 coolrainbow 的 1 个金币

coolrainbow

木虫 (著名写手)

未来国家冻凉

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

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

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

vec操作只有点积和叉积
回复此楼
技术博客:http://hi.baidu.com/coolrainbow/blog
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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的回帖

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的回帖

bay__gulf

金虫 (著名写手)

刘苏州


ghcacj(金币+1):谢谢 2010-04-21 11:49
tcl 这种脚本语言没有速度快的, 追求速度建议转化格式后用c 或fortran 编写
50分钟也可以等待
4楼2010-04-21 11:02:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 coolrainbow 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] 甲基亚磺磺酸钠和甲基磺酸酯反应机理 10+3 kaobao456 2026-03-29 4/200 2026-03-30 23:16 by nBu锂
[考研] 22408 359分调剂 +4 Qshers 2026-03-27 7/350 2026-03-30 21:30 by Qshers
[考研] 材料学硕333求调剂 +14 北道巷 2026-03-24 14/700 2026-03-30 18:59 by 源_2020
[考研] 286求调剂 +5 Faune 2026-03-30 5/250 2026-03-30 17:15 by 无际的草原
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[考研] 298求调剂 +3 什么是胖头鱼 2026-03-30 5/250 2026-03-30 14:41 by 青海小西牛
[考研] 085602 化学工程专硕 340分求调剂 +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by 唐沐儿
[考研] 考研调剂 +7 小蜡新笔 2026-03-29 7/350 2026-03-29 19:00 by 学员8dgXkO
[考研] 一志愿南昌大学324求调剂 +5 hanamiko 2026-03-29 5/250 2026-03-29 16:46 by 学员8dgXkO
[考研] 070305高分子化学与物理 304分求调剂 +12 c297914 2026-03-28 12/600 2026-03-29 16:21 by Serene1974
[考研] 298求调剂 +3 种圣赐 2026-03-29 3/150 2026-03-29 12:06 by longlotian
[考研] 311(085601)求调剂 +4 liziyeyeye 2026-03-28 4/200 2026-03-28 18:50 by 535743368
[考研] 266分,求材料冶金能源化工等调剂 +7 哇呼哼呼哼 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 一志愿郑大085600,310分求调剂 +5 李潇可 2026-03-26 5/250 2026-03-27 11:14 by 不吃魚的貓
[硕博家园] 北京林业大学硕导招生广告 +6 kongweilin 2026-03-26 8/400 2026-03-27 10:18 by FF_16
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-26 19:57 by nihaoar
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
信息提示
请填处理意见