[quote]看了一下你的程序，一个总体印象有点乱，根据你的意思修改如下：

program main
implicit none
integer::i,j,num
real::x
real(kind=8),dimension(21,6)::c
real(kind=8),dimension(31,7)::a
real(kind=8),dimension(6)::tmp
real(kind=8),dimension(5)::ub,lb
open(10,file='1.txt',status='old')
open (1,file='rsm.txt')

!数据读入
do i=1,31
  read(10,*,end=100) (a(i,j),j=1,7)
enddo
100 close(10)
!数据排序
do i=1,30
  do j=i+1,31
   if (a(i,7)>a(j,7)) then
    tmp(:) = a(j,2:7)
    a(j,2:7) = a(i,2:7) 
    a(i,2:7) =tmp(:)
   endif
  enddo
enddo
!以最小值为基准设置上下界输出响应面
do j=1,5
  ub(j)=3.50*a(1,j+1)
  lb(j)=0.50*a(1,j+1)
enddo
!判断把满足条件的输出
num=0
do i=1,21
 if((a(i,2)<=ub(1).and.a(i,2)>=lb(1)).and.(a(i,3)<=ub(2).and.a(i,3)>=lb(2)).and.(a(i,4)<=ub(3)&
     .and.a(i,4)>=lb(3)).and.(a(i,5)<=ub(4).and.a(i,5)>=lb(4)).and.(a(i,6)<=ub(5).and.a(i,6)>=lb(5)) ) then
  num=num+1
  c(num,1:6)=a(i,2:7)
  write(1,'(i4,6f12.4)')num,(c(num,j),j=1,6)
 endif
enddo
 
!补足剩余数据 
call random_seed ()      
do i=num+1,21
  do j=1,5
   call random_number(x)      
     x=lb(j)+(ub(j)-lb(j))*x
     c(i,j)=x
  enddo
  write (1,'(i4,5f12.4)') i,(c(i,j),j=1,5) 
enddo

write(*,'(a,i4,a)') "落在范围内的样本点共有:",num, "个,响应面已经输出至rsm.txt中。"
write(*,'(a,i4,a)') "剩余",21-num,"个已补足。"

end program


至此，你的 http://bbs.pfan.cn/post-350201.html  已不再是问题[/quote]
jstjurz您好！由于新问题不便于再标题里描述，所以直接在这里请教您了：
按照上面那个程序，保留对txt文档中的数据进行数据排序的部分，排序后要生成一些新的样本点了，过程大概是这样：首先找到两个新的搜索点sp1（6）和sp2（6），这两个点是这样确定的，sp1就是排序后的a（1,2：7）；sp2等于前面程序中排序后从小到大靠前的20%的所有点，如上面程序共有31个点那么就是前6个点中到sp1（6）距离最小的点，其中距离=SQRT((a(i,2)-sp1(1))**2-(a(i,3)-sp1(2))**2-(a(i,4)-sp1(3))**2-(a(i,5)-sp1(4))**2-(a(i,6)-sp1(5))**2)。确定好这两个点后，以这两个点的各元素为均值，以个元素值的50%为标准差，按照正态分布的规律围绕sp1（6）和sp2（6）分别生成5个样本点，也就是生成了两个（5,7）的矩阵（每个矩阵第一列为序列号）。这样就围绕sp1和sp2一共又生成了10个新点（10,7）的矩阵，将其输出到txt文档中即可。程序我自己试着写了一点，遇到太多问题，耗费时间太多，来不及了。望您指点，万分感激！
program main
implicit none
integer i,j,num
real(kind=8),x
real(kind=8),dimension(10)::sq
real(kind=8),dimension(32,7)::a
real(kind=8),dimension(7)::sp1
real(kind=8),dimension(6)::tmp
open(10,file='1.txt',status='old')

!数据读入
num=0
do i=1,1000
  read(10,*,end=100) (a(i,j),j=1,7)
  if(a(i,1).ne.0.0)then
  num=num+1
  endif
enddo
100 close(10)

!数据排序
do i=1,num-1
  do j=i+1,num
   if (a(i,7)>a(j,7)) then
    tmp(:) = a(j,2:7)
    a(j,2:7) = a(i,2:7) 
    a(i,2:7) =tmp(:)
   endif
  enddo
enddo

!确定搜索点
sp1(:)=a(1,:)
do i=2,7
 sq(i)=SQRT((a(i,2)-sp1(2))**2-(a(i,3)-sp1(3))**2-(a(i,4)-sp1(4))**2-(a(i,5)-sp1(5))**2-(a(i,6)-sp1(6))**2)
enddo
do i=1,6
 do j=i+1,7
  if (sq(i)<sq(j))then
   x=sq(j)
   sq(j)=sq(i)
   sq(i)=x
  endif
 enddo
enddo  
print *,sq(1)

end program

更正下，是到sp1距离最大的点

在我没有理解物理内涵之前，是万万不敢胡乱写程序的，搞研究毕竟不是儿戏。

[quote]
在我没有理解物理内涵之前，是万万不敢胡乱写程序的，搞研究毕竟不是儿戏。[/quote]
那请问您是我哪一部分没有表述清楚呢 ？

[quote][quote]
在我没有理解物理内涵之前，是万万不敢胡乱写程序的，搞研究毕竟不是儿戏。[/quote]
那请问您是我哪一部分没有表述清楚呢 ？[/quote]

你的程序几乎啥都没干？！难道要我来做你的课题？！[em14][em18][em15]

[quote][quote][quote]
在我没有理解物理内涵之前，是万万不敢胡乱写程序的，搞研究毕竟不是儿戏。[/quote]
那请问您是我哪一部分没有表述清楚呢 ？[/quote]

你的程序几乎啥都没干？！难道要我来做你的课题？！[em14][em18][em15][/quote]
呵呵……其实我是想自己写出来，但能力有限，上面那个程序，如果没有您的指导，以我现在的水平是绝对写不出的。这个算法是我课题中的一个小算法，还要做实验的。其实我主要是不会后面的按照正态分布生成新的样本点那部分。找sp1，sp2自己还是可以勉强写一部分。对于您这样的高手，可能写这个程序就是几十分钟的事情，我要写估计一个星期也写不不出。现在时间有点紧了。如果您能再指导我写出这个程序，我将会无比感激的！

[quote][quote][quote]
在我没有理解物理内涵之前，是万万不敢胡乱写程序的，搞研究毕竟不是儿戏。[/quote]
那请问您是我哪一部分没有表述清楚呢 ？[/quote]

你的程序几乎啥都没干？！难道要我来做你的课题？！[em14][em18][em15][/quote]
jstzhurj您好！自己弄了一天，写了个比较愚蠢的程序来寻找sp1 sp2：
program main
implicit none
integer i,j,num,n
real(kind=8),dimension(32,7)::a
real(kind=8),dimension(40,8)::c
real(kind=8),dimension(7)::x
real(kind=8),dimension(10)::sq
real(kind=8),dimension(7)::sp1
real(kind=8),dimension(6)::tmp
open(10,file='1.txt',status='old')
open(1,file='2.txt')
open(2,file='3.txt')

!数据读入
num=0
do i=1,1000
  read(10,*,end=100) (a(i,j),j=1,7)
  if(a(i,1).ne.0.0)then
  num=num+1
  endif
enddo
100 close(10)

!数据排序
do i=1,num-1
  do j=i+1,num
   if (a(i,7)>a(j,7)) then
    tmp(:)=a(j,2:7)
    a(j,2:7)=a(i,2:7) 
    a(i,2:7)=tmp(:)
   endif
  enddo
enddo

!确定两个搜索点
sp1(:)=a(1,:)
n=int(0.2*num)
do i=1,n
 sq(i)=SQRT((a(i,2)-sp1(2))**2+(a(i,3)-sp1(3))**2+(a(i,4)-sp1(4))**2+(a(i,5)-sp1(5))**2+(a(i,6)-sp1(6))**2)
 write(1,'(8f12.4)')(a(i,j),j=1,7),sq(i)
enddo

open(1,file='2.txt')
do i=1,n
  read(1,*,end=200) (c(i,j),j=1,8)
enddo
200 close(1)
do i=1,n-1
  do j=i+1,n
   if (c(i,8)>c(j,8)) then
    x(:)=c(j,2:8)
    c(j,2:8)=c(i,2:8) 
    c(i,2:8)=x(:)
   endif
  enddo
enddo
do i=1,n
c(i,1)=i
write(2,'(8f12.4)')(c(i,j),j=1,8)
enddo
end program
[color=00FFFF]sp1(:)=a(1,:)；sp2(:)=c(1,1:6);但是程序最后有问题，最后输出来的2.txt数据除第一列外其他列全是零。不知道这是怎么回事！请求您的帮助。[/color]
1.txt文档数据如下：
1    991.2    946.1    0.05    0.0042    1.64    44693.82
2    958.1    847.7    0.287    0.0095    0.77    41607.11
3    918.8    317.1    0.146    0.0088    0.83    39786.99
4    982.3    342.7    0.297    0.0169    0.64    37142.6
5    893.9    465.2    0.322    0.0074    1.13    42344.91
6    1010.9    1098.6    0.127    0.0062    0.58    41300.29
7    975.9    457.3    0.256    0.0132    1.61    43883.29
8    954.6    420.7    0.399    0.003    0.92    39171.05
9    921.6    373.4    0.203    0.0051    1.7    40344.36
10    945.1    282.7    0.368    0.0123    0.59    36571.87
11    905    509    0.391    0.0151    1.03    42504.63
12    941    572.1    0.105    0.0129    1.83    41944.88
13    891.3    593.2    0.271    0.003    1.57    42175.65
14    965.3    803.9    0.332    0.0079    0.76    41304.97
15    1032.4    996.4    0.377    0.0071    1.36    41329.23
16    838.6    914.2    0.306    0.0139    1.9    42925.04
17    932.7    219.2    0.112    0.0054    0.51    36040.02
18    858.4    1020    0.41    0.0045    1.33    38832.82
19    1015.9    539.7    0.16    0.0148    1.05    40171.46
20    1028.4    780.2    0.193    0.0162    1.75    42564.07
21    875.1    744    0.23    0.0111    1.13    40026.32
22    882.6    236.1    0.081    0.0087    1.43    39412.47
23    852.2    690.9    0.064    0.012    1.2    41157.89
24    986.1    1137.6    0.343    0.0037    0.96    43133.87
25    1000.7    1116.7    0.142    0.0068    1.49    43078.59
26    864.5    1065.4    0.353    0.0103    1.23    42872.97
27    928.8    1172.9    0.218    0.0021    1.79    42082.08
28    842.5    640.7    0.179    0.016    0.87    41902.02
29    872.8    886.1    0.207    0.0112    0.7    41819.36
30    1003.5    653.5    0.098    0.0142    1.31    42043.8
31    906.3    814.1    0.243    0.0101    1.53    43629.89
32    935    700    0.235    0.0095    1.2    41872.75

[quote][quote][quote]
在我没有理解物理内涵之前，是万万不敢胡乱写程序的，搞研究毕竟不是儿戏。[/quote]
那请问您是我哪一部分没有表述清楚呢 ？[/quote]

你的程序几乎啥都没干？！难道要我来做你的课题？！[em14][em18][em15][/quote]
jstzhurj您好！上面的问题解决了，通过下面的程序已经能够找到sp1和sp2了，现在我自己无法解决的是：不知道怎么根据正态分布，以这两个数组中的各元素为均值，以各个元素的50%为标准差围绕sp1和sp2分别再生成两个（5，6）的矩阵。
program main
implicit none
integer i,j,num,n
real(kind=8),dimension(32,7)::a
real(kind=8),dimension(40,8)::c
real(kind=8),dimension(7)::x
real(kind=8),dimension(10)::sq
real(kind=8),dimension(7)::sp1
real(kind=8),dimension(6)::tmp
open(10,file='1.txt',status='old')
open(1,file='2.txt')
open(2,file='3.txt')

!数据读入
num=0
do i=1,1000
  read(10,*,end=100) (a(i,j),j=1,7)
  if(a(i,1).ne.0.0)then
  num=num+1
  endif
enddo
100 close(10)

!数据排序
do i=1,num-1
  do j=i+1,num
   if (a(i,7)>a(j,7)) then
    tmp(:)=a(j,2:7)
    a(j,2:7)=a(i,2:7) 
    a(i,2:7)=tmp(:)
   endif
  enddo
enddo

!确定两个搜索点
sp1(:)=a(1,:)
n=int(0.2*num)
do i=1,n
 sq(i)=SQRT((a(i,2)-sp1(2))**2+(a(i,3)-sp1(3))**2+(a(i,4)-sp1(4))**2+(a(i,5)-sp1(5))**2+(a(i,6)-sp1(6))**2)
 write(1,'(8f12.4)')(a(i,j),j=1,7),sq(i)
c(i,8)=sq(i)
c(i,1:7)=a(i,:)
enddo
do i=1,n-1
  do j=i+1,n
   if (c(i,8)<c(j,8)) then
    x(:)=c(j,2:8)
    c(j,2:8)=c(i,2:8) 
    c(i,2:8)=x(:)
   endif
  enddo
enddo
sp2(i)=c(1,1:7)
end program

你得看一下 徐士良编著的Fortran常用算法程序集－第二版 第13章！