История 10 гдз: ГДЗ по истории за 10 класс, решебник и ответы онлайн

13 дней

Расширенная история

908 8

9082 1 13

8

9000 8

0

27

9107

9101

25

9

0

9

908

900 19

Microsoft Word — Абдуллаев12102015BJMMR21661

% PDF-1.4
%
1 0 объект
>
эндобдж
2 0 obj
> поток

конечный поток
эндобдж
3 0 obj
>
эндобдж
5 0 obj
>
эндобдж
4 0 obj
>
эндобдж
6 0 obj
> / Повернуть 0 / Родительский 4 0 R / MediaBox [0 0 612 792] / Содержание 18 0 R / Тип / Страница >>
эндобдж
18 0 объект
> поток
x = ksu _ +% o $% ‘suE + Rdtϸ_ |

история-гдз.ru ▷ Веб-сайт статистики и онлайн-инструментов

% Это служба запросов к базе данных RIPE.
% Объекты в формате RPSL.
%
% База данных RIPE регулируется Положениями и условиями.
% См. Http://www.ripe.net/db/support/db-terms-conditions.pdf

% Примечание: этот вывод был отфильтрован.
% Чтобы получить вывод для обновления базы данных, используйте флаг «-B».

% Информация, относящаяся к ‘AS196608 — AS207259’

as-block: AS196608 — AS207259
описание: RIPE NCC ASN block
примечания: Эти номера AS назначаются операторам сети в регионе обслуживания RIPE NCC.
mnt-by: RIPE-NCC-HM-MNT
создано: 2016-09-08T07: 26: 53Z
последнее изменение: 2016-09-08T07: 26: 53Z
источник: RIPE

% Информация, относящаяся к ‘AS198610 ‘

% Контактное лицо по вопросам злоупотреблений для’ AS198610 ‘:’ [email protected] ‘

aut-num: AS198610
as-name: BEGET-AS
import: from AS9002 accept any
import: from AS50952 accept AS-DATAIX
импорт: из AS48625 принять ЛЮБОЙ импорт
: из AS51289 принять AS51289
импорт: из AS35000 принять ЛЮБОЙ импорт
: из AS3267 принять ЛЮБОЙ импорт
: из AS50384 принять ЛЮБОЙ импорт
: из AS44843 принять ЛЮБОЙ импорт
: из AS56689 принять импорт AS56689
: из AS43690 принять AS-SPBROUTESERVER
импорт: из AS8631 принять AS-MSKROUTESERVER
импорт: из AS29076 принять AS-CLOUD-IX-PRO
импорт: из AS42861 принять ЛЮБОЙ импорт
: из AS6939 принять ЛЮБОЙ импорт
: из AS8492 принять AS -OBIT
импорт: из AS60373 принимает ЛЮБОЙ импорт
: из AS20764 принимает ЛЮБОЙ
импорт: из AS8641 принять ЛЮБОЙ
импорт: из AS62251 принять AS-DREAMLESS
импорт: из AS41722 принять ЛЮБОЙ импорт
: из AS50817 принять as-piter-ix
импорт: из AS31500 принять ЛЮБОЙ импорт
: из AS15169 принять AS-GOOGLE
экспорт: в AS41722 объявить AS-BEGET
экспорт: в AS62251 объявить ЛЮБОЙ экспорт
: в AS8641 объявить AS-BEGET
экспорт: в AS20764 объявить AS-BEGET
экспорт: в AS29076 объявить AS-BEGET
экспорт: в AS8492 объявить AS- BEGET
экспорт: в AS6939 объявить AS-BEGET
экспорт: в AS42861 объявить AS-BEGET
экспорт: в AS60373 объявить AS-BEGET
экспорт: в AS56689 объявить AS-BEGET
экспорт: в AS8631 объявить AS-BEGET
экспорт: в AS44843 объявить AS-BEGET
экспорт: AS9002 объявить AS-BEGET
экспорт: AS50952 объявить AS-BEGET
экспорт: AS48625 объявить AS-BEGET
экспорт: AS51289 объявить ЛЮБОЙ экспорт
: AS35000 объявить AS-BEGET
экспорт : to AS3267 объявить AS-BEGE T
экспорт: в AS50384 объявить AS-BEGET
экспорт: в AS43690 объявить AS-BEGET
экспорт: в AS50817 объявить AS-BEGET
экспорт: в AS31500 объявить AS-BEGET
экспорт: в AS15169 объявить AS-BEGET
org: ORG -BL131-RIPE
admin-c: BGT2012-RIPE
tech-c: BGT2012-RIPE
status: ASSIGNED
mnt-by: RIPE-NCC-END-MNT
mnt-by: BEGET-MNT
создан: 2012-06 -25T07: 47: 36Z
последнее изменение: 2018-04-09T16: 13: 43Z
источник: RIPE

организация: ORG-BL131-RIPE
имя организации: Beget Ltd
тип организации: LIR
адрес: 10A Енергетиков ул., офис 602
адрес: 195027
адрес: Санкт-Петербург
адрес: РОССИЙСКАЯ ФЕДЕРАЦИЯ
телефон: +78123854136
факс: +78123854136
admin-c: MVL1984-RIPE
abuse-c: AR16577-RIPE
mnt-ref : RIPE-NCC-HM-MNT
mnt-ref: BEGET-MNT
mnt-by: RIPE-NCC-HM-MNT
mnt-by: BEGET-MNT
создано: 2012-06-05T07: 58: 34Z
последняя -модифицировано: 2017-10-30T14: 49: 53Z
источник: RIPE # Filtered

роль: BEGET контакты
адрес: Beget Ltd
адрес: Бизнес центр «Аврора-Сити»
адрес: ул. Шаумяна 4, офис 505- 506
адрес: 199406 Санкт-Петербург
адрес: Российская Федерация
admin-c: ALEX22-RIPE
tech-c: MVL1984-RIPE
nic-hdl: BGT2012-RIPE
mnt-by: BEGET-MNT
abuse-mailbox: злоупотребление @ порождает.ru
phone: +78123854136
org: ORG-BL131-RIPE
created: 2012-08-10T07: 51: 28Z
last-modified: 2014-09-03T12: 57: 21Z
source: RIPE # Filtered

% This запрос обслуживается службой запросов к базе данных RIPE версии 1.91.2 (ANGUS)

HIP21030045e_Project_Butterfly_AP

% PDF-1.6
%
1 0 объект
>
эндобдж
2 0 obj
> поток
2021-04-01T20: 41 + 08: 002021-04-01T20: 41 + 08: 002021-04-01T20: 41 + 08: 00Терренс Чу @ XPPapplication / pdf

uuid: e58e4ee4-3c0b-4ad1-9930-0fd0f062e0f3uuid: 9b877461-1c1d-48ca-b929-ce0c6f050d1c Acrobat Distiller 11.0 (Windows)

конечный поток
эндобдж
3 0 obj
>
эндобдж
5 0 obj
>
эндобдж
6 0 obj
>
эндобдж
7 0 объект
>
эндобдж
8 0 объект
>
эндобдж
9 0 объект
>
эндобдж
34 0 объект
> / Font> / ProcSet [/ PDF / Text] >> / Rotate 0 / TrimBox [0 0 595.276 793.701] / Тип / Страница >>
эндобдж
35 0 объект
> / Font> / ProcSet [/ PDF / Text] >> / Rotate 0 / TrimBox [0 0 595.276 793.701] / Type / Page >>
эндобдж
36 0 объект
> / Font> / ProcSet [/ PDF / Text] / Properties >>> / Rotate 0 / TrimBox [0 0 595.276 793.701] / Type / Page >>
эндобдж
37 0 объект
> / Font> / ProcSet [/ PDF / Text] >> / Rotate 0 / TrimBox [0 0 595.276 793.701] / Type / Page >>
эндобдж
38 0 объект
> / Font> / ProcSet [/ PDF / Text] / Properties >>> / Rotate 0 / TrimBox [0 0 595.o ի r6 + &% fLt Lb8-bƋ ~ (y2lS; sI 7? 7Wu = OoUC \ IoVc> .G4 (
ta8WWeNLV3 # + nhͿ

M + ͇U SemY3. | U! \ f ㆣ * d; 1BEzF
Bw`; xVv @; _ CW + ⛆0mv5u T ܧ b \ {kG_Fɪ ~ 9G 耨 鼆 c

; +
;
; ПРОЕКТ: КЬЯНТИ
;
; CHIANTI — это пакет атомных баз данных для спектроскопической диагностики
; Астрофизическая плазма. Это совместный проект с участием военно-морского флота.
; Исследовательская лаборатория (США), Флорентийский университет (Италия),
; Кембриджский университет и Лаборатория Резерфорда Эпплтона (Великобритания).;
;
; ИМЯ: RATIO_PLOTTER
;
; ЦЕЛЬ:
; Подпрограмма на основе виджетов, позволяющая анализировать плотность или
; термочувствительные соотношения.
;
; ОБЪЯСНЕНИЕ:
;
; RATIO_PLOTTER предназначен для изучения температуры и плотности.
; чувствительные соотношения линий. Для температурных соотношений просто используйте
; ключевое слово / темп; для соотношения плотностей просто используйте / dens.
;
; Программа позволяет использовать соотношение линий относительно
; конкретную строку (называемую «линией знаменателя»), которую необходимо просмотреть. Один
; можно выбрать конкретный числитель или просто просмотреть
; все соотношения в указанном диапазоне длин волн (см. виджет кнопки
; прямо над основным окном графика).;
; В первом случае строку числителя можно выбрать либо из
; самые сильные линии или из всех линий в пределах указанной длины волны
; диапазон.
;
; Диапазон длин волн выбирается с помощью ползунков в нижнем левом углу
; основной виджет.
;
; Набор параметров излучательной способности по умолчанию изначально используется для создания
; первый сюжет, который вы видите. Чтобы изменить параметры, нажмите на
; Кнопка «ИЗМЕНИТЬ ПАРАМЕТРЫ» в верхней части графического интерфейса. Это активирует
; новый набор виджетов, позволяющих пользователю изменять энергию или
; необходимы фотонные единицы, независимо от того, включены ли скорости протонов,
; диапазон температуры / плотности и т. д.Обратите внимание, что пока параметры
; при изменении, пользователь не может изменить выбор линии или график
; параметры.
;
; Когда была выбрана конкретная строка числителя, наблюдались
; интенсивности (и планки ошибок) как для знаменателя, так и для числителя
; можно ввести, и можно увидеть производную плотность (плюс планки погрешностей)
; на графике (нажмите «ПОЛОСКА ОШИБОК») или в текстовом виджете (см.
; кнопку «ПОКАЗАТЬ ПОЛУЧЕННЫЕ ПЛОТНОСТИ»).
;
; Точность полученной плотности или температуры ограничена
; интервалы при расчете излучательной способности.Интервалы могут быть
; изменен в виджете (есть 4 варианта выбора), и если новый
; Если выбран интервал, следует рассчитать новые коэффициенты излучения.
; Использование наименьших интервалов даст наивысшую точность для
; вычисленная плотность или температура.
;
;
; ПОСЛЕДОВАТЕЛЬНОСТЬ ВЫЗОВА:
;
; RATIO_PLOTTER, IZ, ION [, / TEMP, / DENS, EM, PATH =, / NOPROT, $
; IONEQ_FILE =, ABUND_FILE =]
;
; ПРИМЕРЫ:
;
; RATIO_PLOTTER, 26, 13, / TEMP; Fe XIII
;
; RATIO_PLOTTER, 10, 6, / DENS; Ne VI
;
; RATIO_PLOTTER, 26, 13, / DENS, PATH = ‘/ home / new_chianti_data’
;
; ВХОДЫ:
;
; IZ: атомный номер иона.
; ИОН: спектроскопическое число иона (например,г., 12 = XII)
;
; ОПТ. ВХОДЫ:
;
; EM: Сохраните отображаемые коэффициенты излучения в структуру EM. Этот
; структура — это просто структура EMISS_SELECT, используемая в
; рутина, с некоторыми дополнительными тегами. Эта структура имеет
; теги:
;
; .lines.emiss Излучательная способность лески при заданной плотности
; .lines.wavel Длина (и) волны линии (смешение)
; .dens Log10 электронная плотность / плотности
; .temp Log10 температура электронов
; .rphot Радиус фотовозбуждения
; .radt Температура излучения
; .proton Строка, указывающая, являются ли скорости протонов
; включены.
; .date Дата и время, когда структура была
; созданный.
; .version Версия КЬЯНТИ, создавшая
; состав.
;
; ПУТЬ: Данные в формате КЬЯНТИ, которых нет в КЬЯНТИ.
; базу данных можно прочитать, указав каталог, в котором
; он лежит через PATH.;
; ABUND_FILE Имя файла изобилия CHIANTI. Это используется для
; расчет отношения протонов к электронам. По умолчанию
; ! изобилие_файл.
;
; IONEQ_FILE Имя файла ионного баланса CHIANTI. Это используется для
; вычисление отношения протонов к электронам и оценка
; T_max иона. По умолчанию! Ioneq_file.
;
; КЛЮЧЕВЫЕ СЛОВА:
;
; ПЛОТНОСТЬ Если установлено, отношения отображаются как функция
; плотность, а не температура.;
; ТЕМПЕРАТУРА Если установлено, отношения отображаются как функция
; температура, а не плотность.
;
; NOPROT Если установлено, то по умолчанию НЕ будет использоваться
; скорости протонов. Это можно изменить в обычном режиме.
;
; ЗАМЕЧАНИЯ ПО ПРОГРАММИРОВАНИЮ:
;
; RATIO_PLOTTER на самом деле представляет собой набор из нескольких подпрограмм ….
;
; DENS_FINDER — преобразует наблюдаемые отношения в плотности
; INDEX_EXTRACTOR — устройство для извлечения индексов из массивов
; WAVEL_PLOT — отображает маленькое окно в нижнем левом углу графического интерфейса.
; DENS_PLOT — обновляет окно графика
; DENS_MAIN_EVENT — отвечает на действия виджета
; SAMPLE_WID — настраивает виджеты
; RATIO_PLOTTER — загружает различные начальные параметры
;
; Коэффициенты излучения всех линий иона хранятся в
; структура «эмиссия», в то время как выбранные строки сохраняются
; в «emiss_sel».Последний можно вывести в IDL, указав
; «EM» — необязательный ввод в командной строке.
;
; Программа настроена так, чтобы можно было использовать более одного числителя.
; отображается сразу, но я никогда не испытывал необходимости
; реализовать это пока. (Обратите внимание, что вы увидите «Числитель 1» на
; виджет.)
;
; ЗВОНКИ:
;
; EMISS_CALC, EMISS_SELECT, ZION2NAME,
; ZION2FILENAME, ZION2SPECTROSCOPIC, PS, PSCLOSE, IS_NUMBER,
; CHIANTI_FONT, TRIM, CH_TMAX, CH_LOOKUP_EMISS
;
; ВНУТРЕННИЕ ПРОЦЕДУРЫ И ФУНКЦИИ
;
; DENS_FINDER, INDEX_EXTRACTOR, DENS_PLOT, DENS_MAIN_EVENT,
; SAMPLE_WID, WAVEL_PLOT
;
; ОБЩИЕ БЛОКИ
;
; EMISS_DATA, SELECT, SLIDERS, PLOTTING, RAD_DATA, PROTON_RATES,
; ДОПОЛНИТЕЛЬНАЯ, ELVLC, ФАЙЛЫ, ТЕМП.
;
; ИСТОРИЯ:
;
; Вер.1: PRY, 15-СЕН-97.
; Версия 2: PRY, 6-JUL-98, добавлены EM и PATH
; Версия 3: PRY, 5-SEP-98, добавлен вызов select_ioneq
; Версия 4: PRY, 11-JAN-99, добавлено ключевое слово PROTON и виджет, чтобы разрешить
; сложение протонных скоростей
; Версия 5: PRY, 3-FEB-99, добавлен заголовок к виджету и имя.
; иона к соотношению Заголовок графика
; Версия 6: PRY, 25-MAR-99, исправлена ​​ошибка для длин волн> 1000
; ангстремы
; Версия 7: PRY, 1-JUN-99, подпрограмма теперь работает в среде CDS
; без use_dere_chianti
; Версия 8: PRY, 22-ФЕВ-00, исправленная проблема с цветом
; Вер.9: PRY, 17-AUG-00, добавлены окна, определяющие числитель
; и переходы знаменателя. Это потребовало
; дополнительная процедура (MAKE_STRINGS) и общий блок
; (ELVLC).
; Версия 10: PRY, 25-AUG-00, добавлены кнопки, позволяющие выбирать между
; отношения в единицах энергии или фотонов.
; Версия 11: PRY, 25-AUG-00, теперь можно указать диапазон длин волн с помощью
; прямой ввод чисел
; Вер.12: PRY, 30-ноя-00, изменен вызов на emiss_select
; Версия 13: PRY, 21 декабря-00, удален set_plot, ‘x’ после справки от
; Билл Томпсон
; Версия 14, PRY, 27 декабря 00, изменен переключатель на tst1 для IDL v5.4
; Версия 15, PRY, 7 декабря 01, ключевое слово / prot изменено на / noprot, чтобы оно было
; совместим с другими программами CHIANTI.
; Добавлено ключевое слово / temperature.
; Версия 16, PRY, 28 мая 2002 г., удалены вызовы SPLINE, заменены на
; SPL_INIT и SPL_INTERP; изменил метки плотности на
; температурные ярлыки, где это необходимо.; Версия 17, PRY, 29 мая 2002 г., согласовала обработку фотовозбуждения.
; с другими процедурами CHIANTI.
;
; Т. 18, 29 мая 2002 г., Джулио Дель Занна (GDZ)
; обобщенная конкатенация каталогов для работы в Unix,
; Windows и VMS.
; Теперь мы вызываем только zion2filename.
; При создании файла ps используются ps и psclose.
;
; т.19, 12.06.02 ГДЗ
; исправлена ​​небольшая ошибка при нахождении имен файлов при
; задано ключевое слово PATH.;
; v.20, 2 августа 2002 г., Питер Янг
; внесла некоторые косметические изменения в соответствии с предложениями Джулио.
;
; v.21, 5 августа 2002 г., Питер Янг
; внес различные изменения:
; — параметры излучательной способности (вверху виджета) могут быть только
; теперь изменяется независимо от выбора строки
; — текстовые виджеты теперь проверяют ввод данных пользователем
; числа.
; — увеличено количество тегов на выходной ЭМ структуре
;
; v.22, 6 августа 2002 г., Питер Янг
; исправлена ​​проблема с графиком при просмотре всех температурных соотношений
; в фиксированном диапазоне длин волн.
;
; v.23, 8 августа 2002 г., Питер Янг
; ряд косметических изменений, чтобы сделать графический интерфейс более удобным
; удобный
;
; v.24, 13.08.02, Питер Янг
; изменил текстовый виджет температуры / плотности, чтобы числа
; регистрируются, даже если клавиша возврата не была нажата.
;
; v.25, 14.08.02, Питер Янг
; кнопка фотовозбуждения теперь снова работает; также немного косметики
; изменения
; В.26, 17.09.02, ГДЗ
; добавлена ​​прокрутка в главном фрейме
;
; V.27, 10.02.03, Питер Янг
; исправлена ​​ошибка, связанная со шрифтами на ПК с Windows
;
; V.28, 13.02.03, Питер Янг
; исправлена ​​проблема, когда данные о дозе ионного баланса отсутствуют для
; ион
;
; V.29, 18.02.03, Питер Янг
; добавлен вызов подпрограммы chianti_font для работы со шрифтами.
;
; V.30, 28 августа 2003 г., Питер Янг
; исправлена ​​ошибка, когда две линии имеют одинаковую длину волны на
; знакомство.ind тега для emiss_sel
;
; V.31, 3 ноября 2003 г., Джулио Дель Занна
; Добавлена ​​распечатка значений Ne (Te) и отношения
; Изменен формат с e8.2 на e9.2 для совместимости с Windows.
;
; V.32, 6 ноября 2003 г., Питер Янг
; Исправлена ​​ошибка, когда вычислялись новые коэффициенты излучения, которые
; предотвратил обновление emissivites в emiss_sel.
; Кроме того, значения отношения Ne (Te) теперь выводятся во всплывающем окне.
; через новую кнопку «ПОКАЗАТЬ ЗНАЧЕНИЯ СООТНОШЕНИЯ», а
; чем выводится в текстовое окно (см.31).
;
; V.33, 7 ноября 2003 г., Джулио Дель Занна (GDZ)
; Изменил всплывающий виджет, вызвав xpopup и добавив
; этикетки. Теперь можно вставить и скопировать СООТНОШЕНИЕ
; значения в файл.
;
; V.34, 12 декабря 2003 г., Питер Янг
; Уменьшено положение постскриптума на бумаге так, чтобы
; что заголовок не обрезается на бумаге формата Letter (США).
;
; V.35, 2 августа 2005 г., ГДЗ
;
; Различные модификации. Теперь процедура обрабатывает
; диэлектронный корпус.Добавлена ​​печать списков строк в
; графики отношения линий. Добавлена ​​возможность печати прямо в
; принтер. Добавлена ​​возможность СОХРАНИТЬ структуру
; содержащий значения излучательной способности в файл сохранения IDL (с использованием
; САВЕГЕН). В окно добавлено сохранение = 2. Добавлен
; логарифмический или линейный переключатель графика. Добавлена ​​очистка
; переменные в начале процедуры. Различные второстепенные
; косметические изменения.
;
; V.36, 12.08.2005, ГДЗ
; Восстановлены некоторые предыдущие косметические функции.Также скорректировано
; некоторые размеры, добавлены некоторые проверки (например, минимум установлен на 1e-10, если
; график в логарифмическом масштабе — во избежание логарифма (0) -; автоматическое масштабирование не может
; быть установленным, если шкала журнала включена).
;
; V.37, 15 августа 2005 г., Питер Янг
; Исправлена ​​ошибка с производными плотностями при теоретическом соотношении
; двузначна.
;
; V.38, 15 августа 2005 г., Питер Янг
; Исправлена ​​ошибка, появившаяся в результате модификации выше.
;
; V.39, 17 августа 2005 г., Питер Янг
; Скорректирована верстка виджета, изменена печать длин волн
; в окне графика и скорректированные пределы графика для масштаба журнала.;
; V.40, 18 августа 2005 г., Питер Янг
; Исправлена ​​ошибка температурной версии программы, приводившая к
; несоответствие заявленных параметров и параметров графика
;
; V.41, 11 октября 2007 г., Питер Янг
; Исправлена ​​ошибка при указании PATH =.
;
; V.42, 14 июня 2010 г., Питер Янг
; Для ионов с большим количеством переходов (например, Fe
; XVIII) нельзя было выделить строки с большими
; длины волн как целые числа не были определены как
; длинные.Сейчас это исправлено. Также исправлена ​​ошибка, когда
; выбор самых сильных линий для ионов с менее 15
; переходы.
;
; V.43, 8 декабря 2011 г., Питер Янг
; Изменен способ масштабирования виджета для маленьких экранов.
;
; V.44, 17 августа 2015 г., Питер Янг
; Изменено ‘lambda’ на ‘lmbda’, поскольку IDL представил новый
; функция называется лямбда.
;
; V.45, 7 августа 2019 г., Питер Янг
; Начато внедрение опции / LOOKUP; удален галикон
; Эл. адрес; теперь вызывает ch_tmax.; —

; ————————————————- ——————————
PRO MAKE_STRINGS, I, STR
; ————————————————- ——————————
; GDZ — изменен emiss_data COMMON
ОБЩИЕ emiss_data, iz, ion, diel, emiss, lo_dens, hi_dens, dint, dens, temp, units
ОБЩИЙ elvlc, l1, term, conf, ss, ll, jj, ecm, eryd, ecmth, erydth, ref

index_extractor, i, index = индекс

str = strarr (n_элементов (индекс))

; ГДЗ
FOR j = 0L, n_elements (index) -1 НАЧАТЬ
l1 = эмиссия [индекс [j]]. level1
l2 = эмиссия [индекс [j]].уровень 2
wvl = strtrim (string (format = ‘(f12.3)’, emiss [index [j]]. lambda), 2) + $
» + строка (197b)
term1 = strtrim (термин [l1-1], 2)
term2 = strtrim (термин [l2-1], 2)
l1 = strtrim (строка (формат = ‘(i4)’, l1), 2)
l2 = strtrim (строка (формат = ‘(i4)’, l2), 2)
str [j] = wvl + » + l1 + ‘-‘ + l2 + » + term1 + ‘-‘ + term2
ENDFOR

КОНЕЦ

; ————————————————- ——————————
PRO DENS_FINDER, INDEX, PS = PS
; ————————————————- ——————————
; Использует наблюдаемое соотношение (и ошибку 1 сигма) для оценки плотности.;
; GDZ — изменено отображение и emiss_data ОБЩИЕ
; PRY — исправленная ошибка для двузначных отношений
;
ОБЩИЕ emiss_data, iz, ion, diel, emiss, lo_dens, hi_dens, dint, dens, temp, units
ОБЩИЙ выбор, emiss_sel
ОБЩИЕ ползунки, lo_w, hi_w, min_w, max_w
ОБЩЕЕ построение, lims, set_scale, all, loglin, line_labels

ЕСЛИ keyword_set (ps) ТО НАЧАТЬ
th = 2
usersym, [- 1,1,1, -1, -1], [- 1, -1,1,1, -1], th = 2
psym = 8
ENDIF ELSE НАЧАТЬ
th = 1
psym = 6
ENDELSE

; —-
; OBS_RATIO — наблюдаемое значение отношения
; SIG_RATIO — ошибка 1 сигма для наблюдаемого отношения
; RATIO содержит теоретические значения отношения
;
I_num = emiss_sel (индекс).2)
;
ratio = emiss_sel (индекс) .em / emiss_sel (0) .em

; ——
; Убедитесь, что наблюдаемое соотношение находится в пределах теоретического диапазона.
;
ЕСЛИ (obs_ratio GT max (ratio)) OR (obs_ratio LT min (ratio)) THEN BEGIN
result = DIALOG_MESSAGE ([‘Наблюдаемое соотношение лежит за пределами теоретических значений, нанесенных на график.’, $
‘Попробуйте увеличить диапазон плотности.’], / Info)
ВОЗВРАЩЕНИЕ
ENDIF

; ——
; Должен быть как минимум в одной точке от конечных точек диапазона плотности.
; чтобы запустить сплайн через точки данных (см. код ниже)
;
результат = МИН (абс (соотношение-наблюдение), инд)
;
IF (ind LT 1) OR (ind GT N_ELEMENTS (dens) -2) THEN BEGIN
result = DIALOG_MESSAGE ([‘Отношение находится близко к краям графика.’, $
‘Попробуйте другой диапазон плотности.’], / Info)
ВОЗВРАЩЕНИЕ
ENDIF

; ——-
; Определить dens_start
;
ДЕЛО инд.
1: НАЧАТЬ
dens_start = логова (инд-1)
инд = инд + 1
КОНЕЦ
N_ELEMENTS (ден) -2: НАЧАТЬ
dens_start = логова (инд-3)
инд = инд-1
КОНЕЦ
Иначе: dens_start = dens (ind-2)
КОНЕЦ

;
; Подгоните сплайн через значения RATIO на шкале плотности x10 меньшего размера, чтобы
; получить значение плотности.
; ——
densi = НАЙТИ (41) * dint / 10. + dens_start
y2 = spl_init (dens (ind-2: ind + 2), ratio (ind-2: ind + 2))
rati = spl_interp (dens (ind-2: ind + 2), ratio (ind-2: ind + 2), y2, densi)
;
результат = MIN (ABS (rati-obs_ratio), ind)
;
OPLOT, [densi (инд), densi (инд)], [rati (инд), rati (инд)], psym = psym, symsiz = 2
OPLOT, [плотность (инд), плотность (инд)], [rati (ind) + sig_ratio, rati (ind) -sig_ratio], th = th
;
PRINT, format = ‘(«Наблюдаемое соотношение:», f8.3, «+/-«, f8.3) ‘, obs_ratio, sig_ratio
PRINT, format = ‘(«Прогнозируемая плотность:», f5.2)’, densi (ind)
emiss_sel (индекс) .dens = densi (инд)

; ——————— [O]
; Теперь выведите плотность (DENS1), соответствующую OBS_RATIO + SIG_RATIO.
;
результат = MIN (ABS (ratio- (obs_ratio + sig_ratio)), ind)
IF (ind LT 2) OR (ind GT N_ELEMENTS (dens) -3) THEN BEGIN
dens1 = -1
ENDIF ELSE НАЧАТЬ
densi = НАЙТИ (41) * dint / 10. + логова (инд-2)
y2 = spl_init (dens (ind-2: ind + 2), ratio (ind-2: ind + 2))
rati = spl_interp (dens (ind-2: ind + 2), ratio (ind-2: ind + 2), y2, densi)
;
результат = МИН (абс (соотношение- (obs_ratio + sig_ratio)), ind)
;
dens1 = densi (инд)
ENDELSE
; ——————— [O]

; ——————— (O)
; Теперь выведите плотность (DENS2), соответствующую OBS_RATIO-SIG_RATIO.
;
результат = МИН (абс (соотношение- (obs_ratio-sig_ratio)), ind)
IF (ind LT 2) OR (ind GT N_ELEMENTS (dens) -3) THEN BEGIN
dens2 = -1
ENDIF ELSE НАЧАТЬ
densi = НАЙТИ (41) * dint / 10.+ логова (инд-2)
y2 = spl_init (dens (ind-2: ind + 2), ratio (ind-2: ind + 2))
rati = spl_interp (dens (ind-2: ind + 2), ratio (ind-2: ind + 2), y2, densi)
;
результат = MIN (ABS (rati- (obs_ratio-sig_ratio)), ind)
;
денс2 = денси (инд)
ENDELSE
; ——————— (O)

; ———
; Разберитесь в случае, когда DENS1 или DENS2 находятся за пределами диапазона
;
tst1 = ((dens2 EQ -1) И (dens1 EQ -1)) + (dens2 EQ -1)
;
ДЕЛО tst1 OF
;
0: BEGIN; — dens2 не равно -1
ЕСЛИ (dens2 GE emiss_sel (index) .dens) ТО НАЧАТЬ
emiss_sel (индекс).densup = dens2
emiss_sel (индекс) .denslo = dens1
ENDIF ELSE НАЧАТЬ
emiss_sel (индекс) .densup = dens1
emiss_sel (индекс) .denslo = dens2
ENDELSE

КОНЕЦ
;
1: BEGIN; — только dens2 равно -1
ЕСЛИ (dens1 GE emiss_sel (index) .dens) ТО НАЧАТЬ
emiss_sel (индекс) .densup = dens1
emiss_sel (индекс) .denslo = dens2
ENDIF ELSE НАЧАТЬ
emiss_sel (индекс) .densup = dens2
emiss_sel (индекс) .denslo = dens1
ENDELSE
КОНЕЦ
;
2: BEGIN; — dens1 и dens2 равны -1
emiss_sel (индекс).densup = -1
emiss_sel (индекс) .denslo = -1
КОНЕЦ
;
КОНЕЦ

ЕСЛИ ((obs_ratio + sig_ratio) GT MAX (ratio)) ТО НАЧАТЬ
ind = WHERE (коэффициент EQ MAX (коэффициент))
IF dens (ind (0)) GT emiss_sel (index) .dens $
ТО emiss_sel (index) .densup = -1 $
ELSE emiss_sel (индекс) .denslo = -1
ENDIF
ЕСЛИ ((obs_ratio-sig_ratio) LT MIN (ratio)) THEN BEGIN
ind = WHERE (коэффициент EQ MIN (коэффициент))
IF dens (ind (0)) GT emiss_sel (index) .dens $
ТО emiss_sel (index) .densup = -1 $
ELSE emiss_sel (индекс) .denslo = -1
ENDIF

КОНЕЦ

;; ———————————————— ——————————
PRO INDEX_EXTRACTOR, I, INDEX = INDEX, PLOT_LABEL = PLOT_LABEL, PS = PS
; ————————————————- ——————————

; +
; Эта процедура имеет двойную цель: (i) извлекать индексы эмиссии из
; emiss_sel и, (ii) создать метки, которые будут отображаться на графике
; окно.; Строки, составляющие смесь, содержатся в emiss_sel.label.
; как, например, «203,79 + 203.80″. Эта процедура разделяет эту строку на
; отдельные длины волн и смотрит в emiss.lambda, чтобы увидеть, какие
; индексы, которым они соответствуют. Набор индексов выводится через INDEX.
;
; ВХОД
;
; I Индекс компонента в emiss_sel. Например, для знаменателя I = 0,
; для числителя I = 1.
;
; ДОПОЛНИТЕЛЬНЫЙ ВЫХОД
;
; INDEX Целочисленный массив той же длины, что и количество строк в
; числитель или знаменатель (на основе значения I).Элементы
; укажите индексы линий, как они появляются в EMISS
; состав.
;
; PLOT_LABEL Строка, содержащая индекс, который будет использоваться при маркировке
; графики отношения линий.
;
; КЛЮЧЕВОЕ СЛОВО
;
; PS Установка этого добавляет ангстрема к меткам длины волны. (Только
; работает для устройства PostScript.)
; —
; GDZ — изменен emiss_data COMMON

ОБЩИЕ emiss_data, iz, ion, diel, emiss, lo_dens, hi_dens, dint, dens, temp, units
ОБЩИЙ выбор, emiss_sel

ЕСЛИ keyword_set (ps) THEN ang = string (197b) ELSE ang = »

n = emiss_sel (i).n_ind — 1
индекс = lonarr (n + 1)

lresult = STR_SEP (emiss_sel (i) .label, ‘+’)
результат = str_sep (emiss_sel [i] .ind, ‘+’)
index = long (результат)

;
; В следующем бите, если ион имеет большое количество строк (> 1024), IDL
; не любит, когда вы конвертируете emiss.lambda в строковый массив.
; Таким образом, вместо этого я использовал «ind», чтобы выбрать только подмножество
; длины волн.
;
; ЕСЛИ N_ELEMENTS (индекс) NE 0, ТО НАЧАТЬ
; ДЛЯ j = 0, n НАЧАТЬ
; ind = WHERE (ABS (FLOAT (result (j)) — emiss.lambda) LT 2.)
; index (j) = WHERE (результат (j) EQ STRTRIM (STRING (FORMAT = ‘(f10.3) ‘, $
; эмисс (инд). лямбда), 2))
; index (j) = ind (index (j))
; ENDFOR
; ENDIF

ЕСЛИ N_ELEMENTS (plot_label) ТО НАЧАТЬ
plot_label = lresult (0) + ang
ЕСЛИ n GT 0, ТО ДЛЯ j = 1, n DO plot_label = plot_label + ‘! C’ + lresult (j) + ang
ENDIF

КОНЕЦ

; ————————————————- ——————————
PRO DENS_PLOT, состояние = состояние, ps = ps
; ————————————————- ——————————

; Здесь строятся соотношения линий. Общий блок «прорисовка»:
; используется для обозначения того, какой тип масштабирования используется (set_scale) и
; все линии построены или только выбранные линии (все)

; GDZ — изменена прорисовка и emiss_data ОБЩИЕ
ОБЩИЕ emiss_data, iz, ion, diel, emiss, lo_dens, hi_dens, dint, dens, temp, units
ОБЩИЙ выбор, emiss_sel
ОБЩИЕ ползунки, lo_w, hi_w, min_w, max_w
ОБЩЕЕ построение, lims, set_scale, all, loglin, line_labels
ОБЩАЯ температура, t_switch
ОБЩИЕ proton_rates, prot_nincl, prot_switch, prot_mess, pname
ОБЩИЙ протон, pstr, pe_ratio

; help, lims, set_scale, all, loglin
;останавливаться

; ——————————- 0) ‘
результат = dialog_message (txt)
WIDGET_CONTROL, состояние.temp_read, $
set_value = strtrim (строка (формат = ‘(f5.2)’, темп), 2)
GOTO, фунт2
ENDELSE

WIDGET_CONTROL, state.rt_read, get_value = aa
ЕСЛИ is_number (aa) NE 0 THEN rchck = float (aa [0]) Иначе rchck = -1.
ЕСЛИ rchck GT 0. ТО НАЧАТЬ
radtemp = rchck
ENDIF ELSE НАЧАТЬ
txt = ‘PHOTOEXCITATION: введите действительное число (> 0) для’ + $
‘радиационная температура’
результат = dialog_message (txt)
WIDGET_CONTROL, состояние.rt_read, set_value = строка (формат = ‘(f7.1)’, radtemp)
GOTO, фунт2
ENDELSE

WIDGET_CONTROL, state.dil_read, get_value = aa
ЕСЛИ is_number (aa) NE 0 THEN rchck = float (aa [0]) Иначе rchck = -1.
ЕСЛИ rchck GE 1. ЗАТЕМ НАЧАТЬ
rphot = rchck
ENDIF ELSE НАЧАТЬ
txt = ‘PHOTOEXCITATION: введите действительное число (> или = 1) для’ + $
‘расстояние’
результат = dialog_message (txt)
rphot_str = strtrim (string (format = ‘(f7.2) ‘, rphot), 2)
WIDGET_CONTROL, state.dil_read, set_value = rphot_str
GOTO, фунт2
ENDELSE

nd = КРУГЛЫЙ ((hi_dens-lo_dens) / dint +1)
dens = НАЙТИ (nd) * dint + lo_dens

WIDGET_CONTROL, / песочные часы

ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
ЕСЛИ r_tst EQ 1 ТО НАЧАТЬ
emiss = emiss_calc (iz, ion, temp = dens, dens = temp, rphot = rphot, $
путь = fpath, noprot = noprot, radt = radtemp, $
/ quiet, ioneq_file = ioneq_file, DIEL = DIEL, $
изобилие_файл = изобилующий_файл, no_de = единицы)
ENDIF ELSE НАЧАТЬ
ЕСЛИ состояние.поиск EQ 1 ЗАТЕМ НАЧАТЬ
emiss = ch_lookup_emiss (iz, ion, ltemp = dens, ldens = temp, no_de = units, / quiet)
ENDIF ELSE НАЧАТЬ
emiss = emiss_calc (iz, ion, temp = dens, dens = temp, $
путь = fpath, noprot = noprot, $
/ quiet, ioneq_file = ioneq_file, DIEL = DIEL, $
изобилие_файл = изобилующий_файл, no_de = единицы)
ENDELSE
ENDELSE
ENDIF ELSE НАЧАТЬ
ЕСЛИ r_tst EQ 1 ТО НАЧАТЬ
emiss = emiss_calc (iz, ion, dens = dens, temp = temp, rphot = rphot, $
radt = radtemp, путь = fpath, noprot = prot_nincl, / quiet, $
no_de = единицы, ioneq_file = ioneq_file, DIEL = DIEL, $
изобилие_файл = изобилующий_файл)
ENDIF ELSE НАЧАТЬ
ЕСЛИ состояние.поиск EQ 1 ЗАТЕМ НАЧАТЬ
emiss = ch_lookup_emiss (iz, ion, ltemp = temp, ldens = dens, no_de = units, / quiet)
ENDIF ELSE НАЧАТЬ
emiss = emiss_calc (iz, ion, dens = dens, temp = temp, $
путь = fpath, noprot = prot_nincl, / quiet, $
no_de = единицы, ioneq_file = ioneq_file, DIEL = DIEL, $
изобилие_файл = изобилующий_файл)
ENDELSE
ENDELSE
ENDELSE

label = emiss_sel.label & n_inds = emiss_sel.n_ind; сохранить информацию перед
obs = emiss_sel.obs & sig = emiss_sel.sig; уничтожение emiss_sel
inds = emiss_sel.ind

str = {label: », em: fltarr (nd), n_ind: -1, obs: 0., sig: 0., $
dens: 0., densup: 0., denslo: 0., ind: »}
emiss_sel = репликация (str, 5); воссоздать emiss_sel

ЕСЛИ prot_nincl EQ 0 ТО НАЧАТЬ
результат = FINDFILE (EXPAND_PATH (pname))
IF результат (0) NE » THEN BEGIN
prot_switch = 1
ENDIF ELSE НАЧАТЬ
prot_switch = 2
prot_nincl = 1
WIDGET_CONTROL, состояние.prot_bgrp, set_value = 0
ENDELSE
ENDIF ELSE НАЧАТЬ
prot_switch = 0
ENDELSE
WIDGET_CONTROL, state.prot_disp, set_value = prot_mess (prot_switch)

FOR i = 0,4 НАЧАТЬ
emiss_sel (i) .label = label (i) & emiss_sel (i) .n_ind = n_inds (i)
emiss_sel (i) .obs = obs (i) и emiss_sel (i) .sig = sig (i)
emiss_sel [i] .ind = inds [i]
ЕСЛИ emiss_sel (i) .n_ind NE -1, ТО НАЧАТЬ
index_extractor, i, index = индекс
ЕСЛИ emiss_sel (i).n_ind EQ 1 ЗАТЕМ НАЧАТЬ
emiss_sel [i] .em =form (emiss [index [0]]. em)
ENDIF ELSE НАЧАТЬ
em_all = реформа (эмиссия [индекс] .em)
emiss_sel [i] .em = реформа (всего (em_all, 2))
ENDELSE
ENDIF
ENDFOR
dens_plot, state = состояние

widget_control, state.ch_params, set_val = ‘ИЗМЕНИТЬ ПАРАМЕТРЫ’
widget_control, state.ch_params, set_uval = 0
;
widget_control, состояние.base_2, чувствительный = 1
widget_control, state.base_sub1, чувствительный = 0
ENDIF
lbl2:
КОНЕЦ

event.id EQ state.units_buts: widget_control, state.units_buts, $
get_value = единицы

event.id EQ state.prot_bgrp: BEGIN
WIDGET_CONTROL, state.prot_bgrp, get_value = aa
prot_nincl = aa
КОНЕЦ

event.id EQ state.lo_dens_slid: BEGIN; — слайдер dens
ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
lo_dens = (значение события) / 5. + 2,0
widget_control, state.ld_label, $
set_value = строка (формат = ‘(f4.1) ‘, lo_dens)
ENDIF ELSE НАЧАТЬ
lo_dens = event.value
ENDELSE
КОНЕЦ

event.id EQ state.hi_dens_slid: BEGIN; — слайдер dens
ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
hi_dens = (значение события) / 5. + 2,0
widget_control, state.hd_label, $
set_value = строка (формат = ‘(f4.1)’, hi_dens)
ENDIF ELSE НАЧАТЬ
hi_dens = event.value
ENDELSE
КОНЕЦ

event.id EQ state.dens_bgrp: BEGIN; — интервал плотности
; ; кнопки
CASE событие.значение
;
0: НАЧАТЬ
WIDGET_CONTROL, state.dens_bgrp, get_value = aa, get_uvalue = bb
dint = float (bb (aa))
КОНЕЦ
;
1: НАЧАТЬ
WIDGET_CONTROL, state.dens_bgrp, get_value = aa, get_uvalue = bb
dint = float (bb (aa))
КОНЕЦ
;
2: НАЧАТЬ
WIDGET_CONTROL, state.dens_bgrp, get_value = aa, get_uvalue = bb
dint = float (bb (aa))
КОНЕЦ
;
3: НАЧАТЬ
WIDGET_CONTROL, состояние.dens_bgrp, get_value = aa, get_uvalue = bb
dint = float (bb (aa))
КОНЕЦ
;
КОНЕЦ
КОНЕЦ

event.id EQ state.pexc_bgrp: BEGIN
widget_control, state.pexc_bgrp, get_value = getval
ЕСЛИ getval EQ 0 ТО НАЧАТЬ
widget_control, state.dil_set, map = 1
widget_control, state.rt_set, map = 1
r_tst = 1
ENDIF ELSE НАЧАТЬ
widget_control, state.dil_set, map = 0
widget_control, state.rt_set, map = 0
r_tst = 0
ENDELSE
КОНЕЦ

;
; примечание: раньше я разрешал вводить коэффициент разбавления, но теперь я разрешаю
; расстояние, которое необходимо установить.Однако я не менял названия виджетов.
;
; event.id eq state.dil_read: BEGIN; — расстояние чтения
; WIDGET_CONTROL, state.dil_read, get_value = rphot
; rphot = float (rphot [0])
; ЕСЛИ rphot LT 1.0 ТО НАЧАТЬ
; результат = dialog_message ([$
; ‘Distance — радиальное расстояние плазмы от’, $
; ‘центр звезды в единицах радиусов звезды и должен’, $
; ‘быть большим или равным 1, что соответствует плазме’, $
; ‘находиться либо на поверхности звезды, либо над ней.’, $
; », $
; ‘Указанное вами значение меньше 1 и будет’, $
; ‘заменить на 1.’])
; rphot = 1.0
; widget_control, state.dil_read, set_value = ‘1.00’
; ENDIF
; КОНЕЦ

; event.id eq state.rt_read: BEGIN; — прочитать рад. темп.
; WIDGET_CONTROL, state.rt_read, get_value = bob
; radtemp = float (bob) & radtemp = radtemp (0)
; КОНЕЦ

;; ———————————————— -; ВЫБОР ЛИНИИ
;; Следующий бит позволяет вставлять новые строки
;; в emiss_sel, а также позволяет анализировать смеси.;; «идентичность» определяет, какой из знаменателя или
;; числители меняются.
;;
;; Чтобы добавить больше числителей, просто добавьте лишнее ИЛИ в строку ниже.
;
(event.id eq state.d_lines) ИЛИ (event.id eq state.n1_lines): НАЧАТЬ
;
WIDGET_CONTROL, event.id, get_uvalue = identity; идентичность — целое число
; ; это определяет, что есть
; ; изменяются
CASE событие.значение
1: НАЧАТЬ
n = n_элементов (логов)
index = reverse (sort (emiss.em (fix (n / 2))))
index = index (0: min ([14, n_elements (emiss.lambda) -1])); 15 сильнейших линий.
index2 = sort (emiss (index) .lambda); Сортируйте самые сильные линии на
индекс = индекс (индекс2); порядок длин волн.
результат = emiss_select (emiss, index, sel_ind = ind, group = event.top)
IF результат (0) NE -1 THEN BEGIN
emiss_sel (личность).em = результат
emiss_sel (идентификатор) .n_ind = n_elements (ind)
emiss_sel (идентичность) .sig = 0.
ЕСЛИ identity EQ 0 THEN emiss_sel (identity) .obs = 1. $
ИНАЧЕ emiss_sel (идентификатор) .obs = 0.
WIDGET_CONTROL, state.ints (идентификатор), $
set_value = strtrim (строка (формат = ‘(f5.1)’, $
emiss_sel (identity) .obs), 2)
WIDGET_CONTROL, state.sigs (идентификатор), $
set_value = strtrim (string (format = ‘(f5.1) ‘, $
emiss_sel (identity) .sig), 2)
label = »
indstr = »
для i = 1, n_elements (ind) делать BEGIN
label = label + ‘+’ + strtrim (string (format = ‘(f10.3)’, $
эмисс (ind (i-1)). лямбда), 2)
ЕСЛИ indstr EQ » ТО indstr = trim (ind [i-1]) ELSE $
indstr = indstr + ‘+’ + trim (ind [i-1])
ENDFOR
len = strlen (метка)
label = strmid (метка, 1, len-1)
emiss_sel (личность).label = label
emiss_sel (идентификатор) .ind = indstr
WIDGET_CONTROL, state.labels (идентификатор), set_value = label
make_strings, личность, str
widget_control, state.windows [идентификатор], set_val = str
dens_plot, state = состояние
ENDIF
КОНЕЦ
;
2: НАЧАТЬ
result = emiss_select (emiss, wrange = [lo_w, hi_w], sel_ind = ind, $
группа = событие.Топ)
IF результат (0) NE -1 THEN BEGIN
emiss_sel (идентификатор) .em = результат
emiss_sel (идентификатор) .n_ind = N_ELEMENTS (ind)
ЕСЛИ identity EQ 0 THEN emiss_sel (identity) .obs = 1. $
ИНАЧЕ emiss_sel (идентификатор) .obs = 0.
emiss_sel (идентичность) .sig = 0.
WIDGET_CONTROL, state.ints (идентификатор), $
set_value = СТРОКА (СТРОКА (FORMAT = ‘(f5.1)’, $
emiss_sel (личность).набс), 2)
WIDGET_CONTROL, state.sigs (идентификатор), $
set_value = СТРОКА (СТРОКА (FORMAT = ‘(f5.1)’, $
emiss_sel (identity) .sig), 2)
label = »
indstr = »
ДЛЯ i = 1l, N_ELEMENTS (ind) НАЧАТЬ
label = label + ‘+’ + STRTRIM (STRING (FORMAT = ‘(f10.3)’, $
эмисс (ind (i-1)). лямбда), 2)
ЕСЛИ indstr EQ » ТО indstr = trim (ind [i-1]) ELSE $
indstr = indstr + ‘+’ + trim (ind [i-1])
ENDFOR

len = STRLEN (метка)
метка = STRMID (метка; 1; лен-1)
emiss_sel (личность).label = label
emiss_sel (идентификатор) .ind = indstr
WIDGET_CONTROL, state.labels (идентификатор), SET_VALUE = label
make_strings, личность, str
widget_control, state.windows [идентификатор], set_val = str
dens_plot, state = состояние
ENDIF
КОНЕЦ
;
3: НАЧАТЬ
index_extractor, идентификатор, index = index
ind_main = -1
FOR i = 0, N_ELEMENTS (index) -1 НАЧАТЬ
волна = эмисс (индекс (0)).лямбда
ind = WHERE (emiss.lambda LT wavel + 2. AND emiss.lambda GT wavel-2.)
print, format = ‘(f12.3)’, emiss (ind) .lambda
ENDFOR
Распечатать,»
КОНЕЦ
;
КОНЕЦ
;
КОНЕЦ
;; ———————————————— -; ВЫБОР ЛИНИИ

; ———————————————; НАБЛЮДАЕМЫЕ ИНТЕНСИВНОСТИ ВВОДА
;
; Обратите внимание, что текстовые виджеты читаются только тогда, когда ПОЛОЖИТЕ ОШИБКИ ПЕЧАТИ
; кнопка на виджете нажата.Это позволяет интенсивности и сигма
; быть зарегистрированным, даже если клавиша ввода не была нажата.
;
(event.id EQ state.dn_plot [0]) ИЛИ (event.id EQ state.dn_plot [1]): НАЧАТЬ

text_arr = [[‘интенсивность в знаменателе’, ‘интенсивность в числителе’], $
[‘знаменатель сигма’, ‘числитель сигма’]]
tst1 = 0
FOR i = 0,1 НАЧАТЬ
widget_control, state.ints [i], get_value = getval
chk = допустимое_число (getval [0])
ЕСЛИ chk EQ 0 ТО НАЧАТЬ
tst1 = tst1 + 1
result = dialog_message (» + text_arr [i, 0] + ‘не является допустимым числом’)
ENDIF ELSE НАЧАТЬ
emiss_sel [i].obs = getval [0]
ENDELSE

widget_control, state.sigs [i], get_value = getval
chk = допустимое_число (getval [0])
ЕСЛИ chk EQ 0 ТО НАЧАТЬ
tst1 = tst1 + 1
result = dialog_message (» + text_arr [i, 1] + ‘не является допустимым числом’)
ENDIF ELSE НАЧАТЬ
emiss_sel [i] .sig = getval [0]
ENDELSE
ENDFOR

ЕСЛИ tst1 EQ 0 ТО НАЧАТЬ
dens_plot, state = состояние
ENDIF ELSE НАЧАТЬ
emiss_sel.sig = 0.(event.value)
ENDELSE
ЕСЛИ lo_w GE 1.e6 ТО show_val = strtrim (string (format = ‘(e9.2)’, lo_w), 2) $
ELSE show_val = strtrim (строка (lo_w), 2)
WIDGET_CONTROL, state.lo_txt, set_value = show_val
wavel_plot
dens_plot, state = состояние
КОНЕЦ

event.id EQ state.lo_txt: BEGIN
widget_control, state.lo_txt, get_value = значение
значение = значение [0]
;
ЕСЛИ valid_num (значение) NE 0 THEN BEGIN
значение = double (значение [0])
ЕСЛИ значение GE hi_w THEN BEGIN
lo_w = hi_w-1
ЕСЛИ lo_w GE 1.e6 ЗАТЕМ show_val = $
strtrim (строка (формат = ‘(e9.2)’, lo_w), 2) $
ELSE show_val = strtrim (строка (lo_w), 2)
WIDGET_CONTROL, state.lo_txt, set_value = show_val
ENDIF ELSE НАЧАТЬ
lo_w = значение
ENDELSE
widget_control, state.lo_slid, set_value = alog10 (lo_w)
wavel_plot
dens_plot, state = состояние
;
ENDIF ELSE НАЧАТЬ
результат = dialog_message (txt_mess)
ЕСЛИ lo_w GE 1.(event.value)
ENDELSE
ЕСЛИ hi_w GE 1.e6 THEN show_val = strtrim (string (format = ‘(e9.2)’, hi_w), 2) $
ELSE show_val = strtrim (строка (hi_w), 2)
WIDGET_CONTROL, state.hi_txt, set_value = show_val
;
wset, plot_spec_id
wavel_plot
dens_plot, state = состояние
КОНЕЦ

event.id EQ state.hi_txt: НАЧАТЬ
widget_control, state.hi_txt, get_value = значение
значение = значение [0]
;
ЕСЛИ valid_num (значение) NE 0 THEN BEGIN
значение = double (значение [0])
ЕСЛИ значение LE lo_w THEN BEGIN
hi_w = lo_w + 1
IF hi_w GE 1.e6 ЗАТЕМ show_val = $
strtrim (строка (формат = ‘(e9.2)’, hi_w), 2) $
ELSE show_val = strtrim (строка (hi_w), 2)
WIDGET_CONTROL, state.hi_txt, set_value = show_val
ENDIF ELSE НАЧАТЬ
hi_w = значение
ENDELSE
widget_control, state.hi_slid, set_value = alog10 (привет_в)
wset, plot_spec_id
wavel_plot
dens_plot, state = состояние
;
ENDIF ELSE НАЧАТЬ
результат = dialog_message (txt_mess)
ЕСЛИ hi_w GE 1e6 ТО show_val = $
strtrim (строка (формат = ‘(e9.2) ‘, hi_w), 2) $
ELSE show_val = strtrim (строка (hi_w), 2)
widget_control, state.hi_txt, set_value = show_val
ENDELSE
КОНЕЦ

; ———————————————; СЛАЙДЕР ДЛИНЫ ВОЛНЫ

event.id eq state.up_read: BEGIN; верхний предел для ручных участков
WIDGET_CONTROL, state.up_read, get_value = результат
ЕСЛИ is_number (результат) NE 0 THEN BEGIN
lims [1] = результат
ЕСЛИ set_scale EQ 0 ТО НАЧАТЬ
set_scale = 1
widget_control, состояние.man_aut, set_value = 1
ENDIF
dens_plot, state = состояние
ENDIF ELSE НАЧАТЬ
результат = dialog_message (txt_mess)
WIDGET_CONTROL, state.up_read, set_value = строка (format = ‘(e10.2)’, lims [1])
ENDELSE
КОНЕЦ

event.id eq state.LO_read: BEGIN; нижний предел для ручных участков
WIDGET_CONTROL, state.lo_read, get_value = результат
ЕСЛИ is_number (результат) NE 0 THEN BEGIN
lims (0) = результат
ЕСЛИ set_scale EQ 0 ТО НАЧАТЬ
set_scale = 1
widget_control, состояние.man_aut, set_value = 1
ENDIF
dens_plot, state = состояние
ENDIF ELSE НАЧАТЬ
результат = dialog_message (txt_mess)
WIDGET_CONTROL, state.lo_read, set_value = строка (format = ‘(e10.2)’, lims [0])
ENDELSE
КОНЕЦ

; ГДЗ-
event.id eq state.log_plot_info: BEGIN; переключаться между логарифмическим и линейным
CASE event.value OF; масштабирование
;
0: НАЧАТЬ
loglin = 1
; в случае журнала проверьте, что у нас нет автоматического масштабирования
; с нуля.если set_scale eq 0, то начать
; переключить на авто / ynozero
set_scale = 2
widget_control, state.man_aut, set_value = 1
widget_control, state.lim_base, map = 0

если lims [0] le 0, то начинаем
lims [0] = 1e-10
WIDGET_CONTROL, state.lo_read, set_value = строка (format = ‘(e10.2)’, lims [0])
конец

endif else if set_scale eq 2 затем начать

если lims [0] le 0, то начинаем
lims [0] = 1e-10
WIDGET_CONTROL, state.lo_read, set_value = строка (format = ‘(e10.2)’, lims [0])
конец

endif else if set_scale eq 1 then begin; manual
; widget_control, состояние.man_aut, set_value = 1
; избегать нулей:

если lims [0] le 0, то начинаем
lims [0] = 1e-10
WIDGET_CONTROL, state.lo_read, set_value = строка (format = ‘(e10.2)’, lims [0])
endif

конец
КОНЕЦ
;
1: НАЧАТЬ
loglin = 0
КОНЕЦ
КОНЕЦ
; обновить:
dens_plot, state = состояние
КОНЕЦ

event.id eq state.man_aut: BEGIN; переключаться между ручным и
CASE event.value OF; автоматическое масштабирование
;
0: НАЧАТЬ
; GDZ — не разрешать, если установлена ​​опция журнала.если не логлин, тогда начни
set_scale = 0; автоматическое масштабирование
widget_control, state.lim_base, map = 0
endif else начать
set_scale = 2; автоматическое масштабирование, / ynozero
widget_control, state.man_aut, set_value = 1
widget_control, state.lim_base, map = 0

конец
КОНЕЦ
;
1: НАЧАТЬ
set_scale = 2; автоматическое масштабирование, / ynozero
widget_control, state.lim_base, map = 0
КОНЕЦ
;
2: НАЧАТЬ
set_scale = 1; ручное масштабирование
widget_control, состояние.lim_base, карта = 1
КОНЕЦ
;
КОНЕЦ
dens_plot, state = состояние
КОНЕЦ

event.id EQ state.refresh_butt: dens_plot, state = state

event.id EQ state.pr_butt: BEGIN

nd = КРУГЛЫЙ ((hi_dens-lo_dens) / dint +1)
pr_string = strarr (nd)
ratio = emiss_sel [1] .em / emiss_sel [0] .em
FOR i = 0, nd-1 НАЧАТЬ
формат = ‘(f12.3)’
IF ratio [i] LT 0,01 THEN format = ‘(e12.3)’
IF ratio [i] GE 1d7 THEN format = ‘(e12.3)’
pr_string [i] = строка (format = ‘(f7.2) ‘, dens [i]) + $
строка (формат = формат, соотношение [i])
ENDFOR

; ГДЗ
; zion2filename, iz, ion, filename, name = name, diel = diel
zion2spectroscopic, iz, ion, ion_name, diel = diel
ion_name = strcompress (ion_name)

ЕСЛИ t_switch EQ 1 THEN xtit = ‘Log Электронная температура [K]’ $
ELSE xtit = ‘Лог-электронная плотность [см-3]’

IF units EQ 0 THEN YTIT = ‘Значения отношения (энергии)’ ELSE IF $
единицы EQ 1 THEN YTIT = ‘Значения отношения (фотоны)’

pr_string = [‘Значения отношения для’ + ion_name, $
emiss_sel [1].label + ‘/’ + emiss_sel [0] .label, $
», $
xtit + ytit, $
», $
pr_string, $
», $
‘Среднее:’ + строка (формат = формат, общее (соотношение) / n_элементов (соотношение)), $
‘Стандартное отклонение:’ + строка (формат = формат, стандартное отклонение (соотношение))]
; результат = сообщение_диалога (строка_представления, / информация)
xpopup, pr_string

КОНЕЦ

event.id EQ state.b_all: BEGIN

CASE event.value OF
;
0: НАЧАТЬ
все = 0
widget_control, состояние.pr_butt, sens = 1
КОНЕЦ
1: НАЧАТЬ
все = 1
widget_control, state.pr_butt, sens = 0
КОНЕЦ
;
КОНЕЦ

dens_plot, state = состояние

КОНЕЦ

; ————————————— кнопки внизу виджета
event.id eq state.extras: НАЧАТЬ
ДЕЛО 1 ИЗ
;
; ГДЗ
event.value EQ 1: НАЧАТЬ

; сохранить значения в файл
; ————————-

index = WHERE (emiss.lambda GE lo_w И emiss.lambda LE hi_w)
IF index (0) EQ -1 THEN BEGIN; — в указанном диапазоне нет строк
result = WIDGET_MESSAGE (‘В указанном диапазоне нет строк’, / info)
ENDIF ELSE НАЧАТЬ

cd, curr = curr
result = dialog_pickfile (file = concat_dir (curr, ‘_ emiss.genx’), filter = ‘*. genx’, $
tit = ‘Выберите файл сохранения’)
ЕСЛИ результат [0] EQ » THEN GOTO, lbl1

make_currplot_label, метка, struct_info = struct_info

struct_save = join_struct ({created: systime (), Directory: fpath, emiss: emiss (index)}, $
struct_info)

savegen, file = result [0], struct = struct_save

result = WIDGET_MESSAGE (‘Значения сохранены в файле IDL genx’ + result [0] + $
‘- для восстановления используйте restgen’, / info)

; помощь, struct_save, / st

КОНЕЦ
КОНЕЦ

мероприятие.значение EQ 3 ИЛИ событие. значение EQ 4 ИЛИ событие. значение EQ 5: НАЧАТЬ
cd, curr = curr
ЕСЛИ событие.значение EQ 3 ИЛИ событие.значение EQ 5 ТО НАЧАТЬ
имя файла = concat_dir (curr, ‘idl.ps’)
ENDIF ELSE IF событие. Значение EQ 4 THEN BEGIN
результат = dialog_pickfile (файл = concat_dir (curr, ‘idl.ps’), filter = ‘*. ps’)
ЕСЛИ результат [0] EQ » THEN GOTO, lbl1
имя файла = результат [0]
КОНЕЦ

;
dname =! d.имя
! p.font = 0
SET_PLOT, ‘ps’
устройство, xsiz = 7, ysiz = 6, / дюймы, / изолатин1, файл = имя файла, / портрет, $
yoff = 4.0
dens_plot, состояние = состояние, ps = 1
;
ypos = lims [0] — (lims [1] -lims [0]) * 0.20
xpos =! x.crange [0]
make_currplot_label, метка
метка = strjoin (метка, ‘! c’)

; xyouts, xpos, ypos, метка
;
ЕСЛИ emiss_sel [1].obs NE 0. ЗАТЕМ НАЧАТЬ
xpos = 0,6 *! x.crange [1] + 0,4 *! x.crange [0]
make_dens_label, этикетка
метка = strjoin (метка, ‘! c’)
; xyouts, xpos, ypos, метка
ENDIF
;
fname = concat_dir (! xuvtop, ‘ВЕРСИЯ’)
str1 = »
ЕСЛИ file_exist (имя_файла) ТО НАЧАТЬ
openr, lun, fname, / get_lun
readf, lun, str1
free_lun, lun
ENDIF ELSE НАЧАТЬ
str1 = ‘Обновите свою версию CHIANTI до v.4 или новее ‘
ENDELSE

; xyouts,! x.crange [0], lims [0] — (lims [1] -lims [0]) * 0.40, $
; ‘График создан на’ + systime () + ‘! C’ + $
; ‘Версия КЬЯНТИ:’ + str1 + ‘! C’ + $
; ‘Файл:’ + имя файла

; GDZ — создать список строк для печати в нижней части
; участок.

label = label + ‘! c! c’ + ‘График создан на’ + systime () + ‘! c’ + $
‘Версия КЬЯНТИ:’ + str1 + ‘! C’ + $
‘Файл:’ + имя файла + ‘! C’ + $
‘Каталог:’ + fpath + ‘! C’

IF all eq 0 THEN BEGIN ;; —————-; УЧАСТОК ВЫБРАННЫХ ЛИНИЙ

;?

endif else начать

FOR i = 0L, n_elements (line_labels) -1 DO $
label = label + ‘! c’ + line_labels (i)
конец

xyouts, 0.05, -0.08, / norm, label, chars = 0.9
;
УСТРОЙСТВО, / ЗАКРЫТЬ
! p.font = -1
SET_PLOT, dname

; пс, / портрет
; dens_plot, state = состояние
;
; добавить текстовую информацию под графиком
;
; psclose
; ! p.font = -1

ЕСЛИ событие.значение EQ 3 ИЛИ событие.значение EQ 4 THEN $
result = WIDGET_MESSAGE (‘График отправлен в’ + $
имя файла, $
/ info) ELSE IF событие.значение EQ 5 ТОГДА НАЧАТЬ

prin = getenv (‘ПРИНТЕР’)
ЕСЛИ prin EQ » ТО $
xsel_printer, prin, group = DENS_MAIN, $
Instruct = ‘Выбрать принтер для распечатки’

psplot, filename, queu = prin
result = WIDGET_MESSAGE (‘График отправлен в файл idl.ps и в ПРИНТЕР’ + prin, / info)
КОНЕЦ
lbl1:

КОНЕЦ

event.value EQ 6: WIDGET_CONTROL, event.top, / DESTROY; покидать

КОНЕЦ
КОНЕЦ

ЕЩЕ:

КОНЕЦ

КОНЕЦ

; ————————————————- —————————-
PRO sample_wid, GROUP = Group, lookup = lookup
; ————————————————- —————————-
; GDZ — изменена прорисовка и emiss_data ОБЩИЕ
ОБЩИЕ emiss_data, iz, ion, diel, emiss, lo_dens, hi_dens, dint, dens, temp, units
ОБЩИЙ выбор, emiss_sel
ОБЩИЕ ползунки, lo_w, hi_w, min_w, max_w
ОБЩЕЕ построение, lims, set_scale, all, loglin, line_labels
ОБЩАЯ связь, plot_rat_id, plot_spec_id
ОБЩИЕ proton_rates, prot_nincl, prot_switch, prot_mess, pname
ОБЩИЙ протон, pstr, pe_ratio
ОБЩИЕ rad_data, radtemp, rphot, r_tst
ОБЩИЕ дополнительные, fpath
ОБЩИЙ elvlc, l1, term, conf, ss, ll, jj, ecm, eryd, ecmth, erydth, ref
ОБЩИЕ файлы, ioneq_file, изобилие_файла
ОБЩАЯ температура, t_switch

ЕСЛИ N_ELEMENTS (Группа) EQ 0, ТО ГРУППА = 0

; ——————————— O
; Создайте заголовок для виджета
;

; GDZ — разрешить диэлектронные файлы
zion2spectroscopic, iz, ion, title, diel = diel

; fpath должен быть определен.direc = fpath

; ЕСЛИ KEYWORD_SET (fpath) THEN direc = fpath ELSE $
; zion2filename, iz, ion, filename, name = name, diel = diel

; zion2filename, iz, ion, direc

title = ‘ION:’ + title + ‘— DIRECTORY:’ + direc
; ——————————— O

; Основная база для всего

; GDZ- добавлена ​​прокрутка

;
; Следующая проверка размера экрана пользователя и вводит виджет
; полосы прокрутки, если он считает, что экран слишком маленький.
; Я изменил это 8 декабря 2011 года, чтобы он работал на моем Mac (экран
; 1600×900). PRY.
;
устройство, get_screen_size = sz
ЕСЛИ sz [0] LT 1200 ИЛИ sz [1] LT 1000, ТО НАЧАТЬ
x_scroll = sz [0] * 0.8
y_scroll = sz [1] * 0,8
ENDIF ELSE НАЧАТЬ
x_scroll = 0
y_scroll = 0
ENDELSE

DENS_MAIN = WIDGET_BASE (GROUP_LEADER = Группа, $
col = 1, MAP = 1, x_scroll = x_scroll, y_scroll = y_scroll, $
; col = 1, MAP = 1, $
UVALUE = ‘DENS_MAIN’, title = title)

fname = concat_dir (! xuvtop, ‘ВЕРСИЯ’)
str1 = »
ЕСЛИ file_exist (имя_файла) ТО НАЧАТЬ
openr, lun, fname, / get_lun
readf, lun, str1
free_lun, lun
str1 = ‘версия CHIANTI’ + str1
ENDIF ELSE НАЧАТЬ
str1 = ‘Обновите свою версию CHIANTI до v.4 или новее’
ENDELSE
ЕСЛИ t_SWITCH EQ 1 THEN rout = ‘TEMP_PLOTTER’ ELSE rout = ‘DENS_PLOTTER’
label = str1 + ‘— ROUTINE:’ + rout

chianti_font, bfont, / большой

chianti_txt1 = метка_виджета (dens_main, val = метка, / align_left, $
font = bfont)

BASE_1 = WIDGET_BASE (DENS_MAIN, col = 1, map = 1, uvalue = ‘BASE_1’)

; ————————————————- — []
; base_1 будет содержать материал об излучательной способности.Все остальное на базе_2
;
BASE_SUB1 = WIDGET_BASE (BASE_1, строка = 1, карта = 1, uvalue = ‘BASE_SUB1’, $
/ align_center, чувствительный = 0)

base_emiss = widget_base (base_sub1, col = 1, / frame)
units_lbl = widget_label (base_emiss, / align_left, value = ‘единицы излучения’)
units_buts = cw_bgroup (base_emiss, [‘Энергия’, ‘Фотоны’], / row, $
set_value = 0, / эксклюзивный)

IF keyword_set (поиск) EQ 1 THEN psens = 0 ELSE psens = 1
PROT_BASE = WIDGET_BASE (BASE_SUB1, col = 1, map = 1, uvalue = ‘PROT_BASE’, frame = 2, sens = psens)
;
PROT_LBL = WIDGET_LABEL (PROT_BASE, / align_left, значение = ‘Скорость протонов’)
PROT_BGRP = CW_BGROUP (PROT_BASE, [‘да’, ‘нет’], / строка, $
set_value = prot_nincl, / эксклюзивный, $
uvalue = [0,1])
PROT_DISP = WIDGET_TEXT (PROT_BASE, значение = prot_mess (prot_switch), xsiz = 11)

B_D_SLID = WIDGET_BASE (BASE_SUB1, col = 1, map = 1, uvalue = ‘B_D_SLID’, frame = 2)
;
IF t_switch EQ 1 THEN str1 = ‘Диапазон температур, log T [K]’ $
ELSE str1 = ‘Диапазон плотности, log Ne [см-3]’
D_SLID_TXT = WIDGET_LABEL (B_D_SLID, / align_left, значение = str1)
ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
ld_i = fix ((lo_dens-2.0) * 5.)
hd_i = fix ((hi_dens-2.0) * 5.)
LD_LABEL = метка_виджета (b_d_slid, xsiz = 40, $
val = строка (формат = ‘(f4.1)’, lo_dens))
LO_DENS_SLID = WIDGET_SLIDER (B_D_SLID, min = 0, max = 40, val = ld_i, xsiz = 200, $
/ suppress_value)
HD_LABEL = метка_виджета (b_d_slid, xsiz = 40, $
val = строка (формат = ‘(f4.1)’, hi_dens))
HI_DENS_SLID = WIDGET_SLIDER (B_D_SLID, min = 0, max = 40, val = hd_i, xsiz = 200, $
/ suppress_value)
ENDIF ELSE НАЧАТЬ
ld_label = 0
hd_label = 0
LO_DENS_SLID = WIDGET_SLIDER (B_D_SLID, min = 1, max = 16, val = lo_dens, xsiz = 200)
HI_DENS_SLID = WIDGET_SLIDER (B_D_SLID, min = 1, max = 16, val = hi_dens, xsiz = 200)
ENDELSE

TEMP_DENS = WIDGET_BASE (BASE_SUB1, col = 1, map = 1, uvalue = ‘TEMP_DENS’)
;
; Примечание: значение set_value ниже по умолчанию выбирает вторую кнопку в группе.
;
DENS_INT = WIDGET_BASE (TEMP_DENS, col = 1, map = 1, uvalue = ‘DENS_INT’, frame = 2)
IF t_switch EQ 1 THEN str1 = ‘Температурные интервалы’ $
ELSE str1 = ‘Интервалы плотности’
DENS_INT_TXT = WIDGET_LABEL (DENS_INT, / align_left, значение = str1)
ЕСЛИ t_switch EQ 1 ТО str1 = [‘0.2 ‘,’ 0,1 ‘,’ 0,05 ‘,’ 0,01 ‘] $
ИНАЧЕ str1 = [‘1.0’, ‘0.5’, ‘0.2’, ‘0.1’]
ЕСЛИ t_switch EQ 1 THEN setval = 1 ELSE setval = 2
DENS_BGRP = CW_BGROUP (DENS_INT, str1, / row, $
set_value = setval, / эксклюзивный, $
uvalue = str1)

TEMP_SET = WIDGET_BASE (TEMP_DENS, row = 1, map = 1, uvalue = ‘TEMP_SET’, frame = 2)
;
ЕСЛИ t_switch EQ 1 THEN str1 = ‘Dens, log N_e [cm-3]:’ $
ELSE str1 = ‘Temp, log T [K]:’
TEMP_LBL = WIDGET_LABEL (TEMP_SET; / align_left; $
значение = str1)
TEMP_READ = WIDGET_TEXT (TEMP_SET, $
значение = strtrim (строка (формат = ‘(f5.2) ‘, темп), 2), $
xsiz = 5, / редактируемый)

IF keyword_set (поиск) EQ 1 THEN rsens = 0 ELSE rsens = 1
RAD_SET = WIDGET_BASE (BASE_SUB1, col = 1, map = 1, frame = 2, sens = rsens)
;;

pexc_lbl = метка_виджета (rad_set, / align_left, value = ‘Включить фотовозбуждение?’)
pexc_BGRP = CW_BGROUP (rad_set, [‘да’, ‘нет’], / строка, $
set_value = 1, / эксклюзивный, $
uvalue = [0,1])

DIL_SET = WIDGET_BASE (RAD_SET, строка = 1, карта = 0)
;
DIL_LBL = WIDGET_LABEL (DIL_SET, / align_left, value = ‘Расстояние (R_ * единиц):’)
DIL_READ = WIDGET_TEXT (DIL_SET, $
значение = strtrim (строка (формат = ‘(f4.2) ‘, rphot), 2), $
xsiz = 5, / редактируемый)

RT_SET = WIDGET_BASE (RAD_SET, строка = 1, карта = 0)
;
RT_LBL = WIDGET_LABEL (RT_SET, / align_left, value = ‘Температура излучения (K):’)
RT_READ = WIDGET_TEXT (RT_SET; $
значение = strtrim (строка (формат = ‘(f7.1)’, radtemp), 2), $
xsiz = 8, / редактируемый)

;
; Далее следует кнопка, которая делает виджеты изменения параметров
; появляться
;
ch_params = WIDGET_BUTTON (BASE_1, val = ‘ИЗМЕНИТЬ ПАРАМЕТРЫ’, xsiz = 250, uval = 0, $
/ align_center)

; ————————————————- — []
; BASE_2 содержит все остальные виджеты
;
BASE_2 = WIDGET_BASE (DENS_MAIN, строка = 1, карта = 1, uvalue = ‘BASE_2’)
;
;
; База должна содержать основания знаменателя и числителя
;
BASE_ND = WIDGET_BASE (BASE_2, COLUMN = 1, MAP = 1, xsiz = 450, UVALUE = ‘BASE_ND’)

junk = {CW_PDMENU_S, flags: 0, name: »}
;
desc = [{CW_PDMENU_S, 1, ‘Выбрать новую строку’}, $
{CW_PDMENU_S, 0, ‘…от сильнейших линий ‘}, $
{CW_PDMENU_S, 2, ‘… из указанного диапазона длин волн’}] ;, $
; {CW_PDMENU_S, 2, ‘Показать смеси’}]
;
; —————————————
; Ярлык и кнопки для числителя
;
N1_BASE = WIDGET_BASE (BASE_ND, FRAME = 2, $
COLUMN = 1, MAP = 1, xsiz = 500, UVALUE = ‘N1_BASE’)

N1_BASE_1 = WIDGET_BASE (N1_BASE, строка = 1, MAP = 1, xsiz = 500, UVALUE = ‘D_BASE_1’)
;
N1_TXT2 = WIDGET_LABEL (N1_BASE_1, / align_left, значение = ‘ЧИСЛО:’)
N1_TXT = WIDGET_LABEL (N1_BASE_1, / align_left, xsiz = 400, VALUE = emiss_sel (1).метка)

N1_LINES = CW_PDMENU (N1_BASE, desc, uvalue = 1, font = font)

N1_BASE_2 = WIDGET_BASE (N1_BASE, строка = 1, MAP = 1, xsiz = 500, UVALUE = ‘N1_BASE_1’)
;
L_INT_N1 = WIDGET_LABEL (N1_BASE_2, / align_center, значение = ‘ИНТЕНСИВНОСТЬ:’)
INT_N1 = WIDGET_TEXT (N1_BASE_2, / EDITABLE, xsiz = 7, uvalue = 1, $
значение = strtrim (строка (формат = ‘(f6.2)’, $
emiss_sel (1) .obs), 2))
L_SIG_N1 = WIDGET_LABEL (N1_BASE_2, / align_center, значение = ‘SIGMA:’)
SIG_N1 = WIDGET_TEXT (N1_BASE_2, / EDITABLE, xsiz = 7, uvalue = 1, $
значение = strtrim (строка (формат = ‘(f6.2) ‘, $
emiss_sel (1) .obs), 2))
n1_plot = widget_button (n1_base_2, val = ‘ПОЛОСЫ ОШИБОК ПЛАТА’, uvalue = 1)
;
make_strings, 1, стр.
; ГДЗ
dummy_base = WIDGET_BASE (n1_base, / col, xsize = 430)
n1_window = WIDGET_TEXT (dummy_base, ysiz = 3, $
значение = str, / scroll, / wrap)
; —————————————

; ————————————— []
; Этикетка и кнопки для знаменателя
;
D_BASE = WIDGET_BASE (BASE_ND, FRAME = 2, $
COLUMN = 1, MAP = 1, xsiz = 500, UVALUE = ‘D_BASE’)

D_BASE_1 = WIDGET_BASE (D_BASE, строка = 1, MAP = 1, xsiz = 500, UVALUE = ‘D_BASE_1’)
;
D_TXT2 = WIDGET_LABEL (D_BASE_1, / align_left, значение = ‘DENOMINATOR:’)
D_TXT = WIDGET_LABEL (D_BASE_1, / align_left, xsiz = 400, VALUE = emiss_sel [0].метка)

D_LINES = CW_PDMENU (D_BASE, desc, uvalue = 0, font = font)

D_BASE_2 = WIDGET_BASE (D_BASE, строка = 1, MAP = 1, xsiz = 500, UVALUE = ‘D_BASE_1’)
;
L_INT_D = WIDGET_LABEL (D_BASE_2, / align_center, значение = ‘ИНТЕНСИВНОСТЬ:’)
INT_D = WIDGET_TEXT (D_BASE_2, / EDITABLE, xsiz = 7, uvalue = 0, $
значение = strtrim (строка (формат = ‘(f6.2)’, $
emiss_sel (0) .obs), 2), $
/ all_events)
L_SIG_D = WIDGET_LABEL (D_BASE_2, / align_center, значение = ‘SIGMA:’)
SIG_D = WIDGET_TEXT (D_BASE_2, / EDITABLE, xsiz = 7, uvalue = 0, $
значение = strtrim (строка (формат = ‘(f6.2) ‘, $
emiss_sel (0) .sig), 2), $
/ all_events)
d_plot = widget_button (d_base_2, val = ‘ПОЛОСЫ ОШИБОК ПЛАТА’, uval = 0)
make_strings, 0, стр.
; ГДЗ
dummy_base = WIDGET_BASE (d_base, / col, xsize = 430)
den_window = WIDGET_TEXT (dummy_base, ysiz = 3, $
значение = str, / scroll, / wrap)
; ————————————— []

;———————————-(Я)
slider_base = база_виджетов (base_nd, / col, / frame)
;
LO_SLID_B = WIDGET_BASE (slider_base, ROW = 1, MAP = 1, xsiz = 400, $
/ align_center, UVALUE = ‘LO_SLID_B’)
;
LO_SLID = cw_fslider (LO_SLID_B, min = min_w, max = max_w, xsiz = 300, $
tit = ‘Предел низкой длины волны (‘ + string (197b) + ‘)’, $
val = alog10 (lo_w), / suppress_value)
ЕСЛИ lo_w GE 1.e6 ЗАТЕМ show_val = strtrim (string (format = ‘(e9.2)’, lo_w), 2) $
ELSE show_val = strtrim (строка (lo_w), 2)
LO_TXT = WIDGET_TEXT (LO_SLID_B, xsiz = 9, $
/ align_left, VALUE = show_val, / edit)

HI_SLID_B = WIDGET_BASE (slider_base, ROW = 1, MAP = 1, xsiz = 400, / align_center, $
UVALUE = ‘HI_SLID_B’)
;
HI_SLID = cw_fslider (HI_SLID_B, min = min_w, max = max_w, xsiz = 300, $
tit = ‘Высокий предел длины волны (‘ + string (197b) + ‘)’, val = alog10 (hi_w), / suppress_value)
ЕСЛИ hi_w GE 1.e6 ТО show_val = strtrim (string (format = ‘(e9.2) ‘, hi_w), 2) $
ELSE show_val = strtrim (строка (hi_w), 2)
HI_TXT = WIDGET_TEXT (HI_SLID_B, xsiz = 9, $
/ align_left, VALUE = show_val, / edit)
;———————————-(Я)

; GDZ сохранить = 2

; P_S_BASE = WIDGET_BASE (slider_base, row = 1, map = 1, xsiz = 380, / align_center)
PLOT_SPEC = WIDGET_DRAW (slider_base, $
СОХРАНЕНИЕ = 2, xsiz = 350, ysiz = 30, $
UVALUE = ‘PLOT_RAT’, / align_center)

; ————————————— 0
; Кнопка выхода
;
ЕСЛИ t_SWITCH EQ 1 ТО tede_str = ‘temperature’ ELSE tede_str = ‘densities’
; EXTRAS = CW_BGROUP (BASE_ND; $
; [‘Обновить график’, ‘Показать производные’ + tede_str, ‘Hardcopy’, $
; «ВЫЙТИ»], $
; /ряд)
; junk = {CW_PDMENU_S, flags: 0, name: »}
desc = [{CW_PDMENU_S, 1, ‘SAVE’}, $
{CW_PDMENU_S, 2, эмисс.выбранных строк ‘}, $
{CW_PDMENU_S, 1, ‘HARDCOPY’}, $
{CW_PDMENU_S, 0, ‘отправить на idl.ps’}, $
{CW_PDMENU_S, 0, ‘указать имя файла’}, $
{CW_PDMENU_S, 2, ‘отправить на принтер’}, $
{CW_PDMENU_S, 2, ‘QUIT’}]
extras = CW_PDMENU (base_nd, desc, uvalue = 1, font = bfont)
; EXTRAS = CW_BGROUP (BASE_ND, [‘Hardcopy’, ‘QUIT’], / row, font = bfont)
; ————————————— 0

; PRY, 7 августа 2019: закомментированные строки ниже.
;; help_txt1 = метка_виджета (base_nd, / align_left, val = »)
;; val = ‘Отправляйте комментарии chianti_help @ halcyon.nrl.navy.mil ‘
;; help_txt2 = метка_виджета (base_nd, / align_left, val = val, font = font)

; —————————————
; База для построения окна
;
WIND_BASE = WIDGET_BASE (BASE_2, col = 1, MAP = 1, UVALUE = ‘WIND_BASE’)

;
; создавать виджеты, содержащие информацию
;
info_base = widget_base (wind_base, / row)

; GDZ- добавил разные вещи:

ЕСЛИ t_switch EQ 1 THEN xtit = ‘Log Электронная температура [K]:’ $
Иначе xtit = ‘Лог-электронная плотность [см-3]:’

IF units EQ 0 THEN YTIT = ‘Значения отношения (энергии):’ ELSE IF $
единицы EQ 1 THEN YTIT = ‘Значения отношения (фотоны):’

dummy1 = XTIT + arr2str (trim (float (dens)), ‘,’, / trim)
dummy2 = YTIT + arr2str (trim (float (emiss_sel (1).em / emiss_sel (0) .em)), ‘,’, / trim)

make_currplot_label, метка
; ГДЗ
; info_txt = widget_text (info_base, ysiz = 6, xsiz = 20, value = [dummy1, dummy2, label], / scroll)
info_txt = widget_text (info_base, ysiz = 6, xsiz = 25, value = label, / wrap)

; info_txt = widget_text (info_base, ysiz = 6, xsiz = 32, value = label)
;
make_dens_label, этикетка
dens_txt = widget_text (info_base, ysiz = 6, xsiz = 32, value = label, / wrap)

;
; Окно построения
;
PLOT_RAT = WIDGET_DRAW (WIND_BASE, $
УДЕРЖАТЬ = 2, $
UVALUE = ‘PLOT_RAT’, $
XSIZE = 520, $
YSIZE = 400)

;———————-ИКС
; База для построения виджетов
;
PLOT_BASE = WIDGET_BASE (WIND_BASE, $
СТРОКА = 1, КАРТА = 1, UVALUE = ‘PLOT_BASE’)

; Выберите между выбранными линиями и всеми линиями.По умолчанию = 0
;
plot_b_base = widget_base (plot_base, / col, / base_align_center)
B_ALL = CW_BGROUP (plot_b_BASE, [‘Выбранные строки’, ‘Все строки’], / col, $
set_value = 0, / эксклюзивный, / кадр)
pr_butt = widget_button (plot_b_base, val = ‘ПОКАЗАТЬ ЗНАЧЕНИЯ СООТНОШЕНИЯ’, sens = 1)
refresh_butt = widget_button (plot_b_base, val = ‘REFRESH PLOT’)

;
; Выберите между выбранными линиями и всеми линиями. По умолчанию = 0
;
yaxis_base = widget_base (основа_построения, / строка, / кадр)
;
man_aut_base = widget_base (yaxis_base, / col)
man_aut_txt = метка_виджета (man_aut_base, / align_left, val = ‘МАСШТАБ ОСИ Y’)
man_aut_base2 = widget_base (man_aut_base, / строка)
;
log_plot_info = CW_BGROUP (man_aut_base2, [‘Журнал’, ‘Линейный’], $
/ col, set_value = 1, / эксклюзивный)
loglin = 0
;
MAN_AUT = CW_BGROUP (man_aut_base2, [‘Automatic’, ‘Automatic (ynozero)’, ‘Manual’], $
/ col, set_value = 0, / эксклюзив)

;
; База для определения верхнего и нижнего пределов графика
;
LIM_BASE = WIDGET_BASE (yaxis_base, $
col = 1, MAP = 0, UVALUE = ‘LIM_BUT_B’)
;
UP_READ_L = WIDGET_LABEL (LIM_BASE, значение = ‘Верхний предел:’, / align_left)
UP_READ = WIDGET_TEXT (LIM_BASE, $
значение = strtrim (строка (формат = ‘(e10.2) ‘, lims (1)), 2), $
xsiz = 8, / редактируемый)
;
LO_READ_L = WIDGET_LABEL (LIM_BASE, значение = ‘Нижний предел:’, / align_left)
LO_READ = WIDGET_TEXT (LIM_BASE, $
значение = strtrim (строка (формат = ‘(e10.2)’, lims (0)), 2), $
xsiz = 8, / редактируемый)

; pr_base = widget_base (сюжетная_база, / кадр)
; pr_butt = widget_button (pr_base, val = ‘ПОКАЗАТЬ ЗНАЧЕНИЯ СООТНОШЕНИЯ’)

; —————————————

;; Чтобы добавить больше числителей, добавьте дополнительные n? _Bgroup и n? _Txt в `state ‘
;
состояние = {ch_params: ch_params, base_sub1: base_sub1, base_2: base_2, $
prot_bgrp: prot_bgrp, prot_disp: prot_disp, $
lo_dens_slid: lo_dens_slid, hi_dens_slid: hi_dens_slid, $
dens_bgrp: dens_bgrp, temp_read: temp_read, $
pexc_bgrp: pexc_bgrp, dil_set: dil_set, rt_set: rt_set, $
dil_read: dil_read, rt_read: rt_read, $
d_lines: d_lines, n1_lines: n1_lines, $
ярлыки: [d_txt, n1_txt], $
окна: [den_window, n1_window], $
dn_plot: [d_plot, n1_plot], $
ints: [int_d, int_n1], sigs: [sig_d, sig_n1], $
lo_txt: lo_txt, lo_slid: lo_slid, $
hi_txt: hi_txt, hi_slid: hi_slid, lim_base: lim_base, $
up_read: up_read, lo_read: lo_read, man_aut: man_aut, $
b_all: b_all, units_buts: units_buts, $
extras: extras, ld_label: ld_label, hd_label: hd_label, $
info_txt: info_txt, dens_txt: dens_txt, $
refresh_butt: refresh_butt, pr_butt: pr_butt, log_plot_info: log_plot_info, $
поиск: поиск}

WIDGET_CONTROL, DENS_MAIN, / REALIZE, set_uvalue = состояние

; Получить индекс окна с возможностью рисования

WIDGET_CONTROL, plot_rat, GET_VALUE = plot_rat_id
WIDGET_CONTROL, plot_spec, GET_VALUE = plot_spec_id

wavel_plot
dens_plot, state = состояние

XMANAGER, ‘DENS_MAIN’, DENS_MAIN, group = group

КОНЕЦ

; ————————————————- —————————-
PRO RATIO_PLOTTER, ION_Z, ION_SP, EM, PATH = PATH, NOPROT = NOPROT, $
IONEQ_FILE = IONEQ_FILE, ABUND_FILE = ABUND_FILE, $
ТЕМПЕРАТУРА = ТЕМПЕРАТУРА, ПЛОТНОСТЬ = ПЛОТНОСТЬ, ДИЭЛЕКТРОННЫЙ = ДИЭЛЕКТРОННЫЙ, $
lookup = поиск

; ————————————————- —————————-
; GDZ — изменена прорисовка и emiss_data ОБЩИЕ
ОБЩИЕ emiss_data, iz, ion, diel, emiss, lo_dens, hi_dens, dint, dens, temp, units
ОБЩИЙ выбор, emiss_sel
ОБЩИЕ ползунки, lo_w, hi_w, min_w, max_w
ОБЩЕЕ построение, lims, set_scale, all, loglin, line_labels
ОБЩИЕ rad_data, radtemp, rphot, r_tst
ОБЩИЕ proton_rates, prot_nincl, prot_switch, prot_mess, pname
ОБЩИЙ протон, pstr, pe_ratio
ОБЩИЕ дополнительные, fpath
ОБЩИЙ elvlc, l1, term, conf, ss, ll, jj, ecm, eryd, ecmth, erydth, ref
ОБЩИЕ файлы, имя_ионера, имя_изобилия
ОБЩАЯ температура, t_switch

ЕСЛИ N_PARAMS () LT 2 ТО НАЧАТЬ
PRINT, ‘Использовать: IDL> ratio_plotter, iz, ion [, em, path = path, / noprot, $’
печать, ‘ioneq_file = ioneq_file, изобилие_файла = изобилие_файла, $’
печать, ‘/ температура, / плотность]’
Распечатать,»
print, ‘** для просмотра чувствительных к плотности соотношений использование / плотность’
напечатайте, ‘** для просмотра чувствительных к температуре соотношений, использование / температура’
ВОЗВРАЩЕНИЕ
ENDIF

; GDZ — очистить память в ОБЩИХ блоках:

delvarx, iz, ion, emiss, lo_dens, hi_dens, dint, dens, temp, units
delvarx, emiss_sel, lo_w, hi_w, min_w, max_w, lims, set_scale, all, loglin
delvarx, radtemp, rphot, r_tst, prot_nincl, prot_switch, prot_mess, pname, pstr, pe_ratio
delvarx, fpath, l1, term, conf, ss, ll, jj, ecm, eryd
delvarx, ecmth, erydth, ref, t_switch
delvarx, ioneq_name, изобилие_имя

ЕСЛИ n_elements (DIELECTRONIC) gt 0, то diel = DIELECTRONIC, иначе diel = 0

IF keyword_set (температура) THEN t_switch = 1 ELSE t_switch = 0

; Желтые полосы на нижнем левом дисплее не работали на моем 24-битном
; дисплей, поэтому следующее исправляет это.Указание col = 150 дает
; желтый.
;
устройство, разложенное = 0

tvlct, r, g, b, / получить
loadct, 0
tvlct, [[255], [255], [0]], 50

chianti_font, шрифт

widget_control, default_font = шрифт

ЕСЛИ n_elements (изобилие_файла) NE 0 ТОГДА изобилие_имя = изобильный_файл

; ——————
; Нормы протонов. Обратите внимание на разницу между prot_nincl и prot_switch.
; Первый равен 0 или 1 и показывает, включены ли скорости протонов.
; в балансе уровней (= 0) или нет (= 1). Последний предназначен для использования с
; prot_mess
; и может быть 0, 1 или 2.В случае 2 это означает, что процедура
; пытался найти файл .psplups, но безуспешно.
;
prot_mess = [‘Не включен’, ‘Включен’, ‘Нет файла .psplups’]

ЕСЛИ НЕ KEYWORD_SET (noprot) ТО НАЧАТЬ
результат = FINDFILE (EXPAND_PATH (pname))
IF результат (0) NE » THEN BEGIN
prot_nincl = 0
prot_switch = 1
ENDIF ELSE НАЧАТЬ
prot_nincl = 1
prot_switch = 2
ENDELSE
ENDIF ELSE НАЧАТЬ
prot_nincl = 1
prot_switch = 0
ENDELSE
; ——————————-

единицы = 0; соотношения в единицах энергии
lims = [0., 0.] & Set_scale = 0; по умолчанию: автоматическое масштабирование
все = 0; по умолчанию: отображать выбранные строки

radtemp = 6000. & rphot = 1.0 & r_tst = 0; по умолчанию: данные о радиации

zion2name, iz, ion, ionname
temp = ch_tmax (ionname, / log, ioneqname = ioneq_name)

ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
; ГДЗ
; lo_dens = temp-1.0 & hi_dens = temp + 1.0 & dint = 0.2
lo_dens = temp-0.5 & hi_dens = temp + 0.5 & dint = 0.1
dens = findgen (11) * dint + lo_dens
темп = 10,0
ENDIF ELSE НАЧАТЬ
lo_dens = 8 & hi_dens = 12 & dint = 0.2
n = исправить ((hi_dens-lo_dens) / dint) +1
dens = findgen (n) * dint + lo_dens; по умолчанию: диапазон плотности
ENDELSE

;
; Проверьте, существует ли каталог поиска. Если нет, то отключите поиск
; вариант.
;
lookupdir = getenv (‘CHIANTI_LOOKUP’)
ЕСЛИ lookupdir EQ » THEN lookup = 0
;
ЕСЛИ keyword_set (поиск) ТО НАЧАТЬ
ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
emiss = ch_lookup_emiss (iz, ion, ltemp = dens, ldens = temp, / quiet)
ENDIF ELSE НАЧАТЬ
emiss = ch_lookup_emiss (iz, ion, ltemp = temp, ldens = dens, / quiet)
ENDELSE
ENDIF ELSE НАЧАТЬ
поиск = 0
РАСПЕЧАТАТЬ,»
ПЕЧАТЬ, ‘- Подождите, пока рассчитываются коэффициенты излучения -‘
РАСПЕЧАТАТЬ,»
ЕСЛИ t_switch EQ 1 ТО НАЧАТЬ
emiss = emiss_calc (iz, ion, temp = dens, dens = temp, $
путь = fpath, noprot = noprot, $
/ quiet, ioneq_file = ioneq_name, DIEL = DIEL, $
изобилие_файл = изобилующий_файл)
ENDIF ELSE НАЧАТЬ
emiss = emiss_calc (iz, ion, temp = temp, dens = dens, path = fpath, noprot = noprot, $
/ quiet, ioneq_file = ioneq_name, DIEL = DIEL, изобилие_файла = изобильный_файл)
ENDELSE
ENDELSE

lo_w = MIN (эмиссия.лямбда-1) & hi_w = МАКС (эмиссия. лямбда + 1)
min_w = ALOG10 (lo_w) & max_w = ALOG10 (hi_w)

;; ———————————————— —

GDZ Homes — NYHC

Название организации: eco_logic STUDIO

Название проекта: GDZ Homes

Расположение проекта: Буффало, Нью-Йорк

Описание проекта:
Приобретено PUSH / BNSC в 2014 году, коммерческое / жилое здание XIX века находится в процессе ремонта и расширения, запланированного eco_logic STUDIO.В рамках проекта GDZ (Green Development Homes), многоцелевого устойчивого реабилитационного центра, центр искусства и ресурсов WASH (Westside Art Strategy Happenings) размещается в прачечной на первом этаже. Eco_logic STUDIO полностью восстанавливает существующее здание, модернизирует торговую витрину, предоставляет доступную жилую единицу на первом этаже, перестраивает 4 жилых единицы на 2-м этаже и добавляет 4 единицы на новом 3-м этаже — все разработано в соответствии со стандартами дизайна NY HCR.Новый стеклянный фасад заменяет оригинальную витрину, соединяя программное пространство с улицей. Интеграция нового пандуса с передним тротуаром обеспечивает доступ к прачечной / общественному центру для всех. Проект GDZ Homes включает в себя высокоэффективную изоляцию и конструкцию воздушного барьера, высокоэффективное оборудование HVAC с вентиляцией с рекуперацией энергии и солнечную фотоэлектрическую батарею на крыше. Новые окна и двери завершат внешний ремонт. Строительство ведется, завершение ожидается в марте 2020 года.

Воздействие на сообщество:
Полная реконструкция и добавление восстанавливают здание (ранее считавшееся упадком) в качестве якорной конструкции для района. Теперь восстановлены исторический облик и городской пейзаж, благодаря которым здание стало еще удобнее и удобнее. Существующие каменные конструкции были заметны среди каркасных жилых домов Буффало 19 века. Эти угловые здания исторически служили общественными пространствами для бизнеса и общения, внося свой вклад в самобытность района.

Спустя столетие этот район снова наполнился новыми американцами, теперь в основном из Юго-Восточной Азии и Африки. Это модернизированное здание предоставит им важное доступное жилье и столь необходимую прачечную / место для встреч со специализированными общественными службами. Граждане Бирмы занимали здание до ремонта, и каждому арендатору будет предложен первый выбор новых квартир. Окрестности Вест-Сайда Буффало полны жилых и коммерческих зданий с богатым историческим архитектурным характером.Ремонт в рамках проекта вносит свой вклад в общую историческую ткань района, а также обеспечивает чистую, современную жилую среду и общественные удобства.

Описание организации:
eco_logic STUDIO охватывает дизайн в самом всеобъемлющем и целостном смысле. Мы считаем, что это может иметь значение. Наша работа направлена ​​на то, чтобы соответствовать потребностям клиентов, вносить вклад в настройку, минимизировать потребление ресурсов и дополнять основу архитектурной практики. Мы стремимся к балансу конкурирующих потребностей и связи с местом.Архитектура, проектирование и планирование дают нам возможность подойти к дизайну с открытостью, чтобы обнаружить конкретные аспекты, которые определяют каждый проект. Они мотивируют и направляют нас, почему мы делаем то, что делаем.

Члены команды:

Владелец: PUSH / BNSC
Архитектор: eco_logic STUDIO
Структурный: Petrilli Engineering
MEP: Buffalo Engineering
Гражданский: Studio T3
Подрядчик: Lamparelli Construction

студенческих записей | Декан по делам студентов

Ведется учет

В различных подразделениях Университета Кентукки ведется учет студентов, которые попадают в следующие общие категории:

1. Академическая справка из школ, в которых учились ранее ‚
2. Очки результатов различных стандартных тестов и инвентаризаций интереса / отношения ‚
3. Присуждаемая степень ‚
4. Текущая академическая работа завершена ‚
5. Оценки и другие оценки преподавателей ‚
6. Заявления о приеме ‚
7. Заявления и другие данные о финансовой помощи ‚
8. Заявления о приеме на работу ‚
9. Класс рулонов ‚
10. Рекомендательные письма ‚
11. Записки научного руководителя ‚
12. Данные о посещаемости ‚
13. Биографические и идентифицирующие данные (включая имя, номер социального страхования, пол, семейное положение, дату рождения, место жительства и гражданство, этническое происхождение, высшее образование и военное положение) ‚
14. Медицинские данные ‚
15. Текущий статус студента ‚
16. Счета, относящиеся к комиссиям ‚
17. Академические проступки ‚
18. Дисциплинарные проступки ‚и
19. Консультации

Официальный хранитель академической документации в Университете Кентукки, отвечающий за хранение информации в категориях (1) — (6), (9), (13), (15), и (16), является регистратором университета.За исключением счетов, связанных с оплатой, эта же информация распространяется Регистратором деканам колледжей для их внутренних академических целей. Кроме того, в деканатах ведется учет категорий (10) и (17).

Записи категорий (4), (5), (9) и (15) также могут дублироваться на уровне отдела, а в некоторых случаях записи категорий (11) и (12) ведутся отделом.

Декан Студенческого бюро отвечает за ведение записей по категориям (18) и некоторым категориям (19).Этот офис также ведет некоторые записи в категориях (10) и (13) и иногда может иметь записи категории (15). 

В системе общественных колледжей за ведение документации по всем категориям отвечает канцелярия президента, хотя дубликаты некоторых записей хранятся в канцелярии проректора системы общинных колледжей и в офисе регистратора университета.

Управление контролера ведет записи категории (16). Записи категории (14) ведутся Службой здравоохранения студентов.Центр консультирования и тестирования несет основную ответственность за создание и поддержание записей в категориях (2) и (19), а также некоторых записей, которые попадают в категорию (14).

Служба размещения ведет записи категорий (1), (3), (4), (5), (8), (10) и (15), относящиеся к учащимся, использующим Службу.

Управление финансовой помощи студентам и Управление контролера имеют записи в категории (7).

Все категории студенческих записей для студентов Медицинского колледжа хранятся в Управлении по обслуживанию студентов Медицинского центра.

Стоматологические и фармацевтические колледжи ведут записи всех категорий студентов.

Другие офисы, такие как Управление по делам ветеранов и Управление академического омбудсмена, имеют записи, относящиеся к определенным студентам, но, как правило, они являются дубликатами других записей, которые ведутся в другом месте или создаются самим студентом.

Доступ к записям

В целом, записи, которые ведет Университет, доступны только студенту, персоналу Университета, имеющему законные образовательные интересы, другим учреждениям, в которых студент нуждается в финансовой помощи и в соответствии с разделом 164.283 Пересмотренного Устава Кентукки. Однако ‚учреждение может предоставить информацию соответствующим лицам в связи с чрезвычайной ситуацией, если знание такой информации необходимо для защиты здоровья или безопасности студента или других лиц. Записи также могут быть предоставлены в соответствии с судебным постановлением, повесткой в ​​суд или с согласия учащегося. Студенты могут проверять и просматривать все относящиеся к ним записи в течение 45 дней с момента подачи запроса ‚за исключением (1) записей, созданных или поддерживаемых врачом, психиатром, психологом или другим признанным профессиональным или непрофессиональным специалистом, действующим или оказывающим профессиональную помощь в связи с этим. с лечением студента (за исключением того, что студент может передать эти записи на рассмотрение врачу или соответствующему специалисту, назначенному студентом) ‚(2) финансовые отчеты родителей студента‚ (3) конфиденциальные письма и рекомендации, помещенные в файлы до 1 января 1975 г. (4) конфиденциальные рекомендации, касающиеся приема, заявления о приеме на работу, или почестей, если студент отказался от своего права просматривать такие записи.Если конкретная запись не может быть просмотрена студентом без раскрытия конфиденциальной информации, относящейся к другим студентам, хранитель документации информирует студента по запросу о содержании записи, относящейся к этому студенту.

Стоимость

За исключением официальных стенограмм, будет взиматься плата в размере 10 центов за страницу за воспроизведение копий записей студентов, которые могут быть скопированы. Официальные стенограммы из офиса ЗАГСа будут предоставлены по цене 3 доллара за копию для зачисленных в настоящее время студентов и 4 доллара за копию для бывших студентов.Официальные стенограммы медицинского колледжа будут предоставлены по цене 2 доллара за копию и из стоматологического колледжа по 3 доллара за копию. Копии официальных стенограмм, выданных любым другим учреждением, не предоставляются.

Процедура вызова

Студент, который считает, что любые записи, которые ведет Университет непосредственно в отношении этого студента, являются неточными, вводящими в заблуждение или иным образом нарушают право студента на неприкосновенность частной жизни, как это предусмотрено Разделом IV Pub.L. 90–247 ‚с поправками‚ и Pub. L. 93–380 с поправками, внесенными Совместной резолюцией Сената 40 (1974), может потребовать слушания перед группой из трех человек, назначенных Президентом Университета. Комиссия может дать указание предпринять соответствующие действия для исправления, объяснения или удаления оспариваемой записи. Запрос на слушание следует направлять в Офис юрисконсульта, Комната 2, Административное здание, Университет Кентукки, Лексингтон, Кентукки, 40506.

Справочная информация

Университет может публиковать информацию без согласия студента, если она классифицируется как справочная.В качестве справочной информации Университет определил следующие категории информации: имя, адрес, список телефонов, адрес электронной почты, дата и место рождения, основная область обучения, участие в официально признанных мероприятиях и спорте, вес и рост. членов спортивных команд, даты посещения, полученные степени и награды, а также последнее учебное заведение, в котором учился студент.

alexxlab