应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求个小程序
北京石油化工学院2026年研究生招生接收调剂公告
461/5返回列表12345下一页
查看: 1185  |  回复: 45
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

njut

新虫 (小有名气)

[求助] 求个小程序

之前寻求分段求平均值的答案，用excel里的Vb终于解决了，可是哪只excel处理的数据量较小，我的数据，总共有2千万个。所以来求助各位了。
我有两组数据，第一组是x，第二组是y。我希望先将y值求余弦，然后对xy分别在一定间隔内求平均值。
需要注意的是，y值是指度数，可是我的数据值是数值，例如，y为160，在excel里就是cos（RADIANS(160)）。
我把问题放在两个excel的附件里了。
例子：
x                        y
22.01              120
22.04               60
22.10              150
22.20              60
23.01             30
希望，先求出y的余弦值，以最小的X值为起点，0.1的间隔分别切xy的平均值。
即先求出y的余弦，
x                        y
22.01              -0.5
22.04               0.5
22.10              -0.866
22.20              0.5
23.01              0.866
然后最小值是22.01则求[22.01,22.11]，[22.11,22.21]，[22.21,22.31]............范围内的平均值
x                        y                        x                                               y
22.01              -0.5               （22.01+22.04+22.10）/3       (0.5+ -0.5+ -0.866)/3
22.04               0.5                     22.20                                             0.2
22.10              -0.866                23.01                                            0.866
22.20              0.5
23.01              0.866
附件是两个例子。第一个是求余弦值。第二个是求平均值。
希望大家帮我做个fortran，拜托了
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 111.rar
    • 2013-03-16 13:04:00, 13.98 K

» 猜你喜欢
努力学，抓紧毕业
1楼 2013-03-16 13:04:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

lyq_superior

金虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
jjdg: 感谢参与 2013-03-20 03:09:24
其他程序不行么？
赞一下(1人) 回复此楼
Lance
2楼2013-03-17 20:39:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

johnliu1983

至尊木虫 (著名写手)
jjdg: 编辑内容 2013-04-08 00:10
把你的数据存成这样的形式，第一列是x，第二列是y. 可以命名成Book2.xls
然后运行下面的命令，
CODE:
data=xlsread('Book2.xls')
x=data(:,1);
y=data(:,2);
ycos=cos(y/180*pi);
a=min(x);
b=max(x);

space=0.1;

interzone=a:space:(b+space);
l=1;
numx=[];
numy=[];
for k=1:length(interzone)-1
    if ~isempty(find(x>=interzone(k)&x        numx(l)=sum(x(find(x>=interzone(k)&x=interzone(k)&x        numy(l)=sum(ycos(find(x>=interzone(k)&x=interzone(k)&x        l=l+1;
    end
end

其中，numx,和numy就是你要的数据。我的电脑上应该可以运行两千万个数据。就是不知道excel里面是不是可以存那么多了，如果有问题可以再联系我。

未命名.JPG

[ Last edited by jjdg on 2013-4-8 at 00:10 ]
赞一下(1人) 回复此楼
12楼2013-03-29 15:50:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
我查了下，excel 的最大行数为65536行，就是6万5千行，你不能用excel计算；要么分很多的excel文件，怎么分也是个问题。

还有你最初的数据存放文件是什么格式，应该不是excel；其它格式，可以读出来，然后计算。
txt格式文件读取最简单了。
vb中的数组的容量大，可以用它来存放数据，进行计算。
我估计即使能算，也计算机卡的够呛。
赞一下(1人) 回复此楼
15楼2013-03-30 10:59:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

已经增加楼主想要的功能。
赞一下(1人) 回复此楼
42楼2013-04-12 10:58:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

njut

新虫 (小有名气)
引用回帖:
2楼: Originally posted by lyq_superior at 2013-03-17 20:39:52
其他程序不行么？

我不知道怎么处理这个 其他程序应该也行吧，关键是我数据比较大
赞一下 回复此楼
努力学，抓紧毕业
3楼2013-03-19 20:22:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

你就不能发个xls的？非要弄什么高版本的xlsx？
我没看明白你在附件里面放了2个excel是什么意思？
你既然都已经求出了，还要做什么？
赞一下 回复此楼
努力学习！以正当途径！获得需要的知识！
4楼2013-03-20 03:15:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
4楼: Originally posted by jjdg at 2013-03-20 03:15:11
你就不能发个xls的？非要弄什么高版本的xlsx？
我没看明白你在附件里面放了2个excel是什么意思？
你既然都已经求出了，还要做什么？

就像帖子里说的那样，excel求的数据太小。
我想放在txt文档里处理的。
excel第一个是先求Y的余弦值，然后在根据条件求平均值。我把这两步分别在excel里求的了~
赞一下 回复此楼
努力学，抓紧毕业
5楼2013-03-26 16:05:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

★ ★
ben_ladeng: 金币+2, 多多参与交流，谢谢 2013-03-27 17:28:37
引用回帖:
5楼: Originally posted by njut at 2013-03-26 16:05:35
就像帖子里说的那样，excel求的数据太小。
我想放在txt文档里处理的。
excel第一个是先求Y的余弦值，然后在根据条件求平均值。我把这两步分别在excel里求的了~...

你这样说法，我也不知道怎么弄
你应该把需要处理的东西，做个例子，比如建一个txt放上来，里面包含数据的格式，因为写程序的话，需要知道数据格式才行，不然别人都不知道你的数据格式如何，怎么读取文件？更谈不上处理了
赞一下 回复此楼
努力学习！以正当途径！获得需要的知识！
6楼2013-03-26 21:34:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)
建议你用sas统计分析软件处理，可能方便，快。
1 用sas读入excel文件
2 用sas 编程做计算。
赞一下 回复此楼
7楼2013-03-28 09:33:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

如果不急的话，我可以帮你用vb做个程序。
赞一下 回复此楼
8楼2013-03-28 09:34:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
8楼: Originally posted by deephill at 2013-03-28 09:34:39
如果不急的话，我可以帮你用vb做个程序。

vb不是基于excel的么。可是数据处理量很少，我弄错了，我有很大的数据。如果行的话，您帮我写个vb我来试试吧，谢谢
赞一下 回复此楼
努力学，抓紧毕业
9楼2013-03-29 14:28:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
7楼: Originally posted by deephill at 2013-03-28 09:33:40
建议你用sas统计分析软件处理，可能方便，快。
1 用sas读入excel文件
2 用sas 编程做计算。

这个，数据处理量大么？
赞一下 回复此楼
努力学，抓紧毕业
10楼2013-03-29 14:29:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 njut 的主题更新
461/5返回列表12345下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 324求调剂 +6 想上学求调 2026-04-02 6/300 2026-04-02 13:48 by SZW_UJN
[考研] 能源动力 调剂 +3 不破不立0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[考研] 一志愿北交大材料工程总分358 +3 cs0106 2026-04-02 5/250 2026-04-02 11:37 by olim
[考研] 265求调剂11408 +4 刘小鹿lu 2026-03-27 4/200 2026-04-02 11:27 by guyan1000
[考研] 材料调剂 +3 一样YWY 2026-04-02 3/150 2026-04-02 10:37 by longlotian
[考研] 337求调剂 +11 《树》 2026-03-29 11/550 2026-04-02 10:20 by 不吃魚的貓
[考研] 301求调剂 +13 A_JiXing 2026-04-01 13/650 2026-04-02 09:01 by sanrepian
[考研] 一志愿北交大材料工程，总分358 +4 cs0106 2026-04-01 4/200 2026-04-02 07:42 by 尚水阁主
[考博] 26年申博 +3 staryer 2026-03-30 4/200 2026-04-01 23:21 by ai4pharm
[考研] 一志愿南昌大学324求调剂 +12 hanamiko 2026-03-27 12/600 2026-04-01 22:34 by 运气yunqi
[考研] 296求调剂 +4 汪！？！ 2026-03-31 7/350 2026-04-01 22:04 by 客尔美德
[考研] 292求调剂 +17 木虫er12138 2026-04-01 17/850 2026-04-01 21:37 by 七度不信任
[考研] 求调剂，一志愿北林食品与营养095500，301分，已过六级，有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 289求调剂 +7 BrightLL 2026-03-29 7/350 2026-03-31 22:05 by 544594351
[考研] 本科211安全工程，初试290分，求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 266分，求材料冶金能源化工等调剂 +8 哇呼哼呼哼 2026-03-27 10/500 2026-03-31 13:35 by Huaxue_Wang
[考研] 313求调剂 +6 卖个关子吧 2026-03-31 6/300 2026-03-31 10:58 by Jaylen.
[考研] 食品工程专硕一志愿中海洋309求调剂 +5 小张zxy张 2026-03-26 10/500 2026-03-31 00:29 by jp9609
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 复试调剂，一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
信息提示
关闭
请填处理意见
关闭