dblxx.txt

某大学开发的一个用于对微波传输线状态进行模拟的软件

VERSION 5.00
Private Sub cmdOK_Click()
  Dim pi As Double
  pi = 4 * Atn(1)
  
 If Frame7.Visible = True Then
   Text33.Text = "?"
   Text39.Text = "?"
   Dim w, b, er, f, dl, bt, dt, coc, ZO, u, ak, ak1 As Double
   w = Text35.Text
   b = Text36.Text
   er = Text37.Text
   f = Text38.Text
   bt = 2 * pi * Sqr(er) / (300 / f)
   dt = b * Log(2) / pi
   dl = Atn(((dt + 2 * w) / (4 * dt + 2 * w)) * Tan(bt * dt)) / bt
   ak = (Exp(pi * w / (2 * b)) - 1 / Exp(pi * w / (2 * b))) / (Exp(pi * w / (2 * b)) + 1 / Exp(pi * w / (2 * b)))
   ak1 = Sqr(1 - ak * ak)
   If ak > 0.7 Then
   u = pi / Log(2 * (1 + Sqr(ak)) / (1 - Sqr(ak)))
   Else
   u = Log(2 * (1 + Sqr(ak1)) / (1 - Sqr(ak1))) / pi
   End If
   ZO = 30 * pi * u / Sqr(er)
   coc = 10 * dl * Sqr(er) / (3 * ZO)
   Text39.Text = Format(coc, "##########.0000000000")
   Text33.Text = Format(dl, "##########.0000000000")
 End If
 
 If Frame6.Visible = True Then
  Text43.Text = "?"
  Text44.Text = "?"
 Dim w1, r, b1, t, er1, f1, ak2, ak3, u1, d, lb1, lb2 As Double
  w1 = Text6.Text
  r = Text7.Text
  b1 = Text8.Text
  t = Text9.Text
  er1 = Text41.Text
  f1 = Text42.Text
  ak2 = (Exp(0.5 * pi * w1 / b1) - 1 / Exp(0.5 * pi * w1 / b1)) / (Exp(0.5 * pi * w1 / b1) + 1 / Exp(0.5 * pi * w1 / b1))
  ak3 = Sqr(1 - ak2 * ak2)
  If ak2 > 0.7 Then
  u1 = Log(2 * (1 + Sqr(ak2)) / (1 - Sqr(ak2))) / pi
  Else
  u1 = pi / Log(2 * (1 + Sqr(ak3)) / (1 - Sqr(ak3)))
  End If
  If w1 / b1 > 0.5 Then
  d = w1 + 2 * b1 * Log(2) / pi + t * (1 - Log(2 * t / b1)) / pi
  Else
  d = b1 * u1 + t * (1 - Log(2 * t / b1)) / pi
  End If
  lb2 = -3 * b1 * d / ((16 * 2 * pi * Sqr(er1) / (300 / f1)) * r * r * r)
  lb1 = 1 / (4 * lb2)
  Text43.Text = Format(lb1, "##########.0000000000")
  Text44.Text = Format(lb2, "##########.0000000000")
  End If
   
 If Frame5.Visible = True Then
  Text30.Text = "?"
  Text24.Text = "?"
  w2 = Text31.Text
  b2 = Text32.Text
  g = Text27.Text
  er2 = Text28.Text
  f2 = Text29.Text
  cot = Cos(pi * Sqr(er2) * g / (300 / f2)) / Sin(pi * Sqr(er2) * g / (300 / f2))
  X = 0.5 * pi * g / b2
  cosh = (Exp(X) + Exp(-X)) / 2
  coth = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
  ba = -2 * b2 * Log(cosh) * Sqr(er2) / (300 / f2)
  bb = b2 * Log(coth) * Sqr(er2) / (300 / f2)
  jb1 = (1 + ba * cot) / (cot - ba)
  jb2 = 0.5 * ((1 + (2 * bb + ba) * cot) / (cot - (2 * bb + ba)) - jb1)
  Text30.Text = Format(jb1, "##########.0000000000")
  Text24.Text = Format(jb2, "##########.0000000000")
  End If
  
If Frame4.Visible = True Then
  Text11.Text = "?"
  Text34.Text = "?"
  Text40.Text = "?"
  kw1 = Text10.Text
  kw2 = Text12.Text
  kb = Text13.Text
  kt = Text14.Text
  ker = Text15.Text
  kf = Text16.Text
  wb1 = kw1 / kb
  wb2 = kw2 / kb
  tb = kt / kb
  kak = (Exp(0.5 * pi * wb1) - 1 / Exp(0.5 * pi * wb1)) / (Exp(0.5 * pi * wb1) + 1 / Exp(0.5 * pi * wb1))
  kak1 = Sqr(1 - kak * kak)
  If kak > 0.7 Then
  v1 = Log(2 * (1 + Sqr(kak)) / (1 - Sqr(kak))) / pi
  Else
  v1 = pi / Log(2 * (1 + Sqr(kak1)) / (1 - Sqr(kak1)))
  End If
  If wb1 > 0.5 Then
  d1 = kw1 + 2 * kb * Log(2) / pi + kt * (1 - Log(2 * tb)) / pi
  Else
  d1 = kb * v1 + kt * (1 - Log(2 * tb)) / pi
  End If
  am = (Exp(0.5 * pi * wb2) - 1 / Exp(0.5 * pi * wb2)) / (Exp(0.5 * pi * wb2) + 1 / Exp(0.5 * pi * wb2))
  am1 = Sqr(1 - am * am)
  If am > 0.7 Then
  v2 = Log(2 * (1 + Sqr(am)) / (1 - Sqr(am))) / pi
  Else
  v2 = pi / Log(2 * (1 + Sqr(am1)) / (1 - Sqr(am1)))
  End If
  If wb2 > 0.5 Then
  d2 = kw2 + 2 * kb * Log(2) / pi + kt * (1 - Log(2 * tb)) / pi
  Else
  d2 = kb * v2 + kt * (1 - Log(2 * tb)) / pi
  End If
  q = 0.5 * pi * d2 / d1
  y = 2 / (Exp(q) - Exp(-q))
  rm = 300 / (kf * Sqr(ker))
  kx = 2 * d1 * Log(y) / rm
  kal1 = kb * Log(2) / pi
  kal2 = -kal1
  Text11.Text = Format(kx, "##########.0000000000")
  Text34.Text = Format(kal1, "##########.0000000000")
  Text40.Text = Format(kal2, "##########.0000000000")
  End If

If Frame3.Visible = True Then
 Text23.Text = "?"
 Text49.Text = "?"
 Text50.Text = "?"
 gw = Text17.Text
 gct = Text18.Text
 gb = Text19.Text
 gt = Text20.Text
 ger = Text21.Text
 gf = Text22.Text
 gwb = gw / gb
 gtb = gt / gb
 gak = (Exp(0.5 * pi * gwb) - 1 / Exp(0.5 * pi * gwb)) / (Exp(0.5 * pi * gwb) + 1 / Exp(0.5 * pi * gwb))
 gak1 = Sqr(1 - gak * gak)
 If gak > 0.7 Then
 gu = Log(2 * (1 + Sqr(gak)) / (1 - Sqr(gak))) / pi
 Else
 gu = pi / Log(2 * (1 + Sqr(gak1)) / (1 - Sqr(gak1)))
 End If
 If gwb > 0.5 Then
 gd = gw + 2 * gb * Log(2) / pi + gt * (1 - Log(2 * gtb)) / pi
 Else
 gd = gb * gu + gt * (1 - Log(2 * gtb)) / pi
 End If
 grm = 300 / (gf * Sqr(ger))
 gq = gct * pi / 360
 gcot = Cos(gq) / Sin(gq)
 gde = 0.5 * (gd - gw) / gcot
 If gct = 90 Then
 gx1 = gd * (1.756 + 4 * (gd / grm) ^ 2) / grm
 gx2 = gd * (0.0725 - 0.159 * (grm / gd) ^ 2) / grm
 Else
 gx = 0.5 * (1 + gct / 180)
 gfx = 0.5223 * Log(gx) + 0.394
 gx1 = 2 * gd * (gfx + 1.9635 - 1 / gx) / grm
 gx2 = -grm * gcot / (2 * pi * gd)
 End If
 Text50.Text = Format(gde, "##########.0000000000")
  Text23.Text = Format(gx1, "##########.0000000000")
  Text49.Text = Format(gx2, "##########.0000000000")
End If

If Frame2.Visible = True Then
 Text46.Text = "?"
 Text47.Text = "?"
 Text48.Text = "?"
 tw1 = Text1.Text
 tw2 = Text2.Text
 tb = Text3.Text
 tt = Text4.Text
 ter = Text5.Text
 tf = Text45.Text
 twb1 = tw1 / tb
 twb2 = tw2 / tb
 ttb = tt / tb
 tak = (Exp(0.5 * pi * twb1) - 1 / Exp(0.5 * pi * twb1)) / (Exp(0.5 * pi * twb1) + 1 / Exp(0.5 * pi * twb1))
 tak1 = Sqr(1 - tak * tak)
 If tak > 0.7 Then
 Tu = Log(2 * (1 + Sqr(tak)) / (1 - Sqr(tak))) / pi
 Else
 Tu = pi / Log(2 * (1 + Sqr(tak1)) / (1 - Sqr(tak1)))
 End If
 If twb1 > 0.5 Then
 td = tw1 + 2 * tb * Log(2) / pi + tt * (1 - Log(2 * ttb)) / pi
 Else
 td = tb * Tu + tt * (1 - Log(2 * ttb)) / pi
 End If
 tam = (Exp(0.5 * pi * twb2) - 1 / Exp(0.5 * pi * twb2)) / (Exp(0.5 * pi * twb2) + 1 / Exp(0.5 * pi * twb2))
 tam1 = Sqr(1 - tam * tam)
 If tam > 0.7 Then
 tu2 = Log(2 * (1 + Sqr(tam)) / (1 - Sqr(tam))) / pi
 Else
 tu2 = pi / Log(2 * (1 + Sqr(tam1)) / (1 - Sqr(tam1)))
 End If
 If twb2 > 0.5 Then
 td2 = tw2 + 2 * tb * Log(2) / pi + tt * (1 - Log(2 * ttb)) / pi
 Else
 td2 = tb * tu2 + tt * (1 - Log(2 * ttb)) / pi
 End If
 trm = 300 / (tf * Sqr(ter))
 Tv = pi * td2 / trm
 ttn = Sin(Tv) / Tv
 txa = -td2 * td2 * (0.785 * ttn) ^ 2 / (td * trm)
 th = td2 / td
 If th > 0.5 Then
 txb = -0.5 * txa + 2 * td * (Log(1.43 * td / td2) + 2 * (td / trm) ^ 2) / (trm * ttn * ttn)
 Else
 tq1 = -Log(Sin(0.5 * pi * td2 / td))
 tq2 = 0.5 * (td / trm) * (td / trm) * Cos(0.5 * pi * td2 / td) ^ 4
 tbt = 2 * dt * (tq1 + tq2) / trm
 txb = -0.5 * txa + (tbt + 2 * td * (Log(2) + pi * td2 / (6 * td) + 1.5 * (td / trm) ^ 2)) / (ttn ^ 2)
 End If
 Text46.Text = Format(txa, "##########.0000000000")
  Text47.Text = Format(txb, "##########.0000000000")
  Text48.Text = Format(ttn, "##########.0000000000")
 
End If
End Sub