;假设1,2,3点已知,且分别为p1,p2,p3。 ;求pc. ;以下为取得各点坐标 (setq x1 (car p1)) ;取得p1横坐标 (setq y1 (cadr p1)) ;取得p1纵坐标 (setq x2 (car p2)) ;取得p2横坐标 (setq y2 (cadr p2)) ;取得p2纵坐标 (setq x3 (car p3)) ;取得p3横坐标 (setq y3 (cadr p3)) ;取得p3纵坐标 ;以下为计算点pc (setq xc (- (+ x1 x2) x3) ) ;计算,xc=x1+x2-x3 (运算顺序由括号内到括号外) (setq yc (- (+ y1 y2) y3) ) ;计算,yc=y1+y2-y3 (setq pc (list xc yc)) ;pc为(xc yc) ;完成 |