应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 四阶张量：二阶张量
北京石油化工学院2026年研究生招生接收调剂公告
31/1返回列表
查看: 2056  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

小小的研究僧

铁虫 (小有名气)

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

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

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-02-04 12:35:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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

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的回帖
相关版块跳转 我要订阅楼主 小小的研究僧 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 385分 生物学（071000）求调剂 +3 qf626 2026-04-01 3/150 2026-04-01 23:57 by 钰璞
[考研] 一志愿北交大材料工程，总分358 +3 cs0106 2026-04-01 3/150 2026-04-01 20:15 by wxiongid
[考研] 调剂 +3 好好读书。 2026-04-01 3/150 2026-04-01 17:06 by zhouyuwinner
[考研] 350求调剂 +7 阿佳～ 2026-03-31 7/350 2026-04-01 16:12 by yanflower7133
[考研] 0703求调剂 +4 zizimo 2026-03-31 4/200 2026-04-01 16:04 by yanflower7133
[考研] 一志愿北交材料工程总分358 +5 cs0106 2026-04-01 7/350 2026-04-01 11:45 by wangjy2002
[考研] 材料调剂 +10 Eujd1 2026-03-31 11/550 2026-04-01 11:23 by ivanqyq
[考研] 0856调剂 +7 曲听筠 2026-03-30 7/350 2026-04-01 08:51 by JourneyLucky
[考研] 求调剂：085600材料与化工，考材科基，总分319 +17 678lucky 2026-03-31 21/1050 2026-04-01 01:40 by 1018329917
[考研] 085601英二数二求调剂 总分325 +4 余航航 2026-03-31 4/200 2026-03-31 17:38 by 唐沐儿
[考研] 学硕274求调剂 +17 Li李鱼 2026-03-26 17/850 2026-03-31 15:19 by 客尔美德
[考研] 调剂求院校招收 +7 鹤鲸鸽 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[考研] 269求调剂 +4 我想读研11 2026-03-31 4/200 2026-03-31 10:04 by cal0306
[考研] 22408 359分调剂 +4 Qshers 2026-03-27 8/400 2026-03-31 08:53 by Qshers
[考研] 哈尔滨工业大学材料与化工专硕378求调剂 +3 塔比乌斯 2026-03-30 3/150 2026-03-30 22:55 by 无际的草原
[考研] 一志愿北京理工大学本科211材料工程294求调剂 +8 mikasa的围巾 2026-03-28 8/400 2026-03-29 12:48 by 无际的草原
[考研] 332求92调剂 +8 蕉蕉123 2026-03-28 8/400 2026-03-29 10:46 by 周梓丹
[考研] 求佛 +7 迷人的哈哈 2026-03-28 7/350 2026-03-28 16:47 by 催化大白
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
信息提示
关闭
请填处理意见
关闭