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

laotounihao

關(guān)注

eastking1111

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

bbk1

謝謝分享

鋼鐵俠2014

大俠說到的回帖方式就是一種網(wǎng)絡(luò)交流禮儀啊,。如果大家都能注意，大家都會(huì)受益,。
也謝謝大俠的單變量求解,。

點(diǎn)滴積累

大俠，學(xué)習(xí)了,。
關(guān)于中國(guó)文化,，您提到的事情，實(shí)實(shí)在在存在著，也一直困擾著我,。起初我一直懷疑是管理的問題,，現(xiàn)在明白了一點(diǎn)，太深了,。謝謝,。
1 H7 C1 g& ^/ O2 V- X1 Y; ^溫習(xí)并熟練了單變量求解。
附圖為我的計(jì)算結(jié)果：精度好像不太高,，正在想方法解決,。

子子61961

點(diǎn)滴積累 發(fā)表于 2016-2-15 16:27
7 K* Q3 `: t! q8 p, e大俠,，學(xué)習(xí)了,。
關(guān)于中國(guó)文化，您提到的事情,，實(shí)實(shí)在在存在著,，也一直困擾著我。起初我一直懷疑是管理的問 ...

感謝您的認(rèn)真回帖,。
關(guān)于管理方面的問題,，其實(shí)可以考慮為兩個(gè)方面。
5 w$ ~: K: m9 F7 N2 y2 O一方面是從上向下的監(jiān)視和修正,，
# ~2 n/ C$ V1 @" r1 n一方面是從下層開始的自省和改善,。
中國(guó)提到的管理，往往更偏向于前者,，
$ F) \. m/ l8 J而日本的管理,，其實(shí)是后者做得更好一些，
所以在日本,，從上層向下的管理會(huì)輕松一些,。
以前在第二話的文章里面寫過一點(diǎn)，以后考慮也繼續(xù)寫一些,。

關(guān)于單變量求解，它有計(jì)算的設(shè)定,。
在Excel的菜單里面,，工具--〉選項(xiàng)--〉計(jì)算方法--〉反復(fù)計(jì)算
: x8 x; `7 e/ {
4 d! o' i. T0 m+ R5 l
$ O/ X) U' |/ I; x7 s' w1 F（抱歉手邊現(xiàn)在只有日文電腦，可以看里面的漢字參考）
/ h3 J+ N0 `5 A2 h$ i7 J7 P+ B/ U
里面有反復(fù)計(jì)算的設(shè)定值,。最大反復(fù)次數(shù)100次,，變化的最大值 0.001。
5 [' ?9 [, M  j8 `4 h2 ]8 C6 [/ X將這個(gè)次數(shù)改大一些,，或者變化值改的更小一些,，則會(huì)得到更精確一些的結(jié)果。

$ B+ z9 l% N9 Q' O# W3 O. \# y9 O另外，如何選取可變單元格也是一個(gè)因素,。
如果選擇使用弧度,，就是在0.32左右每次變化0.001進(jìn)行求解。
) p: X. B* j8 t7 D) u4 d1 S  Q1 p7 B' Z如果選擇使用角度,，就是在18.8左右每次變化0.001進(jìn)行求解,。
其收斂的速度是不同的。
: K3 |% n1 w% K

點(diǎn)滴積累

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

大俠，中文版,，呵呵

andyany

8 E5 M1 C6 t6 f; ~% O; s
據(jù)我所碰到的,，國(guó)內(nèi)的交流能力都很低。
1
當(dāng)你問問題時(shí),，其實(shí)對(duì)方也不會(huì),，但他會(huì)說”這你都不會(huì)？,！“ 讓人備受羞辱,。
但有段時(shí)間和老外一起工作，老外不會(huì)時(shí),，一般也不會(huì)說”我不會(huì)“導(dǎo)致你干等或自己一通找,，而是說”你找xxx，他會(huì)幫助你“,，給你指路,。讓人倍感溫暖。
2
你覺得國(guó)內(nèi)領(lǐng)導(dǎo)應(yīng)該經(jīng)歷過,，于是去求助,。領(lǐng)導(dǎo)說“這個(gè)你應(yīng)該自己搞定”，你也沒話說,。而你若是求助外方的領(lǐng)導(dǎo),，即便很大的官，也會(huì)給出你答案甚至理由和引申,，讓你佩服得不要不要的,。

408465954

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

ngsxngtd

AC-arctan(AC/80)*80=1是數(shù)學(xué)問題,。
子子大俠既然讀過VB，那么讀VBA代碼就應(yīng)該沒什么困難,，核心是數(shù)值計(jì)算,。
---------------------------------------------------------------------------------------------------------------------------------------
) H5 F- l0 a1 H" G2 e+ L定義待求解函數(shù)：
Public Function QesFun(ByVal Var_AC As Double) As Double

" r, \! U; T' E, f               QesFun = Var_AC - Atn(Var_AC / 80) * 80 - 1

End Function
--------------------------------------------------------------------------------------------------
5 L& E7 M- G" E1.        二分法
1.1  由      Arctan(AC/80)=(AC-1)/80
      知      -PI()/2<(AC-1)/80< PI()/2
6 Z8 |" B& A; u( B* @     即     1 -80*PI()/2<AC<1+ 80*PI()/2
++++++++++++++++++++++++++++++++++++++
1.2定義求解函數(shù)：
Public Function SolFunDic(ByVal MaxLim As Double, ByVal MinLim As Double) As Double
6 L) S$ r, Z( c. @: U
0 Z3 D! p& x4 R  ^: k  p& [Dim Res#, VarAdj#
" v5 I. e6 [* H- n+ ?, [
VarAdj = 10 ^ -6
& z; t+ v( z/ }& \
If QesFun(MinLim + VarAdj) < QesFun(MaxLim - VarAdj) Then

      Do While (1)
2 F& i, c/ p: p  |) `' C) @
              Res = (MaxLim + MinLim) / 2

               If Abs(QesFun(Res)) <= 10 ^ -12 Then

: U) l& W( U) l, \8 S                       SolFunDic = Res: Exit Do

              ElseIf (QesFun(Res) < 0) Then

- \) R  a  h9 L9 ^. r5 M6 \, l                      MinLim = Res

, c, C; V! g7 _" e4 w             Else

) i; G: [0 R) b5 G% Y7 _# p% r" U                     MaxLim = Res

             End If
4 F( }3 o% @6 i+ U  w, Y            
7 F% ?& a) R; o6 H- L6 R, j      Loop
4 }6 R1 D& m. l- Y: {8 b. F7 X
; E+ @" f, ^! q! w9 C0 u4 _# mElse

5 I4 I# H- a3 v% m     Do While (1)
     
               Res = (MaxLim + MinLim) / 2
: t: D5 [# i& S! ?) Y
& O6 q" x# O9 h8 Y+ K$ M             If Abs(QesFun(Res)) <= 10 ^ -12 Then
! Q1 E1 v' K3 Q5 _6 @+ W
8 g: x6 O) r8 D( a' ^2 ?8 @4 \6 l                        SolFunDic = Res: Exit Do
7 b5 ^. w' `0 p+ D
              ElseIf (QesFun(Res) > 0) Then

0 F) a* n, N) |                        MinLim = Res

              Else
" `' W' B# p# j
9 @$ o  Y: ~1 f- l/ ^+ \                         MaxLim = Res
$ P. z7 P9 _. p
6 C# {5 B( `0 f9 ?% O2 e. F; y( h1 X            End If
: j7 E5 `+ b: D+ W7 z( y            
- C5 l- s5 R) K  W0 G  h& a; [      Loop
; Q) p( k$ y" H# b9 c! }  \" }      
End If
End Function
--------------------------------------------------------------
2.        牛頓法
, e  K4 m1 n+ s. W2.1     由      f(AC)＝arctan(AC/80)*80+1-AC
        求導(dǎo)     f(AC)’=1/(1+(AC/80)^2)-1
. r1 l; d2 r. X* M. }9 q        即      AC_1=AC_0- f(AC)/ f(AC)’
--------------------------------------------------------------
, w( w, @" j$ Q1 {7 Q+ n5 S' Y/ f) }2.2定義迭代函數(shù)：
6 a7 o$ L+ ?. ~' [) {Public Function QesFunNew(ByVal Var_AC As Double) As Double
& l9 [* X# z6 X1 H# h+ |
              QesFunNew = Var_AC - (Atn(Var_AC / 80) * 80 + 1 - Var_AC) / (1 / (1 + (Var_AC / 80) ^ 2) - 1)
              
$ o! Q( |3 x: T) |: AEnd Function
5 S. v& L) C+ B$ J---------------------------------------------------------------
2.3定義求解函數(shù)
Public Function SolFunNew(ByVal IniAC As Double) As Double
! u, N) e' K7 R1 F0 b; w" g- j3 y
/ n3 ]" B+ H! J1 iDim Res#
( [+ d, k2 l& O; X  J
) Z  w3 N- Q, j: M4 rDo While (1)
* ?: _3 g1 a, M3 j! [2 M  q
" h. R' k9 N0 s" x! w9 P                  Res = QesFunNew(IniAC)

5 k, u, ?2 l; E2 z                   If Abs(QesFun(Res)) <= 10 ^ -12 Then
$ B: s+ K: A- \. ?5 S$ p! x& s* Y  
; e" ~/ b9 h* E1 z/ I+ ^9 e                                   SolFunNew = Res: Exit Do
% }# y  @  V0 X: [  
                   Else
$ Z. Q4 `# ~) ^8 Q+ R                  
1 o3 |2 @5 j2 l  S% [) a+ {                                     IniAC = Res
                  
, j9 T# E- g8 ^( j& a/ E3 q2 d# p                  End If
: n5 U/ h' y' V2 s9 F7 A
Loop
/ c7 v  E  g# P, f  w5 w: O3 A' `: O! V----------------------------------------------------------------------------------------------------------

! M7 l; ?- K7 U6 W1 |0 p這樣做可能有點(diǎn)麻煩,，但涉及到循環(huán),，迭代時(shí)，可自由調(diào)用自定義VBA函數(shù)和工作表函數(shù)（矩陣計(jì)算連桿機(jī)構(gòu)）,，還可控制輸出表格,，便于插圖。計(jì)算冷卻塔時(shí),，積分得用辛普遜,；解汽水比，得解非線性方程,。對(duì)這些問題,，EXCEL 工作表自身好像很吃力。