论坛首页    职业区    学术与写作    工程技术区    软件区    资料区    商务合作区    社区办公室
 您好! 欢迎 登录注册 最新帖子 邀请注册 活动聚焦 统计排行 社区服务 帮助
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
  • 21745阅读
  • 80回复

自编反应谱计算Fortran程序! [复制链接]

上一主题 下一主题
离线zhangrulin
发帖
4
土币
36
威望
40
原创币
0
只看该作者 36楼 发表于: 2011-04-06
谢谢了,谢谢楼主的分享!
离线jun_118899

发帖
273
土币
80
威望
15
原创币
0
只看该作者 37楼 发表于: 2011-05-03
感谢楼主分享,下载学习~~
~
离线jun_118899

发帖
273
土币
80
威望
15
原创币
0
只看该作者 38楼 发表于: 2011-05-03
优秀资料,感谢!
离线田间阡陌

发帖
7
土币
120
威望
1
原创币
0
只看该作者 39楼 发表于: 2011-06-02
我拿你的程序试了一下,怎么数据点数少于1000的时候可以有结果 OfSy_#aEK  
超过1000,就没有结果,这是什么怎么回事?
鞠躬尽瘁温相国
离线田间阡陌

发帖
7
土币
120
威望
1
原创币
0
只看该作者 40楼 发表于: 2011-06-02
准确地说是,1000个数据点的时候可以, uude<d"U  
2000个就不行了,大于2000的更不行 '[XtARtY`  
不明白到底是什么原因
鞠躬尽瘁温相国
离线田间阡陌

发帖
7
土币
120
威望
1
原创币
0
只看该作者 41楼 发表于: 2011-06-02
仔细比较了一下,楼主的数据格式: > @Ux8#  
33.495    -0.3126 FG?69b>  
33.500    -0.2890 kQr\ktN\  
33.505    -0.1633 0K0[mC}ZwM  
33.510    -0.1043 #0i] g)  
33.515    -0.0415 r306`)kX  
33.520    -0.0533 "`sr#  
33.525    -0.1751 FwdRM)1)  
33.530    -0.1397 D~KEjz!bQ  
33.535    -0.0179 kt.y"^  
oZ)\Ya=  
我的数据格式: 5#v  
16.000000 -0.003220 UuNcBzB2d  
16.004999 -0.041800 fgb%SIi?  
16.010000 -0.076500 LD'eq\vO  
16.014999 -0.123000 MZpG1  
16.020000 -0.119000 |j[=uS  
16.025000 -0.111000 mOLP77(o  
16.030001 -0.064900 }RGp)OFY&  
16.035000 -0.014800 pa7Iz^i  
16.040001  0.016100 i.0}d5Y  
16.045000  0.046900 [OH9/ "  
16.049999  0.035300 LX4*3c|i,  
16.055000  0.016100 d+5KHfkK  
16.059999  0.008350 5LT{]&`9  
16.065001  0.008350 XJ3 5Z+M  
16.070000  0.035300 V b=Oz  
16.075001  0.058500 O23dtH  
16.080000  0.054600 ^%^~:<N  
16.084999  0.031500 %fS__Tb#u  
16.090000 -0.014800 4X0k1Fw)Y  
16.094999 -0.068800 @KM !g,f  
16.100000 -0.107000 @"`J~uK  
16.105000 -0.127000 :R/szE*Ak  
16.110001 -0.130000 MroJ!.9  
16.115000 -0.115000 .A: #l?  
16.120001 -0.084200 pRt=5WZ  
)G7")I J/X  
用楼主的数据就是可以的,用我的就是不行 9-<EeV_/  
看来就是我的数据格式的问题了 +V"t't7  
e 1W9Z $m  
我应该怎样修改才可以用? \r_-gn'1b  
鞠躬尽瘁温相国
离线田间阡陌

发帖
7
土币
120
威望
1
原创币
0
只看该作者 42楼 发表于: 2011-06-02
解决了,修改了我的数据格式 SxC   
    0.0000   -0.0032 PcXz4?Q$  
    0.0050   -0.0418 _]SV@q^  
    0.0100   -0.0765 z(sfX}%  
    0.0150   -0.1227 +{Qk9Z  
    0.0200   -0.1189 VdrqbZ   
    0.0250   -0.1112 WoP5[.G  
    0.0300   -0.0649 OH2Xxr[bQ  
    0.0350   -0.0148 ]>E)0<t  
3)jFv7LAU  
数组维数若不够,调大 _#6_7=g@s6  
鞠躬尽瘁温相国
离线owenboss

发帖
7
土币
24
威望
11
原创币
0
只看该作者 43楼 发表于: 2011-07-21
谢谢啦~~~~~~~~~~~~
离线sumbo

发帖
207
土币
0
威望
1923
原创币
0
只看该作者 44楼 发表于: 2011-07-30
呵呵  我正在学习中
离线wangyuan1510

发帖
56
土币
2355
威望
47
原创币
0
只看该作者 45楼 发表于: 2011-07-31
感谢楼主的无私奉献,大家一起进步
离线little_stone

发帖
3
土币
118
威望
11
原创币
0
只看该作者 46楼 发表于: 2011-08-06
太好了!谢谢楼主!
离线chb1973

发帖
52
土币
1299
威望
2
原创币
0
只看该作者 47楼 发表于: 2011-08-13
好东西,下载
快速回复
限100 字节
温馨提示:欢迎交流讨论,请勿纯表情、纯引用!
 
上一个 下一个

      浙公网安备 33010602003799号 浙ICP备14021682号-1

      工业和信息化部备案管理系统网站