有哪些信誉好的足球投注网站- 1、本文档共3页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
导线被牵引到第 号杆塔时牵引机的牵引力：
分别用 代入上式，求得 个牵引机牵引力数据，所得最大者即为牵引机的最大牵引力
现实情况中， 的最大值不可能超过 ，在考虑数组是，将 按 作为上限考虑，公式看起来很复杂，以 为界将公式拆解为三
大块，分别为 、 、 ：
式中： 牵引机的牵引力， ；
张力机对每根导线的整定制动张力， ；
子导线根数；
放线滑轮对牵引钢丝绳的阻力系数；
放线滑轮对导线的阻力系数；
张力机和牵引机之间杆塔数；
导线单位长度自重力， ；
牵引钢丝绳单位长度的自重力， 。
设张力场到牵引场之间，共有 基杆塔，则 ，分别计算 、 、 的值，根据公式共有11个 的值得， 的表达式如下：
分别用 ，代入上式，算得每个 、 、 ，如下：
拆解如下：
实现代码如下
1 Imports System
2 Module Program
3 Sub Main()
4 Dim A(35), B(35), B1(35), Q(35), W(35), C(35) As Double
5 Dim H {37.8, 85, -7, 11.5, 11.8, 61.9, 7.7, -62.5, -10.9, -92.9, 13.8}
6 Dim n As Integer 10
7 Dim m As Integer 3
8 Dim T_t As Integer 35000
9 Dim ε As Single 1.012
10 Dim ε0 As Single 1.015
11 Dim ω As Single 2.604 * 9.807
12 Dim ω0 As Single 2.8 * 9.807
13 Dim j As Integer 走板位
14 Dim y, t As Integer H(i)前面的系数
15 Dim k As Integer H(i)的脚标
16 Dim Sum1, Sum2 As Double
17 For j 1 To n + 1
18 A(j) m * Math.Pow(ε, j) * Math.Pow(ε0, n - j) * T_t 求A(j)
19 B1(j) m * ω * Math.Pow(ε0, n - j) 求B(j)前面的第一项
20 以下为求B(j)的第二项
21 Sum1 0
22 For k 1 To n + 1
23 If k j Then y 0 Else y 1
24 Q(k) Math.Pow(ε, (j - k + 1)) * y * H(k - 1)
25 Sum1 + Q(k)
26 Next k
27 B(j) B1(j) * Sum1
28 以下为求C(j)的数值
29 Sum2 0
30 For k 2 To n
文档评论（0）