数值算法/人工智能

开发平台：

MultiPlatform

geo.prog：源码内容

							
Using a persistent dictionary (cf.~section~ref{Persistent Dictionaries}) for planar point location 
(sweep line algorithm).
medskip
#include <LEDA/plane.h>\
#include <LEDA/prio.h>\
#include <LEDA/sortseq.h>\
#include <LEDA/p_dictionary.h>\
double $X_POS$;  // current position of sweep line
int compare(segment $s1$,segment $s2$)\
${$\
hspace*{.5cm}line $l1(s1)$;\
hspace*{.5cm}line $l2(s2)$;
hspace*{.5cm}double $y1 = l1.y_proj(X_POS)$;\
hspace*{.5cm}double $y2 = l2.y_proj(X_POS)$;
hspace*{.5cm}Return compare($y1,y2$);\
$}$
typedef priority_queue<segment,point> X_structure;\
typedef p_dictionary<segment,int>     Y_structure;
sortseq<double,Y_structure>  HISTORY;
void SWEEP(list<segment>& $L$)
${$\
hspace*{.5cm}// Precondition: L is a list of non-intersecting\
hspace*{.5cm}// from left to right directed line segments
hspace*{.5cm}X_structure    $X$;\
hspace*{.5cm}Y_structure    $Y$;\           
hspace*{.5cm}segment        $s$;
hspace*{.5cm}Forall(s,L)hspace*{4.8cm}// initialize the X_structure\
hspace*{1cm}${$ X.insert($s,s$.start());\
hspace*{1.25cm}X.insert(s,s.end());\
hspace*{1cm}$}$
hspace*{.5cm}HISTORY.insert(-MAXDOUBLE,$Y$); // insert empty Y_structure at -infinity
hspace*{.5cm}While( ! $X$.empty() )\
hspace*{1cm}${$ point   $p$;\ 
hspace*{1.25cm}segment $s$;\
hspace*{1.25cm}$X$.del_min($s,p$);hspace*{3cm}// next event: endpoint p of segment s\
hspace*{1.25cm}$X_POS = p.xcoord()$;
hspace*{1.25cm}{bf if} ($s$.start()$==p$)\             
hspace*{1.5cm}$Y = Y$.insert($s$,0);hspace*{2.25cm}// p is left end of s 
hspace*{1.25cm}Else\
hspace*{1.5cm}$Y = Y$.del($s$);hspace*{3cm}// p is right end of s
hspace*{1.25cm}HISTORY.insert($X_POS,Y$);hspace*{.5cm}// insert Y into history sequence\ 
hspace*{.5cm}$}$
hspace*{.5cm}HISTORY.insert(MAXDOUBLE,$Y$);  // insert empty Y_structure at +infinity\
$}$
segment LOCATE(point $p$)
${$\
hspace*{.5cm}$X_POS = p.xcoord()$;\
hspace*{.5cm}Y_structure $Y$ = HISTORY.inf(HISTORY.pred($X_POS$));\
hspace*{.5cm}p_dic_item $pit = Y$.succ(segment($p,0,1$));
hspace*{.5cm}If ($pit != nil$)\ 
hspace*{.75cm}Return $Y$.key($pit$);
hspace*{.5cm}Else\
hspace*{.75cm}Return segment(0);\
$}$

						