乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 75|回复: 3

怎样用VBA编程实现画一个圆与三个圆相切?

[复制链接]

21

主题

45

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
129
发表于 2013-11-29 14:22:00 | 显示全部楼层 |阅读模式
哪位大侠有现成的代码吗?
回复

使用道具 举报

3

主题

6

帖子

4

银币

初来乍到

Rank: 1

铜币
18
发表于 2014-1-25 19:56:00 | 显示全部楼层
这个问题不复杂,因为根据图中看,是要求求全部是外切的情况。假设
三个圆心为(x1,y1),(x2,y2),(x3,y3),三个半径为r1,r2,r3
设所求的圆心为(x,y),半径为r,那么我们可以有方程:
(x-x1)^2+(y-y1)^2=(r+r1)^2     (1)
(x-x2)^2+(y-y2)^2=(r+r2)^2     (2)
(x-x3)^2+(y-y3)^2=(r+r3)^2     (3)
(1)-(2),我们可以得到一个关于x,y,r的线性方程:
a1*x+b1*y+c1*r+d1=0             (4)
(2)-(3),我们可以得到另外一个关于x,y,r的线性方程:
a2*x+b2*y+c2*r+d2=0             (5)
通过(4)和(5),我们可以将x,y同时表示成r的一次多项式形式,比如
x=u1*r+v1, y=u2*r+v2           (6)
然后将(6)代入(1),消去x,y,可以得到一个关于r的二次方程,也就是r最多有两个解。
实际上,我们可以看出,同三个圆全部外接的情况给出r的一个解,而且r>0,同三个圆全部内接的圆给出另外一个解,只是这时必须有r<0.(所以(r+r1)^2就相当于(|-r|-r1)^2).
也就是说,上面关于r的二次方程至少会有一正一负两个解。
取正的r,代入(6)可以得到x,y的解。而负的r可以得到全部内接情况的解。
回复

使用道具 举报

3

主题

6

帖子

4

银币

初来乍到

Rank: 1

铜币
18
发表于 2014-1-25 19:57:00 | 显示全部楼层
算,比什么都快。。。呵呵,,
回复

使用道具 举报

21

主题

45

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
129
发表于 2014-2-13 08:46:00 | 显示全部楼层
这个贴子终于得到了回复,谢谢bshk1
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-4-20 18:14 , Processed in 1.228316 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表