Оценка и прогнозирование приформовываемости верха обуви к стопе

Дипломная работа - Разное

Другие дипломы по предмету Разное




UR(0) - 2) + Delta_cT

txt_T_4.Text = cT(0, cN_UR(0) - 1) - Delta_cT

'''''''''''

For j = 0 To (N_nabU - 1)

'раiетная часть с-периода (конечного)

'готовим промежуточные значения для использования метода наименьших квадратов

For i = 0 To cNR(j) - 1 'раiитали логарифмы деформации

ln_cP(i) = Log(cPR(j, i)) 'в массиве первый индекс - номер опыта

cTT(i) = cT(0, i) * cT(0, i)

Next

For i = 0 To cNR(j) - 1 'раiитали произведения времени на лог. деформации

cTlnP(i) = cT(0, i) * ln_cP(i)

Next

'готовимся к раiету сумм (времен, логарифмов деформации, 'квадратов времен, произведений времени на лог. деформации)

ScT = 0

Sln_cP = 0

ScTT = 0

ScTlnP = 0

For i = 0 To cNR(j) - 1 'суммируем

ScT = ScT + cT(0, i)

Sln_cP = Sln_cP + ln_cP(i)

ScTT = ScTT + cTT(i)

ScTlnP = ScTlnP + cTlnP(i)

Next

'раiитываем коэффициенты и находим искомые параметры

cL = (cNR(j) * ScTlnP - ScT * Sln_cP) / (cNR(j) * ScTT - ScT * ScT)

cH = (Sln_cP - ScT * cL) / cNR(j)

Rel_cTeta(j) = -cL

Rel_cE(j) = Exp(cH)

'раiетная часть b-периода(среднего)

'bNr(j) = количество точек найдено ранее

For i = 0 To bNR(j) - 1 'заполнили массивы экспер.значений времен и деформации

bPe(i) = bbPeR(j, i)

bT(i) = bbT(0, i)

Next

'расiитыв. теоретич. значения добавки деформации от части уравнения, описывающего c-период

For i = 0 To bNR(j) - 1 '

cP_(j, i) = Rel_cE(j) / Exp(bT(i) * Rel_cTeta(j))

Next

For i = 0 To bNR(j) - 1 'заполнили массив скорректированных значений деформации

bP(i) = bPe(i) - cP_(j, i)

If bP(i) < 0 Then

Flag2 = True

End If

Next

If Flag2 = False Then

calculateIfFlag2_Rel j

Else

MsgBox "Данные нужно корректировать 3эR", vbExclamation, "Внимание"

setCmdEnabled False

Exit Sub

End If

'раiетная часть a-периода (начального)

'aN(j) = количество точек найдено ранее

For i = 0 To aNR(j) - 1 'заполнили массивы экспер.значений деформации и времен

aPe(i) = aaPeR(j, i)

aT(i) = aaT(0, i)

Next

'P_max = aPe(0)

'расiит. теоретич. значения добавок деформации от части ур-я, описывающего c- и b-период

For i = 0 To aNR(j) - 1 '

cP_(j, i) = Rel_cE(j) / Exp(aT(i) * Rel_cTeta(j))

bP_(i) = Rel_bE(j) / Exp(aT(i) * Rel_bTeta(j))

Next

For i = 0 To aNR(j) - 1 'заполнили массив скорректированных значений деформации

aP(i) = aPe(i) - cP_(j, i) - bP_(i)

If aP(i) < 0 Then

Flag1 = True

End If

NextFlag1 = False Then

calculateIfFlag1_Rel j

Else

MsgBox "Данные нужно корректировать 2эR", vbExclamation, "Внимание"

setCmdEnabled False

Exit Sub

End If

Next j

'''''''''''

setCmdEnabled True

MsgBox "Количество отобранных опытов превышает 20", vbExclamation, "Внимание"

setCmdEnabled False

'N_nabU = 0 'Количество отобранных опытов для раiета

End If 'If N_nabU < 21Sub DataSelTest_Reposition()

If DataSelTest.Recordset.RecordCount > 0 Then

Cmd_del.Enabled = True

'cmd_Rpar.Enabled = True

Else

Cmd_del.Enabled = False

'cmd_Rpar.Enabled = False

End IfSubSub DataTest_Reposition()

If DataTest.Recordset.RecordCount > 0 Then

Cmd_add.Enabled = True

Else

Cmd_add.Enabled = False

End IfSubSub Form_Load()_NROrg.Left = 0_NROrg.Top = 0_NROrg.Width = 15000_NROrg.Height = 10000.DatabaseName = Scr_Gmenu.dbName

DataSelTest.DatabaseName = Scr_Gmenu.dbName

DataExecute.DatabaseName = Scr_Gmenu.dbName

DataExe1.DatabaseName = Scr_Gmenu.dbName

DataExe2.DatabaseName = Scr_Gmenu.dbNamesql As String

sql = "Select M_Ntest, M_mat, M_Perform From Main Order By M_Ntest DESC"

DataTest.RecordSource = sql

sql = "Select TSel_Ntest From T_Seltest Order By TSel_Ntest"

DataSelTest.RecordSource = sqlSubSub OptStage_N_Click()_Sravn = NAGRUZ_Sravn_cl = 0SubSub OptStage_R_Click()_Sravn = RELAX_Sravn_cl = 0

End Sub

Е.3 Моделирование процессов релаксации деформации в обувных материалах и системах материалов

Таблица Ж.3.1 - Отклонения раiетных значений деформации от экспериментальных при описании релаксации деформации материалов для наружных деталей верха обуви

Наименование материалапериодОтклонение раiетных значений деформации от экспериментальных, %, в момент времени ?, мин0,080,30,5123510306090144012456789101112131415одноосное растяжениеЯловка легкаянагружение-0,50,6-0,21,30-0,10,10,50,2-0,20,1-отдых0-0,100,31,6-1,1-3,40,93,5-1,0-3,60,2Полукожник эластичныйнагружение-2,50,30,40,30,20-0,200,1-0,10-отдых-0,20,3-0,2-1,9-2,4-3,8-2,80,33,8-1,9-3,30,2Яловка эластичная NEVRORнагружение1,9-1,30,100,10,2-0,200,1-0,10-отдых0,1-0,100,21,3-1,3-0,50,22,2-0,2-2,90,1Яловка эластичная Наппанагружение-0,40,2-0,1-0,10000000-отдых-0,20,3-0,1-0,2-1,0-0,8-0,60,42,5-1,9-3,60,2Яловка эластичная Neroнагружение-0,30,20-0,200,10,10000-отдых-0,20,4-0,1-0,7-0,3-0,2-0,20,12,8-1,2-4,40,2Винилискожа -Т обувнаянагружение3,2-2,60,3-0,10,10,1000-0,10-отдых0,3-0,60,3-9,9-10,4-17,5-10,8-0,95,4-1,7-5,70,3ИК Metlakнагружение2,8-1,20,30,1-0,1-0,100,3000-отдых-0,40,6-0,2-3,10,8-1,80,20,13,0-1,2-5,90,3ИК CAPRETTO P UNDRUSHнагружение-2,80,60,90,50,1-0,2-0,100,1-0,10-отдых0,4-0,70,3-5,0-9,4-9,9-4,14,310,90,7-17,10,6СК Невенагружение-0,50,3-0,1-0,4-0,10,30,20-0,10,10-отдых000-0,81,20,7-1,30,27,10,3-9,40,4СК марки 2нагружение-3,11,4-0,5-1,8-2,6-1,21,01,70,3-0,20-отдых-1,42-0,61,00-2,3-2,71,21,90,6-4,60,2СК Syn-babyнагружение0,2-0,101,02,33,13,23,4000-отдых000-0,1-2,8-1,3-0,60,43,8-2,6-4,30,2СК POSITANO NAT BRUSHнагружение-2,60,7-0,10,5-0,3-0,80,10,6-0,20,10-отдых-0,40,6-0,21,61,0-1,2-3,01,05,51,4-7,70,3двухосное растяжениеЯловка легкаянагружение-0,50,4-0,1-0,4-0,10,10,20-0,20,2-0,1-отдых0,3-0,30,1-0,7-0,21,4-0,604,3-1,5-5,20,3Полукожник эластичныйнагружение-0,40,4-0,1-0,4-0,10,40,100,1-0,10-отдых-0,30,4-0,10,31,7-1,7-2,21,0-2,9-2,1-4,80,2Яловка эластичная NEVRORнагружение0,1-0,10-0,100,1000,100-отдых0-0,10-1,0-2,1-3,6-2,503,10,7-4,90,2Яловка эластичная Наппанагружение-0,70,20,50,3-0,1-0,200,30,1-0,20,1-отдых000-1,8-0,6-1,2-1,80,64,3-0,9-4,50,2Яловка эластичная Neroнагружение-0,10,10-0,3-0,200,200,1-0,20,1-отдых-0,20,3-0,1-1,00,90,2-1,80,44,7-0,9-4,30,2Винилискожа -Т обувнаянагружение-0,50,5-0,1-0,40,10,20,2-0,1000-отдых0,5-0,80,42,94,0-5,7-6,92,02,8-0,4-2,90,1ИК Metlakнагружение5,9-0,70,90,90,3-0,2-0,600,2-0,30,1-отдых-0,30,3-0,12,01,6-2,8-4,21,42,9-1,2-2,90,2ИК CAPRETTO P UNDRUSHнагружение-0,60,4-0,1-0,4-0,10,30,3-0,100,2-0,1-отдых-1,51,8-0,4-1,61,71,6-2,60,52,2-2,8-5,50,3СК Невенагружение-0,50,6-0,201,10,40,3-0,10,100-отдых-0,71,0-0,3-1,40,41,0-2,10,60,5-2,9-5,10,3СК марки 2нагружение-0,40,5-0,20,3-0,20,20,5-0,200,40-отдых-2,13,2-0,91,52,3-3,6-3,31,31,80,1-4,10,2СК Syn-babyнагружение-0,70,7-0,20,10,30,3-0,2000,3-0,1-отдых-0,91,2-0,4-1,53,3-2,0-2,00,61,20,8-3,00,1СК POSITANO NAT BRUSHнагружение-3,11,6-0,4-0,8-0,20,40,4-0,10,1-0,10-отдых-0,61,0-0,30,81,3-1,4-3,71,14,7-2,2-3,70,2

Таблица Ж.3.2 - Отклонения раiетных значений деформации от экспериментальных при описании релаксации деформации текстильных материалов для подкладки и межподкладки обуви

Наименование материалапериодОтклонение раiетных значений деформации от экспериментальных, %, в момент времени ?, мин0,080,30,512351