24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 2057  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

小小的研究僧

铁虫 (小有名气)

[求助] 四阶张量:二阶张量 已有2人参与

如题,若已知四阶张量Rijkl(3,3,3,3)中每个元素的算法(但不知具体结果),又已知二阶张量Dij(3,3)中每个元素的算法(但不知具体结果).
如何在Fortran中写这个两者双点乘(二次缩并)的程序?
望大神指点!非常感谢@_@!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sjzwty

铁虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
do i=1,3
do j=1,3
   sum=0
  do k=1,3
   do l=1,3
   sum=sum+Rijkl(i,j,k,l)*Dij(i,j)
   end do
end do
X(i,j)=sum
end do
end do
3楼2015-02-04 17:38:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

感谢参与,应助指数 +1
右缩并好像应该是

implicit none
real*8, dimension (3,3,3,3) :: Rijkl
real*8, dimension (3,3) :: Dij,Eij
integer :: i,j
....
forall(i=1:3,j=1:3)
  Eij(i,j) =sum(Rijkl(i,j,:,*Dij)
end forall
2楼2015-02-04 16:28:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 生物学327,求调剂 +5 书上的梅子 2026-04-01 6/300 2026-04-02 06:47 by ilovexiaobin
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 070300化学求调剂 +13 小黄鸭宝 2026-03-30 13/650 2026-04-01 19:31 by 安靖aj
[考研] 332求调剂 +8 Lyy930824@ 2026-03-29 8/400 2026-04-01 18:40 by 千钧澄玉宇啊
[考研] 314求调剂 +4 溪云珂 2026-03-26 4/200 2026-04-01 17:00 by oooqiao
[考研] 生物学 296 求调剂 +9 朵朵- 2026-03-26 11/550 2026-04-01 14:44 by 求调剂zz
[考研] 一志愿郑大085600,310分求调剂 +6 李潇可 2026-03-26 6/300 2026-04-01 14:44 by chenqifeng666
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 化学0703 调剂 306分 一志愿211 +12 26要上岸 2026-03-28 12/600 2026-04-01 11:10 by chemdavid
[考研] 0856材料与化工调剂,339 +10 10213207 2026-03-31 10/500 2026-04-01 08:28 by Linda Hu
[考研] 各位老师好,我的一志愿为北京科技大学085601材料专硕 +12 Koxui 2026-03-28 12/600 2026-03-31 23:17 by wwytracy
[考研] 本2一志愿C9-333分,材料科学与工程,求调剂 +9 升升不降 2026-03-31 9/450 2026-03-31 18:01 by 无际的草原
[考研] 考研调剂求助 +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
[考研] 263求调剂 +3 DDDDuu 2026-03-27 3/150 2026-03-31 16:21 by 土木硕士招生
[考研] 085600 286分 材料求调剂 +11 麻辣鱿鱼 2026-03-27 12/600 2026-03-30 19:33 by Wang200018
[考研] 085600,材料与化工321分求调剂 +10 大馋小子 2026-03-28 10/500 2026-03-29 23:35 by 飞行日记西
[考研] 343求调剂085601 +3 要努力学习x 2026-03-29 3/150 2026-03-29 18:35 by wxiongid
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 085600,专业课化工原理,321分求调剂 +5 大馋小子 2026-03-28 5/250 2026-03-29 08:56 by qingfeng258
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
信息提示
请填处理意见