三维计算几何

1、计算几何1.1 注意1. 注意舍入方式(0.5 的舍入方向);防止输出-0.几何题注意多测试不对称数据.3. 整数几何注意 xmult 和 dmult 是否会出界;符点几何注意 eps 的使用.避免使用斜率;注意除数是否会为 0.公式一定要化简后再代入.判断同一个2*PI域内两角度差应该是abs(a1-a2)pi+pi-beta;相等应该是abs(a1-a2)pi+pi-eps;需要的话尽量使用atan2,注意:atan2(0,0)=0,atan2(1,0)=pi/2,atan2(-1,0)=-pi/2,atan2(0,1)=0,atan2(0,-1)=pi.cross product = |

2、u|*|v|*sin(a)dot product = |u|*|v|*cos(a)(Pl-P0)x(P2-P0)结果的意义：正：PO,P1在P0,P2顺时针(O,pi)内负：PO,P1在P0,P2逆时针(O,pi)内0 :P0,Pl,P0,P2共线,夹角为 0 或 pi误差限缺省使用 1e-8!1. 2几何公式三角形：半周长 P=(a+b+c)/2面积 S=aHa/2=absin(C)/2=sqrt(P(P-a)(P-b)(P-c)中线 Ma二sqr t(2(b2+c2)-a2)/2二sqr t(b2+c2+2bccos(A)/2角平分线 Ta=sqrt(bc(b+c)2-a2)/(b+c)=

3、2bccos(A/2)/(b+c)高线 Ha=bsin(C)=csin(B)=sqrt(b2-(a2+b2-c2)/(2a)2)内切圆半径 r=S/P=asin(B/2)sin(C/2)/sin(B+C)/2)=4Rsin(A/2)sin(B/2)sin(C/2)=sqrt(P-a)(P-b)(P-c)/P) =Ptan(A/2)tan(B/2)tan(C/2)外接圆半径 R=abc/(4S)=a/(2sin(A)=b/(2sin(B)=c/(2sin(C)四边形：D1,D2为对角线,M对角线中点连线,A为对角线夹角a2+b2+c2+d2=D12+D22+4M2S=D1D2sin(A)/2(以

4、下对圆的内接四边形)ac+bd=D1D2S=sqr t(P-a)(P-b)(P-c)(P-d),P 为半周长正 n 边形：R为外接圆半径,r为内切圆半径中心角 A=2PI/n内角 C=(n-2)PI/n边长 a=2sqrt(R2-r2)=2Rsin(A/2)=2rtan(A/2)面积 S二nar/2二nr2tan(A/2)=nR2sin(A)/2二na2/(4tan(A/2)圆:弧长 l=rA弦长 a=2sqrt(2hr-h2)=2rsin(A/2)弓形高 h=r-sqr t(r2-a2/4)=r(l-cos(A/2)=a tan(A/4)/2扇形面积 Sl=rl/2=r2A/2弓形面积 S2

5、=(rl-a(r-h)/2二r2(A-sin(A)/2棱柱:体积V=Ah,A为底面积,h为高侧面积S=lp,l为棱长,p为直截面周长全面积 T=S+2A棱锥:体积V=Ah/3,A为底面积,h为高 (以下对正棱锥)侧面积S=lp/2,l为斜高,p为底面周长全面积 T=S+A棱台:体积 V=(Al+A2+sqrt(AlA2)h/3,Al.A2 为上下底面积,h 为高 (以下为正棱台)侧面积S=(pl+p2)l/2,pl.p2为上下底面周长,l为斜高全面积 T=S+A1+A2圆柱:侧面积 S=2PIrh全面积 T=2PIr(h+r)体积 V=PIr2h圆锥:母线 l=sqrt(h2+r2)侧面积 S

6、=PIrl全面积 T=PIr(l+r)体积 V=PIr2h/3圆台:母线 l=sqrt(h2+(rl-r2)2)侧面积 S=PI(r1+r2)l全面积 T=PIr1(l+r1)+PIr2(l+r2)体积 V=PI(r2+r22+rlr2)h/3球:全面积 T=4PIr2体积 V=4PIr3/3球台:侧面积 S=2PIrh全面积 T=PI(2rh+r2+r22)体积 V=PIh(3(r2+r22)+h2)/6球扇形:全面积T=PIr（2h+rO）,h为球冠高,rO为球冠底面半径体积 V=2PIr2h/3Euler 的任意四面体体积公式（已知边长求体积）36V 2 36V 2 =p 2 + q 2

7、 一 n 2 p 2 + r 2 一 m 22 2q 2 + r 2 一 12 q 22q 2 + r 2 一 12r 22已知4已知4点坐标求体积（其中四个点的坐标分别为（xl,yl,zl）,y2,z2) ,(x3,y3,z3) ,V =V =6x4,y4,z4)1111x1 x2 x3 x4 y1 y2 y3 y4 z1 z2 z3 z41.3 多边形#include #include #define MAXN 1000#define offset 10000#define eps 1e-8#define zero(x) (x)0?(x):-(x)eps?1:(x)-eps?2:0) st

8、ruct pointdouble x,y;struct linepoint a,b;double xmult(point p1,point p2,point p0)return (p1.x-p0.x)*(p2.y-p0.y)-(p2.x-p0.x)*(p1.y-p0.y);/判定凸多边形,顶点按顺时针或逆时针给出,允许相邻边共线int is_convex(int n,point* p)int i,s3=1,1,1;for (i=0;in&s1|s2;i+) s_sign(xmult(p(i+1)%n,p(i+2)%n,pi)=0;return s1|s2;/判定凸多边形,顶点按顺时针或逆时针给

9、出,不允许相邻边共线int is_convex_v2(int n,point* p)int i,s3=1,1,1;for (i=0;in&s0&s1|s2;i+) s_sign(xmult(p(i+1)%n,p(i+2)%n,pi)=0;return s0&s1|s2;/判点在凸多边形内或多边形边上,顶点按顺时针或逆时针给出int inside_convex(point q,int n,point* p)int i,s3=1,1,1;for (i=0;in&s1|s2;i+) s_sign(xmult(p(i+1)%n,q,pi)=0;return s1|s2;/判点在凸多边形内,顶点按顺时针

10、或逆时针给出,在多边形边上返回0 int inside_convex_v2(point q,int n,point* p)int i,s3=1,1,1;for (i=0;in&s0&s1|s2;i+) s_sign(xmult(p(i+1)%n,q,pi)=0;return s0&s1|s2;/判点在任意多边形内,顶点按顺时针或逆时针给出/on_edge表示点在多边形边上时的返回值,offset为多边形坐标上限 int inside_polygon(point q,int n,point* p,int on_edge=1)point q2;int i=0,count;while (in)for

11、 (count=i=0,q2.x=rand()+offset,q2.y=rand()+offset;in;i+) if(zero(xmult(q,pi,p(i+1)%n)&(pi.x-q.x)*(p(i+1)%n.x-q.x)eps&(pi.y-q .y)*(p(i+1)%n.y-q.y)eps)return on_edge;else if (zero(xmult(q,q2,pi)break;else if (xmult(q,pi,q2)*xmult(q,p(i+1)%n,q2)-eps&xmult(pi,q,p(i+1)%n)*xmult(p i,q2,p(i+1)%n)-eps)count

12、+;return count&1;inline int opposite_side(point p1,point p2,point l1,point l2)return xmult(l1,p1,l2)*xmult(l1,p2,l2)-eps;inline int dot_online_in(point p,point l1,point l2)returnzero(xmult(p,l1,l2)&(l1.x-p.x)*(l2.x-p.x)eps&(l1.y-p.y)*(l2.y-p.y)eps; /判线段在任意多边形内,顶点按顺时针或逆时针给出,与边界相交返回1int inside_polygon

13、(point l1,point l2,int n,point* p)point tMAXN,tt;int i,j,k=0;if (!inside_polygon(l1,n,p)|!inside_polygon(l2,n,p)return 0;for (i=0;in;i+)if (opposite_side(l1,l2,pi,p(i+1)%n)&opposite_side(pi,p(i+1)%n,l1,l2) return 0;else if (dot_online_in(l1,pi,p(i+1)%n)tk+=l1;else if (dot_online_in(l2,pi,p(i+1)%n)tk

14、+=l2;else if (dot_online_in(pi,l1,l2)tk+=pi;for (i=0;ik;i+)for (j=i+1;jk;j+)tt.x=(ti.x+tj.x)/2;tt.y=(ti.y+tj.y)/2;if (!inside_polygon(tt,n,p)return 0;return 1;point intersection(line u,line v) point ret=u.a;double t=(u.a.x-v.a.x)*(v.a.y-v.b.y)-(u.a.y-v.a.y)*(v.a.x-v.b.x) /(u.a.x-u.b.x)*(v.a.y-v.b.y)

15、-(u.a.y-u.b.y)*(v.a.x-v.b.x);ret.x+=(u.b.x-u.a.x)*t; ret.y+=(u.b.y-u.a.y)*t; return ret;point barycenter(point a,point b,point c) line u,v;u.a.x=(a.x+b.x)/2;u.a.y=(a.y+b.y)/2;u.b=c;v.a.x=(a.x+c.x)/2;v.a.y=(a.y+c.y)/2;v.b=b;return intersection(u,v);/多边形重心point barycenter(int n,point* p)point ret,t; d

16、ouble t1=0,t2;int i; ret.x=ret.y=0;for (i=1;ieps) t=barycenter(p0,pi,pi+1);ret.x+=t.x*t2;ret.y+=t.y*t2; t1+=t2;if (fabs(t1)eps) ret.x/=t1,ret.y/=t1;return ret;1.4 多边形切割 /多边形切割 /可用于半平面交 #define MAXN 100#define eps 1e-8#define zero(x) (x)0?(x):-(x)eps;point intersection(point u1,point u2,point v1,poin

17、t v2)point ret=u1;double t=(u1.x-v1.x)*(v1.y-v2.y)-(u1.y-v1.y)*(v1.x-v2.x) /(u1.x-u2.x)*(v1.y-v2.y)-(u1.y-u2.y)*(v1.x-v2.x);ret.x+=(u2.x-u1.x)*t;ret.y+=(u2.y-u1.y)*t; return ret;/将多边形沿11,12确定的直线切割在side侧切割，保证ll,l2,side不共线void polygon_cut(int& n,point* p,point l1,point l2,point side) point ppMAXN;int

18、m=0,i;for (i=0;in;i+)if (same_side(pi,side,11,12) ppm+=pi;if(!same_side(pi,p(i+1)%n,11,12)&!(zero(xmu1t(pi,11,12)&zero(xmu1t(p(i+ 1)%n,11,12)ppm+=intersection(pi,p(i+1)%n,11,12); for (n=i=0;im;i+)if (!i|!zero(ppi.x-ppi-1.x)|!zero(ppi.y-ppi-1.y) pn+=ppi;if (zero(pn-1.x-p0.x)&zero(pn-1.y-p0.y)n-;if (n

19、3)n=0;1.5 浮点函数 /浮点几何函数库#inc1ude #define eps 1e-8#define zero(x) (x)0?(x):-(x)eps)struct pointdouble x,y;struct linepoint a,b;/计算 cross product (P1-P0)x(P2-P0)double xmult(point p1,point p2,point p0) return (p1.x-p0.x)*(p2.y-p0.y)-(p2.x-p0.x)*(p1.y-p0.y);double xmult(double x1,double y1,double x2,dou

20、ble y2,double x0,double y0) return (x1-x0)*(y2-y0)-(x2-x0)*(y1-y0);/计算 dot product (P1-P0).(P2-P0)double dmult(point p1,point p2,point p0) return (p1.x-p0.x)*(p2.x-p0.x)+(p1.y-p0.y)*(p2.y-p0.y);double dmult(double x1,double y1,double x2,double y2,double x0,double y0) return (x1-x0)*(x2-x0)+(y1-y0)*(

21、y2-y0);/两点距离double distance(point p1,point p2)return sqrt(p1.x-p2.x)*(p1.x-p2.x)+(p1.y-p2.y)*(p1.y-p2.y);double distance(double x1,double y1,double x2,double y2) return sqrt(x1-x2)*(x1-x2)+(y1-y2)*(y1-y2);/判三点共线int dots_inline(point p1,point p2,point p3) return zero(xmult(p1,p2,p3);int dots_inline(d

22、ouble x1,double y1,double x2,double y2,double x3,double y3) return zero(xmult(x1,y1,x2,y2,x3,y3);/判点是否在线段上,包括端点int dot_online_in(point p,line l) returnzero(xmult(p,l.a,l.b)&(l.a.x-p.x)*(l.b.x-p.x)eps&(l.a.y-p.y)*(l.b.y-p.y)ep s;int dot_online_in(point p,point l1,point l2)return zero(xmult(p,l1,l2)&(

23、l1.x-p.x)*(l2.x-p.x)eps&(l1.y-p.y)*(l2.y-p.y)eps;int dot_online_in(double x,double y,double x1,double y1,double x2,double y2) return zero(xmult(x,y,x1,y1,x2,y2)&(x1-x)*(x2-x)eps&(y1-y)*(y2-y)eps;int same_side(point p1,point p2,point l1,point l2)return xmult(l1,p1,l2)*xmult(l1,p2,l2)eps;/判两点在线段异侧,点在线

24、段上返回0int opposite_side(point p1,point p2,line l)return xmult(l.a,p1,l.b)*xmult(l.a,p2,l.b)-eps;int opposite_side(point p1,point p2,point l1,point l2)return xmult(l1,p1,l2)*xmult(l1,p2,l2)eps)return distance(p,l.a)eps)return distance(p,l1)eps)return distance(p,l.a)eps)return distance(p,l1)distance(p,

25、l2)?distance(p,l1):distance(p,l2);return fabs(xmult(p,l1,l2)/distance(l1,l2);/矢量V以P为顶点逆时针旋转angle并放大scale倍point rotate(point v,point p,double angle,double scale)point ret=p;v.x-=p.x,v.y-=p.y;p.x=scale*cos(angle);p.y=scale*sin(angle);ret.x+=v.x*p.x-v.y*p.y;ret.y+=v.x*p.y+v.y*p.x;return ret;/p 点关于直线 L

26、的对称点ponit symmetricalPointofLine(point p, line L) point p2; double d;d = L.a* L.a+ Lb * L.b;p2.x =(L.b*L.b* p.x - L.a*L.a*p.x -2 *L.a *L.b * p.y -2* L.a* L.c)/p2.y =(L.a*L.a* p.y - L.b*L.b*p.y -2 *L.a *L.b * p.x -2* L.b* L.c)/d;d;return p2;/求两点的平分线line bisector(point& a, point& b) line ab, ans; ab.s

27、et(a, b); double midx = (a.x + b.x)/2.0, midy = (a.y + b.y)/2.0;ans.a = -ab.b, ans.b = -ab.a, ans.c = -ab.b * midx + ab.a * midy; return ans;/ 已知入射线、镜面，求反射线。/ al,bl,cl为镜面直线方程(al x + bl y + cl = 0，下同)系数； a2,b2,c2 为入射光直线方程系数;a,b,c 为反射光直线方程系数./光是有方向的，使用时注意：入射光向量:-b2,a2；反射光向量:b,-a. /不要忘记结果中可能会有negative

28、zerosvoid reflect(double al,double bl,double cl, double a2,double b2,double c2, double &a,double &b,double &c)double n,m;double tpb,tpa; tpb=bl*b2+al*a2; tpa=a2*bl-al*b2; m=(tpb*bl+tpa*al)/(bl*bl+al*al); n=(tpa*bl-tpb*al)/(bl*bl+al*al);if(fabs(al*b2-a2*bl)le-20) a=a2;b=b2;c=c2; return;double xx,yy;

29、/(xx,yy)是入射线与镜面的交点。 xx=(bl*c2-b2*cl)/(al*b2-a2*bl); yy=(a2*cl-al*c2)/(al*b2-a2*bl);a=n;b=-m; c=m*yy-xx*n;l.6 面积#include math.hstruct pointdouble x,y;/计算 cross product (P1-P0)x(P2-P0)double xmult(point p1,point p2,point p0)return (p1.x-p0.x)*(p2.y-p0.y)-(p2.x-p0.x)*(p1.y-p0.y);double xmult(double x1,

30、double y1,double x2,double y2,double x0,double y0) return (x1-x0)*(y2-y0)-(x2-x0)*(y1-y0);/计算三角形面积,输入三顶点double area_triangle(point p1,point p2,point p3)return fabs(xmult(p1,p2,p3)/2;double area_triangle(double x1,double y1,double x2,double y2,double x3,double y3) return fabs(xmult(x1,y1,x2,y2,x3,y3)

31、/2;/计算三角形面积,输入三边长double area_triangle(double a,double b,double c)double s=(a+b+c)/2;return sqrt(s*(s-a)*(s-b)*(s-c);/计算多边形面积,顶点按顺时针或逆时针给出double area_polygon(int n,point* p)double s1=0,s2=0;int i;for (i=0;in;i+) s1+=p(i+1)%n.y*pi.x,s2+=p(i+1)%n.y*p(i+2)%n.x;return fabs(s1-s2)/2;1.7 球面#include const d

32、ouble pi=acos(-1);/计算圆心角lat表示纬度,-90二w=90,lng表示经度/返回两点所在大圆劣弧对应圆心角,0二angle二pidouble angle(double lng1,double lat1,double lng2,double lat2)double dlng=fabs(lng1-lng2)*pi/180;while (dlng=pi+pi) dlng-=pi+pi;if (dlngpi) dlng=pi+pi-dlng;lat1*=pi/180,lat2*=pi/180;return acos(cos(lat1)*cos(lat2)*cos(dlng)+si

33、n(lat1)*sin(lat2);/计算距离,r为球半径double line_dist(double r,double lng1,double lat1,double lng2,double lat2) double dlng=fabs(lng1-lng2)*pi/180;while (dlng=pi+pi) dlng-=pi+pi;if (dlngpi)dlng=pi+pi-dlng;lat1*=pi/180,lat2*=pi/180;return r*sqrt(2-2*(cos(lat1)*cos(lat2)*cos(dlng)+sin(lat1)*sin(lat2);/计算球面距离,

34、r为球半径inline double sphere_dist(double r,double lng1,double lat1,double lng2,double lat2)return r*angle(lng1,lat1,lng2,lat2);/球面反射/SGU110/ HYPERLINK http:/acm.sgu.ru/problem.php?contest=0&problem=110 http:/acm.sgu.ru/problem.php?contest=0&problem=110#include #include const int size = 555;const double

35、 eps = 1e-9;struct point double x, y, z; centre = 0, 0, 0; struct circle point o; double r; cirsize; struct ray point s, dir; l;int n;int dcmp (double x)return x eps;double sqr (double x)return x*x;double dot (point a, point b)return a.x * b.x + a.y * b.y + a.z * b.z;double dis2 (point a, point b)re

36、turn sqr(a.x-b.x) + sqr(a.y-b.y) + sqr(a.z-b.z); double disToLine2 (point a, ray l)/* 点到直线 L 的距离的平方 */point tmp;tmp.x =l.dir.y*(a.z-l.s.z)-l.dir.z*(a.y-l.s.y);tmp.y =-l.dir.x*(a.z-l.s.z)+l.dir.z*(a.x-l.s.x);tmp.z =l.dir.x*(a.y-l.s.y)-l.dir.y*(a.x-l.s.x);return dis2 (tmp,centre)/ dis2(l.dir, centre);

37、/*用解方程(点到圆心的距离为r)法求交点(下面有向量法求交点，两者取其一，都 OK)*/*是向量分量表示发的系数，必须在射线上，故K必须为正，t是交点*/*bool find (circle p， ray l， double &k， point &t)double x = l.s.x - p.o.x， y = l.s.y - p.o.y， z = l.s.z - p.o.z;double a = sqr(l.dir.x) + sqr(l.dir.y) + sqr(l.dir.z);double b = 2 * (x*l.dir.x + y*l.dir.y + z*l.dir.z);doubl

38、e c = x*x + y*y + z*z - p.r*p.r;double det = b*b - 4*a*c;/ printf (a = %lf， b = %lf， c = %lf， a， b， c);/ printf (det = %lfn， det);if (dcmp(det) = -1) return false;k = (-b - sqrt(det) / a / 2;if (dcmp(k) != 1) return false;t.x = l.s.x + k * l.dir.x;t.y = l.s.y + k * l.dir.y;t.z = l.s.z + k * l.dir.z;

39、return true;*/* 用向量法求交点 */bool find (circle p， ray l， double &k， point &t) double h2 = disToLine2 (p.o， l);/ printf (h2 = %lfn， h2);if (dcmp(p.r*p.r - h2) 0) return false;point tmp;tmp.x = p.o.x - l.s.x;tmp.y = p.o.y - l.s.y;tmp.z = p.o.z - l.s.z;if (dcmp(dot(tmp， l.dir) = 0) return false; k = sqrt(

40、dis2(p.o， l.s) - h2) - sqrt(p.r*p.r - h2); double k1 = k / sqrt(dis2(l.dir， centre);t.x = l.s.x + k1 * l.dir.x;t.y = l.s.y + k1 * l.dir.y;t.z = l.s.z + k1 * l.dir.z;return true;/*计算新射线的起点和方向 */void newRay (ray &l， ray l1， point inter)double k = - 2 * dot(l.dir, l1.dir);l.dir.x += l1.dir.x * k;l.dir.

41、y += l1.dir.y * k;l.dir.z += l1.dir.z * k;l.s = inter;/* 返回的是最先相交的球的编号,均不相交,返回-1 */int update ()int sign = -1, i;double k = 1e100, tmp;point inter, t;for (i = 1; i = n; i+) /找到最先相交的球if (!find (ciri, l, tmp, t) continue;if (dcmp (tmp - k) 0) k = tmp, inter = t, sign = i;/ray 变向if (sign = -1) return s

42、ign;ray l1;l1.s = cirsign.o;l1.dir.x = (inter.x - l1.s.x) / cirsign.r;l1.dir.y = (inter.y - l1.s.y) / cirsign.r;l1.dir.z = (inter.z - l1.s.z) / cirsign.r; newRay (l, l1, inter);return sign;int main ()/ freopen (in, r, stdin);int i;scanf (%d, &n);&ciri.r);, &l.dir.y,for (i = 1; i = &ciri.r);, &l.dir.

43、y,scanf (%lf%lf%lf%lf, &ciri.o.x, &ciri.o.y, &ciri.o.z, scanf (%lf%lf%lf%lf%lf%lf, &l.s.x, &l.s.y, &l.s.z, &l.dir.&l.dir.z);for (i = 0; i = 10; i+) /最多输出十次相交的球的编号int sign = update ();if (sign = -1) break;if (i = 0) printf (%d, sign);else if (i 10) printf ( %d, sign);else printf ( etc.);puts ();1.8 三

44、角形#include struct pointdouble x,y;struct linepoint a,b;double distance(point p1,point p2)return sqrt(p1.x-p2.x)*(p1.x-p2.x)+(p1.y-p2.y)*(p1.y-p2.y); point intersection(line u,line v)point ret=u.a;double t=(u.a.x-v.a.x)*(v.a.y-v.b.y)-(u.a.y-v.a.y)*(v.a.x-v.b.x) /(u.a.x-u.b.x)*(v.a.y-v.b.y)-(u.a.y-u.b

45、.y)*(v.a.x-v.b.x);ret.x+=(u.b.x-u.a.x)*t; ret.y+=(u.b.y-u.a.y)*t;return ret;/外心point circumcenter(point a,point b,point c) line u,v;u.a.x=(a.x+b.x)/2;u.a.y=(a.y+b.y)/2;u.b.x=u.a.x-a.y+b.y;u.b.y=u.a.y+a.x-b.x;a.x=(a.x+c.x)/2;a.y=(a.y+c.y)/2;b.x=v.a.x-a.y+c.y;b.y=v.a.y+a.x-c.x;return intersection(u,v)

46、;/内心point incenter(point a,point b,point c) line u,v;double m,n;u.a=a;m=atan2(b.y-a.y,b.x-a.x);n=atan2(c.y-a.y,c.x-a.x);u.b.x=u.a.x+cos(m+n)/2);u.b.y=u.a.y+sin(m+n)/2);a=b;m=atan2(a.y-b.y,a.x-b.x);n=atan2(c.y-b.y,c.x-b.x);b.x=v.a.x+cos(m+n)/2);v.b.y=v.a.y+sin(m+n)/2);return intersection(u,v);/垂心poin

47、t perpencenter(point a,point b,point c)line u,v;u.a=c;u.b.x=u.a.x-a.y+b.y;u.b.y=u.a.y+a.x-b.x;v.a=b;v.b.x=v.a.x-a.y+c.y;v.b.y=v.a.y+a.x-c.x;return intersection(u,v);/重心/到三角形三顶点距离的平方和最小的点/三角形内到三边距离之积最大的点point barycenter(point a,point b,point c)line u,v;u.a.x=(a.x+b.x)/2;u.a.y=(a.y+b.y)/2;u.b=c;v.a.x=

48、(a.x+c.x)/2;v.a.y=(a.y+c.y)/2;v.b=b;return intersection(u,v);/费马点/到三角形三顶点距离之和最小的点point fermentpoint(point a,point b,point c)point u,v;double step=fabs(a.x)+fabs(a.y)+fabs(b.x)+fabs(b.y)+fabs(c.x)+fabs(c.y); int i,j,k;u.x=(a.x+b.x+c.x)/3;u.y=(a.y+b.y+c.y)/3;while (step1e-10)for (k=0;k10;step/=2,k+)fo

49、r (i=-1;i=1;i+)for (j=-1;jdistance(v,a)+distance(v,b)+distance (v,c)u=v;return u;/求曲率半径 三角形内最大可围成面积#include#includeusing namespace std;const double pi=3.14159265358979;int main()double a,b,c,d,p,s,r,ans,R,x,l; int T=0;while(cinabcd&a+b+c+d)T+;l=a+b+c;p=l/2;s=sqrt(p*(p-a)*(p-b)*(p-c);R= s /p;if (d =

50、l) ans = s;else if(2*pi*R=d) ans=d*d/(4*pi);elser = (l-d)/(l/R)-(2*pi);x = r*r*s/(R*R);ans = s - x + pi * r * r;printf(Case %d: %.2lfn,T,ans);return 0;1.9 三维几何/三维几何函数库#include #define eps 1e-8#define zero(x) (x)0?(x):-(x)eps)struct point3double x,y,z;struct line3point3 a,b;struct plane3point3 a,b,c;

51、/计算 cross product U x Vpoint3 xmult(point3 u,point3 v)point3 ret;ret.x=u.y*v.z-v.y*u.z;ret.y=u.z*v.x-u.x*v.z;ret.z=u.x*v.y-u.y*v.x;return ret;/计算 dot product U . Vdouble dmult(point3 u,point3 v)return u.x*v.x+u.y*v.y+u.z*v.z;/矢量差 U - Vpoint3 subt(point3 u,point3 v)point3 ret;ret.x=u.x-v.x;ret.y=u.y-

52、v.y;ret.z=u.z-v.z;return ret;/取平面法向量point3 pvec(plane3 s)return xmult(subt(s.a,s.b),subt(s.b,s.c);point3 pvec(point3 s1,point3 s2,point3 s3)return xmult(subt(s1,s2),subt(s2,s3); /两点距离,单参数取向量大小double distance(point3 p1,point3 p2)returnsqrt(p1.x-p2.x)*(p1.x-p2.x)+(p1.y-p2.y)*(p1.y-p2.y)+(p1.z-p2.z)*(p

53、1.z-p2.z); /向量大小double vlen(point3 p)return sqrt(p.x*p.x+p.y*p.y+p.z*p.z);/判三点共线int dots_inline(point3 p1,point3 p2,point3 p3) return vlen(xmult(subt(p1,p2),subt(p2,p3)eps;/判四点共面int dots_onplane(point3 a,point3 b,point3 c,point3 d) return zero(dmult(pvec(a,b,c),subt(d,a);/判点是否在线段上,包括端点和共线int dot_onl

54、ine_in(point3 p,line3 l) returnzero(vlen(xmult(subt(p,l.a),subt(p,l.b)&(l.a.x-p.x)*(l.b.x-p.x)eps& (l.a.y-p.y)*(l.b.y-p.y)eps&(l.a.z-p.z)*(l.b.z-p.z)eps;int dot_online_in(point3 p,point3 l1,point3 l2)returnzero(vlen(xmult(subt(p,l1),subt(p,l2)&(l1.x-p.x)*(l2.x-p.x)eps& (l1.y-p.y)*(l2.y-p.y)eps&(l1.z

55、-p.z)*(l2.z-p.z)eps&vlen(xmult(subt(p,s.b),subt(p,s.c)eps&vlen(xmult(subt(p,s.c),subt(p,s.a )eps;int dot_inplane_ex(point3 p,point3 s1,point3 s2,point3 s3)return dot_inplane_in(p,s1,s2,s3)&vlen(xmult(subt(p,s1),subt(p,s2)eps& vlen(xmult(subt(p,s2),subt(p,s3)eps&vlen(xmult(subt(p,s3),subt(p,s1) eps;/

56、判两点在线段同侧,点在线段上返回0,不共面无意义int same_side(point3 p1,point3 p2,line3 l)returndmult(xmult(subt(l.a,l.b),subt(p1,l.b),xmult(subt(l.a,l.b),subt(p2,l.b)eps; int same_side(point3 p1,point3 p2,point3 l1,point3 l2)returndmult(xmult(subt(l1,l2),subt(p1,l2),xmult(subt(l1,l2),subt(p2,l2)eps;/判两点在线段异侧,点在线段上返回0,不共面无

57、意义int opposite_side(point3 p1,point3 p2,line3 l)returndmult(xmult(subt(l.a,l.b),subt(p1,l.b),xmult(subt(l.a,l.b),subt(p2,l.b)-epsint opposite_side(point3 p1,point3 p2,point3 l1,point3 l2)returndmult(xmult(subt(l1,l2),subt(p1,l2),xmult(subt(l1,l2),subt(p2,l2)eps;int same_side(point3 p1,point3 p2,poin

58、t3 s1,point3 s2,point3 s3) returndmult(pvec(s1,s2,s3),subt(p1,s1)*dmult(pvec(s1,s2,s3),subt(p2,s1)eps; /判两点在平面异侧,点在平面上返回0int opposite_side(point3 p1,point3 p2,plane3 s)return dmult(pvec(s),subt(p1,s.a)*dmult(pvec(s),subt(p2,s.a)-eps;int opposite_side(point3 p1,point3 p2,point3 s1,point3 s2,point3 s3

59、) returndmult(pvec(s1,s2,s3),subt(p1,s1)*dmult(pvec(s1,s2,s3),subt(p2,s1)-eps; /判两直线平行int parallel(line3 u,line3 v)return vlen(xmult(subt(u.a,u.b),subt(v.a,v.b)eps;int parallel(point3 u1,point3 u2,point3 v1,point3 v2) return vlen(xmult(subt(u1,u2),subt(v1,v2)eps;/判两平面平行int parallel(plane3 u,plane3 v

60、)return vlen(xmult(pvec(u),pvec(v)eps;int parallel(point3 u1,point3 u2,point3 u3,point3 v1,point3 v2,point3 v3) return vlen(xmult(pvec(u1,u2,u3),pvec(v1,v2,v3)eps;/判直线与平面平行int parallel(line3 l,plane3 s)return zero(dmult(subt(l.a,l.b),pvec(s);int parallel(point3 l1,point3 l2,point3 s1,point3 s2,point