!!!绘制特殊图--恳请斑竹及各位大虾帮忙解决!!!

董堃

linhui12发表于2008-5-10 13:12:0040917

如果只是绘制图上的东西，就太简单了

程序中没有见你输入A、B、C、D四点

linhui12

本人能力有限,写不下了,我的思路是这样的:

1.由A,B,C,D四个坐标通过图2中的公式计算得出1,L2,L3值

2.由A,B,C,D四个坐标通过图3中的公式计算得出:角α1,α2值

3.通过图4公式计算得出:角θ值

4.通过图5公式算出旋转方向:负值或正值或0

最后执行绘图,顺序如下:Y方向绘制L1长的线-->绘制与L1成α1夹角并长度等于L2的线(角θ用来判断L2朝向,正->左,负->右)-->绘制与L2成α2夹角并长度等于L3的线-->在L1与L2交点处和L2与L3交点处插入弯头(程序见7楼)-->执行完毕退出程序.

我不会编程,这个思路不知是否可行,老觉得有点乱,不是很清晰,哪位大虾帮忙编编看.谢谢各位了

董堃

实际上，只要得出L1,L2,L3值，就能完成绘制了，

用不了那么复杂。

董堃

如果用三维点就应该绘制三维图了

linhui12

因为是空间点,L1跟L3间是有可能有高差的,况且L3有可能是在L1的左边,也有可能在L1的右边,所以我才找了那么些公式.

小弟愚钝,还请"董堃"兄赐教,若是有好思路恳请您给个方案,编个LISP帖上来.谢谢

xxsheng

l1 l2 l3查看函数distance,
x1*x2+y1*y2+z1*z2就是向量的点积
(apply '+ (mapcar '* A B))
反余弦函数查找一下,很多的,,,,,,,
那个行列式其实就是向量的三重积或者根据行列式直接展开或者直接化为两个向量计算叉乘.

linhui12

楼上兄弟,既然你已经有思路了,劳烦你写个LISP出来好吗.不是我懒不肯自己写,实在是不懂编程啊.此程序对我很重要的,麻烦了.谢谢

linhui12

感觉被忽略了,请大家出手相助啊.......

linhui12

怎么没人接棒啊,继续求助......