24小时热门版块排行榜

返回列表

小小的研究僧

铁虫 (小有名气)

应助: 1 (幼儿园)
金币: 1331.3
帖子: 54
在线: 33.3小时
虫号: 1343620
注册: 2011-07-12
性别: GG
专业: 爆炸与冲击动力学

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

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

回复此楼

» 猜你喜欢

职称评审没过，求安慰已经有6人回复
求助文献已经有3人回复
聘U V热熔胶研究人员已经有9人回复
垃圾破二本职称评审标准已经有10人回复
投稿返修后收到这样的回复，还有希望吗已经有8人回复
三无产品还有机会吗已经有6人回复
博士申请都是内定的吗？已经有14人回复
谈谈两天一夜的“延安行” 已经有13人回复
氨基封端PDMS和HDI反应快速固化已经有11人回复
论文投稿求助已经有4人回复

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

四阶张量如何求逆啊？已经有4人回复
使用Multiwfn分析Gaussian09的极化率、第一超极化率的输出已经有12人回复
lammps得出的应力张量如何可视化？已经有12人回复
求助，四维张量和三阶张量是不是指同一个东西？已经有9人回复
二阶张量双点乘三阶张量已经有13人回复
求教！有关金属材料的热膨胀系数的问题！已经有3人回复
关于四阶单位矩阵（fourth-rank identity tensor）已经有5人回复
四阶非线性偏微分方程组求解已经有6人回复
matlab里如何表示四阶张量？已经有6人回复
求助如何学习张量啊？已经有10人回复
关于二阶张量散度的问题已经有9人回复
fortran如何实现张量相乘（并乘）已经有9人回复
電磁場能動量?埩康挠嬎銌栴}，?V義相對論下的已经有26人回复
晶体的物理性与对称性已经有232人回复
什么是张量，基本思想是什么？已经有14人回复
什么是张量？基本的思想是什么呢已经有13人回复
请问siesta计算BornCharge时为什么输出的张量不满足对称性要求呢？谢谢已经有15人回复
【求助】拉曼极化率已经有7人回复
【求助】矩阵导数【已解决】已经有16人回复

1楼2015-02-04 12:35:38

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

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

应助: 413 (硕士)
贵宾: 0.002
金币: 7116.5
散金: 15
红花: 63
帖子: 1639
在线: 798.9小时
虫号: 2469437
注册: 2013-05-14
专业: 计算数学与科学工程计算

【答案】应助回帖

感谢参与，应助指数 +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

铁虫 (初入文坛)

应助: 2 (幼儿园)
金币: 93
红花: 1
帖子: 4
在线: 12.7小时
虫号: 1844706
注册: 2012-06-02
专业: 化工热力学和基础数据

【答案】应助回帖

感谢参与，应助指数 +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的回帖

相关版块跳转我要订阅楼主小小的研究僧的主题更新

返回列表