НЕЙРОННЫЕ СЕТИ Ерохина Н.А. Дипломная работа "Разработка комплекса компьютерных программ для курса "Генетические алгоритмы и нейросети"". М.-: РГГУ, Отделение интеллектуальных систем (в гуманитарной сфере), Кафедра математики, логики и интеллектуальных систем, 2006. (Рук.) 001-002 | 003-004 ... 109-110 (полный текст может быть выслан по запросу) ЭКСПЕРТНЫЕ СИСТЕМЫ <% IF id_sphere_es <> "" AND id_source_es <> "" AND name_es <> "" THEN SQLZapros = "SELECT id_sphere_es,name_sphere_es FROM sphere_es WHERE id_sphere_es = " & id_sphere_es Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof name_sphere_es = rs("name_sphere_es") rs.MoveNext loop end if if name_sphere_es = "" OR name_sphere_es = "нет информации" then name_sphere_es = "неизвестна" end if SQLZapros = "SELECT id_source_es,name_source_es FROM source_es WHERE id_source_es = " & id_source_es Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof name_source_es = rs("name_source_es") rs.MoveNext loop end if if name_source_es = "" OR name_source_es = "нет информации" then name_source_es = "неизвестен" end if%> Название экспертной системы: <%=name_es%> Сфера применения: <%=name_sphere_es%> Описание экспертной системы: <%=description_es%> Источник: <%=name_source_es%> <% END IF for id_sphere_es = 1 to 17%> <% SELECT CASE id_sphere_es CASE 1 name_sphere_es = "Военное дело" id_sphere_es = 1 CASE 2 name_sphere_es = "Геология" id_sphere_es = 2 CASE 3 name_sphere_es = "Инженерное дело" id_sphere_es = 3 CASE 4 name_sphere_es = "Информатика" id_sphere_es = 4 CASE 5 name_sphere_es = "Компьютерные системы" id_sphere_es = 5 CASE 6 name_sphere_es = "Космическая техника" id_sphere_es = 6 CASE 7 name_sphere_es = "Математика" id_sphere_es = 7 CASE 8 name_sphere_es = "Медицина" id_sphere_es = 8 CASE 9 name_sphere_es = "Метеорология" id_sphere_es = 9 CASE 10 name_sphere_es = "Промышленность" id_sphere_es = 10 CASE 11 name_sphere_es = "Сельское хозяйство" id_sphere_es = 11 CASE 12 name_sphere_es = "Управление процессами" id_sphere_es = 12 CASE 13 name_sphere_es = "Физика" id_sphere_es = 13 CASE 14 name_sphere_es = "Химия" id_sphere_es = 14 CASE 15 name_sphere_es = "Электроника" id_sphere_es = 15 CASE 16 name_sphere_es = "Юриспруденция" id_sphere_es = 16 CASE 17 name_sphere_es = "Сфера применения неопределена" id_sphere_es = 17 END SELECT%> <%=name_sphere_es%> <% SQLZapros = "SELECT name_es,description_es,id_sphere_es FROM hrdb_es WHERE id_sphere_es = " & id_sphere_es & " ORDER BY name_es" Set rs = Baza.Execute (SQLZapros) if not rs.eof then do until rs.eof name_es = rs("name_es") description_es = rs("description_es") description_es = Trim(Left(description_es,50)) & "..."%> <%=name_es%> - <%=description_es%> <% rs.MoveNext loop end if%> <% next%> <% Baza.Close() Set Baza = Nothing%>