菜鸟求助：IVF中实矩阵求逆用哪个函数啊？

sailor8

原先CVF还了解一点，现在用IVF有点迷糊了。求逆矩阵不是.i.了吗？

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	use imsl_libraries

03	implicit none

04	integer,parameter::n=3

05	real::a(n,n)=(/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0/)

06	real::b(n,n)=(/5.0,6.0,4.0,8.0,9.0,7.0,2.0,3.0,1.0/)

07	real::c(n,n)

08

c=.i.a

09	write(*,*)c

10	end program

求指点
多谢多谢！

vvt

cvf 中自动安装了 4.0 版本的 IMSL
现在您用 IVF，默认是不带有 IMSL 的，并且 4.0 的无法使用。

你需要：
1.安装高版本的IMSL
2.配置并使用

详解本论坛视频教程：http://v.fcode.cn/video-use_library.html

sailor8

vvt 发表于 2016-12-31 11:21
cvf 中自动安装了 4.0 版本的 IMSL
现在您用 IVF，默认是不带有 IMSL 的，并且 4.0 的无法使用。

多谢多谢，先学习一下，有问题再向您请教。
新手的福音啊

weixing1531

矩阵求逆Excel

weixing1531

矩阵求逆Excel有现成的函数

sailor8

经过提升，程序能运行了，不过只要是加上USE operation_x就报错误
        1        Compilation Aborted (code 1)        
不知道是哪里出了问题？
在工具-选项-IVF-compiles里面的includes和lib已经把相关的
    C:\Program Files (x86)\VNI\imsl\fnl600\Intel64\include\dll
    C:\Program Files (x86)\VNI\imsl\fnl600\Intel64\include\static
和C:\Program Files (x86)\VNI\imsl\fnl600\Intel64\lib
都加上了。
纠结啊，求指教，多谢多谢。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	include 'link_fnl_shared.h'

03	include 'link_fnl_static.h'

04	use operation_x !//这句

05	implicit none

06	integer,parameter::m=3,n=3

07	integer::mi,ni,iaq,jaq

08	real,parameter::hoa=7.0,h=0.1

09	real::a(m,n)

10	real::t(m,n)

11	real::e(m,n)

12

!

13	open(24,file='test12311339.txt')

14

do mi=1,m

15

do ni=1,n

16	t(mi,ni)=hoa*ni+hoa*mi

17	a(mi,ni)=hoa*(ni-1)+hoa*mi

18

end do

19

end do

20

e=a.x.t

21	write(24,*)e

22	end program

sailor8

weixing1531 发表于 2016-12-31 21:38
矩阵求逆Excel有现成的函数

嗯嗯 是的，不过求逆这个运算是一个大程序里面的一部分，单独拿出来计算可能会不方便了。
谢谢你

vvt

IMSL 的 bug

sailor8

vvt 发表于 2017-1-1 10:44
IMSL 的 bug

有什么解决的建议吗？
多谢多谢了

vvt

1. 用 matmul 代替 .x. 进行矩阵相乘。
2. 用 IMSL 5.0 代替 6.0和7.0（因为它们有bug）
3. 用 MKL 、Lapack 等代替 IMSL 进行求逆。

选其一