| 查看: 1915 | 回复: 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 |
回复此楼» 猜你喜欢
今年春晚有几个节目很不错，点赞！
已经有6人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有3人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
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