Величину коэффициента напряженного состояния  определим по формуле (9):

                 ₍₉₎

  Среднее нормальное контактное напряжение в очаге  деформации определим по формуле (10):

       р_ср = 2Кс×nσ        (10)

  Длину дуги контакта с учетом упругого сплющивания определим по формуле (11):

        X₂ = 8×р_ср×R×(1-ט_b²/πE_b + 1-ט_м²/πE_м)    

        ℓ_с = √R×∆h + X₂² + X₂

       δ_ℓ = |ℓ_с - ℓ_д| / ℓ_д×100%  ≤ 10     (11)

   Величину  силы прокатки Р определим по формуле (12):

       P = р_ср×b×ℓ_с        (12)

       где b – ширина прокатываемой  полосы

   Величину момента прокатки М_пр определим по формуле (13):

        М_пр = 2×Р×ℓ_д×ψ       (13)

    где ψ– коэффициент положения равнодействующей усилия прокатки. Принимаем ψ = 0,45 при  ℓ_д /h_cр > 2.

Определим величину мощности прокатки по формуле (14):

     N = M_пр×V_пр/R        (14)

     Где V_пр – скорость прокатки

         R – радиус рабочих валков

     Таким образом, для выполнения расчетов усилия прокатки, момента прокатки, мощности прокатки используем вышеприведенную методику расчетов. Результаты ручного и машинного расчетов представлены в следующем пункте.

 

6.2.1.3. Расчет энергосиловых параметров для первого прохода

1. Величина абсолютного  обжатия

2. Относительное обжатие

3. Длина дуги контакта 

4. Фактический предел  текучести

5. Значение удвоенного  сопротивления чистому сдвигу 

6. Коэффициент, учитывающий  влияние контактного трения и  внешних зон

7. Толщина полосы  в нейтральном сечении 

8. Величина коэффициента  напряженного состояния 

9. Среднее  нормальное контактное напряжение в очаге деформации

 

10. Длина дуги контакта с учетом  упругого сплющивания 

11. Величина силы прокатки

12. Величина момента  прокатки

13. Мощность прокатки

6.2.2. Расчет энергосиловых параметров с помощью ПЭВМ

Текст программы:

Option Strict Off

Option Explicit On

Friend Class Form2

      Inherits System.Windows.Forms.Form

      Private Sub Form2_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load 

      End Sub 

      Private Sub Label1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Label1.Click

            Dim Index As Short = Label1.GetIndex(eventSender) 

      End Sub 
 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 

        Form1.Show()

        Me.Visible = False

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        Dim ksi0, ksi1, kc, eps, aa1, aa2, aa3, h0, eps0, dh, h1, l, P, M, N, St, h00 As Single

        Dim Pd, Nd, aa4, Md, del, hn, ns, ef, pcp, x2, lc, t0, t1, dh0, R As Single

        Dim res$, test$

        Pd = Val(Text6.Text) * 20

        Md = Val(Text7.Text) * 400

        Nd = Val(Text5.Text) * 6

        R = Val(_Text1_0.Text)

        h00 = Val(TextBox5.Text)

        res$ = "result.txt"

        test$ = "test.txt"

        FileOpen(1, res$, OpenMode.Append)

        FileOpen(2, test$, OpenMode.Append)

        PrintLine(1, "i", "h0", "h1", "eps", "dh", "P", "M", "N")

        PrintLine(2, "h0", "h1", "dh", "eps", "l", "hn", "lc", "pcp", "x2", "P", "M")

        Do

            h0 = h00

            For i = 1 To Val(TextBox4.Text)

                h1 = h0 / 3

                Do

                    dh0 = h00 - h0

                    eps0 = dh0 / h00

                    dh = h0 - h1

                    eps = dh / h0

                    l = Math.Sqrt(R * dh)

                    aa1 = Val(Text8.Text) + Val(TextBox1.Text) * eps0 + Val(TextBox2.Text) * eps0 ^ 2

                    aa2 = (2 / 3) * (1 - eps0) * (Val(TextBox1.Text) + 2 * Val(TextBox2.Text) * eps0 + 3 * Val(TextBox3.Text) * eps0 ^ 2) * eps

                    aa3 = (8 / 15) * (1 - eps0) ^ 2 * (Val(TextBox2.Text) + 3 * Val(TextBox3.Text) * eps0) * eps ^ 2

                    aa4 = (15 / 75) * (1 - eps0) ^ 3 * Val(TextBox3.Text) * eps ^ 3

                    St = (aa1 + aa2 + aa3 + aa4)

                    kc = 1.155 * St

                    ksi0 = 1 - 0.3

                    ksi1 = 1 - 0.3

1:                  del = 2 * 0.08 * l / dh

                    hn = ((h0 ^ (del - 1)) * (h1 ^ (del + 1))) ^ (1 / (2 * del))

 

                    ns = (1 / dh) * (((ksi0 * h0) / (del - 2)) * ((h0 / hn) ^ (del - 2) - 1) + ((ksi1 * h1) / (del + 2)) * ((hn / h1) ^ (del + 2) - 1))

                    pcp = ns * kc

                    x2 = 8 * pcp * Val(_Text1_0.Text) * (((1 - 0.3 ^ 2) / (Math.PI * 2.1 * 100000)) + ((1 + 0.3 ^ 2) / (Math.PI * 2.1 * 100000))) 'проверить 0.3 и 2.1*10^5'

                    lc = Math.Sqrt(R * dh + x2 ^ 2) + x2

                    'If Math.Abs(l - lc) > 0.1 Then

                    'l = lc

                    'GoTo 1

                    'End If

                    P = pcp * Val(Text4.Text) * lc

                    'PrintLine(2, h0, h1, dh, eps, l, St, del, ns, hn, kc, lc, pcp, x2, P)'

                    M = kc * ((((ksi0 * h0) / (del - 2)) * ((h0 / hn) ^ (del - 2) - 1)) - (((ksi1 * h1) / (del + 2)) * ((hn / h1) ^ (del + 2) - 1))) * (R * 0.08 * lc) / dh

                    N = M * Val(Text2.Text) / Val(_Text1_0.Text)

                    PrintLine(2, h0, h1, dh, eps, l, hn, lc, pcp, x2, P, M)

                    If P > Pd Or M > Md Or N > Nd Then

                        h1 = h1 + 0.01

                    End If

                Loop While P > Pd Or M > Md Or N > Nd

                PrintLine(1, i, h0, h1, eps, dh, P, M, N)

                h0 = h1

            Next i

            h00 = h1

            PrintLine(1, "____________________________________________________________________________")

        Loop While h1 > Val(Text3.Text)

        FileClose(1)

        FileClose(2)

    End Sub