create view distinct_trans as select distinct tranobject from purchase;

create view all_trans as

--可以用wm_concat函數(shù)

SELECT tranid,MAX(tranobjects) tranobjects

  FROM (select tranid,WMSYS.WM_CONCAT(tranobject) OVER(PARTITION BY tranid ORDER BY tranobject) tranobjects

         from purchase

       )

group by tranid;

--也可以用sys_connect_by_path函數(shù)

create view all_trans as

select tranid,substr(tranobjects,2) tranobjects from  --格式化前面的逗號(hào)和空格

(

  select distinct tranid,FIRST_VALUE(tranobjects) OVER(PARTITION BY tranid ORDER BY levels desc ) AS tranobjects  --保留最大的那個(gè)

   from

   (

     select tranid,sys_connect_by_path(tranobject,',') tranobjects,level levels --各購(gòu)買事務(wù)的內(nèi)部排列組合

       from purchase

    connect by tranid=prior tranid and tranobject

   )

);

create view all_zuhe as

select substr(sys_connect_by_path(tranobject,','),2) zuhe

  from (select distinct tranobject from purchase)

connect by nocycle tranobject

create view full_zuhe as

select a.zuhe X,b.zuhe Y from all_zuhe a,all_zuhe b

where instr(a.zuhe,b.zuhe)=0 and instr(b.zuhe,a.zuhe)=0

 and not exists(select 1 from distinct_trans c

                 where instr(a.zuhe,c.tranobject)>0 and instr(b.zuhe,c.tranobject)>0)

create or replace view tongji as

select xy,xy_total,x,x_total,y,y_total,transtotal from

(

  select y||','||x xy,

         (select count(*) from all_trans a where instr(a.tranobjects,c.x||','||c.y)>0 or instr(a.tranobjects,c.y||','||c.x)>0) xy_total, --包含xy的事務(wù)數(shù)

         y,

         (select count(*) from all_trans b where instr(b.tranobjects,c.y)>0) y_total, --包含y的事務(wù)數(shù)

         x,

         (select count(*) from all_trans b where instr(b.tranobjects,c.x)>0) x_total, --包含x的事務(wù)數(shù)

         d.transtotal  --總事務(wù)數(shù)

   from full_zuhe c,(select count(distinct tranid) transtotal from purchase) d

  order by xy_total desc,x_total desc

)

select * from tongji where xy_total>=3 and y_total>=3