| 查看: 1930 | 回复: 3 | ||
清风点兵新虫 (小有名气)
|
[求助]
求一段FORTRAN程序 转成 MATLAB 语言 已有1人参与
|
|
拜托了大家， 哪位精通 matlab和 fortran 语言，，麻烦帮我看一下 下面这段 fortran程序 怎么转成 matlab程序。。难点在于在matlab中不能定义 复数矩阵，所以 在matlab中要注意复数阵的处理。 PROGRAM MAIN DOUBLEPRECISION A(0:20,0:10) COMPLEX B(0:20,0:10) DO I=0,20 DO J=0,10 A(I,J)=2*I+J B(I,J)=CMPLX(A(I,J),0.0) ENDDO ENDDO ! ! ! 输出A和B ! ! ! OPEN(1,FILE='A.DAT') WRITE(1,10) ((A(I,J),J=0,10),I=0,20) CLOSE(1) OPEN(2,FILE='B.DAT') WRITE(2,20) ((B(I,J),J=0,10),I=0,20) CLOSE(2) 10 FORMAT(X,11F14.8) 20 format( 22f14.8 ) END  w90h5674050_1507728181_350.png |
回复此楼» 猜你喜欢
求助
已经有4人回复
-
0805材料320求调剂
已经有3人回复
-
297求调剂
已经有11人回复
-
268求调剂
已经有9人回复
-
一志愿西安交通大学材料工程专业 282分求调剂
已经有10人回复
-
278求调剂
已经有7人回复
-
26考研一志愿中国石油大学(华东)305分求调剂
已经有5人回复
-
280求调剂
已经有9人回复
-
279求调剂
已经有5人回复
-
286求调剂
已经有5人回复
cooooldog
铁杆木虫 (著名写手)
ส็็็
- 应助: 237 (大学生)
- 金币: 6101.9
- 散金: 1114
- 红花: 39
- 帖子: 1380
- 在线: 553.8小时
- 虫号: 506699
- 注册: 2008-02-18
- 专业: 模式识别
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2017-10-13 16:24:16
清风点兵: 金币+20, ★★★很有帮助 2017-10-15 19:58:59
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2017-10-13 16:24:16
清风点兵: 金币+20, ★★★很有帮助 2017-10-15 19:58:59
|
matlab没有你想象的那么弱 https://www.mathworks.com/help/matlab/ref/complex.html |
2楼2017-10-12 11:38:13
ecnadwodahs
铁杆木虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 6150.3
- 红花: 1
- 帖子: 1220
- 在线: 110.2小时
- 虫号: 3856786
- 注册: 2015-05-08
- 专业: 光学
3楼2017-10-12 12:38:17
清风点兵
新虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 43.6
- 散金: 6
- 帖子: 53
- 在线: 32.6小时
- 虫号: 5674050
- 注册: 2017-02-21
- 性别: MM
- 专业: 多相流热物理学
4楼2017-10-15 17:17:03
40