感恩！
此帖开阔了小弟的眼界，同时也认识到了自身的不足。
本帖最后由 shouce 于 2016-2-15 23:17 编辑
matlab 解法
>> syms x
>> solve(x-80*atan(x/80)-1)
ans =
27.383031676815892194925084097779
假如80用符号a表示时，就没法解了 。x-80*atan(x/80)=1是超越方程 只能用数值解法
楼上好几位大侠，学习了！
ngsxngtd 发表于 2016-2-15 20:51 static/image/common/back.gif
AC-arctan(AC/80)*80=1是数学问题。
子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
谢谢您的认真编程和回复。
VBA我也是非常喜欢的。
我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。
看你的程序真是漂亮多了，佩服一下。
在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。
我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。
Dim A as Double
Dim B as Double
Dim Sum as Double
A=Cells(6,3)
B=Cells(7,3)
For I =1 to 100
blabla.......
Next
Cells(8,3)=Sum
基本是这个水平。见笑了。
您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。
看您发的图片数据，像是一个凸轮的计算。
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。
我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。
不过我做的不太好，勉强毕业而已。遥远的回忆。
再次感谢您的回复。
ngsxngtd 发表于 2016-2-15 19:51 static/image/common/back.gif
AC-arctan(AC/80)*80=1是数学问题。
子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
大侠，您很厉害，谢谢您的分享。
andyany 发表于 2016-2-15 18:06 static/image/common/back.gif
据我所碰到的，国内的交流能力都很低。
1
当你问问题时，其实对方也不会，但他会说”这你都不会？！“ 让 ...
谢谢andy的认真回帖。使我对国内情况又多一些了解。
当一方提问，另一方回答的时候，
回答的内容简略一些，就只是停留于“炫耀自己知道”或者“贬低对方不知道”的地步，
我有时也会遇到上面这样的对话。
而好一点的对话是，达到一个目的是“让提问方知道想要的东西”，这是比较好的。
回答时的思维方式出发点不同，表达方式就会有所不同。
这个出发点，也就是所谓的“态度”。
408465954 发表于 2016-2-15 19:15 static/image/common/back.gif
我想楼主想说的是 不要想着什么工具 软件 用笔头算吧！！ 这是一个做设计人员对基本定理规律的理解 这是根本 ...
此言差矣，这个问题的核心是这是一个非线性方程，只有数值解，解析解基本不可能得到，手工算的话也只是硬算。所以正确使用软件和编程才是此类问题的出路。
子子61961 发表于 2016-2-16 09:10 static/image/common/back.gif
谢谢andy的认真回帖。使我对国内情况又多一些了解。
当一方提问，另一方回答的时候，
看大侠的回复其实是一种享受
不过我在和别人交流的时候，尽量都说得很浅显，但是任然会碰到无法沟通的问题，确实很苦恼
知识面广度的不同，造就在一个问题上不同的看法而无法深入的协作
深入研究是很好的一个方向，但是日常工作特别是常规工作，其实更看重一种所谓经验或者见识的广度
不知道日本的年轻人，在知识的专业性和广度上是怎么来结合的
不错。。。。。。。。。
活到老，学到老了！谢谢施主！