[原创]逗得小朋友一乐的用EXCEL画图案的小游戏？（附图 6P ）

longmeng

真是什么都有人想得出来。

没有做不到，只有想不到!

yqf353246115

是啊。。。怎么画出来的啊。。。。教教我。。。好不？

ahuun

既然大家有兴趣，我就稍稍的解释公式的推导过程吧，至于由公式到产生数据，及由数据而后

用到的图表功能产生图案，就不在此说了(图见25、26楼)。

公式的推导过程为：以大圆的圆心为坐标轴的原点，假设起始位置时小圆圆心与 A 点均在 X

轴的正半轴上，此时大、小圆的啮合点为 p ，当小圆运动起来，啮合点变动到 q 时，计算 XA

、YA
先计算小圆的圆心坐标：

XO2=(d1-d2)*cos(D/d1)
YO2=(d1-d2)*sin(D/d1)

然后计算点 A 以小圆的圆心为原点的坐标：

XO2A=l*cos(D/d2-D/d1)=l*cos(D/d1-D/d2)，
YO2A=-l*sin(D/d2-D/d1)=l*sin(D/d1-D/d2)；

结果有

XA=XO2+XO2A=(d1-d2)*cos(D/d1)+l*cos(D/d1-D/d2)，
YA=YO2+YO2A=(d1-d2)*sin(D/d1)+l*sin(D/d1-D/d2)

XA 为点 A 的 X 坐标，
YA为点 A 的 Y 坐标，
d1为大圆半径，
d2为小圆半径，
D 为大小圆的啮合距离，
l 为小圆上的点 A 到小圆圆心的距离
这样当 d1、d2、l 一定的情况下，XA 与 YA 的值随着 D 值的变化而变化。我是在 SHEET1 

中生成 XA、YA 的数据，然后在 SHEET2 中利用 EXCEL 的图表功能生成与之对应的图案了。

我又增加了窗体中的滚动条控件来改变下列参数的值： d1、d2、l、步进值（即产生数据时相

临两个 D 值的差，效果是当其由 1、2、3 等不断加大时，可以看见图形是如何一点点画出来

得）、起步值（即假定在起始的时候，三个点：大圆、小圆的圆心以及 点 A 在一条直线上，

但与 X 轴成一个角度，效果是该值变动时可以使图案旋转起来）

(图见27楼，程序见28楼）

[此贴子已经被作者于2008-3-4 12:21:38编辑过]

ahuun

ahuun

ahuun

ahuun

2oeszENV.rar (39.74 KB, 下载次数: 125)

2008-3-4 12:17 上传

点击文件名下载附件
[原创]逗得小朋友一乐的用EXCEL画图案的小游戏？（附图 6P ）

980628RHK

好玩,我和我家孩子都玩了

de3932

真有意思，学一会儿。

和平饭店

楼主厉害啊，学习了