- 积分
- 2027
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-9-15
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
求各位大神拯救一下智障的我:系统总是提醒:This name has not been declared as an array.
progran m_1
parameter(pi=3.14159265,a=6371.004,k=0.7156)
real l(5,6),an(5,6),x(5,6)
an(1,1)=30.0/180*pi
l(1,1)=a*sin(an(1,1))/k
do i=1,5
do j=1,6
if(i/=1 .and. j/=1)then
l(i,j)=sqrt((j-1)**2*100+(l(1,1)-(i-1)*100)**2)
an(i,j)=2*atan((l(i,j)/l(1,1))**(1.0/k)*tan(an(1,1)/2.0))
endif
x(i,j)=0.5/sin(an(i,j))*(tan(an(i,j)/2.0)/tan(an(1,1)/2.0))**k
enddo
enddo
write(*,'(f6.4)')((x(i,j),j=1,6),i=1,5)
end
我看了半天,也不知道为什么。。。
file:///E:\Documents\Tencent Files\1946254041\Image\C2C\4DZ$R9XGJ@KP02L0TV]U4FC.png
|
|