[求助]：天哪，这种高度能算吗？

幽兰2004

不知道CAD中能不能根据面积算高度。
已知：直径4米，计算占圆85%的部分的高度。。
我也说不明白，画个小图上来，请大家帮帮忙。。

民工

这应该是用几何公式计算
谁的几何好先把公式推导出来
有了公式倒不一定用acad了，Excel也行了。

ahlzl

等等,我来算.
EXCEL方法:先下载这个附件.

ahlzl

然后:
高度为3.17

幽兰2004

谢谢斑竹/
这里怎么这么多好人？解决了我好多好多问题。谢谢大家！！！
可是斑竹我不太明白哪里可以体现我的85%的面积？

ahlzl

最初由 幽兰2004 发布
[B]谢谢斑竹/
这里怎么这么多好人？解决了我好多好多问题。谢谢大家！！！
可是斑竹我不太明白哪里可以体现我的85%的面积？ [/B]

看这:

zxj1120

我能用EXCEL的图表方式表达出你要的结果，可不知道在AUTOCAD中能插入EXCEL的图表吗？并且在EXPLODE后能进行编辑吗？

幽兰2004

还是有一点不明白，表里的B2指的是什么？
太麻烦你了，可是我不懂啊。。
谢谢。

ahlzl

用Excel解决数学问题

（作者：朱颖　2001年01月02日 10:20）

　　在实际学习和工作中我们经常会遇到这样的情况：需要进行工程计算时找不到合适的数学软件，为个小问题编程又不值，手工计算量又太大。如果对计算结果精确度要求不是很高，随处可见的Excel可以帮助我们解决问题。我们不妨选取两道典型例题，讲解用Excel求解的方法。

　　1、用弦割法求方程f(x)=x^3－x－1=0在(1，1.5)内的根。(正确答案为1.324718。)
　　启动Excel，在A1中任意输入一个数值，在B1中输入“=A1＊A1＊A1－A1?1”，回车，出现结果。选中B1，打开工具菜单，选取“单变量求解”，在目标值中输入0，在可变单元格中输入A1，确定后给出答案为1.324719,小数点后5位与答案一致。

　　2、获得曲线方程
　　(1)用扫描仪将文章中的实验曲线扫入计算机，存成位图。
　　(2)获取曲线各点的坐标。将位图导入CorelDraw 8。曲线的坐标原点并不在标尺的(0，0)点上。从标尺的交点沿对角方向拖动鼠标，辅助线呈十字形。将十字形的中心移到曲线坐标原点上，释放鼠标左键，标尺的(0，0)点便落在曲线坐标原点上了。将鼠标箭头放在曲线某个点上，CorelDraw 8左下角的状态栏将出现鼠标相对于标尺(0，0)点的x、y坐标，将坐标记下。
　　需要说明一点，这样取得的坐标值的数值单位是标尺的，而不是曲线本身的。用鼠标量出曲线x、y轴0到1的长度，比如是3.2。
　　(3)获得曲线的方程
　　启动Excel，在A列里输入x坐标值，在B列里输入y坐标值。在C1中输入“=A1/3.2”,回车后得到数值。选中C1 ，鼠标按住右下角的小方块，向下拖动，C列出现A列除以3.2后的数值，这才是曲线上点的x坐标。在D1中输入“=B/3.2”获得曲线上点的y坐标。
　　选中C列和D列，启动图表向导。选择“xy散点图”的“无数据点平滑线散点图”类型，做出曲线。右键点击曲线添加趋势线。在类型选择框中选择趋势线的类型和阶数(或周期)。将选项选择框中的显示公式打开，确定后即可获得曲线的方程。用这种办法得到的方程虽不一定是曲线的原方程，但符合数值计算方法的要求，可以用来做工程计算。
　　其实很多在工作中遇到的数学问题使用Excel可以很轻松地解决。如果本文能够为大家提供一些帮助和启发，将是我莫大的荣幸。

幽兰2004

ahlzl 斑竹，谢谢你的解答，虽然我似懂非懂，可我知道你做的已经最好。
想问问斑竹是做什么工作的？怎么懂得这么多？

cdhua001

除了人类灵魂的工程师，还有什么人这样百问不厌、诲人不倦！

幽兰2004

那是不是教数学的？
幸好他不是我的老师，不然我可惨了。。

hooyd

东哥是园长，斑竹应该算是阿姨了吧，以ahlzl 斑竹深不可测的功力看来，应该是教 大班 的男阿姨 ，呵呵。

ahlzl

我再说几句，这个问题不是CAD的，是个数学问题。首先要有几何知识，会算圆、扇形、弓形和三角形的面积，另外，要解一个方程x-sinx-0.3π=0——不太好解！我在第四贴是用EXCEL的单变量求解的方法来解的（详见第九贴）。工程上精度足够了。
下面是用EXCEL VBA来求的，精度更高！当然没必要了，对大家其他的一些工作也许有点用。

2. 
   
3. Sub ddARC()
   
4. Dim R, a0, a1, fx, flx As Double
   
5. Const PI = 3.1415926535
   
6. R = 2  '圆的半径为2
   
7. 
   
8. '用牛顿切线法解方程　x-sinx-0.3π=0，以确定圆心角a1．
   
9. a0 = 1
   
10. a1 = a0
    
11. 
    
12. Do
    
13. a0 = a1
    
14. fx = a0 - Sin(a0) - 0.3 * PI
    
15. flx = 1 - Cos(a0)   'flx是fx的一阶导数．
    
16. a1 = a0 - fx / flx
    
17. Loop While Abs(a1 - a0) > 0.000000001
    
18. 
    
19. '设置列宽和居中
    
20. Columns("A:E").Select
    
21.     Selection.ColumnWidth = 15
    
22.     Selection.HorizontalAlignment = xlCenter
    
23.    
    
24. '将结果显示在单元格内
    
25. Cells(1, 1) = "圆心角"
    
26. Cells(1, 2) = "整个圆的面积"
    
27. Cells(1, 3) = "大半个圆的面积 "
    
28. Cells(1, 4) = "您要求的高度"
    
29. Cells(1, 5) = "比值"
    
30. Cells(2, 1) = a1
    
31. Cells(2, 2) = R * R * PI
    
32. Cells(2, 3) = Cells(2, 2) - (R * R * PI * a1 / 2 / PI - 0.5 * R * R * Sin(a1))
    
33. Cells(2, 4) = R + R * Cos(a1 / 2)
    
34. Cells(2, 5) = Cells(2, 3) / Cells(2, 2)
    
35. Range("A1").Select
    
36. 
    
37. End Sub

<br /> Sub ddARC()<br /> Dim R, a0, a1, fx, flx As Double<br /> Const PI = 3.1415926535<br /> R = 2  '圆的半径为2<br /> <br /> '用牛顿切线法解方程　x-sinx-0.3π=0，以确定圆心角a1．<br /> a0 = 1<br /> a1 = a0<br /> <br /> Do<br /> a0 = a1<br /> fx = a0 - Sin(a0) - 0.3 * PI<br /> flx = 1 - Cos(a0)   'flx是fx的一阶导数．<br /> a1 = a0 - fx / flx<br /> Loop While Abs(a1 - a0) > 0.000000001<br /> <br /> '设置列宽和居中<br /> Columns("A:E").Select<br />     Selection.ColumnWidth = 15<br />     Selection.HorizontalAlignment = xlCenter<br />     <br /> '将结果显示在单元格内<br /> Cells(1, 1) = "圆心角"<br /> Cells(1, 2) = "整个圆的面积"<br /> Cells(1, 3) = "大半个圆的面积 "<br /> Cells(1, 4) = "您要求的高度"<br /> Cells(1, 5) = "比值"<br /> Cells(2, 1) = a1<br /> Cells(2, 2) = R * R * PI<br /> Cells(2, 3) = Cells(2, 2) - (R * R * PI * a1 / 2 / PI - 0.5 * R * R * Sin(a1))<br /> Cells(2, 4) = R + R * Cos(a1 / 2)<br /> Cells(2, 5) = Cells(2, 3) / Cells(2, 2)<br /> Range("A1").Select<br /> <br /> End Sub

将代码复制到EXCEL的VBA代码窗口中，按F5运行即可。

ahlzl

比较一下两种方法的结果!