Geum.ru


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

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

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



gr_N_nabU - 1) '(Nagr_SopN_U - 1)

For i = 0 To cN_U(0) - 1 ' количесво точек в массиве =4

cP(j, i) = Pe_limit(j) - cP_US(j, i) '

Next i 'j

'''''''''''конец опрокидывания

For j = 0 To (Nagr_N_nabU - 1)

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

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

For i = 0 To cN(j) - 1 'раiитали логарифмы усилий

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

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

Next

For i = 0 To cN(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 cN(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 = (cN(j) * ScTlnP - ScT * Sln_cP) / (cN(j) * ScTT - ScT * ScT)

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

Nagr_cTeta(j) = -cL

Nagr_cE(j) = Exp(cH)

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

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

bPe(i) = bbPe(j, i)

bT(i) = bbT(0, i)

Next

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

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

cP_(j, i) = Nagr_cE(j) / Exp(bT(i) * Nagr_cTeta(j))

Next

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

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

If bP(i) < 0 Then

bP(i) = 0.001 'Flag2 = True'''отладка 050306

End If

NextFlag2 = False Then

calculateIfFlag2_Nagr j

Else

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

setCmdEnabled False

Exit Sub

End If

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

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

aPe(i) = aaPe(j, i)

aT(i) = aaT(0, i)

Next

'Nagr_P_max = aPe(0)

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

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

cP_(j, i) = Nagr_cE(j) / Exp(aT(i) * Nagr_cTeta(j))

bP_(i) = Nagr_bE(j) / Exp(aT(i) * Nagr_bTeta(j))

Next

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

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

If aP(i) < 0 Then

aP(i) = 0.00001 'Flag1 = True

End If

NextFlag1 = False Then

calculateIfFlag1_Nagr j

Else

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

setCmdEnabled False

Exit Sub

End If

Next j

'''''''''''

setCmdEnabled True

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

setCmdEnabled FalseIf 'If nagr_n_nabu < 21

'найдем предельные деформацию и время_T_max = Nagr_abcT(0, Nagr_abcN(0) - 1)_P_max = 0

N_cl = 0 'обнулим количество щелчков

Nagr_P_max = 0j = 0 To Nagr_N_nabU - 1Pe_limit(j) > Nagr_P_max Then_P_max = Pe_limit(j)Ifj_T_kon = Nagr_T_maxj = 0 To Nagr_N_nabU - 1

For i = 0 To Nagr_abcN(j) - 1

Prom_abcP(j, i) = Pe_limit(j) - Nagr_abcP(j, i)

Next ij

''''''''''''''пошла релаксация

SopN_U = StestCount 'определили количество отобранных к усреднению опытовSopN_U < 10 Then

'Определяются для трех этапов : значения экспериментальных данных (Т и Р)

'а также к-во точек в этапе (aN(j),bN(j),cN(j)). Время и усилия заносятся в соответствующие этапам исходные массивы, где j - порядковый номер отобранного опыта, i - номер точки в этом этапе

DataExe1.RecordSource = StestSelect() 'вызвали отобранные опыты

DataExe1.Refresh

If Not DataExe1.Recordset.EOF Then

DataExe1.Recordset.MoveFirst

j = 0

'внешний цикл - проход по номерам отобранных опытов

Do While Not DataExe1.Recordset.EOF

N_test = DataExe1.Recordset![TSel_Ntest]

N_Sop_U(j) = N_test 'номер теста сохраняется в массиве

'далее три внутренних циклов - iитывание значений данных опыта по стадиям

'заполнение массивов с количеством точек - aN(j),bN(j),cN(j)

'заполнение массивов с опытными данными - aaT, aaPe bbT, bbPe cN, cT, cP

'циклы организованы в процедуре stageCalculate с нужными параметрами

stageCalculate N_test, 1, RELAX_PHASE, j, aN_UR, aaTe_UR, aaPe_UR

stageCalculate N_test, 2, RELAX_PHASE, j, bN_UR, bbTe_UR, bbPe_UR

stageCalculate N_test, 3, RELAX_PHASE, j, cN_UR, cTe_UR, cPe_UR

DataExe1.Recordset.MoveNext

j = j + 1

Loop

End If 'If Not DataExe1.Recordset.EOF

'Закончено iитывание данных для усредненияIf 'If N_nabU < 10

N_nabU = N_nabU + 1 'Номер набора усредняемых опытов

Text1.Text = N_nabU

'занесение имен материалов в массив

DataExe1.RecordSource = StestSelect() 'вызвали отобранные опыты.Refresh

If Not DataExe1.Recordset.EOF Then

DataExe1.Recordset.MoveFirst

N_test = DataExe1.Recordset![TSel_Ntest].RecordSource = "Select M_Mat from Main Where M_Ntest =" & N_test.Refresh

If Not DataExe2.Recordset.EOF Then

DataExe2.Recordset.MoveFirst

Stroka_Mat(N_nabU - 1) = DataExe2.Recordset![M_Mat]

End If

End If 'If Not DataExe1.Recordset.EOF занесение именN_nabU < 21 Then

Flag1 = False

Flag2 = False_Sop_ = 0

For j = 0 To SopN_U - 1 'цикл по отобранным к усреднению опытам_Sop_ = N_Sop_ + N_Sop_U(j) 'поiитали сумму

Next j

N_Sop(N_nabU - 1) = (N_Sop_ / SopN_U) 'поiитали средний номер для выводаi = 0 To aN_UR(0) - 1 'цикл по точкам () в стадии а, количесво точек в массиве

Pe_prom(i) = 0

For j = 0 To (SopN_U - 1) '

Pe_prom(i) = Pe_prom(i) + aaPe_UR(j, i) '

Next j '

aaPeR(N_nabU - 1, i) = (Pe_prom(i)) / SopN_U '

aaT(0, i) = aaTe_UR(0, i) '

Next i '

aNR(N_nabU - 1) = aN_UR(0) 'i = 0 To bN_UR(0) - 1 'bN_U(k) - 1 '(bN_U(N_nabU - 1) - 1) ''' '

Pe_prom(i) = 0

For j = 0 To (SopN_U - 1)

Pe_prom(i) = Pe_prom(i) + bbPe_UR(j, i)

Next j

bbPeR(N_nabU - 1, i) = (Pe_prom(i)) / SopN_U

bbT(0, i) = bbTe_UR(0, i) 'bbTe_U(N_nabU - 1, i) 22.20

'bbT(N_nabU - 1, i) = bbTe_U(0, i) 'bbTe_U(N_nabU - 1, i)

Next i

bNR(N_nabU - 1) = bN_UR(0)i = 0 To cN_UR(0) - 1 'cN_U(k) - 1 '(cN_U(N_nabU - 1) - 1) ''''

Pe_prom(i) = 0

For j = 0 To (SopN_U - 1)

Pe_prom(i) = Pe_prom(i) + cPe_UR(j, i)

Next j

cPR(N_nabU - 1, i) = (Pe_prom(i)) / SopN_U

cT(0, i) = cTe_UR(0, i) 'cTe_U(N_nabU - 1, i)22.02

'cT(N_nabU - 1, i) = cTe_U(0, i) 'cTe_U(N_nabU - 1, i)

Next i(N_nabU - 1) = cN_UR(0)j = 0 To N_nabU - 1

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

Rel_abcT(j, i) = aaT(0, i)

Nexti = aNR(j) To aNR(j) + bNR(j) - 1 'заполнили массивы экспер.значений деформации времен от среднего периода

Rel_abcT(j, i) = bbT(0, i - aNR(j))

Nexti = aNR(j) + bNR(j) To aNR(j) + bNR(j) + cNR(j) - 1 'заполнили массивы экспер.значений деформации времен от конечного периода

Rel_abcT(j, i) = cT(0, i - aNR(j) - bNR(j))

Nextj_cT = 0.01 * (cT(0, cN_UR(0) - 1) - cT(0, cN_UR(0) - 2))

'txt_T_3.Text = cT(N_nabU - 1, 2) + Delta_cT

'txt_T_4.Text = cT(N_nabU - 1, 3) - Delta_cT

txt_T_3.Text = cT(0, cN_