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

24小时热门版块排行榜    

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

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
jjdg: 金币+1, 感谢参与 2013-04-08 00:09:43
njut: 金币+1, ★有帮助 2013-04-08 10:58:44
这个问题不是很难，用 Fortran 编程也相当容易，但有一些前题要搞清楚

1）你的2千万的数据是排列好了的吗？其实就是 X  是排列好的吗？

2）你的[22.01,22.11]，[22.11,22.21]，[22.21,22.31]中，22.11 这个对应的 Y 要计算两遍？

3）输出要怎么写？只给平均值，还是要把对应的 X、Y 都要输出出来……
赞一下 回复此楼
21楼2013-04-07 23:09:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主
这个帖是典型的皇帝不急太监急！
lz一点不着急，回帖的倒是一大帮
lz其实也不是想解决问题，只是想显摆一下自己的数据很多吧？
老早就建议他把数据传上来看看，一直不肯，估计是保密数据。
既然你怕别人窃密，就自己动手编造一些也行啊！
赞一下 回复此楼
努力学习！以正当途径！获得需要的知识！
22楼2013-04-08 00:13:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
21楼: Originally posted by snoopyzhao at 2013-04-07 23:09:49
这个问题不是很难，用 Fortran 编程也相当容易，但有一些前题要搞清楚

1）你的2千万的数据是排列好了的吗？其实就是 X  是排列好的吗？

2）你的，，中，22.11 这个对应的 Y 要计算两遍？

3）输出要怎么写？ ...

1 都是排列好的，第一列是x第二列是y
2 对的，22.11这种边界值计算两遍。其实就是根据x的数值，将x的数值在数轴上分为长度为0.1（最好程序可调，能分成任意需要的分数，比如我想分为间隔为0.05或者0.005的间隔都可以），然后分别去这个x内的x的平均值，和对应的y平均值（当然之前y已经按要求求余弦值了，我的数据y值不是度数160°这种，而是160，这个在帖子上已经说明）
3 输出就是第一列输出处理好的x 第二列是处理好的y

最后我贴一个txt文档给你看下吧。
不过需要注意的是，我贴出来的第一列是角度（也就是y），第二列是距离当做x。
不好意思，之前数据少，我就人为的把距离换成x，角度换成y来描述这个帖子了，现在不好再编辑了。
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : processneeded.txt
    • 2013-04-08 11:16:23, 81.71 K
努力学，抓紧毕业
23楼2013-04-08 11:16:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
22楼: Originally posted by jjdg at 2013-04-08 00:13:14
这个帖是典型的皇帝不急太监急！
lz一点不着急，回帖的倒是一大帮
lz其实也不是想解决问题，只是想显摆一下自己的数据很多吧？
老早就建议他把数据传上来看看，一直不肯，估计是保密数据。
既然你怕别人窃密，就 ...

不是，不好意思，因为数据比较大，需要很长时间，所以在出数据的过程中来求助的。
我自己的程序还在跑，数据没出来，后来跑断掉了，就删除了，我意识到这个问题后，让它跑了一点数据后贴过来了。
而且我才意识到。在描述贴子的时候把xy搞反了，现在也不好改了。
跑出的部分数据贴在楼上了~
赞一下 回复此楼
努力学，抓紧毕业
24楼2013-04-08 11:20:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
20楼: Originally posted by deephill at 2013-04-07 21:09:01
我来了好几次，没有人回应，我以为问题解决了。
你要是问题还没解决的话，你穿上来一个数据文件，大约包含100行的数据，我用来试下。

传上了在楼下，之前数据一致跑不出来，因为数据量大，错掉了，现在我就跑一点，大概的数据拿过来。不好意思我太疏忽了，我原来的想法是简单点数据，方便理解。
而且需要指出的是，我在帖子中描述的xy是反得了，现在贴出来的第二列distance才是x第一列angle才是y
赞一下 回复此楼
努力学，抓紧毕业
25楼2013-04-08 11:25:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
之前因为自己跑数据程序出错，功亏一篑，现上传一些跑了一点的数据。
很抱歉，我没意识到出来的数据xy颠倒了，给大家带来不便很抱歉。
我也在附件中指出了具体的xy，我的这种数据处理思路我也不知道是不是非常对，希望在大家的帮助下，可以做出来一个很好的曲线。
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : processneeded.txt
    • 2013-04-08 11:28:30, 81.71 K
努力学，抓紧毕业
26楼2013-04-08 11:28:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

楼主的给的数据已经提出来了存放在数组中了，并进行了排序，接下来的是整理过程。
几个地方需要弄清楚：
1 楼主的数据txt文件的第一列是y，怎么求余弦值，cos(y) 还是 cos(y/180*pi) ？？是cos（RADIANS(160)）中的RADIANS()函数是 “将度数转换为弧度”。楼主需弄清楚。
Cos(number) 函数  其中必要的 number 参数是一 Double 或任何有效的数值表达式，表示一个以弧度为单位的角。
2 楼主的数据x中的大小乱的，需要在程序中排序，否则没法计算。不同数据量的数据排序后最小值和最大值都不一样。楼主的意思按照间隔求平均值，这个间隔是人为设定，比如最小值为21.4，，按照增加0.1个间隔来分区。还是根据数据的最小值作为最开始的起点？这个是科学性问题，楼主考虑？

3 计算间隔内的数据求平均值，还要上下两个分段中都包含这个界值好像不符合一般的统计方法。楼主考虑？

4 楼主要输出什么的结果，间隔怎么表示，去中值，还是起始值，还是一个范围，需要给出。楼主仔细考虑？
赞一下 回复此楼
27楼2013-04-08 21:18:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjdg

版主 (知名作家)

优秀版主

【答案】应助回帖

引用回帖:
24楼: Originally posted by njut at 2013-04-08 11:20:14
不是，不好意思，因为数据比较大，需要很长时间，所以在出数据的过程中来求助的。
我自己的程序还在跑，数据没出来，后来跑断掉了，就删除了，我意识到这个问题后，让它跑了一点数据后贴过来了。
而且我才意识到 ...

你能不能传一个最原始的数据文档，然后拿它来做个说明？
我看了你传的这个文件，为什么第二列的数据排列顺序是乱的？如果是机器出来的话，应该是递增或递减的吧？
赞一下 回复此楼
努力学习！以正当途径！获得需要的知识！
28楼2013-04-08 22:31:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
28楼: Originally posted by jjdg at 2013-04-08 22:31:04
你能不能传一个最原始的数据文档，然后拿它来做个说明？
我看了你传的这个文件，为什么第二列的数据排列顺序是乱的？如果是机器出来的话，应该是递增或递减的吧？...

你说这个我想到了，确实是这样的，在我自己打算试验那个程序进行后处理好用的时候就直接在excel里对x数据进行大小排列了。
这个是机器出来的，当时编程序的时候没考虑递增递减的问题吧。因为我是很多帧读取数据，所以出来的是每一帧的，大小就不能排列了。
听说有个超级文本编辑器能进行条件排序，我也不太会用那个，您编程不能区分这个问题么（对此我也不太懂，感觉就是排序好了，方便编程，不然编程麻烦也影响后处理速度是吧）
赞一下 回复此楼
努力学，抓紧毕业
29楼2013-04-09 09:05:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

njut

新虫 (小有名气)
引用回帖:
27楼: Originally posted by deephill at 2013-04-08 21:18:59
楼主的给的数据已经提出来了存放在数组中了，并进行了排序，接下来的是整理过程。
几个地方需要弄清楚：
1 楼主的数据txt文件的第一列是y，怎么求余弦值，cos(y) 还是 cos(y/180*pi) ？？是cos（RADIANS(160)）中 ...

1     去正如之前一楼贴出来和说明的，给出的第一列是度数，所以应该是cos（RADIANS(160)），因为您仔细看就发现第一列就是给出的单位“度数”

2  您说的问题就是我想表达的，起始点是最小值，不过我电脑现在一时也跑不出来这么多数据来，所以不好确定最小值，而且这个程序的初衷是以后我每次做这个后处理都是用此程序。应该可以按照排序的结果找到最小值。间隔是固定的，人为确定就是0.1（之所以最好能自定义这个间隔，比如0.1输入进去程序就帮我用0.1,0.05输进去程序就帮我用0.05计算。是因为我担心0.1可能后处理结果曲线不能拟合较好，所以想尝试不同间隔）。总之起始点是x最小值，间隔希望能人为给出（不能的话就0.1吧，感觉应该可以，正如我贴在一楼的那个excel一样，间隔我可以自己选定）

3   对于这个问题，我的想法是，这个范围是中括号[]数学知识告诉我们，这意味着边界值也算。假设间隔是0.1，最小值是22.10，那么我的想法是第一个区间是[22.10, 22.20],就先看有多少数据在这个闭区间，然后求解他们和它们对应的y平均值。第二个闭区间就是[22.20,22.30]也是闭区间，也是先看有多少数据在这个闭区间，然后求解他们和它们对应的y平均值，正如您所得此时22.20是不是又要计算一次，因为我写的是闭区间所以感觉应该计算一次。如果您认为不符合统计学规律，不知道有更好的符合规律的么？如果没有可以这样算，我先看看后处理结果，这个想法是我看英文文献的个人理解。

4 我希望输出的结果就是第一列是求得的x的平均值，如，不论[22.10, 22.20],[22.20,22.30]闭区间的数据有多少，只输出两个，第二列是输出对应的先求出cos的区间的平均值。
间隔是我们确定区间长度的，当然换种角度来说，由数据最大值和最小值也确定了总共多少个区间. 有多少区间就输出多少x或者y值。


不知道您能理解我的意思么？我表达不好见谅，还有就是麻烦您了，在此提前感谢~~~
赞一下 回复此楼
努力学，抓紧毕业
30楼2013-04-09 09:26:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 njut 的主题更新
463/5返回列表上一页12345下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 311求调剂 +14 蓝月亮亮 2026-03-30 14/700 2026-04-02 12:18 by 1753564080
[考研] 化工调剂303分，过四级 +5 栖梧待风 2026-04-02 5/250 2026-04-02 11:49 by ms629
[考研] 366求调剂一志愿东北大学 +6 运气来得若有似� 2026-04-02 6/300 2026-04-02 10:31 by 不吃魚的貓
[考研] 292求调剂 +14 是妍子也是研子 2026-03-30 14/700 2026-04-02 10:17 by sanrepian
[考研] 343求调剂085601 +4 要努力学习x 2026-03-29 5/250 2026-04-02 09:01 by xuhui0306
[考研] 一志愿南昌大学324求调剂 +11 hanamiko 2026-04-01 11/550 2026-04-02 09:00 by sanrepian
[考研] 一志愿安徽大学计算机科学与技术学硕，331分求调剂 +5 蒋昌鹏qtj 2026-04-01 5/250 2026-04-02 08:10 by fxue1114
[考研] 求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过， +3 计算机追梦人 2026-04-01 3/150 2026-04-02 07:57 by fxue1114
[考研] 070300求调剂306分 +5 26要上岸 2026-03-27 5/250 2026-04-01 11:09 by oooqiao
[考研] 调剂申请 +8 张张张张zy 2026-03-31 9/450 2026-04-01 08:29 by zjbkx
[考研] 0856 335分 +9 cccchenso 2026-03-29 9/450 2026-03-31 16:37 by lishahe
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
[考研] 哈尔滨工业大学材料与化工专硕378求调剂 +3 塔比乌斯 2026-03-30 3/150 2026-03-30 22:55 by 无际的草原
[考研] 322求调剂 +10 宋明欣 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[考研] 求调剂 +10 家佳佳佳佳佳 2026-03-29 10/500 2026-03-30 18:34 by 544594351
[考研] 环境科学与工程334分求调剂 +6 王一一依依 2026-03-30 8/400 2026-03-30 11:52 by yjolah
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[考研] 394求调剂 +3 好事多磨静候佳� 2026-03-26 5/250 2026-03-28 14:24 by 唐沐儿
[考研] 材料与化工（0856）304求B区调剂 +8 邱gl 2026-03-27 8/400 2026-03-28 12:42 by 唐沐儿
[考研] 药学105500求调剂 +3 Ssun。。 2026-03-28 3/150 2026-03-28 11:24 by lxf170613
信息提示
关闭
请填处理意见
关闭