轮廓点删减，用于缩减计算量，非拟合方法

明天自然醒

将若干个点缩减。
例如可以将一个矩形缩减成四个顶点。

  

子程序名	返回值类型	公开	备 注
轮廓点删减
参数名	类 型	参考	可空	数组	备 注
轮廓点	点坐标

变量名	类 型	静态	数组	备 注
新轮廓点	点坐标		0
局_flag	逻辑型
当前直线	直线方程
新索引	整数型		0
head	整数型
i	整数型

重定义数组 (新索引, 假, 取数组成员数 (轮廓点))
head ＝ 1
新索引 [head] ＝ 1
变量循环首 (2, 取数组成员数 (轮廓点), 1, i)
如果 (局_flag ＝ 假)
局_flag ＝ 真
当前直线 ＝ 求平面直线方程 (轮廓点 [i － 1], 轮廓点 [i])
head ＝ head ＋ 1  ' 新增
新索引 [head] ＝ i
如果 (点在直线上 (当前直线, 轮廓点 [i]))
新索引 [head] ＝ i  ' 覆写
当前直线 ＝ 求平面直线方程 (轮廓点 [i － 1], 轮廓点 [i])
head ＝ head ＋ 1  ' 新增
新索引 [head] ＝ i


变量循环尾 ()
重定义数组 (新索引, 真, head)
重定义数组 (新轮廓点, 假, head)
计次循环首 (head, i)
新轮廓点 [i] ＝ 轮廓点 [新索引 [i]]
计次循环尾 ()
轮廓点 ＝ 新轮廓点

子程序名	返回值类型	公开	备 注
点在直线上	逻辑型
参数名	类 型	参考	可空	数组	备 注
直线方程	直线方程
点	点坐标

返回 (直线方程.a × 点.x ＋ 直线方程.b × 点.y ＋ 直线方程.c ＝ 0)

子程序名	返回值类型	公开	备 注
求平面直线方程	直线方程		求经过点1和点2的直线方程
参数名	类 型	参考	可空	数组	备 注
点1	点坐标
点2	点坐标

如果 (点1.x ＝ 点2.x 且 点1.y ＝ 点2.y)
返回 (制直线方程 (, , ))
如果 (点1.x ＝ 点2.x 且 点1.y ≠ 点2.y)
返回 (制直线方程 (1, 0, －点1.x))
如果 (点1.x ≠ 点2.x 且 点1.y ＝ 点2.y)
返回 (制直线方程 (0, 1, －点1.y))
如果真 (点1.x ≠ 点2.x 且 点1.y ≠ 点2.y)
返回 (制直线方程 (点2.y － 点1.y, 点1.x － 点2.x, 点1.y �� (点2.x － 点1.x) － 点1.x �� (点2.y － 点1.y)))



返回 (制直线方程 (, , ))

子程序名	返回值类型	公开	备 注
制直线方程	直线方程
参数名	类 型	参考	可空	数组	备 注
a	双精度小数型
b	双精度小数型
c	双精度小数型

变量名	类 型	静态	数组	备 注
返回值	直线方程

返回值.a ＝ a
返回值.b ＝ b
返回值.c ＝ c
返回 (返回值)

.版本 2<br /> <br /> .子程序 轮廓点删减, , 公开<br /> .参数 轮廓点, 点坐标, 参考 数组<br /> .局部变量 新轮廓点, 点坐标, , "0"<br /> .局部变量 局_flag, 逻辑型<br /> .局部变量 当前直线, 直线方程<br /> .局部变量 新索引, 整数型, , "0"<br /> .局部变量 head, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 重定义数组 (新索引, 假, 取数组成员数 (轮廓点))<br /> head ＝ 1<br /> 新索引 [head] ＝ 1<br /> .变量循环首 (2, 取数组成员数 (轮廓点), 1, i)<br />     .如果 (局_flag ＝ 假)<br />         局_flag ＝ 真<br />         当前直线 ＝ 求平面直线方程 (轮廓点 [i － 1], 轮廓点 <i>)<br />         head ＝ head ＋ 1  ' 新增<br />         新索引 [head] ＝ i<br />     .否则<br />         .如果 (点在直线上 (当前直线, 轮廓点 <i>))<br />             新索引 [head] ＝ i  ' 覆写<br />         .否则<br />             当前直线 ＝ 求平面直线方程 (轮廓点 [i － 1], 轮廓点 <i>)<br />             head ＝ head ＋ 1  ' 新增<br />             新索引 [head] ＝ i<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 重定义数组 (新索引, 真, head)<br /> 重定义数组 (新轮廓点, 假, head)<br /> .计次循环首 (head, i)<br />     新轮廓点 <i> ＝ 轮廓点 [新索引 <i>]<br /> .计次循环尾 ()<br /> 轮廓点 ＝ 新轮廓点<br /> <br /> .子程序 点在直线上, 逻辑型<br /> .参数 直线方程, 直线方程<br /> .参数 点, 点坐标<br /> <br /> 返回 (直线方程.a × 点.x ＋ 直线方程.b × 点.y ＋ 直线方程.c ＝ 0)<br /> <br /> .子程序 求平面直线方程, 直线方程, , 求经过点1和点2的直线方程<br /> .参数 点1, 点坐标<br /> .参数 点2, 点坐标<br /> <br /> .如果 (点1.x ＝ 点2.x 且 点1.y ＝ 点2.y)<br />     返回 (制直线方程 (, , ))<br /> .否则<br />     .如果 (点1.x ＝ 点2.x 且 点1.y ≠ 点2.y)<br />         返回 (制直线方程 (1, 0, －点1.x))<br />     .否则<br />         .如果 (点1.x ≠ 点2.x 且 点1.y ＝ 点2.y)<br />             返回 (制直线方程 (0, 1, －点1.y))<br />         .否则<br />             .如果真 (点1.x ≠ 点2.x 且 点1.y ≠ 点2.y)<br />                 返回 (制直线方程 (点2.y － 点1.y, 点1.x － 点2.x, 点1.y × (点2.x － 点1.x) － 点1.x × (点2.y － 点1.y)))<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> 返回 (制直线方程 (, , ))<br /> <br /> <br /> .子程序 制直线方程, 直线方程<br /> .参数 a, 双精度小数型, 可空<br /> .参数 b, 双精度小数型, 可空<br /> .参数 c, 双精度小数型, 可空<br /> .局部变量 返回值, 直线方程<br /> <br /> 返回值.a ＝ a<br /> 返回值.b ＝ b<br /> 返回值.c ＝ c<br /> 返回 (返回值)

asd2168972

@明天自然醒    大佬
怎么能实现这样的结果

asd2168972

效果图呢哥哥！！！

renhairui3

没看懂，但是感觉很厉害

sinewtec

一脸懵逼中。。。。

winxsj

一脸懵逼中。。。。