在日本做機(jī)械設(shè)計(jì)的感受23：一道計(jì)算題的回帖

laotounihao

關(guān)注

eastking1111

非常感謝你的分享，上來(lái)就學(xué)了一手單變量求解�。�！0.329784444989256

bbk1

謝謝分享

鋼鐵俠2014

大俠說(shuō)到的回帖方式就是一種網(wǎng)絡(luò)交流禮儀啊。如果大家都能注意，大家都會(huì)受益。
" |/ D' @( m! g6 h! V也謝謝大俠的單變量求解。

點(diǎn)滴積累

大俠，學(xué)習(xí)了。
" ]4 a- |# j1 ?- n2 l+ |關(guān)于中國(guó)文化，您提到的事情，實(shí)實(shí)在在存在著，也一直困擾著我。起初我一直懷疑是管理的問(wèn)題，現(xiàn)在明白了一點(diǎn)，太深了。謝謝。
' I% c& B) n1 f& A9 |$ J$ D6 c溫習(xí)并熟練了單變量求解。
附圖為我的計(jì)算結(jié)果：精度好像不太高，正在想方法解決。

子子61961

點(diǎn)滴積累 發(fā)表于 2016-2-15 16:27
大俠，學(xué)習(xí)了。
. Q% b# W; |! ?2 T: \  B關(guān)于中國(guó)文化，您提到的事情，實(shí)實(shí)在在存在著，也一直困擾著我。起初我一直懷疑是管理的問(wèn) ...

3 |! {) f  m- y% ^6 F: j: ^0 {感謝您的認(rèn)真回帖。
關(guān)于管理方面的問(wèn)題，其實(shí)可以考慮為兩個(gè)方面。
一方面是從上向下的監(jiān)視和修正，
8 w) k2 c! f# k  C# G一方面是從下層開(kāi)始的自省和改善。
中國(guó)提到的管理，往往更偏向于前者，
2 q9 ^: [1 H- U1 Z8 ]9 y9 q而日本的管理，其實(shí)是后者做得更好一些，
所以在日本，從上層向下的管理會(huì)輕松一些。
$ V$ o- l. v3 v" K' s9 v  \以前在第二話的文章里面寫(xiě)過(guò)一點(diǎn)，以后考慮也繼續(xù)寫(xiě)一些。
( K- @" Y$ H, u
$ T. k4 z0 I: G: @關(guān)于單變量求解，它有計(jì)算的設(shè)定。
: o4 ^! k  u" Z* _在Excel的菜單里面，工具--〉選項(xiàng)--〉計(jì)算方法--〉反復(fù)計(jì)算
8 p% K1 _; _5 `1 D- w1 W
5 s$ d6 c8 [" B  B! I
. f6 E# g0 w) U! l  [（抱歉手邊現(xiàn)在只有日文電腦，可以看里面的漢字參考）

里面有反復(fù)計(jì)算的設(shè)定值。最大反復(fù)次數(shù)100次，變化的最大值 0.001。
將這個(gè)次數(shù)改大一些，或者變化值改的更小一些，則會(huì)得到更精確一些的結(jié)果。

6 T2 M; Q! u; c+ K" q6 v另外，如何選取可變單元格也是一個(gè)因素。
* `; {  ^8 |1 \& l3 O7 `; x如果選擇使用弧度，就是在0.32左右每次變化0.001進(jìn)行求解。
# `% `7 y0 h8 @, w: R! n, u1 r如果選擇使用角度，就是在18.8左右每次變化0.001進(jìn)行求解。
其收斂的速度是不同的。
) _3 a& k; z! E- u. r

點(diǎn)滴積累

子子61961 發(fā)表于 2016-2-15 15:47
" \3 P0 t0 m1 T4 i3 o+ A感謝您的認(rèn)真回帖。
關(guān)于管理方面的問(wèn)題，其實(shí)可以考慮為兩個(gè)方面。
一方面是從上向下的監(jiān)視和修正，

7 n, ~  G# X) c) k$ y/ s' U1 s6 W大俠，中文版，呵呵

andyany

/ C0 c; t5 V; X% _
7 r% B) k' x, w. i; S- ]據(jù)我所碰到的，國(guó)內(nèi)的交流能力都很低。
: n# H& V& w2 ~* q4 a0 q1
當(dāng)你問(wèn)問(wèn)題時(shí)，其實(shí)對(duì)方也不會(huì)，但他會(huì)說(shuō)”這你都不會(huì)？！“ 讓人備受羞辱。
但有段時(shí)間和老外一起工作，老外不會(huì)時(shí)，一般也不會(huì)說(shuō)”我不會(huì)“導(dǎo)致你干等或自己一通找，而是說(shuō)”你找xxx，他會(huì)幫助你“，給你指路。讓人倍感溫暖。
# J4 E2 ]5 S3 s9 C2
* M; f& O, q2 ^你覺(jué)得國(guó)內(nèi)領(lǐng)導(dǎo)應(yīng)該經(jīng)歷過(guò)，于是去求助。領(lǐng)導(dǎo)說(shuō)“這個(gè)你應(yīng)該自己搞定”，你也沒(méi)話說(shuō)。而你若是求助外方的領(lǐng)導(dǎo)，即便很大的官，也會(huì)給出你答案甚至理由和引申，讓你佩服得不要不要的。

408465954

我想樓主想說(shuō)的是 不要想著什么工具 軟件 用筆頭算吧��！ 這是一個(gè)做設(shè)計(jì)人員對(duì)基本定理規(guī)律的理解 這是根本 不要太依賴(lài)工具軟件 否則就失去了根本的理論基礎(chǔ) 這樣談何開(kāi)發(fā)

ngsxngtd

AC-arctan(AC/80)*80=1是數(shù)學(xué)問(wèn)題。
2 B; \# A& G% K% N子子大俠既然讀過(guò)VB，那么讀VBA代碼就應(yīng)該沒(méi)什么困難，核心是數(shù)值計(jì)算。
---------------------------------------------------------------------------------------------------------------------------------------
/ p% H) o( E9 {$ V3 A- T7 q" n定義待求解函數(shù)：
Public Function QesFun(ByVal Var_AC As Double) As Double

               QesFun = Var_AC - Atn(Var_AC / 80) * 80 - 1

End Function
4 f* H( Y- T/ ^# I: i--------------------------------------------------------------------------------------------------
4 P: [: b4 z' j) p% J0 X1.        二分法
! D. A3 q7 f! S. @( C) Q. P1.1  由      Arctan(AC/80)=(AC-1)/80
5 h: R+ g& u" n      知      -PI()/2<(AC-1)/80< PI()/2
     即     1 -80*PI()/2<AC<1+ 80*PI()/2
++++++++++++++++++++++++++++++++++++++
/ Q" _5 f8 c9 P1.2定義求解函數(shù)：
9 ]8 i: r. e- }- lPublic Function SolFunDic(ByVal MaxLim As Double, ByVal MinLim As Double) As Double
$ }. H' x1 l6 k' k
Dim Res#, VarAdj#
( d/ t+ D3 g  f  g6 R1 `
VarAdj = 10 ^ -6

If QesFun(MinLim + VarAdj) < QesFun(MaxLim - VarAdj) Then
! j" \# [# r0 e9 _  U
      Do While (1)
4 B. s( G5 t, \% V: D6 I( E* [
; S% |7 \3 _: S4 W              Res = (MaxLim + MinLim) / 2

               If Abs(QesFun(Res)) <= 10 ^ -12 Then
' v/ n% J. x3 x, k! c" D  Z( B
' ~. s) r, K$ o6 e# `' x                       SolFunDic = Res: Exit Do

              ElseIf (QesFun(Res) < 0) Then
7 Y7 p0 H* E  m2 l
                      MinLim = Res

* r. @8 r( y* b1 }4 d7 K             Else

" Y* l7 s' [- W4 `0 N9 `                     MaxLim = Res

/ j# y8 {3 N+ v; o, J! r             End If
            
- ^2 D% [7 \; G7 x6 N      Loop
% C% d3 A* J. Z( q5 S4 V2 G2 {
- G, l/ p& e9 ~* ?7 hElse

     Do While (1)
     
               Res = (MaxLim + MinLim) / 2
8 h2 k! P8 A0 W3 S
7 u0 P& I/ C" G4 e             If Abs(QesFun(Res)) <= 10 ^ -12 Then
3 {' Y/ r' J7 E7 P
                        SolFunDic = Res: Exit Do

$ V# i. R! b: [& N8 U2 l% ^              ElseIf (QesFun(Res) > 0) Then
& B/ ]$ j3 f' @# `% x6 B0 ~
6 s' D  A( e- V2 c! |+ \                        MinLim = Res
4 o2 A  k8 `$ p' ~4 o# ^5 d
              Else

                         MaxLim = Res
- r& d' o. ?' m9 G
/ W4 p7 p; j. [+ w            End If
            
, U3 F+ j$ _, X% J$ ~      Loop
      
End If
End Function
--------------------------------------------------------------
2.        牛頓法
. M; v( x% i8 t- f% U% B2.1     由      f(AC)＝arctan(AC/80)*80+1-AC
        求導(dǎo)     f(AC)’=1/(1+(AC/80)^2)-1
        即      AC_1=AC_0- f(AC)/ f(AC)’
3 ~; e& R4 K9 ?8 r( w--------------------------------------------------------------
" Z. m" Y. ]2 i; K0 t; ?2.2定義迭代函數(shù)：
Public Function QesFunNew(ByVal Var_AC As Double) As Double

, n5 w4 h1 b% M0 K4 L7 C4 n              QesFunNew = Var_AC - (Atn(Var_AC / 80) * 80 + 1 - Var_AC) / (1 / (1 + (Var_AC / 80) ^ 2) - 1)
6 h+ Z) {  w) P* d+ G7 w- ]              
3 [' z8 h# Q6 h( V# M# iEnd Function
---------------------------------------------------------------
  t: D$ X0 P' {* k. e4 k$ w! j2.3定義求解函數(shù)
Public Function SolFunNew(ByVal IniAC As Double) As Double
. H% H5 f4 {, Z8 |/ X. t+ G
Dim Res#
' u* `5 q1 x0 Y6 m+ m8 ^
Do While (1)

                  Res = QesFunNew(IniAC)

                   If Abs(QesFun(Res)) <= 10 ^ -12 Then
  
5 z3 q- ]- r( F$ U                                   SolFunNew = Res: Exit Do
" k" p( a% v& Z8 e0 O- e; R  
                   Else
                  
                                     IniAC = Res
                  
" i# W; c7 k+ p2 I" P: x                  End If

Loop
----------------------------------------------------------------------------------------------------------
+ C) Z5 T* J  s
) c% D0 G+ w$ o/ a' S6 k: d  t( ?" L7 `6 v這樣做可能有點(diǎn)麻煩，但涉及到循環(huán)，迭代時(shí)，可自由調(diào)用自定義VBA函數(shù)和工作表函數(shù)（矩陣計(jì)算連桿機(jī)構(gòu)），還可控制輸出表格，便于插圖。計(jì)算冷卻塔時(shí)，積分得用辛普遜；解汽水比，得解非線性方程。對(duì)這些問(wèn)題，EXCEL 工作表自身好像很吃力。