| 查看: 1931 | 回复: 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 |
回复此楼» 猜你喜欢
【考研调剂】化学专业 281分，一志愿四川大学，诚心求调剂
已经有11人回复
-
一志愿深大，0703化学，总分302，求调剂
已经有4人回复
-
材料学硕333求调剂
已经有3人回复
-
材料求调剂
已经有3人回复
-
333求调剂
已经有5人回复
-
求助
已经有6人回复
-
278求调剂
已经有9人回复
-
297求调剂
已经有12人回复
-
0703化学297求调剂
已经有3人回复
-
材料学硕301分求调剂
已经有6人回复
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
