Оценка и прогнозирование приформовываемости верха обуви к стопе
Дипломная работа - Разное
Другие дипломы по предмету Разное
forP
If T_tek > 0 Then
P_tek = (divideExp(Rel_aE(Nop), Rel_aTeta(Nop) * T_tek) _
+ divideExp(Rel_bE(Nop), Rel_bTeta(Nop) * T_tek) _
+ divideExp(Rel_cE(Nop), Rel_cTeta(Nop) * T_tek))
txt_PfromT.Text = Format(P_tek, "##.000")
End IfIfSubSub cmd_Prosm_Click() - выводим найденные параметры
'txt_NopSosPol As SingleSosPla As SingleSosUpr As SingleSosEl As SingleSosElPla As SingleDolPla As SingleDolUpr As SingleDolEl As SingleSigRas As SingleNROrg As SingleModMgn As SingleModVel As SingleModRav As SingleKVRbys As SingleKVRmed As SingleKVRpla As SinglePostVremB As SinglePostVremM As SingleN_clRP As ByteVybor_Sravn = NAGRUZ_Sravn Then
j = N_cl Mod Nagr_N_nabU
txt_Nop.Text = N_Sop(j) 'N_Sop(nagr_n_nabu)
txt_aE.Text = Format(Nagr_aE(j), "##.000")
txt_bE.Text = Format(Nagr_bE(j), "##.000")
txt_cE.Text = Format(Nagr_cE(j), "##.000")
txt_aTeta.Text = Format(Nagr_aTeta(j), "##.00000")
txt_bTeta.Text = Format(Nagr_bTeta(j), "##.00000")
txt_cTeta.Text = Format(Nagr_cTeta(j), "##.00000")
N_cl = N_cl + 1
N_clTP = 0 'исходные данные для сравнения
Nop = jIfVybor_Sravn = RELAX_Sravn Then= N_cl Mod N_nabU_Nop.Text = N_Sop(j) 'N_Sop(nagr_n_nabu)_aE.Text = Format(Rel_aE(j), "##.000")_bE.Text = Format(Rel_bE(j), "##.000")_cE.Text = Format(Rel_cE(j), "##.000")_aTeta.Text = Format(Rel_aTeta(j), "##.00000")_bTeta.Text = Format(Rel_bTeta(j), "##.00000")_cTeta.Text = Format(Rel_cTeta(j), "##.00000")
N_cl = N_cl + 1_clTP = 0 'исходные данные для сравнения
Nop = j= Prom_abcP(Nop, Nagr_abcN(Nagr_N_nabU - 1) - 1)= Rel_abcP(Nop, 0)= Rel_abcP(Nop, Rel_abcN(N_nabU - 1) - 1)= SosPol - SosElPla= SosElPla - SosPla= SosUpr / SosPol= SosPla / SosPol= SosEl / SosPol= 1 / Rel_aTeta(Nop)= 1 / Rel_bTeta(Nop)_SosPol = Format(SosPol, "##.000")_SosUpr = Format(SosUpr, "##.000")_SosEl = Format(SosEl, "##.000")_SosPla = Format(SosPla, "##.000")_DolUpr = Format(DolUpr, "#0.000")_DolEl = Format(DolEl, "#0.000")_DolPla = Format(DolPla, "#0.000")
SigRas = txt_SigRas.Text_aE.Text = Format(Rel_aE(j), "##.000")_bE.Text = Format(Rel_bE(j), "##.000")_cE.Text = Format(Rel_cE(j), "##.000")
ModMgn = SigRas / Rel_aE(j) 'SosUpr
ModVel = SigRas / Rel_bE(j) 'SosEl
ModRav = SigRas / (Rel_aE(j) + Rel_bE(j)) '(SosUpr + SosUpr)
KVRbys = ModMgn / Rel_aTeta(Nop)
KVRmed = ModVel / Rel_bTeta(Nop)
KVRpla = (Nagr_abcT(Nop, Nagr_abcN(Nagr_N_nabU - 1) - 1) * SigRas) / Rel_cE(j)
txt_PostVremB = Format(PostVremB, "##.000")
txt_PostVremM = Format(PostVremM, "##.000")
txt_ModMgn = Format(ModMgn, "##.000")
txt_ModVel = Format(ModVel, "##.000")
txt_ModRav = Format(ModRav, "##.000")
txt_KVRbys = Format(KVRbys, "##.000")
txt_KVRmed = Format(KVRmed, "##.000")
txt_KVRpla = Format(KVRpla, "##.000")IfSubSub cmd_Sravn_Click()dP As SingleVybor_Sravn = NAGRUZ_Sravn Then= N_clTP Mod Nagr_abcN(Nop)_T.Text = Nagr_abcT(Nop, i)_Pe.Text = Format(Prom_abcP(Nop, i), "##.000") 'заменил Nagr_abcP на Prom_abcP_Pt.Text = Format(NP_(Nop, i), "##.000")= 100 * ((Prom_abcP(Nop, i) - NP_(Nop, i)) / NP_(Nop, i)) 'Nagr_abcP_dP.Text = Format(dP, "#0.0")_clTP = N_clTP + 1IfVybor_Sravn = RELAX_Sravn Then= N_clTP Mod Rel_abcN(Nop)_T.Text = Rel_abcT(Nop, i)_Pe.Text = Format(Rel_abcP(Nop, i), "##.000")_Pt.Text = Format(RP_(Nop, i), "##.000")= 100 * ((Rel_abcP(Nop, i) - RP_(Nop, i)) / RP_(Nop, i))_dP.Text = Format(dP, "#0.0")_clTP = N_clTP + 1IfSubSub cmd_Usred_Click()
Dim i As Integer
Dim j As Integer
Dim N_test As Integer
Dim k As Integer
N_cl = 0
Nagr_SopN_U = StestCount 'определили количество отобранных к усреднению опытов
If Nagr_SopN_U < 10 Then
'Text1
'Определяются для трех этапов : значения экспериментальных данных (Т и Р) а также к-во точек в этапе (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, NAGRUZ_PHASE, j, aN_U, aaTe_U, aaPe_U
stageCalculate N_test, 2, NAGRUZ_PHASE, j, bN_U, bbTe_U, bbPe_U
stageCalculate N_test, 3, NAGRUZ_PHASE, j, cN_U, cTe_U, cPe_U
DataExe1.Recordset.MoveNext
j = j + 1
Loop
End If 'If Not DataExe1.Recordset.EOF
'Закончено iитывание данных для усреднения
End If 'If nagr_n_nabu < 10
Nagr_N_nabU = Nagr_N_nabU + 1 'Номер набора усредняемых опытов
Dim Flag1 As Boolean
Dim Flag2 As BooleanNagr_N_nabU < 21 Then
Flag1 = False
Flag2 = False
'Определяются для трех этапов : значения экспериментальных данных (Т и Р)
'а также к-во точек в этапе (aN(j),bN(j),cN(j)). Время и деформация заносятся в соответствующие этапам исходные массивы, где j - порядковый номер отобранного опыта, i - номер точки в этом этапе
Dim N_Sop_ As Single ' номер отобранных опытов
N_Sop_ = 0
For j = 0 To Nagr_SopN_U - 1 'цикл по отобранным к усреднению опытам_Sop_ = N_Sop_ + N_Sop_U(j) 'поiитали сумму
Next j
N_Sop(Nagr_N_nabU - 1) = (N_Sop_ / Nagr_SopN_U) 'поiитали средний номер для вывода
Dim Pe_prom(7) As Single '
For i = 0 To aN_U(0) - 1 ' ' цикл по точкам () в стадии а, количество точек в массиве
Pe_prom(i) = 0
For j = 0 To (Nagr_SopN_U - 1) '
Pe_prom(i) = Pe_prom(i) + aaPe_U(j, i) '
Next j '
aaPe_US(Nagr_N_nabU - 1, i) = (Pe_prom(i)) / Nagr_SopN_U '
aaT(0, i) = aaTe_U(0, i) 'aaTe_U(Nagr_N_nabU - 1, i)i '
aN(Nagr_N_nabU - 1) = aN_U(0) '
For i = 0 To bN_U(0) - 1 '
Pe_prom(i) = 0
For j = 0 To (Nagr_SopN_U - 1)
Pe_prom(i) = Pe_prom(i) + bbPe_U(j, i)
Next j
bbPe_US(Nagr_N_nabU - 1, i) = (Pe_prom(i)) / Nagr_SopN_U
bbT(0, i) = bbTe_U(0, i) 'bbTe_U(nagr_n_nabu - 1, i)'bbTe_U
Next i
bN(Nagr_N_nabU - 1) = bN_U(0)i = 0 To cN_U(0) - 1 '
Pe_prom(i) = 0
For j = 0 To (Nagr_SopN_U - 1)
Pe_prom(i) = Pe_prom(i) + cPe_U(j, i)
Next j
cP_US(Nagr_N_nabU - 1, i) = (Pe_prom(i)) / Nagr_SopN_U
cT(0, i) = cTe_U(0, i) 'cTe_U(nagr_n_nabu - 1, i)
Next i(Nagr_N_nabU - 1) = cN_U(0)j = 0 To Nagr_N_nabU - 1
For i = 0 To aN(j) - 1 'заполнили массивы экспер. значений деформации времен от начальн. периода
Nagr_abcT(j, i) = aaT(0, i) 'вставил Nagr_N_nabU - 1 вместо j
Nexti=aN(j) To aN(j)+bN(j) - 1 заполн. массивы экспер.знач. деформации времен от средн. периода
Nagr_abcT(j, i) = bbT(0, i - aN(j))
Nexti = aN(j) + bN(j) To aN(j) + bN(j) + cN(j) - 1 'заполнили массивы экспер.значений деформации времен от конечного периода
Nagr_abcT(j, i) = cT(0, i - aN(j) - bN(j))
NextjDelta_cT As Single '
Delta_cT = 0.05 * (cT(0, (cN_U(0) - 1)) - cT(0, (cN_U(0) - 2)))
txt_T_1.Text = cT(0, (cN_U(0) - 2)) + Delta_cT
txt_T_2.Text = cT(0, (cN_U(0) - 1)) - Delta_cT
Pe_limit(Nagr_N_nabU - 1) = cP_US(Nagr_N_nabU - 1, (cN_U(0) - 1)) + 0.1 '
'''''''''''опрокидывание массивовj = 0 To (Nagr_N_nabU - 1) '(Nagr_SopN_U - 1) '
For i = 0 To aN_U(0) - 1 ' количесво точек в массиве =3
aaPe(j, i) = Pe_limit(j) - aaPe_US(j, i) '
Next i 'j 'j = 0 To (Nagr_N_nabU - 1) '(Nagr_SopN_U - 1)
For i = 0 To bN_U(0) - 1 ' количесво точек в массиве =4
bbPe(j, i) = Pe_limit(j) - bbPe_US(j, i) '
Next i 'jj = 0 To (Na