哪们兄台指点一下这段代码

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！
$ n5 x8 k5 ~- m+ i

awnusspgy

   ENTITY /body,obj(1000)
    NUMBER /n(42),r(42),density,d,dd
! Q9 Y, W# r! K5 w
density=1

8 m# N5 `4 `& C. |l10:
( V( c3 b% L  W$ i% _   mask/70
   ident/'选择实体',body,resp
) ^8 _7 H1 l3 c# [. P% P/ B   jump /l10:,end:,,,resp
   &sdens(body)=density
6 O! F9 V7 L6 P# B+ W! Q   anlsis/solid,body,gcm,n
   d=n(3)*1000
; r8 u( ?. z1 x1 B' M   $$messg/'该物体的重量为'+fstr(d)+'克'

0 }+ m6 ], W7 B+ w, h   $$--------------
l20:
/ L' K8 y4 U9 z& x: F   mask/70
   ident/'选择实体',obj,cnt,u,resp
   jump /l10:,end:,,,resp
+ n% S5 Y0 R4 ~8 n+ E9 }
' H# N- P/ Z. E6 X. P7 F4 s$ r5 M7 fl30:
3 s# G/ J1 O6 I" N4 S" G   do/l40:,i,1,u
, o" G8 k3 p! U: O! V# M' ]   &sdens(obj(i))=density
" U8 D$ v8 q1 D4 P. r   anlsis/solid,obj(i),gcm,r
; z$ y; ^) `" }8 v! x* D4 x8 O   dd=r(3)*1000
   print/'该物体的重量为'+fstr(dd)+'克'
5 O4 `( w# }8 Ml40:
! H+ u0 k: i# ]4 v7 ?7 fl50:
   do/l60:,v,1,u
   ifthen/dd==d
   blank/obj(v)
     else
   jump /l50:
: T+ O* b# f3 @: [     endif
. y  F  o3 j4 r; l3 v! Z( ]l60:
, L0 A- }% s, B6 m
. c' k% A- I  ]. u8 L  B! _
# t  A; c/ Y, f
% E  ?- Z* S7 {- S$ K' l( |' ]
end:  $$ 跳到此处结束
     HALT