机械荟萃山庄

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 活动 交友 discuz
查看: 3227|回复: 12

开饭开饭,保证有滋味。

[复制链接]

41

主题

799

帖子

6951

积分

论坛元老

Rank: 8Rank: 8

积分
6951
发表于 2017-2-16 19:44:58 | 显示全部楼层 |阅读模式
合口味的,多咂么会儿。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复

使用道具 举报

41

主题

799

帖子

6951

积分

论坛元老

Rank: 8Rank: 8

积分
6951
 楼主| 发表于 2017-2-16 22:29:28 | 显示全部楼层
光顾着吃了,来喝点东西,保证够年头,等上了头,再侃一会儿。
岁月远去,依稀毛子当年......

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x

评分

参与人数 1威望 +3 收起 理由
刘嵩 + 3

查看全部评分

回复 支持 2 反对 0

使用道具 举报

11

主题

472

帖子

4476

积分

论坛元老

Rank: 8Rank: 8

积分
4476
发表于 2017-2-16 20:42:27 | 显示全部楼层
杆系的稳定吧,不算多难的数学,建议把题目贴出来,这样看着一头雾水。

点评

谢谢指点  发表于 2017-2-17 01:18
大兄弟,这个是典型稳定啊。  发表于 2017-2-16 21:39
我觉得是算挠度的推导方程  发表于 2017-2-16 20:58
吃饭呢,又不是让你跑步爬山,哈哈。  发表于 2017-2-16 20:58
回复 支持 反对

使用道具 举报

13

主题

121

帖子

1429

积分

金牌会员

Rank: 6Rank: 6

积分
1429
发表于 2017-2-17 09:53:01 | 显示全部楼层
饭菜可口,数学煮饭,力学烧菜。

点评

赶明儿,你也上两盘儿。数学不练,不足以集中精神。  发表于 2017-2-17 12:42
回复 支持 反对

使用道具 举报

1523

主题

2057

帖子

1万

积分

版主

Rank: 7Rank: 7Rank: 7

积分
12977
发表于 2017-2-17 11:29:57 | 显示全部楼层
换成软件代码来吧。

北纬33度16分56.72秒 , 东经112度21分04.92秒 ;548厂43楼。
回复 支持 反对

使用道具 举报

41

主题

799

帖子

6951

积分

论坛元老

Rank: 8Rank: 8

积分
6951
 楼主| 发表于 2017-2-17 12:46:51 | 显示全部楼层
groyne 发表于 2017-2-17 11:29
换成软件代码来吧。

好嘞,来了,大侠慢用。
“Involute”,你懂的。
=========================================
Public Function InvFun(ByVal Alpha As Double) As Double

InvFun = Tan(Alpha) - Alpha

End Function



Public Function InvSol(ByVal InvResult As Double) As Double

Dim MinAlphaPrime#, MaxAlphaPrime#, VarAlphaPrime#

Dim Pi As Double

Pi = Atn(1) * 4

MinAlphaPrime = 0: MaxAlphaPrime = Pi

Do While (1)

      VarAlphaPrime = (MinAlphaPrime + MaxAlphaPrime) / 2
      
     If (Abs(InvFun(VarAlphaPrime) - InvResult) < 10 ^ -9) Then

                  InvSol = VarAlphaPrime: Exit Do

      ElseIf (InvFun(VarAlphaPrime) - InvResult < 0) Then

                   MinAlphaPrime = VarAlphaPrime

     Else

                   MaxAlphaPrime = VarAlphaPrime

    End If

Loop

End Function
回复 支持 反对

使用道具 举报

13

主题

121

帖子

1429

积分

金牌会员

Rank: 6Rank: 6

积分
1429
发表于 2017-2-17 20:14:41 | 显示全部楼层
ngsxngtd 发表于 2017-2-17 12:46
好嘞,来了,大侠慢用。
“Involute”,你懂的。
=========================================

呵呵……

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x

点评

哈哈,吹牛瞎侃嘛。你考虑一下“程序”与“软件”的区别,说点体会,越有深度越好。  发表于 2017-2-18 12:24
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|小黑屋|手机版|Archiver|机械荟萃山庄 ( 辽ICP备16011317号-1 )

GMT+8, 2024-12-24 21:03 , Processed in 0.146648 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表