24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 984  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿北化085600材料专硕275|有文章专利|求调剂 +11 Micky11223 2026-03-25 11/550 2026-03-31 04:05 by fmesaito
[考研] 食品工程专硕一志愿中海洋309求调剂 +5 小张zxy张 2026-03-26 10/500 2026-03-31 00:29 by jp9609
[考研] 材料求调剂 一志愿哈工大总分298分,前三科223分 +10 dongfang59 2026-03-27 10/500 2026-03-30 23:42 by 果果妈咪
[考研] 288资源与环境专硕求调剂,不限专业,有学上就行 +11 lllllos 2026-03-30 11/550 2026-03-30 21:19 by 研究僧导导
[考研] 291求调剂 +8 Y-cap 2026-03-29 11/550 2026-03-30 21:03 by Y-cap
[考研] 346求调剂 一志愿070303有机化学 +7 萝卜炖青菜 2026-03-28 8/400 2026-03-30 19:59 by 无际的草原
[考研] 0703 化学 求调剂,一志愿山东大学 342 分 +7 Shern—- 2026-03-28 7/350 2026-03-30 16:31 by nothing投稿中
[考研] 070300化学354求调剂 +7 101次希望 2026-03-28 7/350 2026-03-30 13:22 by Iveryant
[考研] 调剂310 +12 温柔的晚安 2026-03-25 13/650 2026-03-29 20:01 by 无际的草原
[考研] 299求调剂 +10 15188958825 2026-03-25 10/500 2026-03-29 17:51 by 王亮_大连医科大
[考研] 2026年华南师范大学欢迎化学,化工,生物,生医工等专业优秀学子加入! +3 llss0711 2026-03-28 6/300 2026-03-29 10:26 by llss0711
[考研] 0856材料化工调剂 总分330 +14 zhubinhao 2026-03-27 14/700 2026-03-29 10:01 by Sjndkwm
[考研] 压国家一区线,求导师收留,有恩必谢! +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 085602 化工专硕 338分 求调剂 +12 路痴小琪 2026-03-27 12/600 2026-03-28 15:41 by L135790
[考研] 320分,材料与化工专业,求调剂 +9 一定上岸aaa 2026-03-27 13/650 2026-03-28 15:00 by 神马都不懂
[考研] 085600,材料与化工321分,求调剂 +9 大馋小子 2026-03-27 9/450 2026-03-27 14:30 by mmm just
[考研] 341求调剂 +7 青柠檬1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[考研] 07化学303求调剂 +5 睿08 2026-03-25 5/250 2026-03-25 22:46 by 418490947
[考研] 材料与化工304求B区调剂 +3 邱gl 2026-03-25 3/150 2026-03-25 19:03 by Ainin_
信息提示
请填处理意见