Диссертация (1104014), страница 20

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 20)

ПогрешностьИнтенс,отн.ед." & vbCrLfElsets.Write "Частота,см-1 Интенсивность(из1файла),отн.ед. ПогрешностьИнтенс,отн.ед." &vbCrLf183End IfFor counter1 = 1 To numberDifferencesInLinests.Write initialFrequency(1, differencesLinesIndexes(counter1)) & " " & initialMiddleIntensity(1,differencesLinesIndexes(counter1)) & " " & resErrorsOfIntensity(1, differencesLinesIndexes(counter1)) &vbCrLfNext counter1ts.Close' Вывод информации о количестве различных линий во второй выборкеfs.CreateTextFile ActiveWorkbook.Path & "\DifferencesInLines_SecondSet.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\DifferencesInLines_SecondSet.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)ts.Write "Общее кол-во различных линий в 1 выборке = " & numberDifferencesInLines & vbCrLfts.Write "Набор различных линий в 1 выборке (см-1) = "For counter1 = 1 To numberDifferencesInLinesIf counter1 < numberDifferencesInLines Thents.Write initialFrequency(1, differencesLinesIndexes(counter1)) & "; "Elsets.Write initialFrequency(1, differencesLinesIndexes(counter1))End IfNext counter1ts.Write vbCrLfIf numberOfFiles > 1 Thents.Write "Частота,см-1 СреднИнтенсивность,отн.ед.

ПогрешностьИнтенс,отн.ед." & vbCrLfElsets.Write "Частота,см-1 Интенсивность(из1файла),отн.ед. ПогрешностьИнтенс,отн.ед." &vbCrLfEnd IfFor counter1 = 1 To numberDifferencesInLinests.Write initialFrequency(1, differencesLinesIndexes(counter1)) & " " & initialMiddleIntensity(2,differencesLinesIndexes(counter1)) & " " & resErrorsOfIntensity(2, differencesLinesIndexes(counter1)) &vbCrLfNext counter1ts.Close' Вывод информации о средней интенсивности спектра первой выборкиfs.CreateTextFile ActiveWorkbook.Path & "\MiddleIntensity_FirstSet.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\MiddleIntensity_FirstSet.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)If numberOfFiles > 1 Then184ts.Write "Частота,см-1 СреднИнтенсивность,отн.ед.

ПогрешностьИнтенс,отн.ед." & vbCrLfElsets.Write "Частота,см-1 Интенсивность(из1файла),отн.ед. ПогрешностьИнтенс,отн.ед." &vbCrLfEnd IfFor counter1 = 1 To numberOfDatesInFilets.Write initialFrequency(1, counter1) & " " & initialMiddleIntensity(1, counter1) & " " &resErrorsOfIntensity(1, counter1) & vbCrLfNext counter1ts.Close' Вывод информации о средней интенсивности спектра второй выборкиfs.CreateTextFile ActiveWorkbook.Path & "\MiddleIntensity_SecondSet.txt"Set f = fs.GetFile(ActiveWorkbook.Path & "\MiddleIntensity_SecondSet.txt")Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)If numberOfFiles > 1 Thents.Write "Частота,см-1 СреднИнтенсивность,отн.ед.

ПогрешностьИнтенс,отн.ед." & vbCrLfElsets.Write "Частота,см-1 Интенсивность(из1файла),отн.ед. ПогрешностьИнтенс,отн.ед." &vbCrLfEnd IfFor counter1 = 1 To numberOfDatesInFilets.Write initialFrequency(1, counter1) & " " & initialMiddleIntensity(2, counter1) & " " &resErrorsOfIntensity(2, counter1) & vbCrLfNext counter1ts.CloseIf numberOfFiles > 1 ThenMsgBox "Расчет успешно завершен!" & vbCrLf & vbCrLf & "Результаты смотрите ввыходных файлах:" & vbCrLf & " 1. 3D_dates_FirstSel_GroupsMomentsErrors.txt" & vbCrLf & " 2.3D_dates_GroupsKolrazlmom.txt" & vbCrLf & " 3.

3D_dates_GroupsMomentsErrors.txt" & vbCrLf & " 4.3D_dates_ModFirst-SecSel_GroupsMomentsErrors.txt" & vbCrLf & " 5.3D_dates_SecondSel_GroupsMomentsErrors.txt" & vbCrLf & " 6. Derivative_FirstSet.txt" & vbCrLf & " 7.Derivative_SecondSet.txt" & vbCrLf & " 8. DifferencesInLines_FirstSet.txt" & vbCrLf & " 9.DifferencesInLines_SecondSet.txt" & vbCrLf & "10. MiddleIntensity_FirstSet.txt" & vbCrLf & "11.MiddleIntensity_SecondSet.txt" & vbCrLf & "12.

Razlichie.txt" & vbCrLf & "13. Sovpadenii.txt"ElseMsgBox "Расчет успешно завершен!" & vbCrLf & vbCrLf & "Результаты смотрите ввыходных файлах:" & vbCrLf & " 1. 3D_dates_GroupsKolrazlmom.txt" & vbCrLf & " 2.1853D_dates_GroupsMomentsErrors.txt" & vbCrLf & " 3. 3D_dates_ModFirstSecSel_GroupsMomentsErrors.txt" & vbCrLf & " 4. Derivative_FirstSet.txt" & vbCrLf & " 5.Derivative_SecondSet.txt" & vbCrLf & " 6.

DifferencesInLines_FirstSet.txt" & vbCrLf & " 7.DifferencesInLines_SecondSet.txt" & vbCrLf & " 8. MiddleIntensity_FirstSet.txt" & vbCrLf & " 9.MiddleIntensity_SecondSet.txt" & vbCrLf & "10. Razlichie.txt" & vbCrLf & "11. Sovpadenii.txt"End IfElseIf codeOfErrors = 3 Then MsgBox "Ошибка: количество исходных данных в выбранномдиапазоне равно нулю!" & Chr(13) & "Решение: Скорректируйте значения в ячейках B3 и B4."End IfElseIf codeOfErrors = 1 Then MsgBox "Ошибка: величина начальной границы диапазона для расчетамомента больше, чем величина конечной границы диапазона!" & Chr(13) & "Решение:Скорректируйте значения в ячейках B3 и B4."If codeOfErrors = 4 Then MsgBox "Ошибка: количество групп не может быть меньше, чем 2!" &Chr(13)End IfEnd Sub186.

Характеристики

Список файлов диссертации