如何删除一些坐标

yy5393

我已经建立了1~N个坐标点，生成M个随机数，想把随机数位置的坐标删除，程序上怎么体现呢？谢谢了

lelec

很久没有编程了，试了一下，不知道符合要求不？我这里假定你原来的N个坐标点是在数组x(N)里面，M个随机数放在数组a(M)里面。
real*8 x(N),x1(N)
integer a(M),NUM,COUN
NUM=0,COUN=0
do i=1,N
     x1(i)=x(i)
     x(i)=0
end do
11  NUM=NUM+1
      do j=1,M
          if(NUM.eq.a(j))  then
            goto 11
      end do
      COUN=COUN+1
      x(COUN)=x1(NUM)
      if(NUM.lt.N)  then
         goto 11
     end if