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

laotounihao

關(guān)注

eastking1111

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

bbk1

謝謝分享

鋼鐵俠2014

大俠說(shuō)到的回帖方式就是一種網(wǎng)絡(luò)交流禮儀啊,。如果大家都能注意，大家都會(huì)受益,。
% e1 Q8 ~  U" a: [- E9 z2 G也謝謝大俠的單變量求解,。

點(diǎn)滴積累

大俠，學(xué)習(xí)了,。
關(guān)于中國(guó)文化,，您提到的事情，實(shí)實(shí)在在存在著,，也一直困擾著我。起初我一直懷疑是管理的問(wèn)題,，現(xiàn)在明白了一點(diǎn),，太深了。謝謝,。
溫習(xí)并熟練了單變量求解,。
: H, I" Q3 M8 w( X% Z" `9 `附圖為我的計(jì)算結(jié)果：精度好像不太高,，正在想方法解決。

子子61961

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

  v  }/ U) H! |) ]) E4 {7 m. X感謝您的認(rèn)真回帖,。
* @* m- G% O+ k1 G關(guān)于管理方面的問(wèn)題，其實(shí)可以考慮為兩個(gè)方面,。
一方面是從上向下的監(jiān)視和修正,，
一方面是從下層開(kāi)始的自省和改善。
; m% |- i( L* r0 x7 M中國(guó)提到的管理,，往往更偏向于前者,，
/ z# Y9 d" X& K5 [; [1 N而日本的管理，其實(shí)是后者做得更好一些,，
所以在日本,，從上層向下的管理會(huì)輕松一些。
以前在第二話的文章里面寫(xiě)過(guò)一點(diǎn),，以后考慮也繼續(xù)寫(xiě)一些,。
1 B1 E. Y: q: c: {: b) I# h
關(guān)于單變量求解，它有計(jì)算的設(shè)定。
7 ]1 _  x' u9 d9 p/ b3 Q# F在Excel的菜單里面,，工具--〉選項(xiàng)--〉計(jì)算方法--〉反復(fù)計(jì)算
5 i7 a. I6 i: i$ u8 W$ p7 Z3 x# |
1 Y6 q3 ^: O" f( T' j" s8 T. q
% C6 {7 t4 r- V（抱歉手邊現(xiàn)在只有日文電腦,，可以看里面的漢字參考）
6 X! d  i( D( ]) |/ h6 t* j
里面有反復(fù)計(jì)算的設(shè)定值。最大反復(fù)次數(shù)100次,，變化的最大值 0.001,。
% C1 I; n8 w- W. R9 u( {2 n: Z將這個(gè)次數(shù)改大一些，或者變化值改的更小一些,，則會(huì)得到更精確一些的結(jié)果,。
: Q2 c; P# V) z
另外，如何選取可變單元格也是一個(gè)因素,。
' R2 [2 X. d9 }$ ~+ g; W7 n如果選擇使用弧度,，就是在0.32左右每次變化0.001進(jìn)行求解。
) ]4 i- G) P% U如果選擇使用角度,，就是在18.8左右每次變化0.001進(jìn)行求解,。
% P# u! G$ ~- g其收斂的速度是不同的。
) U) I7 f, M6 L. s+ E

點(diǎn)滴積累

子子61961 發(fā)表于 2016-2-15 15:47
/ T) P0 i0 O) g4 u感謝您的認(rèn)真回帖,。
關(guān)于管理方面的問(wèn)題，其實(shí)可以考慮為兩個(gè)方面,。
! B! X5 ?# ]  P3 K+ O一方面是從上向下的監(jiān)視和修正，

大俠,，中文版,，呵呵

andyany

: z  A5 N% I/ q# o  c; S
據(jù)我所碰到的，國(guó)內(nèi)的交流能力都很低,。
1
' ]( t$ [  H9 b) Y當(dāng)你問(wèn)問(wèn)題時(shí),，其實(shí)對(duì)方也不會(huì)，但他會(huì)說(shuō)”這你都不會(huì),？,！“ 讓人備受羞辱。
5 c# p- _9 [8 J; Q2 ~  y( _6 C但有段時(shí)間和老外一起工作,，老外不會(huì)時(shí),，一般也不會(huì)說(shuō)”我不會(huì)“導(dǎo)致你干等或自己一通找，而是說(shuō)”你找xxx,，他會(huì)幫助你“,，給你指路。讓人倍感溫暖。
$ c  p6 j: r( d/ s0 O7 l( c$ y2
8 t3 C( S( C# K你覺(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ī)律的理解 這是根本 不要太依賴工具軟件 否則就失去了根本的理論基礎(chǔ) 這樣談何開(kāi)發(fā)

ngsxngtd

AC-arctan(AC/80)*80=1是數(shù)學(xué)問(wèn)題。
; Z3 Y( `+ W7 k( Q1 m7 u# s子子大俠既然讀過(guò)VB,，那么讀VBA代碼就應(yīng)該沒(méi)什么困難,，核心是數(shù)值計(jì)算。
% J) K* T$ f0 d6 G. z2 {---------------------------------------------------------------------------------------------------------------------------------------
定義待求解函數(shù)：
; u. R3 ?7 E, T( b6 C8 OPublic Function QesFun(ByVal Var_AC As Double) As Double
3 j7 s  [( }: A
               QesFun = Var_AC - Atn(Var_AC / 80) * 80 - 1
' i4 P6 }" Z5 r
% V4 F+ k" v/ A8 m! L, |  l$ EEnd Function
6 `! J7 Y$ h$ \5 S: U8 ]; v6 q) N--------------------------------------------------------------------------------------------------
, b. t$ S$ e  @0 I9 R7 g1.        二分法
: |6 ^9 a% H% m5 S# T1.1  由      Arctan(AC/80)=(AC-1)/80
      知      -PI()/2<(AC-1)/80< PI()/2
     即     1 -80*PI()/2<AC<1+ 80*PI()/2
++++++++++++++++++++++++++++++++++++++
1.2定義求解函數(shù)：
" i# ?; k. A2 MPublic Function SolFunDic(ByVal MaxLim As Double, ByVal MinLim As Double) As Double

Dim Res#, VarAdj#
' s$ C8 g- w$ @
VarAdj = 10 ^ -6
1 m9 J& p$ d) W, t% d' B/ D
If QesFun(MinLim + VarAdj) < QesFun(MaxLim - VarAdj) Then

, ?* O: k, ?" d! c1 o      Do While (1)

/ v% K' e; B+ Q0 B: ?              Res = (MaxLim + MinLim) / 2
, T! I; G. b7 ]6 ?6 f
               If Abs(QesFun(Res)) <= 10 ^ -12 Then
" y( H+ W5 A! `* T1 o/ g0 q
                       SolFunDic = Res: Exit Do

1 o; }8 {0 O  q; @+ i              ElseIf (QesFun(Res) < 0) Then
; x6 ?: V& G, P+ ^; ^2 u
                      MinLim = Res
. R5 p6 P9 U  }( E  k
             Else
5 }+ u+ v0 a" A9 j4 h
                     MaxLim = Res
* a( F( O1 }8 B
! `8 s) s! Z- ~  H) X             End If
2 l3 i" V, i: {            
      Loop
8 j0 ~" Z% y4 B$ @0 D( s
Else
: K5 O  n# c5 u% F9 R9 A: B! @' p
; K  M% B/ q* U: ]     Do While (1)
3 I  H8 D  w1 ^+ b; \2 Z     
               Res = (MaxLim + MinLim) / 2

3 ]- _* E: d' X9 C6 P& r( ?             If Abs(QesFun(Res)) <= 10 ^ -12 Then

                        SolFunDic = Res: Exit Do

              ElseIf (QesFun(Res) > 0) Then
0 t( r+ b! g0 [4 k
                        MinLim = Res

' S2 ?* K  B' |% f* u              Else
; Z- f* ~- u+ v% \4 A
                         MaxLim = Res

8 R5 G9 q! s1 D. Q- }# M5 R0 k1 {$ {            End If
            
      Loop
      
- K$ a) F  P  X/ y: L2 T2 oEnd If
End Function
--------------------------------------------------------------
/ p2 V( u1 I4 Y4 z9 d2.        牛頓法
7 @' A' k- O4 A5 E# t2.1     由      f(AC)＝arctan(AC/80)*80+1-AC
" V& a$ s, \1 S' N% a; @, _        求導(dǎo)     f(AC)’=1/(1+(AC/80)^2)-1
! |/ W0 W# i; j& }9 A3 S: t! M" q- x        即      AC_1=AC_0- f(AC)/ f(AC)’
--------------------------------------------------------------
) W3 e# }2 V, ~! E( d2.2定義迭代函數(shù)：
( U+ }$ C" l. l( j/ xPublic Function QesFunNew(ByVal Var_AC As Double) As Double
) y) S. [% b! j; J/ @; e
              QesFunNew = Var_AC - (Atn(Var_AC / 80) * 80 + 1 - Var_AC) / (1 / (1 + (Var_AC / 80) ^ 2) - 1)
              
1 Y$ ?8 |/ T0 [0 C+ [End Function
8 e1 A4 F* N+ j; ^, a---------------------------------------------------------------
4 _0 M  S2 _& H! N+ Z2.3定義求解函數(shù)
Public Function SolFunNew(ByVal IniAC As Double) As Double
$ q2 n4 z8 A' E, f/ c' |5 ]
% b$ M2 K: z% v4 }Dim Res#
; W" W- |, x& I2 h
Do While (1)
1 _& d6 `* y% G$ k, B
                  Res = QesFunNew(IniAC)
- X9 M2 {1 ]9 @
                   If Abs(QesFun(Res)) <= 10 ^ -12 Then
  
4 U& \7 H6 {0 b0 T) I2 n                                   SolFunNew = Res: Exit Do
0 k* i/ t/ P3 m8 E+ f  
                   Else
% m  J+ e  _- P- L% L* s2 T% a* n: U                  
: g6 j  V! r" I& a- I8 R                                     IniAC = Res
6 Y/ P$ h2 L3 @7 b9 G9 O* N! o                  
                  End If
$ ^9 K, r, ]4 c2 d
) o9 l: j/ `" _% B! L  d* s0 x, kLoop
% {& v0 C$ ^/ U----------------------------------------------------------------------------------------------------------
$ D/ d) M6 u. {0 j
這樣做可能有點(diǎn)麻煩,，但涉及到循環(huán)，迭代時(shí),，可自由調(diào)用自定義VBA函數(shù)和工作表函數(shù)（矩陣計(jì)算連桿機(jī)構(gòu)）,，還可控制輸出表格，便于插圖,。計(jì)算冷卻塔時(shí),，積分得用辛普遜；解汽水比,，得解非線性方程,。對(duì)這些問(wèn)題，EXCEL 工作表自身好像很吃力,。
' `2 U: f& l6 C