VBA中如何编写一个function函数,求出很多结果中的最小值 80

如图片中图形所示,想要知道点A到对面直线的最短距离,其中知道夹角大小,AB,AC的距离计算思路是:直线AB逆时针旋转,每旋转0.001度,就可以得到一个点A到直线的距离m... 如图片中图形所示,想要知道点A到对面直线的最短距离,其中知道夹角大小,AB,AC的距离计算思路是:直线AB逆时针旋转,每旋转0.001度,就可以得到一个点A到直线的距离m,直到把整个角度旋转完,这样就得到很多个m值,想要知道其中最小的m值必须按照这个思路编写function函数,因为这不是简单的求点到直线的距离,而是这个思路 展开
 我来答
上山谷是个村
2017-03-17 · TA获得超过204个赞
知道小有建树答主
回答量:183
采纳率:100%
帮助的人:126万
展开全部

你的这个解决思路是不是过于复杂了,换个思路,我们以B为原点建坐标轴,将旋转0.001度的步长改为横坐标的单位步长移动,逐一计算Ab的距离,放入一维数组比较,输出最小值,这样解决不更简单吗?


追问
我在上面说了,必须按照那个思路走,是因为我遇到的问题比我描述的复杂的多,而我为了描述清楚做了简化。实际上BC之间是一段椭圆曲线,所以你说的那个思路是行不通的。
点A到BC上任意一点的距离我们都知道,所以就是要编写一个循环语句进行比较判断,而最小的那个值就是点A到BC的垂线距离,请大神们帮帮忙,看看这个在VBA中如何编写实现。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式