求各位高手指点怎样找出其中x坐标最大y坐标也最大的点

huayingjie · 发表于 2004-10-8 10:16:00

在用lisp编程时，比如设定了4个三给坐标点 ysj(200,300,400) ln (800,300 ,400) dz (800, 900,400) zl (200, 600,400) 怎样找出其中x坐标最大y坐标也最大的点!这是小弟做毕业课题时遇到的难题，谢谢大家指点!

meflying · 发表于 2004-10-8 11:57:00

你的点中X最大的点不一定Y就最大啊,怎么找啊?算哪个点呢?

BDYCAD · 发表于 2004-10-8 13:19:00

做了几种, 觉的这种简易点, 你参考下, 我可做了一中午. 休息一会先 ;第二种方法
; 2004-10-08
(SETQ ysj'(200 300 400) ln '(800 300 400) dz '(800 900 400) zl '(200 600 400))
(SETQ Aa (LIST ysj ln dz zl ))
(setq Big-X(CAR (vl-sort Aa (function (lambda (e1 e2)(> (car e1) (car e2)))))))
(setq Big-Y(CAR (vl-sort Aa (function (lambda (e1 e2)(> (caDr e1) (caDr e2)))))))
(COND
((> (CAR Big-X) (CAR Big-Y)) (SETQ DX (CAR Big-X)))
((< (CAR Big-X) (CAR Big-Y)) (SETQ DX (CAR Big-Y)))
((= (CAR Big-X) (CAR Big-Y)) (SETQ DX (CAR Big-Y)))
((> (CADR Big-X) (CADR Big-Y)) (SETQ DY (CADR Big-X)))
((< (CADR Big-X) (CADR Big-Y)) (SETQ DY (CADR Big-Y)))
((= (CADR Big-X) (CADR Big-Y)) (SETQ DY (CADR Big-X))))
(IF(AND ( ASSOC DX (LIST Big-X)) ( ASSOC DY (LIST Big-X)) )
(SETQ BIG Big-X)
(SETQ BIG Big-Y))

huayingjie · 发表于 2004-10-8 14:51:00

真在很是感谢第三楼的帅哥，我先去练习一下看先!

huayingjie · 发表于 2004-10-9 09:14:00

2楼的兄弟能留一个你的电话或者是QQ吗，有个问题想要请教您。我的QQ7436382，

meflying · 发表于 2004-10-9 13:30:00

有问题可以这里问

huayingjie · 发表于 2004-10-9 14:01:00

to 6楼的大哥：怎样用lisp编写一个能解决如下问题的程程序

假设有6个点，任意在一个长方形的4个边上放置，长方形4个角点的坐标已知，6个点的坐标也已知，而且其z坐标相同，想要请问怎样以最短的路程延着长方形的边连接这6个点，连线必须是延着长方形的边布置的，当各点不在同一边上时，要经过一些角点，各点在长方形上的位置是任意摆放的。

这个程序对我来说很重要，麻烦费费神，小弟感激不尽!

meflying · 发表于 2004-10-9 15:53:00

既然是一个程序,就得包括数据的输入和输出,已知什么求什么.

你的这些已知量如何输入?长方形只需要知道两个对角点就可以确定,你知道4个点,已知量有多余.另外,这个长方形是图形中一个实在的对象,还是只是由已知的顶点假想的一个长方形?最后输出是什么?是用线段按要求连起来,还是返回按顺序的点?

huayingjie · 发表于 2004-10-9 19:26:00

其实我的意思是这个长方形的四个边就相当于一个长方形房间的四面的四堵墙，6个点就相当于在这四面墙上任意布置，但这6个点的高度是一样的。现在想做的就是找一个能够延着墙把这6个点连接起来且路程最短的方法，其实也就是把这6个点连接成一个开口的长方形，但路程还要最短。我不知道我说明白了没有，如果可以的话可以把你的固定电话给我，然后再详细的说，这个问题的解决对我来说真的很重要，求你帮帮忙!

账号		自动登录	找回密码
密码			注册