Введение (стр. 3 )

 Васильев не только написал рецензию но и помог в осмыслении результата работы при подготовке к выступлению по защите диплома. Спасибо ему за эту важную помощь.

Коллеги по семинару “Обучающие системы” С. Аносов, С. Крылов, П. Гомельчук, А. Фролов непосредственно участвовали в совместной деятельности, спасибо им за оказанную помощь.

9  Словарь обозначений

ДОП	- документно-ориентированное программирование
ИИ	- искусственный интеллект
ИОС	- интеллектуальная обучающая система
ОС	- обучающая система
НИТ	- новые информационные технологии
ПО	- предметная область
Help	- инструментальные средства помощи
СЕТ	- структурная единица текста
РК	- развивающаяся культура
ЯП	- язык программирования
Схема-1	- профессиональное обучение: формирование знания
Схема-2	- инвариант ПОНИМАНИЯ: формирование сознания
Схема-3	- схема системы
Схема-4	- архитектура системы
Схема-5	- интерфейс-индекс
Схема-6	- иерархия документов предметной области
Схема-7	- иерархия задач
Рис-1	- история учащегося
Рис-2	- адаптация
Рис-3	- маршрутизация
ПОНИМАНИЕ	- смотри схему-2, инвариант ПОНИМАНИЯ
ПОМОЩНИК	- инструмент диалога ИОС с учащимся
Проблема	- сложная задача
Пример проблемы	- задача-пример для проблемы
РФФИ	- Российский Фонд Фундаментальных Исследований
ГРОМ	- метод обучения: герменевтики и развивающего обучения мастер
ПРАГМАТИК
НАЧИНАЮЩИЙ
ПРОФЕССИОНАЛ
УНИВЕРСАЛ	- модели интеллектуального состояния учащегося
ООП	- объектно-ориентированное программирование
АТД	- абстрактный тип данных
РО	- развивающее обучение
ТО	- традиционное обучение
Recorder	- инструмент MS Office, записывающий макросы
Flint
ОС-Flint	- обучающие системы для метода обучения ГРОМ
ИКМУ	- интеллектуальное компьютерное место учащегося
АМ	- аксиоматический метод
САМ	- современный аксиоматический метод; аксиоматический метод + язык спецификации (формальная теория)
САМ	- синтетический априорный мастер; интеллектуальное состояние учащегося, соответствующее в информатике состоянию системного аналитика.
ДМУ(ДМО)	- динамическая модель учащегося(обучаемого)
Word-2000	- издательская система MS Office
Latex2e	- издательская система Д. Кнута
TeX	- базовый язык (инструмент) Latex2e
Excel	- приложение MSOffice
VBA	- Visual Basic For Applications
LCF	- функциональный язык Скотта
KRC	- функциональный язык
Pascal	-
Modula	-
Lisp	-
Gofer	-языки программирования
HTML	- Hypertext Markup Language – язык разметки гипертекста
ЯИП	- язык исчисление предикатов
УЯИП	- узкий язык исчисления предикатов
N
C
Q
R
R*	- классы чисел
WinEdt	- инструмент редактирования и визуализации TeX’а в Windows
Tex2html	- инструмент для преобразования TeX’а в HTML
БД	- база данных

10  Список рабочих материалов

1)  , «Эволюция разума к ноосфере и эволюционная эпистемология» Аспирантский реферат по философии в форме статьи, Москва-2004.

2)  “Базовое обучение информатике в высшей школе. Требования XXI века, решения XX века.” Тезисы доклада конференции “Сотрудничество высшей школы России и Германии на пороге XXI века”, Москва-Jena-Berlin, 1999 г.

3)  “Базовое обучение информатике в высшей школе. Компьютерный комплекс на основании метода развивающего обучения”. Монография. Электронный вариант. 1999 г.

Дипломные работы

1)  Панчук О. А. “Развивающее обучение в системе FLINT. Аппликативный стиль”, Москва-94.

2)  Новикова Т. В. “Развивающее обучение в системе FLINT. Логический стиль: среда развития. Среда саморазвития на основании теоремы Кука”, Москва-96.

3)  Сафонова Л. А. “Развивающее обучение в системе FLINT. Аппликативный стиль: среда развития. Среда саморазвития на основании теоремы компактности”, Москва-96.

4)  Малютин Б. Г. “Предъявление предмета информатики в компьютерной системе FLINT для переоткрытия обучаемым предмета. Развивающее обучение в отношении вычислимости”, Москва-97.

5)  Соломин С. О. “ Предъявление предмета информатики в компьютерной системе FLINT для переоткрытия обучаемым предмета. Развивающее обучение в отношении эффективности”, Москва-97.

6)  Ванькова А. Р. “Самоорганизация ученика в системе FLINT. Императивный стиль ”, Москва-98.

7)  Задымов К. В. “Самоорганизация ученика в системе FLINT. Аппликативный стиль ”, Москва-98.

8)  Захарова Н. В. “Самоорганизация ученика в системе FLINT. Логический стиль”, Москва-98.

9)  Мигачёв П. Н. “Самоорганизация ученика в системе FLINT. Марковский стиль ”, Москва-98.

10)  Тагер Д. С. “Самоорганизация ученика в системе FLINT. Объектно-ориентированный стиль ”, Москва-98.

11)  Демченко В. В. “Эффективность в информатике для компьютерного рабочего места учащегося”, Москва-99.

12)  Климкин П. С., “Инфраструктура интеллектуального компьютерного места учащегося (адаптивность, экспертность, расширяемость)”, Москва-99

13)  Новиков А. В., “Интеллектуальное компьютерное место учащегося (обучающая система FLINT)”, Москва-99.

14)  Черников А. А. “Вычислимость в информатике для компьютерного рабочего места учащегося”, Москва-99.

15)  Денисова О. В. “Интеллектуальное компьютерное место учащегося (реализация)”, Москва-2000.

16)  Линь Го Вей “Адаптивная справочная служба в ИКМУ”, Москва-2000.

17)  Юрлов Д. А. “Среда разработчика документно-ориентированной предметной области в ОС Flint”, Москва-2002.

18)  Босик А. В. “Рабочее место учащегося в ОС Flint”, Москва-2002.

19)  Лапшин О. Ю. “Среда обучения в ОС Flint”, Москва-2002.

20)  Аносов С. С. “Документно-ориентированное программирование при обучении информатике в ОС Flint”, Москва-2003.

11  Список литературы

Гранты РФФИ

1)  Новые информационные технологии и базовое обучение информатике в высшей школе. Грант РФФИ , гг., рук. , исп.

2)  ИКМУ для обучения информатике. Проект РФФИ , гг., рук. , исп.

3)  Компьютерный комплекс обучения основам информатики. Грант РФФИ , гг., рук. , исп.

4)  Создание базового учебника по информатике для студентов вузов. Грант РФФИ , гг., рук. , исп.

Публикации по грантам РФФИ

1)  Громыко  разума к ноосфере(роль информатизации). Синергетика. Труды семинара, том 7, Москва МГУ, 2004 (принята в печать).

2)  Громыко рациональной культуры (информатика как педагогическая задача), Синергетика, Труды семинара, том 4, Москва, МГУ, 2001.

3)  Громыко для базового обучения информатике в высшей школе. “Математика. Компьютер. Образование”, Выпуск 5, Москва, Прогресс-Традиция, 1998.

4)  Громыко  информатике как задача синергетики. Синергетика. Труды семинара РНАН МЗ МГУ, 1998.

5)  Громыко  обучение информатике. Вестник МГУ. Серия 15. Вычислительная математика и кибернетика №2, 1995.

6)  Громыко В. И., Кучевский Ю. В., Панчук О. А. развивающее обучение в комплексе обучения основам информатики. Метод и практика подготовки учебного материала. Педагогическая информатика №2, 1995.

7)  Трифонов Н. П., Громыко В. И., Колядко  система в комплексе обучения основам информатики. Педагогическая информатика №2, 1995.

8)  Трифонов Н. П., Громыко  задачник-учебник по прог­рам­мированию на базе развивающего обучения (информатике). Педагогическая информатика №2, 1993.

Источники пример-проблем

1)  . Основные понятия школьной математики. Москва, Просвещение-87.

2)  . Основные понятия алгебры. “Регулярная и хаотическая динамика”-99.

3)  Р. Хартсхорн. Основы проективной геометрии. Современная математика. Популярная серия. Мир-70.

4)  . Основная теорема арифметики. Популярные лекции по математике. Выпуск 47. Наука-69.

5)  . Задачи по планиметрии. МЦНМО-2001.

6)  . Математический анализ в 57 школе. МЦНМО-98.

7)  Э. Энгелер. Метаматематика элементарной математики. Мир-87.

8)  . Языки программирования. Концепции и принципы. Радио и связь-93.

9)  Ф. Клейн. Элементарная математика с точки зрения места. Том 1. Арифметика, алгебра, анализ. Наука-87.

10)  . Численные методы. Наука-68.

11)  . Возвратные последовательности. Популярные лекции по математике. Выпуск 1. Наука-83.

12)  . Что такое аксиоматический метод? “Регулярная и хаотическая динамика” – 2000.

13)  . Что такое нестандартный анализ? Наука-87.

14)  . Что такое число? Наука-93.

15)  . Целые функции. Элементарный очерк. Наука-75.

16)  . Типы и абстракции данных в языках программирования (обзор).

17)  Дж. Р. Хиидли. Комбинаторы и лямбда-исчисление (краткий обзор). Математическая логика в программировании. МОЭ, Мир-91.

18)  Л. Леман, М. Смит. Типы данных. Данные в языках программирования. МОЭ, Мир-82.

19)  . Типы данных в языках программирования и базах данных. Наука-87.

20)  А. Филд, П. Харрисон. Функциональное программирование. Мир-93.

21)  П. Грэй. Логика, алгебра и базы данных. Машиностроение-89.

22)  Источники фрагмента базового курса

23)  Ю. Беленький. Microsoft Word 2000, СПб: БХВ-Санкт-Петербург-99.

24)  В. Долженков. Microsoft Excel 2000, СПб: БХВ-Санкт-Петербург-99.

25)  М. Гуссенс. Путеводитель по пакету LATEX и его расширению LATEX2e. Мир-99.

26)  А. Васильев. VBA в Office 2000. Учебный курс. Питер-2001.

27)  . VBA в Office 2000. Офисное программирование. Русская редакция-99.

28)  Авторские курсы и учебные материалы

29)  M. Broy “Информатика. Основополагающее введение”. Части 1, 2, 3, 4. Диалог-МИФИ, Москва, 1998.

30)  M. Broy, B. Rumpe “Введение в информатику: сборник задач”, Научный мир, Москва, 2000.

31)  . Основы алгебры. Элементы универсальной алгебры и её приложений в информатике. РГУ-2001.

32)  . Алгебраические методы в теории баз данных и представлении знаний. Научный мир-2003.

33)  . Практикум по курсу “Информатика”. Работа в Windows, Word, Excel.

34)  , . Пособие для поступающих на факультет ВМК МГУ, 2003.

35)  . Математика, Научный мир-2002.

36)  . Сборник задач по языку Паскаль Научный мир-2003.

37)  Литература

38)  Р. Грэхем, Д. Кнут, О. Поташник. “Конкретная математика. Основание информатики”. Москва, Мир-98.

39)  F. L. Bauer, G. Goos. “Информатика. Вводный курс”. Москва, Мир-90.

40)  Новиков Ф., Яценко А. “Microsoft Office 2000 в целом”. СПб. БХВ-Санкт-Петербург, 1999.

41)  . “Всё про TEX”. Вильямс-2003 г., Москва, Санкт-Петербург, Киев.

42)  Популярные лекции по математике. 61 брошюра.

43)  Современная математика. Популярная серия.

44)  . “Знакомство с высшей математикой”. 5 книг.

45)  Д. Кнут. “Искусство программирования для ЭВМ”. Москва, Мир-96, 97, 98.

12  Приложение

Текст PL/SQL пакета MAIN:

PACKAGE BODY MAIN IS

PROCEDURE MAINFORM
is
begin
HTP. P('<HTML>');
HTP. P('<HEAD>');
HTP. P('<FRAMESET cols="20%, 80%, 0%">');
HTP. P('<FRAME NAME="htmlframe" SRC="MAIN. INDEXX(0,0)">');
HTP. P('<FRAME NAME="vrmlframe" SRC="MAIN. MAINFRAME(0,0)">');
HTP. P('<FRAME NAME="javaframe" SRC="MAIN. JAVAFRAME(0,0)">');
HTP. P('</FRAMESET>');
HTP. P('</HEAD>');
HTP. P('</HTML>');
end;
PROCEDURE JAVAFRAME(sat number, changing varchar2)
is
G_USERNAME varchar2(20);
G_PASSWORD varchar2(20);
id_us number;
begin
HTP. P('<HTML>');
HTP. P('<BODY>');
if changing='1' then
htp. p('<script language="JavaScript">');
htp. p('myWin=window. open("MAIN. CHANGE_STATUS? sat='||sat||'&changing='||changing||'", "statuswind", "width=300,height=200,resizable=yes, scrollbars=no, menubar=no");');
htp. p('window. open("main. mainframe? status=2&cid='||sat||'","vrmlframe","width=300,height=200,resizable=yes, scrollbars=no, menubar=no");');
htp. p('');
htp. p('</script>');
elsif changing='2' then
G_USERNAME := OWA_SEC. GET_USER_ID;
G_PASSWORD := OWA_SEC. GET_PASSWORD;
select usid into id_us from T_USER where (login=G_USERNAME and password=G_PASSWORD);
insert into T_HIST_NID values(S_HIST_NID. nextval, id_us, sat,sysdate);
htp. p('myWin=window. open("MAIN. CHANGE_STATUS? sat='||sat||'&changing='||changing||'", "statuswind", "width=300,height=200,resizable=yes, scrollbars=no, menubar=no");');
htp. p('window. open("main. mainframe? status=2&cid='||sat||'","vrmlframe","width=300,height=200,resizable=yes, scrollbars=no, menubar=no");');
end if;
HTP. P('</BODY>');
HTP. P('</HTML>');
end;

PROCEDURE INDEXX(status varchar2,concept varchar2)
is
Begin
HTP. P('<HTML>');
--text=#ffffff vLink=#008030 aLink=#01c000 link=#ffffcf
HTP. P('<BODY text=#ffffff vLink=#ff30ff aLink=#01c000 link=#f01fcf bgColor=#f0F0f0>');
for cur in
(select * from T_M_INDEX where did=1)
loop
HTP. P('<A href="MAIN. CONCEPT? status=0&concept1='||cur. cid||'&concept2=&concept3=">'||cur. name||'</A><br>');
end loop;
HTP. P('<A href="MAIN. INDEXX? status=2&concept=">Показать историю</A>');
HTP. P('</BODY>');
HTP. P('</HTML>');
if status='1' then
htp. p('<script language="JavaScript">');
htp. p('window. open("main. mainframe? status=1&cid='||concept||'","vrmlframe","width=200,height=100,resizable=no, scrollbars=no, menubar=no");');
--htp. p('alert(window. name);');
htp. p('</script>');
elsif status='2' then
htp. p('<script language="JavaScript">');
htp. p('window. open("main. mainframe? status=3&cid=","vrmlframe","width=200,height=100,resizable=no, scrollbars=no, menubar=no");');
htp. p('</script>');
end if;
end;

PROCEDURE CONCEPT(status varchar2,concept1 varchar2,concept2 varchar2,concept3 varchar2)
is
j number;
str varchar2(200);
begin
HTP. P('<HTML>');
HTP. P('<BODY text=#ffffff vLink=#ff30ff aLink=#01c000 link=#f01fcf bgColor=#f0F0f0>');
if status='0' then
htp. p('<A href="MAIN. CONCEPT? status=1&concept1='||concept1||'&concept2=&concept3=">Еще понятие?</A><br>');
htp. p('<A href="MAIN. CONCEPT? status=go&concept1='||concept1||'&concept2=&concept3=">Выдать маршруты</A><br>');

elsif status='1' then
for cur in
(select * from T_M_INDEX where did=1)
loop
if concept1<>to_char(cur. cid) then
HTP. P('<A href="MAIN. CONCEPT? status=2&concept1='||concept1||'&concept2='||cur. cid||'&concept3=">'||cur. name||'</A><br>');
end if;
end loop;

elsif status='2' then
htp. p('<A href="MAIN. CONCEPT? status=3&concept1='||concept1||'&concept2='||concept2||'&concept3=">Еще понятие?</A><br>');
htp. p('<A href="MAIN. CONCEPT? status=go&concept1='||concept1||'&concept2='||concept2||'&concept3=">Выдать маршруты</A><br>');

elsif status='3' then
for cur in
(select * from T_M_INDEX where did=1)
loop
if concept1<>to_char(cur. cid) and concept2<>to_char(cur. cid) then
HTP. P('<A href="MAIN. CONCEPT? status=4&concept1='||concept1||'&concept2='||concept2||'&concept3='||cur. cid||'">'||cur. name||'</A><br>');
end if;
end loop;

elsif status='4' then
htp. p('<A href="MAIN. CONCEPT? status=go&concept1='||concept1||'&concept2='||concept2||'&concept3='||concept3||'">Выдать маршруты</A><br>');

elsif status='go' then
delete from nids;
for cur2 in
(select * from T_MC_INTERFACE where cid=nvl(concept1,0) or cid=nvl(concept2,0) or cid=nvl(concept3,0))
loop
insert into nids values(S_koord. nextval, cur2.nid,1);
end loop;
for cur in
(
select nid from T_MC_INTERFACE where cid in
(select cid from T_TASK_CONCEPT where tid in
(select tid2 from T_TASK_PP where tid1 in
(select tid from T_TASK_CONCEPT where cid=nvl(concept1,0) or cid=nvl(concept2,0) or cid=nvl(concept3,0))))
)
loop
insert into nids values(S_koord. nextval, cur. nid,2);
end loop;


CREATE_ROUTE;
HTP. P('<HTML>');
HTP. P('<HEAD>');
htp. p('<script language="JavaScript">');
HTP. P('function OPEN_WINDOW(sid){');
htp. p('cont_win=window. open("main. mainframe? status=4&cid="+sid,"vrmlframe","width=200,height=100,resizable=no, scrollbars=no, menubar=no");}');
--htp. p('window. open("MAIN. JAVAFRAME('||sat||',2)", "javaframe", "width=0,height=0,resizable=no, scrollbars=no, menubar=no");}');
htp. p('</script>');
HTP. P('</HEAD>');
HTP. P('<BODY>');
htp. p('<script language="JavaScript">');
for cur in
(select * from T_SET where sid in (
(select sid from T_TASK_SET where tid in
(select tid from T_TASK_CONCEPT where cid=nvl(concept1,0) or cid=nvl(concept2,0) or cid=nvl(concept3,0))
)))
loop
htp. p('co=window. open("'||cur. content||'", "'||cur. sid||'", "width=800,height=600,resizable=yes, scrollbars=yes, menubar=yes");');
end loop;
htp. p('</script>');

j:=1;
for cur in
(select distinct rid from T_ROUTES)
loop
HTP. p('<A href="javascript:OPEN_WINDOW('||cur. rid||')">Маршрут '||j||'</A><br>');
j:=j+1;
end loop;
HTP. HR;
HTP. P('<A href="MAIN. INDEXX(0,0)">Вернуться</A>');
HTP. P('</BODY>');
HTP. P('</HTML>');
end if;
end;

PROCEDURE MAINFRAME(status varchar2,cid varchar2)

IS
id_us number;
i number;
j number;
y float;
max_level number;

G_USERNAME varchar2(20);
G_PASSWORD varchar2(20);

BEGIN
delete from koord;
G_USERNAME := OWA_SEC. GET_USER_ID;
G_PASSWORD := OWA_SEC. GET_PASSWORD;
owa_util. mime_header('x-world/x-vrml');
htp. p('#VRML V2.0 utf8');
htp. p('Background {skyColor }');
htp. p(' Fog {color visibilityRange 60}');
htp. p('NavigationInfo {avatarSize [0] headlight TRUE speed 2.0 type ["EXAMINE","ANY"] visibilityLimit 0.0}');
htp. p('Viewpoint {fieldOfView 0.785398 jump FALSE orientation position description " "}');

select usid into id_us from T_USER where (login=G_USERNAME and password=G_PASSWORD);
j:=0;
select max(stage) into max_level from T_C_INDEX where did=1;
while j<=max_level loop
select count(nid) into i from T_C_INDEX where stage=j and did=1;
CREATE_ROW(j,8*(j+1),id_us, i,cid, status);
j:=j+1;
end loop;
if status='4' then
-- DRAW_ROUTE(cid);
j:=0;

select max(stage) into max_level from T_C_INDEX where did=2;
while j<=max_level loop
select count(nid) into i from T_C_INDEX where stage=j and did=2;
CREATE_ROW(j,8*(j+1),id_us, i,cid,'5');
j:=j+1;
end loop;
DRAW_ROUTE(cid);
if status='4' then
for cur in
( select * from koord where id in(select point from T_ROUTES where rid=cid))
loop
htp. p('Viewpoint {fieldOfView 0.785398 jump FALSE orientation position '||cur. x||' '||cur. y||' 10 description "'||cur. id||'"}');
end loop;
end if;
end if;

END;

procedure CREATE_ROUTE
is
i number;
c number;
j number;
v_nid number;
v_nid2 number;
begin
delete from T_ROUTES;
i:=1;

for cur in
(select distinct nid from nids where did=2)
loop
v_nid:=cur. nid;
j:=0;
while v_nid is not null
loop
j:=j+1;
insert into T_ROUTES values(i,2,cur. nid,null,j, v_nid);
select count(*) into c from T_INT_INDEX where children_nid=v_nid;
if c>0 then
select parent_nid into v_nid2 from T_INT_INDEX where children_nid=v_nid;
insert into T_ROUTES values(i,1,cur. nid,null,j+1,v_nid2);
insert into T_ROUTES select i+1,did, nid2,nid1,num, point from T_ROUTES where rid=i;
i:=i+1;
end if;
select parent_nid into v_nid2 from T_C_INDEX where nid=v_nid;
v_nid:=v_nid2;
end loop;
delete from T_ROUTES where rid=i;
end loop;

for cur in
(select * from T_ROUTES where did=1)
loop
v_nid:=cur. point;
select max(num) into j from T_ROUTES where rid=cur. rid;
select parent_nid into v_nid2 from T_C_INDEX where nid=v_nid;
while v_nid is not null
loop
j:=j+1;
insert into T_ROUTES values(cur. rid,1,cur. nid2,null,j, v_nid);
select count(*) into c from nids where did=1 and nid=v_nid;
if c>0 then
select max(rid) into i from T_ROUTES;
update T_ROUTES set nid1=v_nid where rid=cur. rid;
insert into T_ROUTES select i+1,did, nid2,nid1,num, point from T_ROUTES where rid=cur. rid;
end if;
select parent_nid into v_nid2 from T_C_INDEX where nid=v_nid;
v_nid:=v_nid2;

end loop;
delete from T_ROUTES where rid=cur. rid;
end loop;
CHOOSE_ROUTES;
end;

procedure CHOOSE_ROUTES
is
G_USERNAME varchar2(20);
G_PASSWORD varchar2(20);
id_us number;
c number;
begin
G_USERNAME := OWA_SEC. GET_USER_ID;
G_PASSWORD := OWA_SEC. GET_PASSWORD;
select usid into id_us from T_USER where (login=G_USERNAME and password=G_PASSWORD);
for cur in
(select distinct rid from T_ROUTES)
loop
select count(*) into c from T_ROUTES where rid=cur. rid and point not in
(select nid from T_USER_VIEW where usid=id_us and status='V');
if c<>0 then delete from T_ROUTES where rid=cur. rid;end if;
end loop;
end;

procedure DRAW_ROUTE(rid1 number)
is
c number;
x float;
y float;
z float;
begin
select max(num)into c from T_ROUTES where rid=rid1;
for cur in
(select * from T_ROUTES where rid=rid1 order by num)
loop
for cur2 in
(select * from koord where id=cur. point)
loop
if cur. num<>1 then
LINE(x, y,0.2,cur2.x, cur2.y,0.2,color_def('col1'));
end if;
x:=cur2.x;y:=cur2.y;z:=cur2.z;
end loop;
end loop;
end;

PROCEDURE CREATE_ROW(stag number, width number, id_us number, m number, cid1 varchar2,status varchar2)
is
x float;
y float;
min_y number;
c number;
url_str varchar2(200);
begin
if m<>1 then x:=-width/2;
else x:=0;
end if;
select count(*) into c from koord;
if c>0 then
select min(y) into min_y from koord;
else
min_y:=4;
end if;
y:=min_y-2;
for cur in
(
select * from T_C_INDEX where stage=stag and ((did=1 and status<>'5') or (did=2 and status='5'))and nid in (select nid from T_USER_VIEW where usid=id_us and status='V')
)
loop

url_str:='main. JAVAFRAME? sat='||cur. nid||'&changing=1';
if status=0 then
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'red');
elsif status=1 then
select count(*) into c from T_MC_INTERFACE where cid=cid1 and nid=cur. nid;
if c<>0 then
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'blue');
else
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'red');
end if;
elsif status=2 then
if cur. nid=cid1 then
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'yellow');
else
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'red');
end if;
elsif status=3 then
select count(nid) into c from T_HIST_NID where usid=id_us and nid=cur. nid;
if c>0 then
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'purple');
else
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'red');
end if;
elsif status=4 then
select count(*) into c from nids where did=1 and nid=cur. nid;
if c=0 then
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'red');
else
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'blue');
end if;
elsif status=5 then
select count(*) into c from nids where did=2 and nid=cur. nid;
if c=0 then
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'red');
else
SPHERE_ANCH(x, y,0,0.5,url_str, cur. name, cur. full_name,'col1');
end if;
end if;

for cur2 in
(
select * from koord where id=cur. parent_nid
)
loop
--if status<>'4' and status<>'5' then
LINE(cur2.x, cur2.y, cur2.z, x,y,0,Color_def('red'));

end loop;
insert into koord values(cur. nid, x,y,0);
if m<>1 then x:=x+width/(m-1);
end if;
end loop;
end;

FUNCTION AUTHORIZE RETURN BOOLEAN
IS
G_USERNAME varchar2(20);
G_PASSWORD varchar2(20);
c number;

BEGIN
OWA_SEC. SET_PROTECTION_REALM('Vizualization of Subject domain ');
G_USERNAME := OWA_SEC. GET_USER_ID;
G_PASSWORD := OWA_SEC. GET_PASSWORD;
select count(usid) into c from T_USER where (login=G_USERNAME and password=G_PASSWORD) ;
if c<>0 then return true;
else
return false;
end if;
END;
PROCEDURE SPHERE_ANCH(x float, y float, z float, radius float, url varchar2,Info_name varchar2,full_name varchar2,color varchar2)
is
begin

htp. p('Anchor {children [Transform {translation '||to_char(x,'9999.0')||' '||to_char(y,'9999.0')||' '||to_char(z,'9999.0')||' ');
htp. p(' children [Shape {appearance Appearance {');
htp. p('material Material {diffuseColor '||Color_Def(color)||'}}');
htp. p('geometry Sphere {radius '||to_char(radius,'9999.0')||'} }]}');
htp. p('Transform {translation '||to_char(x-0.2,'9999.0')||' '||to_char(y+0.5,'9999.0')||' '||to_char(z,'9999.0'));
htp. p('children [Shape {geometry Text {fontStyle FontStyle {language "ru" size 0.3}string ["'||info_name||'"]}}]}');
htp. p(']');
htp. p('description "'||full_name||'"');
htp. p('parameter ["javaframe"]');
Htp. p('url ["'||url||'"]');
Htp. p('bboxCenter 0 0 0');
Htp. p('bboxSize');
Htp. p(' }');
end;
Function Color_Def(col varchar2) return varchar2
is
begin
if col='red' then return '1 ';
elsif col='blue' then return '0 0 1';
elsif col='yellow' then return '1 1 0';
elsif col='purple' then return '0 1 1';
elsif col='col1' then return '';
else return '1 1 1';
end if;
end;
Procedure Line(x1 float, y1 float, z1 float, x2 float, y2 float, z2 float, col varchar2)
is
begin
Htp. p('Shape {');
Htp. p('geometry IndexedLineSet {');
Htp. p('colorPerVertex FALSE');
Htp. p('coord Coordinate {point [ '||to_char(x1,'9999.0')||' '||to_char(y1,'9999.0')||' '||to_char(z1,'9999.0')||', '||to_char(x2,'9999.0')||' '||to_char(y2,'9999.0')||' '||to_char(z2,'9999.0')||']}');
Htp. p('color Color {color ['||col||', 0 1 0]}');
Htp. p('coordIndex [0 1 -1]}}');
end;

PROCEDURE CHANGE_STATUS(sat number, changing varchar2)
is
id_us number;
c number;
cont varchar2(200);
G_USERNAME varchar2(20);
G_PASSWORD varchar2(20);

BEGIN
G_USERNAME := OWA_SEC. GET_USER_ID;
G_PASSWORD := OWA_SEC. GET_PASSWORD;
select usid into id_us from T_USER where (login=G_USERNAME and password=G_PASSWORD);
if changing='1' then
begin
select content into cont from T_SET where sid in (select sid from T_C_IND_SID where nid=sat) and type='CONCEPT';
exception when others then null;
end;
HTP. p('<HTML>');
if cont is not null then
HTP. P('<HEAD>');
htp. p('<script language="JavaScript">');
HTP. P('function OPEN_WIND(sid){');
htp. p('cont_win=window. open("'||cont||'", "contwind", "width=800,height=600,resizable=yes, scrollbars=yes, menubar=yes");');
htp. p('window. open("MAIN. JAVAFRAME('||sat||',2)", "javaframe", "width=0,height=0,resizable=no, scrollbars=no, menubar=no");}');
htp. p('</script>');
HTP. P('</HEAD>');
end if;
HTP. p('<BODY>');
HTP. p('<A href="http://localhost/pls/diplom/main. CHANGE_STATUS? sat='||sat||'&changing=close">Скрыть</A><BR>');
HTP. p('<A href="http://localhost/pls/diplom/main. CHANGE_STATUS? sat='||sat||'&changing=open">Развернуть</A><BR>');
if cont is not null then
HTP. p('<A href="javascript:OPEN_WIND('||sat||')">Показать содержимое</A>');
end if;
HTP. p('</BODY></HTML>');
end if;
if changing='open' then
update T_USER_VIEW set status='C' where usid=id_us and nid=sat;
for cur in
(select distinct stage from T_C_INDEX where did=1)
loop
update T_USER_VIEW set status='C' where usid=id_us and nid in
(select nid from T_C_INDEX where parent_nid in (
select nid from T_USER_VIEW where status='C' and usid=id_us));
end loop;
update T_USER_VIEW set status='V' where status='C';
commit;
HTP. p('<HTML><BODY>');
htp. p('<script language="JavaScript">');
htp. p('window. open("main. mainframe? status=0&cid=","vrmlframe","width=200,height=100,resizable=no, scrollbars=no, menubar=no");');
htp. p('window. close();');
htp. p('</script>');
HTP. p('</BODY></HTML>');
end if;
if changing='close' then
select parent_nid into c from T_C_INDEX where nid=sat;
if c is null then
HTP. p('<HTML><BODY>');
htp. p('<script language="JavaScript">');
htp. p('alert("Вы не можете скрыть корень!");');
htp. p('window. close();');
htp. p('</script>');
HTP. p('</BODY></HTML>');
else

update T_USER_VIEW set status='I' where usid=id_us and nid=sat;
for cur in
(select distinct stage from T_C_INDEX where did=1)
loop
update T_USER_VIEW set status='I' where usid=id_us and nid in
(select nid from T_C_INDEX where parent_nid in (
select nid from T_USER_VIEW where status='I' and usid=id_us));
end loop;
commit;
HTP. p('<HTML><BODY>');
htp. p('<script language="JavaScript">');
htp. p('window. open("main. mainframe? status=0&cid=","vrmlframe","width=200,height=100,resizable=no, scrollbars=no, menubar=no");');
htp. p('window. close();');
htp. p('</script>');
HTP. p('</BODY></HTML>');
end if;
end if;

END;

END;