随笔分类 -  计算几何

摘要：1 { 2 二维线段标准相交问题 3 } 4 Program LineIntersect; 5 6 const 7 precision=1E-6; 8 9 Type 10 11 point=record12 x,y:double;13 end;14 15 Tdbl=-1..1;16 17 var18 p:array[1..4] of point;19 i:longint;20 Function dblcmp(d:double):Tdbl;//注意这里相当于一个过滤器，函数值只有三种-1，0，121 begin22 if abs(d)<precision t... 阅读全文