oracle ¶ÔÏóµ÷ÓóÉÔ±º¯ÊýÎÊÌâ

create or replace type Spoint as object(
x float,
y float,
member function distance(p in Spoint)
return float
);


create or replace type body Spoint as
member function distance (p in Spoint)
return float
is
result float;
begin
  result := ((x-p.x)*(x-p.x)+(y-p.y)*(y-p.y));
  return result
  end distance;
  end;


  create table testpoint of Spoint
 
  insert into testpoint values(4.0,5.0)
  insert into testpoint values(1.0,1.0)
 
  select * from testpoint
 

  declare
  p1 Spoint;
  p2 Spoint;
  rest float;
  begin
    p1 := Spoint(4.0,5.0);
    p2 := Spoint(1.0,1.0);
    rest := p1.distance(p2);
    dbms_output.put_line(rest);
    end;

declare¶ÎÔËÐÐʱ±¨´í£¬ÊÇʲôÎÊÌ⣿

---

SQL code:
create or replace type body Spoint as
member function distance (p in Spoint)
return float
is
result float;
begin
result := ((x-p.x)*(x-p.x)+(y-p.y)*(y-p.y));
return result;
end distance;
end;