Оценка и прогнозирование приформовываемости верха обуви к стопе
Дипломная работа - Разное
Другие дипломы по предмету Разное
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