定义一个存储器我们可以用 define_element (memory[1],should,x=0,y=0,z=0)指令，复制一个可以用 memory[2] = memory[1] 那么如何删除一个存有数据的存储器呢？请赐教。 何必呢 何苦呢...

为什么要删除，用新的覆盖就可以吗。

想解决什么问题?

最近我在做一个观察平面上点的跳动的程序，由于是密集采点，遇到砂孔时就会出现异常点，把这些点过滤掉再计算成平面会更好，当然可以用以后的点把这个异常点覆盖掉，但是假如最后一个点就是异常点，那么用删除法会省很多事。 何必呢 何苦呢...

我不知道你是怎样发现异常点的，如是视觉观测到的，那也太麻烦了，所以，这点我想你也不可能采用。反之，如果通过实测点的数据分析后得到的。那么，我建议是否可通过逐点自动判断的方式，即时剔除异常点。总之，这样的程序必须要保证尽可能少的人为参与。

我的程序是这样的：工件第一次测量时将采的点坐标逐一写入文本，以后再测量就自动从这个文本中读取坐标控制测头移动，至于那些异常点，我给它一个设定值，超过设定值的存储器将被剔除，程序快要完工了。 dy (" ") dy (" ") dy (" <<<<<<<<<< 请输入过滤值 >>>>>>>>>> ") dy ("提醒：") dy (" 过滤值过低会降低数据的有效性，过高会无视砂孔等缺陷 ") dy (" 建议过滤值选择为平面度公差的3-5倍 ") dy (" ") read (gsh) 。 。 。 OPENF (F1,instr) RESET (F1) readln (f1,xh,xcor,ycor,zcor) move (x=xcor,y=ycor,z=99) zzh=zcor+5 reset (f1) loop exif eof(f1) readln (f1,xh,xcor,ycor,zcor) if zcor gt zzh then move (x=xcor,y=ycor,z=zcor) jump bbb end_if e=e+1 msh (memory[e],1) move (x=xcor,y=ycor) movetf (z=zcor) vvc=memory[e] （if vvc|z ge gsh then） 此处既为剔除异常点部分 gln=gln+1 e=e-1 end_if bbb: end_loop closef (f1) 。 。 何必呢 何苦呢...

你的方法的确可以借鉴，这种事情我也做过，不过不是通过采取控制采样的方法，而是控制参与跳动计算的点，通过条件过滤掉不符合条件的点，重新整理存储器 for i=1 to n if mem[i]|z<0.5 then x=x+1 mem[x]=mem[i] else end_if end_for （语句未经过试验，只表达思路） 不过如果要构造平面的话不成，应为不知道具体计算点的数量，不知道大家还有什么高招！

我上面的那段程序可以把剔除异常点后剩余的点计算成平面，我已经试过了。 “E”是采集点的存储器号，每采一个点E就+1，当遇到异常点，E就-1，下次循环这个异常点就会被正常点覆盖掉，假设最后一个点是异常点也没关系，因为我计算平面时是用最后的E来确定参与计算点的个数，它自然也被排除在外了。 最后，我用计算成的平面建立第一轴和设置零点，重新来评估所有正常点的跳动。然后写入文本文件，把最高的3个点和最低的3个点显示在屏幕上。 我觉得重新评估才有意思，因为在采点之前设定的平面和零点不会和实际的完全重合。 何必呢 何苦呢...

STAR斑竹说的对，“通过逐点自动判断的方式，《〈即时〉》剔除异常点。”可以大大减轻程序的复杂程度，反之如果所有的点都测完了再进行剔除，存储器的移动就非常复杂。 何必呢 何苦呢...