Fortran Coder

查看: 8992|回复: 4
打印 上一主题 下一主题

[流程控制] 请各位高手帮帮忙,循环中的数组问题

[复制链接]

135

帖子

15

主题

0

精华

版主

F 币
1159 元
贡献
637 点

爱心勋章管理勋章

楼主
发表于 2014-3-22 11:14:49 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
do i=1,5
	do j=1,6
		a(i,j)=atan2(((j-1)*100),(L0-(i-1)*100))
		u(i,j)=u1*cos(a(i,j)*pi/180)+v1*sin(a(i,j)*pi/180) !注意这一行和下一行中,u1,v1也是二维数组,你需要制定他们的位置,比如u1(i,j)
		v(i,j)=v1*cos(a(i,j)*pi/180)-u1*sin(a(i,j)*pi/180)
	enddo

enddo
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 06:58

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表