поговорим о ЛОНИИС

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » поговорим о ЛОНИИС » КОММЕНТАРИИ к ПРОГРАММАМ » Программы "Разум"


Программы "Разум"

Сообщений 1 страница 4 из 4

1

ПРОГРАММА 7 - РАЗУМ
1. Общее
Файлы, по сути, мысли.
Мышление: взаимодействие файлов – мыслей.
Чтобы изучить мышление, можно использовать разные модели.
Не обязательно сходные с мышлением человека, животных или компьютера.
Ниже умозрительная модель.

2. Первичные и вторичные файлы
Файл: f позиций
Позиция: случайное положительное число, от 1 до c.
Файлов –a.
Файлы первичные и вторичные.
Числа в позициях первичных файлов: случайные числа.

3. Преобразования первичных файлов во вторичные.
Числа в позициях вторичных файлов определяются на основе последовательного преобразований первичных файлов.
Три варианта преобразования.
a :  u2[random(a)+i,J] ;
b :  u2[i,j] := u1[random(i)+1,J] ;
  c :  u2[i,j] := u2[random (a-i)+i,j]  ;
Конкретный выбор преобразования
задается числом  hh.
В программе предусмотрено
1 - dd вариантов преобразований файлов (мыслей).
dd задается.
В конкретной программе dd=24
В каждом варианте производится q последовательных преобразований первичных файлов.
q в диапазоне  1 – dd.
Вычисляются первичные файлы. Массив u2[1..a,1..f]
Вычисляются вторичные файлы. Массив u3[1..a,1..f]
Две мысли связанны, если на одинаковой позиции одинаковые числа.
Число таких совпадений – назовем числом связей.

4. Три основных цикла
Общий цикл.
Первичные файлы преобразуются во вторичные файлы.
Определяется  среднее число связей между вторичными файлами.
Суперцикл. 
В котором исходный цикл вычисляется v раз. 
Цель суперцикла: статистическая достоверность.
Цикл преобразований
Проводятся отдельно расчеты по суперциклу для каждого из d.

5. Контрольные точки
Предусмотрено задание исходных точек для вывода результатов расчёта.
q = ww
d = w
Контрольные точки w, ww задаются

6. Итог основных вычислений:
Массив b[1..dd]
Каждый элемент массива – b[i] соответствует среднестатистической сумме величин
связей при варианте преобразования i.
Дополнительно для каждого    варианта преобразований вычисляются массивы
u5[i] -  усредненное по v число связей 0,1,2,3,4..24 в контрольной точке  ww.
U6[i] -  число связей 0,1,2,3,4..24 при заданном варианте преобразований  в контрольной
точке ww – w..

Скачать программу
7 – Разум

https://yadi.sk/d/WGonN-EZ3Ugkpy
Примечания:
1. Программа Delphi 7
2. Ввод условий на форме

Отредактировано ABC (2018-05-02 20:27:48)

0

2

Программа 8- Разум развитие программы 7- Разум
В программе Разум -7
Три варианта преобразования.

a :  u2[random(a)+i,J] ;
b :  u2[i,j] := u1[random(i)+1,J] ;
  c :  u2[i,j] := u2[random (a-i)+i,j]  ;

В программе 8-Разум преобразования ведутся в парах.
6 вариантов


  if hh = 1 then  begin
      for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a)+1,jj] ;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] := u13[random(ii)+1,jj]; ;;
                end;
  if hh = 2 then   begin
    for    ii := 1 to a  do
       for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a)+1,jj] ;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=      u13[random(a-ii)+ii,jj] ;
                end;
   if hh =3 then   begin
              for    ii := 1 to a  do
            for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(ii)+1,jj]; ;
             for    ii := 1 to a  do
                 for    jj := 1 to f   do
                 u12[ii,jj] :=      u13[random(a-ii)+ii,jj] ;
                end;
            if hh =4 then   begin
              for    ii := 1 to a  do
            for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a-ii)+ii,jj] ;
             for    ii := 1 to a  do
                  for    jj := 1 to f   do
                 u12[ii,jj] :=      u13[random(ii)+1,jj]
                end;
                if hh =5 then   begin   
              for    ii := 1 to a  do
            for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a-ii)+ii,jj] ;
            for    ii := 1 to a  do
                   for    jj := 1 to f   do
              u12[ii,jj] :=      u13[random(a)+1,jj] ;
                end;
                    if hh =6 then   begin
              for    ii := 1 to a  do
            for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(ii)+1,jj];
             for    ii := 1 to a  do
                   for    jj := 1 to f   do
                 u12[ii,jj] :=      u13[random(a)+1,jj] ;
                end;

Исходные данные
v =1000;// число циклов статистики
кров статистики
              f =10;   //число позиций в файле
            a = 10; // число файлов
            c = 20; // число для генерации случайных величин
         dd =24;//  максимальное число преобразований первичных файлов
          hh =6;    //номер  варианта преобразований первичных файлов



Результаты   счёта  в диапазоне d=1 ……d=12

h=1
b[1]=--01,396--b[2]=--02,255--b[3]=--02,922--b[4]=--03,439--b[5]=--03,800--b[6]=--04,095--b[7]=--04,304--b[8]=--04,493--b[9]=--04,585--b[10=--04,712--b[11]=--04,778--b[12]=--04,822

h=2
b[1]=--01,314--b[2]=--02,132--b[3]=--02,791--b[4]=--03,275--b[5]=--03,663--b[6]=--03,985--b[7]=--04,180--b[8]=--04,377--b[9]=--04,511--b[10=--04,618--b[11]=--04,722--b[12]=--04,778

h=3
b[1]=--01,395--b[2]=--02,322--b[3]=--02,992--b[4]=--03,506--b[5]=--03,888--b[6]=--04,158--b[7]=--04,372--b[8]=--04,531--b[9]=--04,659--b[10=--04,751--b[11]=--04,801--b[12]=--04,852

h=4
b[1]=--01,504--b[2]=--02,383--b[3]=--03,069--b[4]=--03,557--b[5]=--03,901--b[6]=--04,197--b[7]=--04,411--b[8]=--04,544--b[9]=--04,668--b[10=--04,743--b[11]=--04,812--b[12]=--04,859

h=5
b[1]=--01,298--b[2]=--02,135--b[3]=--02,764--b[4]=--03,271--b[5]=--03,656--b[6]=--03,964--b[7]=--04,206--b[8]=--04,389--b[9]=--04,504--b[10=--04,627--b[11]=--04,699--b[12]=--04,766

h=6
b[1]=--01,396--b[2]=--02,256--b[3]=--02,937--b[4]=--03,426--b[5]=--03,803--b[6]=--04,115--b[7]=--04,288--b[8]=--04,469--b[9]=--04,603--b[10=--04,712--b[11]=--04,762--b[12]=--04,820

Скачать программу РАЗУМ -8

https://yadi.sk/d/03U5w9653VFN7M

Отредактировано ABC (2018-05-03 16:31:05)

0

3

Программа 9- Разум развитие программы 8- Разум
В программе Разум -8
Три варианта преобразования.

a :  u2[random(a)+i,J] ;
b :  u2[i,j] := u1[random(i)+1,J] ;
  c :  u2[i,j] := u2[random (a-i)+i,j]  ;

В программе 9-Разум преобразования ведутся в тройках преобразований, отличных по последовательности следования.
6 вариантов

    begin
   if hh = 1 then  begin
      for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a)+1,jj] ;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u14[ii,jj] := u13[random(ii)+1,jj];
           for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=   u14[random(a-ii)+ii,jj] ;
                end;
  if hh = 2 then   begin
                  for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a)+1,jj] ;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u14[ii,jj] := u13[random(a-ii)+ii,jj] ;
           for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=   u14[random(ii)+1,jj];;
                end;
   if hh =3 then   begin
               for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(ii)+1,jj];;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u14[ii,jj] := u13[random(a)+1,jj] ; ;
           for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=   u14[random(a-ii)+ii,jj] ;
                end;
            if hh =4 then   begin
                  for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(ii)+1,jj];
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u14[ii,jj] := u13[random(a-ii)+ii,jj] ;
           for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=   u14  [random(a)+1,jj] ;
                end;
                if hh =5 then   begin
                     for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a-ii)+ii,jj] ;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u14[ii,jj] := u13 [random(a)+1,jj] ; ; 
           for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=   u14 [random(ii)+1,jj];
                end;
                    if hh =6 then   begin
                     for    ii := 1 to a  do
           for    jj := 1 to f   do
                     u13[ii,jj] := u11[random(a-ii)+ii,jj] ;
             for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u14[ii,jj] := u13 [random(ii)+1,jj];
           for    ii := 1 to a  do
          for    jj := 1 to f   do
                    u12[ii,jj] :=   u14 [random(a)+1,jj] ;
                end;
               

Исходные данные
v =1000;// число циклов статистики
              f =10;   //число позиций в файле
            a = 10; // число файлов
            c = 20; // число для генерации случайных величин
         dd =24;//  максимальное число преобразований первичных файлов
          hh =6;    //номер  варианта преобразований первичных файлов



Результаты   счёта  в диапазоне d=1 ……d=12

   hh=1
       b[1]=--01,333--b[2]=--02,006--b[3]=--02,568--b[4]=--03,027--b[5]=--03,379--b[6]=--03,678--b[7]=--03,912--b[8]=--04,140--b[9]=--04,285--b[10=--04,426--b[11]=--04,531--b[12]=--04,616
          hh=2
        b[1]=--01,334--b[2]=--02,025--b[3]=--02,558--b[4]=--03,012--b[5]=--03,391--b[6]=--03,711--b[7]=--03,932--b[8]=--04,129--b[9]=--04,302--b[10=--04,423--b[11]=--04,539--b[12]=--04,607
          hh=3
          b[1]=--01,411--b[2]=--02,087--b[3]=--02,606--b[4]=--03,064--b[5]=--03,431--b[6]=--03,712--b[7]=--03,970--b[8]=--04,153--b[9]=--04,293--b[10=--04,429--b[11]=--04,528--b[12]=--04,618
       hh=4
     b[1]=--01,310--b[2]=--01,973--b[3]=--02,504--b[4]=--02,943--b[5]=--03,332--b[6]=--03,638--b[7]=--03,872--b[8]=--04,090--b[9]=--04,236--b[10=--04,377--b[11]=--04,493--b[12]=--04,581
    hh=5
     b[1]=--01,407--b[2]=--02,040--b[3]=--02,599--b[4]=--03,048--b[5]=--03,359--b[6]=--03,679--b[7]=--03,905--b[8]=--04,101--b[9]=--04,251--b[10=--04,400--b[11]=--04,511--b[12]=--04,592
       hh=6
         b[1]=--01,331--b[2]=--02,011--b[3]=--02,568--b[4]=--03,013--b[5]=--03,400--b[6]=--03,683--b[7]=--03,934--b[8]=--04,113--b[9]=--04,285--b[10=--04,430--b[11]=--04,525--b[12]=--04,624
         
Скачать программу 9-РАЗУМ
https://yadi.sk/d/oeN01iS83W8th4
|||||||||||||||||||||||||||||||||||||||||||||||

0

4

1. Обзор
Выше представлены программы  7- Разум,  8 – Разум  и  9 – Разум.
В программах сходный алгоритм.
Первичные файлы преобразуются во вторичные на основе трех выражений:  a, b и c.
Такое преобразование проводится от 1 до dd.
В программах  7- Разум,  8 – Разум  и  9 – Разум соответственно
для преобразований используются одиночные выражения, двойки выражений и тройки выражений.
Вторичные файлы анализируются по числу совпадений на одинаковых позициях вторичных файлов.

2. Анализ программ  7- Разум,  8 – Разум  и  9 – Разум
Программа  9 – Разум преобразована в программу 10 – Разум.
Для каждого d  подсчитано число одинаковых чисел в матрице вторичных чисел.
Матрица  № 5.
Число таких чисел при возрастании d обычно кратно  a –числу фалов. Одинаковые числа формируют столбцы.

Скачать программу 10- Разум
https://yadi.sk/d/4O3VL2FM3WEqZ6

[

Отредактировано ABC (2018-05-20 17:28:30)

0


Вы здесь » поговорим о ЛОНИИС » КОММЕНТАРИИ к ПРОГРАММАМ » Программы "Разум"