For循环应用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我有一段有关for循环的程序
r<-6371.004
x2=b[1,2]
y2=b[1,3]
for(i in 1:10)
{x1=a[i,6]
x1
y1=a[i,5]
y1
z=x1-x2
z
d=r*acos(cos(pi*y1/180)*cos(pi*y2/180)*cos(pi*z/180)+sin(pi*y1/180)*sin(pi*y2/180)
d
}
我想实现没循环一次就计算出一次d,但是为什么最后算出来的只有循环到最后一次的d值？
恳请各位亲们帮帮忙，急用，万分感谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：for循环 For 程序

可以建数组呀

在循环前面给d赋个初值，比如：
d=0
for (i in 1:10)
...
再在这里改动一下就好了。

1. d[i]=r*acos(cos(pi*y1/180)*cos(pi*y2/180)*cos(pi*z/180)+sin(pi*y1/180)*sin(pi*y2/180)

复制代码

jiangbeilu 发表于 2015-3-12 12:44
在循环前面给d赋个初值，比如：
d=0
for (i in 1:10)

嗯嗯，可以了，谢谢哦！有问题再请教！

lzt341 发表于 2015-3-12 11:24
可以建数组呀

嗯呢，谢咯！