急求剔除异常数据的程序 — 编程爱好者社区

您所在位置：社区首页 — Fortran讨论区 — 急求剔除异常数据的程序

主题：急求剔除异常数据的程序

qqffqq [专家分：0] 发布于 2010-11-15 10:27:00

急求剔除异常数据的程序，
      0.04433
      0.08443
      0.11770
      0.18642
      0.19045
      0.19143
      0.20276
      0.21718
      0.24409
      0.30166
      0.32486
      0.32732
      0.34039
      0.34221
      0.38584
      0.43105
      0.45080
      0.45734
      0.50041
      0.56775
      0.62750
      0.64774
      0.65225
      0.68097
      0.69971
      0.80427
      0.85833
      0.86513
从里面剔除不符合要求的数据，并将合理的数据保存在一个txt.文档里面，不合理的数据放在另外一个txt.文档里面。
谢谢

本帖地址： http://bbs.pfan.cn/post/356417.html

回复列表（共3个回复）

沙发

wxd040303118 [专家分：140] 发布于 2010-11-15 14:52:00

k=1
open(10,file="data.txt")
open(11,file="conformity.txt")
open(12,file="uncomformity.txt")

do while(.not. eof(10))
  read(10,*) a(k)
  k=k+1
end do

do i=1,k
  if(a(i)>?)
    write(11,*) a(i)
  else
    write(12,*) a(i)
  end if
end do

板凳

qqffqq [专家分：0] 发布于 2010-11-15 20:00:00

谢谢你呀[em12]

3 楼

幽灵密码 [专家分：3510] 发布于 2010-11-15 21:25:00

看不懂？

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：急求剔除异常数据的程序

回复列表（共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：急求剔除异常数据的程序

回复列表 （共3个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共3个回复）