Пятница, 29.03.2024, 08:32
Приветствую Вас Гость | RSS

 
 

Анти случайный математический сайт: всё Бесплатно 18+ kenokeno.ucoz.ru

Anti chaotically math site all FREE against losses против проигрышей 18+

 
Карта мира Пирамида Жизни Визуальная математика Всеобуч CoronaVirus

карта статистики посетителей & исследования и конкурсы бесплатные & ВКонтакте & Математический Блог & КеноКено & КЕНО ЮТЮБ KENO mini YOUTUBE

БЕЗ рекламы БЕЗ партнёрских БЕЗ рефералов NO advertising NO partners NO referrals pas de publicite pas de partenaires pas de references

Ссылки внутри страниц открываются в новой вкладке Links inside pages open in a new tab of browser

КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE

Просвещение России содержит гигантский пробел:
интегралы в любом виде в младшей школе не изучаются

даже словами отличными от слова "интеграл": "сбор"
в то время как интеграл в жизни ежесекундно: и одежда
и продукты и выбор в магазине и транспортная задача

ведь понимая интегральную суть человек сравнивает
без расчётов в уме и делает оптимальный выбор

ключевые 27

свои чужие другие
актив пассив экономия
лидер ведомый жертва
жизнь машина язык
цель время контроль
услуга товар качество
экспорт эксплуатация технология
интеграл логарифм производная
элита антиэлита приоритет

 

keywords 27

ours aliens others
active passive saving
leader slave victim
life machine language
target time control
service goods quality
export exploitation technology
integral logarithm derivative
elite antielite priority

 

 

Россия видит мир из будущего

Russia looks world from future

Rossiya vidit mir iz buduschego

IQ бесплатно Яндекс.Метрика

всегда пишу только про себя и никогда никому ничего не рекомендую

i always write only about myself and anything to anyone never recommend

мен әрқашан тек өзіме жазамын және ешқашан ешкімге ештеңе ұсынбаймын

завжди пишу тільки про себе і ніколи нікому нічого не рекомендую

web.archive.org/web/20230602154543///kenokeno.ucoz.ru/publ/

ich schreibe immer nur über mich selbst und empfehle niemandem etwas

j'écris toujours seulement sur moi-même et je ne recommande

mi ĉiam skribas nur pri mi mem kaj neniam rekomendas ion al iu

siempre escribo solo para mí y nunca recomiendo nada a nadie

web.archive.org/web/20230602152617///kenokeno.ucoz.ru/load/

 

Главная | Регистрация | Вход

 
Главная » 2014 » Май » 8 » Интеграция ArchiCAD перевод в AutoCAD индексация DWG entlen gakson
08:58
Интеграция ArchiCAD перевод в AutoCAD индексация DWG entlen gakson

Интеграция ArchiCAD перевод в AutoCAD 

Создание виртуальных презентаций ArchiCAD 3d

KnigaCAD обучение AutoCAD 2D на 55 страницах 2005год

индексация dwg и поиск за секунды и МЫ

цель статьи: показать возможность индексации dwg

свыше 10 лет пользуюсь индексацией dwg и других файлов
для поиска в компьютере по тысячам файлов за секунду
причём индексированы и эл.книги и всевозможные документы

и ... чертежи dwg где считается невозможна индексация

для индексации необходимо сделать копию требующихся dwg
и других файлов в отдельный компьютер сохранив пути
и перевести dwg в версию dwg 2000 года

применив Архивариус 3000 с доступной стоимостью
индексировать скопированный массив

полученные индексы возможно использовать в любом компьютере
и при доступности исходных файлов открываются сами dwg

достигается поиск внутри тысяч dwg любой версии за секунды
по словосочетаниям во всех формах запрашиваемых слов

? используется ли вами индексация dwg ?

стартап поиск в чертежах AutoCAD dwg совместимых
любой версии используя около 5 программ
а также поиск Word Excel txt html
слов и словосочетаний в любых форматах

индексация dwg автокад чертежи autocad

1. копия в другой компьютер dwg
в каталогах с другими файлами

2. снять признак только для чтения
и контролировать табличный вид каталога
включив столбец атрибуты без признака R

3. dwg конвертер настроить на dwg 2000
и запись dwg в исходные каталоги

4. в dwg конвертер добавить каталоги
и контролировать список файлов

5. стартовать конвертер dwg и контроль
чтобы была успешная конвертация до 100%

6. far поиск dwg по каталогам индексации

7. файловый far и быстрый просмотр ctrl+q
покажет начало файлов autocad 2000 AC1015

8. архивариус 3000 и начать новый индекс

9. индексы чертежей и документов раздельно 

10. настроить включая autocad и файлы dwg
и нормальный вариант соблюдая наличие слов

11. индексация копии dwg соблюдая каталоги

12. свойства индекса и найти путь индекса

13. скопировать 13 файлов индекса и
вставить в любое место на любом компьютере

14. настроить путь индекса и индекс появится
в списке индексов и готов поиск внутри dwg
в исходных dwg любой версии autocad

15. создан поиск по всем формам словосочетаний


ENTLEN = длины


СЛОИ вставляет другой чертёж


МИНИ БЛОКИ и говорящие имена

Автокад мини-блок: имя главное и сам блок: 1 отрезок

смысл: изобразив как угодно
сверху расставить мини-блоки

и командой bcount пересчитать блоки
применив количество мини-блоков

Моя технология 2005 года

 

Auto CAD mini-block: main name and block itself: 1 circle

meaning: by drawing as you like
place mini-blocks on top

and use bcount command to recalculate blocks
by applying number of mini-blocks

My technology of 2005 year

 

 
GAKSON аксонометрия

BCOUNT считает блоки

 

startup search in AutoCAD dwg compliant drawings
any version using about 5 programs
and also search Word Excel txt html
words and phrases in any formats

indexing dwg autocad drawings autocad

1. copy to another computer dwg
in directories with other files

2. remove read-only attribute and control
directory look of directory by including
column attributes without R character

3. dwg converter set up on dwg 2000
and writing dwg to source directories

4. in dwg converter add directories
and control list of files

5. start dwg converter and control
that was a successful conversion to 100%

6. far search dwg for index directories

7. file far and quick scan ctrl + q will
show beginning of autocad 2000 files AC1015

8. Archivist 3000 and start a new index

9. indexes of drawings and documents separately

10. configure including autocad and dwg files
and normal option of observing presence of words

11. indexing a copy of dwg following catalogs

12. Index properties and find index path

13. Copy 13 index files and
paste anywhere on any computer

14. configure index path and index will appear.
in index list and ready to search inside dwg
in source dwg of any version of autocad

15. created a search for all forms of word combinations

 

 

многие программы данного сайта

http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

// RUSSIAN SORTING HALVES DANILIN
// C# Csharp
// CS.BAT
// C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo RSH.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
namespace davApp
{
    class Program
    {
        private long age;
        static long[] a;
        static long[] d;

        static void Main(string[] args)
        {
            int n = 0;
            // READ NUMBERS
            var inpFile = new StreamReader("N.txt");
            n = Convert.ToInt32(inpFile.ReadLine());
            inpFile.Close();

            var age = 1+Math.Log(n) / Math.Log(2);

            Console.WriteLine(n);

            a = new long[n+1];
            d = new long[n+1];

            for (int i = 1; i <= n; i++)
                d[i] = n-i+1;

            //var rand = new Random();
            //// RANDOM [1;n]
            //for (int i = 1; i <= n; i++)
            //    d[i] = rand.Next(1, n);

            // REAN N LINE FROM FILE
            //inpFile = new StreamReader("ISX.txt");
            //for (int i = 1; i <= n; i++)
            //    d[i] = Convert.ToInt64(inpFile.ReadLine());
            //inpFile.Close();

            // WRITE ON SCREEN
            int m = Math.Min(n, 20);
            for (int i = 1; i <= m; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // RUSSIAN SORTING HALVES DANILIN
            var start = DateTime.Now;
            if (age > 0)
                dav(1, n, 1, age);
            var finish = DateTime.Now;

            Console.WriteLine("{0} second", (finish-start).TotalSeconds);

            // WRITE ON SCREEN
            Console.WriteLine("[1..{0}]", m);
            for (int i = 1; i <= m; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // WRITE ON SCREEN
            Console.WriteLine("[{0}..{1}]", n-m+1, n);
            for (int i = n-m+1; i <= n; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            // WRITE IN FILE
            var outFile = new StreamWriter("dav.txt");
            for (int i = 1; i <= m; i++)
                outFile.WriteLine(d[i]);
            outFile.WriteLine();

            for (int i = n-m+1; i <= n; i++)
                outFile.WriteLine(d[i]);
            outFile.WriteLine();
            outFile.Close();

            Console.WriteLine("Press any key");
            Console.ReadKey();
        }

        static void dav(int ab, int yz, int part, double age)
        {
            if (yz-ab < 1)
                return;

            long summa = 0;
            for (int i = ab; i <= yz; i++)
                summa = summa+d[i];

            double middle = summa / (yz-ab+1.0);

            var abc = ab-1;
            var xyz = yz+1;

            for (int i = ab; i <= yz; i++)
                if (d[i] < middle)
                {
                    abc = abc+1;
                    a[abc] = d[i];
                }
                else
                {
                    xyz = xyz-1;
                    a[xyz] = d[i];
                }

            for (int i = ab; i <= yz; i++)
                d[i] = a[i];

            if (part < age)
            {
                if (abc >= ab) dav(ab, abc, part+1, age);
                if (xyz <= yz) dav(xyz, yz, part+1, age);
            }
            return;
        }
    }
}
 










http://rosettacode.org/wiki/Category:C_sharp 
http://rosettacode.org/wiki/Category:QB64

// Russian Sorting Halves 4 part accelerate bubble sorting
// C# Csharp
// CS.BAT
// C:\Windows\Microsoft.NET\Framework64\v4.0.30319\csc.exe /nologo RSH.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace octoberApp
{
    class Program
    {
        static int n;
        static double[] d;
        static double[] a;
        static double[] v;
        static int[] q;

        static void Main(string[] args)
        {
            n = 57539;

            d = new double[n+1];
            a = new double[n+1];
            v = new double[n+1];
            q = new int[5+1];
            var rand = new Random();
            for (int i = 1; i <= n; i++)
                d[i] = Math.Truncate(rand.NextDouble() * n);

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();

            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", d[i]);
            Console.WriteLine();
            Console.WriteLine();

            var start = DateTime.Now;
            var s = 0;
            //ALL
            double summa = 0;
            for (int i = 1; i <= n; i++)
                summa += d[i];
            double middle = summa / n;
            var y = 1;
            var z = 0;

            for (int i = 1; i <= n; i++)
                if (d[i] < middle)
                {
                    a[y] = d[i]; y++;
                }
                else
                {
                    a[n-z] = d[i];
                    z++;
                }

 
            q[3] = y-1;
            Console.WriteLine("ALL middle = {0}", middle);

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", a[i]);
            Console.WriteLine();
            Console.WriteLine();
            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", a[i]);
            Console.WriteLine();
            Console.WriteLine();

            // 1 FROM 2
            summa = 0;
            for (int i = 1; i <= q[3]; i++)
                summa += a[i];

            middle = summa / q[3];
            y = 1;
            z = 0;
            Console.WriteLine("1 FROM 2 = {0} 1 ...{1}", middle, q[3]);

            for (int i = 1; i <= q[3]; i++)
                if (a[i] < middle)
                {
                    v[y] = a[i]; y++;
                }
                else
                {
                    v[q[3]-z] = a[i];
                    z++;
                }

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            for (int i = q[3]-9; i <= q[3]; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();

            q[2] = y-1;

            // 2 FROM 2
            summa = 0;
            for (int i = q[3]+1; i <= n; i++)
                summa += a[i];
            middle = summa / (1+n-q[3]);
            y = q[3];
            z = 0;
            Console.WriteLine("2 FROM 2 = {0} {1}...{2}", middle, q[3]+1, n);
            for (int i = q[3]; i <= n; i++)
                if (a[i] < middle)
                {
                    v[y] = a[i]; y++;
                }
                else
                {
                    v[n-z] = a[i];
                    z++;
                }
 
            for (int i = q[3]; i <= q[3]+10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();

            q[4] = y-1;
            q[1] = 2;
            q[5] = n;

            //BUBBLE
            Console.WriteLine("1= {0} 2= {1} 3= {2} 4= {3} 5= {4}", 1, q[2], q[3], q[4], n);
            Console.WriteLine();

            for (int t = 1; t <= 4; t++)
                for (int i = q[t]-1; i <= q[t+1]; i++)
                    for (int j = i+1; j <= q[t+1]; j++)
                        if (v[i] > v[j])
                        {
                            var x = v[i];
                            v[i] = v[j];
                            v[j] = x;
                            s++;
                        }
            var finish = DateTime.Now;

            for (int i = 1; i <= 10; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();

            for (int i = n-9; i <= n; i++)
                Console.Write("{0} ", v[i]);
            Console.WriteLine();
            Console.WriteLine();
            Console.WriteLine("DArus4 {0} second swap {1}", (finish-start).TotalSeconds, s);

            var outFile = new System.IO.StreamWriter("RUoct.txt");
            outFile.WriteLine("DArus4 {0} second swap {1}", (finish-start).TotalSeconds, s);
            outFile.WriteLine("{0} 4 parts bubble ", n);

            for (int i = 1; i <= n / 2; i++)
                outFile.WriteLine(v[i]);
            for (int i = n / 2; i <= n; i++)
                outFile.WriteLine(v[i]);

            outFile.Close();

            start = DateTime.Now;
            s = 0;

            for (int i = 1; i <= n; i++)
                for (int j = i+1; j <= n; j++)
                    if (d[i] > d[j])
                    {
                        var x = d[i];
                        d[i] = d[j];
                        d[j] = x;
                        s++;
                    }
            finish = DateTime.Now;

            Console.WriteLine("BUBBLE {0} second swap {1}", (finish-start).TotalSeconds, s);
            Console.WriteLine("Press any key");
            Console.ReadKey();
        }
    }
}





'RUSSIAN sorting halves 4 part bubble
N=17539
DIM d(N), a(N), v(N), q(5)
RANDOMIZE TIMER: FOR i=1 TO N: d(i)=INT(RND * N): NEXT
FOR k=1 TO 10: PRINT d(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT d(k);: NEXT: PRINT: PRINT

start=TIMER: s=0

' ALL
summa=0: FOR i=1 TO N: summa=summa+d(i): NEXT: middle=summa/N: y=1: z=0
FOR i=1 TO N
IF d(i) < middle THEN a(y)=d(i): y=y+1: ELSE a(N-z)=d(i): z=z+1
NEXT
q(3)=y-1
PRINT "ALL middle="; middle
FOR k=1 TO 10: PRINT a(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT a(k);: NEXT: PRINT: PRINT

'1 FROM 2
summa=0: FOR i=1 TO q(3): summa=summa+a(i): NEXT: middle=summa/q(3): y=1: z=0
PRINT "1 FROM 2="; middle, "1 ..."; q(3)
FOR i=1 TO q(3)
IF a(i) < middle THEN v(y)=a(i): y=y+1: ELSE v(q(3)-z)=a(i): z=z+1
NEXT
FOR k=1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k=q(3)-9 TO q(3): PRINT v(k);: NEXT: PRINT: PRINT
q(2)=y-1

'2 FROM 2
summa=0: FOR i=q(3)+1 TO N: summa=summa+a(i): NEXT: middle=summa/(1+N-q(3)): y=q(3): z=0
PRINT "2 FROM 2="; middle, q(3)+1; "..."; N
FOR i=q(3) TO N
IF a(i) < middle THEN v(y)=a(i): y=y+1: ELSE v(N-z)=a(i): z=z+1
NEXT
FOR k=q(3) TO q(3)+10: PRINT v(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT v(k);: NEXT: PRINT: PRINT
q(4)=y-1: q(1)=2: q(5)=N

' SORTING
PRINT "1="; 1, "2="; q(2), "3="; q(3), "4="; q(4), "5="; N: PRINT
FOR t=1 TO 4
FOR i=q(t)-1 TO q(t+1): FOR j=i+1 TO q(t+1)
IF v(i) > v(j) THEN SWAP v(i), v(j): s=s+1
NEXT: NEXT: NEXT

finish=TIMER

FOR k=1 TO 10: PRINT v(k);: NEXT: PRINT: FOR k=N-9 TO N: PRINT v(k);: NEXT: PRINT: PRINT
PRINT "DA RUS 4 ", finish-start; "second ", "swap "; s

OPEN "c:/RUsortdav4.txt" FOR OUTPUT AS #2
PRINT #2, finish-start; "second ", "swap "; s
PRINT #2, N; "Russian sorting halves 4 parts bubble "
FOR i=1 TO 20: PRINT #2, v(i): NEXT
FOR i=N-19 TO N: PRINT #2, v(i): NEXT

start=TIMER: s=0
FOR i=1 TO N: FOR j=i+1 TO N
IF d(i) > d(j) THEN SWAP d(i), d(j): s=s+1
NEXT: NEXT
finish=TIMER

PRINT "BUBBLE ", finish-start; "second ", "swap "; s
END



 
 
' Russian Sorting Halves Danilin

DECLARE SUB RussianSortingHalvesDAV (ab!, yz!, part!, age!)
CLOSE
OPEN "c:/N.txt" FOR INPUT AS #5
INPUT #5, n: PRINT n

'n=123456

age=1+LOG(n)/LOG(2): PRINT n, age

DIM SHARED d(n) 'AS LONG
DIM SHARED a(n) 'AS LONG

'OPEN "c:/ISX.txt" FOR INPUT AS #1: 'FOR i=1 TO n: INPUT #1, d(i): NEXT

FOR i=1 TO n: d(i)=n-i+1: NEXT ' INT(RND*n)
'FOR i=1 TO n STEP 2: d(i)=n-i+1: d(i+1)=d(i): NEXT
'FOR i=1 TO n: d(i)=INT(RND*n): NEXT '

IF n < 17 THEN FOR k=1 TO n: PRINT d(k);: NEXT: PRINT
IF n > 16 THEN FOR k=n-8 TO n: PRINT d(k);: NEXT: PRINT

start=TIMER

IF age > 0 THEN
CALL RussianSortingHalvesDAV(1, n, 1, age)
END IF

finish=TIMER

IF n < 17 THEN FOR k=1 TO n: PRINT d(k);: NEXT: PRINT
IF n > 16 THEN FOR k=n-8 TO n: PRINT d(k);: NEXT: PRINT

PRINT finish-start

OPEN "c:/=RuSortHalves_dav.txt" FOR OUTPUT AS #2
PRINT #2, finish-start; "sekund "
PRINT #2, n; "elements", "RECURSION"
FOR i=1 TO 22: PRINT #2, d(i): NEXT
FOR i=n-22 TO n: PRINT #2, d(i): NEXT

FOR k=1 TO 20: PRINT d(k);: NEXT: PRINT: PRINT
FOR k=n-9 TO n: PRINT d(k);: NEXT: PRINT: PRINT

END

SUB RussianSortingHalvesDAV (ab, yz, part, age)

IF yz-ab < 1 THEN EXIT SUB

FOR i=ab TO yz: summa=summa+d(i): NEXT
middle=summa/(yz-ab+1)

abc=ab-1
xyz=yz+1

FOR i=ab TO yz
IF d(i) < middle THEN abc=abc+1: a(abc)=d(i): ELSE xyz=xyz-1: a(xyz)=d(i)
NEXT

FOR i=ab TO yz: d(i)=a(i): NEXT

IF part < age THEN
IF abc >= ab THEN CALL RussianSortingHalvesDAV(ab, abc, part+1, age)
IF xyz <= yz THEN CALL RussianSortingHalvesDAV(xyz, yz, part+1, age)
END IF

END SUB
 




; Russian Sorting Halves Danilin
OpenConsole()
Declare RussianSortingHalvesDAV (ab, yz, part, age)

;n=12345678

If ReadFile(0, "c:/N.txt")
 n = Val(ReadString(0))
 CloseFile(0)
EndIf

age=Int(1+(Log(n)/Log(2)))
Global Dim d(n)
Global Dim a(n)

For i=1 To n
  ;d(i)=Random(n,1) ; случайные значения от 1 до n
  d(i)=n-i+1;
Next

   ;  вывод исходных значений до сортировки
PrintN(" Исходный без сортировки Первые 20")
For k=1 To 20: Print(" "+ d(k)): Next: PrintN("")
PrintN(" Последние 10")
For k=n-9 To n : Print(" "+ d(k)): Next: PrintN("")

start=ElapsedMilliseconds() ;  таймер

If age > 0 :
 RussianSortingHalvesDAV(1, n, 1, age)
EndIf

finish=ElapsedMilliseconds() ;  таймер

PrintN("RussianSorting Первые 50")
For k=1 To 50: Print(" "+ d(k)): Next: PrintN("")
PrintN(" Последние 20")
For k=n-19 To n : Print(" "+ d(k)): Next: PrintN("")

PrintN( "Время сортровки RussianSorting = " + Str(finish-start))

If OpenFile(0, "c:/RSH_DAV.txt")
  For k=1 To 1000 :WriteString (0, " " +d(k)): Next
  For k=n-1001 To n :WriteString (0, " " +d(k)): Next
 CloseFile(0)
EndIf

Input()
End

; Процедура сортировки
Procedure RussianSortingHalvesDAV (ab, yz, part, age)

If yz-ab < 1 :ProcedureReturn 0
EndIf

For i=ab To yz
summa=summa+d(i)
Next
middle=summa/(yz-ab+1)

abc=ab-1
xyz=yz+1

For j=ab To yz
If d(j) <= middle:
abc=abc+1: a(abc)=d(j)
Else
xyz=xyz-1: a(xyz)=d(j)
EndIf

Next

For w=ab To yz: d(w)=a(w): Next

If part < age :
If abc >= ab :RussianSortingHalvesDAV(ab, abc, part+1, age)
EndIf
If xyz < yz :RussianSortingHalvesDAV(xyz, yz, part+1, age)
EndIf
EndIf

EndProcedure


; IDE Options = PureBasic 5.62 (Windows - x64)
; CursorPosition = 65
; FirstLine = 45
; Folding = -
; EnableXP
; Executable = PureBasic_RSH_DAV_abyz.exe





'qb64 KENOKENOucozRU.bas
 
DIM a(78, 22): CLS
RANDOMIZE TIMER
OPEN "KENO_dav.txt" FOR OUTPUT AS #1
OPEN "KENO_excel.txt" FOR OUTPUT AS #2

FOR s=1 TO 78: REM tiragey
    a(s, 1)=INT(RND * 80)+1: REM 1-y sluch

    22 FOR j=2 TO 21: REM dlya 20 nomerov
        shag=INT(RND * 80)+1: REM plus shag
        a(s, j)=a(s, j-1)+shag: REM zavisit
        IF a(s, j) > 80 THEN a(s, j)=a(s, j)-80: REM uchet 80
    NEXT

    FOR m=1 TO 19
        FOR n=m+1 TO 20
            IF a(s, m)=a(s, n) THEN GOTO 22
            IF INKEY$=" " THEN STOP
    NEXT: NEXT

NEXT

FOR v=1 TO 78
    FOR w=1 TO 20
        FOR m=w+1 TO 20
            IF a(v, w) > a(v, m) THEN t=a(v, w): a(v, w)=a(v, m): a(v, m)=t
NEXT: NEXT: NEXT


FOR v=1 TO 78
    FOR w=1 TO 20
        PRINT #1, a(v, w); CHR$(9);
NEXT: PRINT #1,: NEXT

FOR v=1 TO 20
    FOR w=1 TO 78
        PRINT #2, a(w, v); CHR$(9);
NEXT: PRINT #2,: NEXT
 

 
 

 

 

 

Стартап поиск в чертежах AutoCAD dwg совместимых
любой версии используя около 5 программ
а также поиск Word Excel txt html
слов и словосочетаний в любых форматах

индексация dwg автокад чертежи autocad

1. копия в другой компьютер dwg
в каталогах с другими файлами

2. снять признак только для чтения
и контролировать табличный вид каталога
включив столбец атрибуты без признака R

3. dwg конвертер настроить на dwg 2000
и запись dwg в исходные каталоги

4. в dwg конвертер добавить каталоги
и контролировать список файлов

5. стартовать конвертер dwg и контроль
чтобы была успешная конвертация до 100%

6. far поиск dwg по каталогам индексации

7. файловый far и быстрый просмотр ctrl+q
покажет начало файлов autocad 2000 AC1015

8. архивариус 3000 и начать новый индекс

9. индексы чертежей и документов раздельно 

10. настроить включая autocad и файлы dwg
и нормальный вариант соблюдая наличие слов

11. индексация копии dwg соблюдая каталоги

12. свойства индекса и найти путь индекса

13. скопировать 13 файлов индекса и
вставить в любое место на любом компьютере

14. настроить путь индекса и индекс появится
в списке индексов и готов поиск внутри dwg
в исходных dwg любой версии autocad

15. создан поиск по всем формам словосочетаний

 

Просмотров: 459 | Добавил: DANILIN | Рейтинг: 0.0/0
Всего комментариев: 0

Форма входа

Поиск

Календарь

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Карта мира

Данный сайт средством массовой информации не является.
Данный сайт: личный дневник, созданный в развлекательных целях.
Данный сайт азартные игры не пропагандирует и не организует.
Данный сайт ставки не принимает и выигрыши не выплачивает.
Данный сайт никакие платные услуги не предоставляет.

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

Файлы имеют цель: приоритет открытий, изобретений, формул и творчества
и тексты выражают субъективные оценочные суждения без упоминания имён.

Все тексты юридической силы не имеют и служить доказательством в суде не могут.
Все формулы возможно вывести самостоятельно и ответ автора сайта не нужен.
18+ web.archive.org/web/20230602152617///kenokeno.ucoz.ru/load/?page2

This site is not a media outlet.
This site: personal diary created for entertainment purposes.
This site promote does not and gambling not organize.
This site bets does not accept and winnings does not pay out.
This site any paid does services not provide.

Site and author for lost profits are not responsible.
Site and author for possible losses are not responsible.

Files have a target: priority of discoveries, inventions, formulas, and creativity
and texts express subjective value judgments without mentioning any names.

All texts have no legal force and as evidence in court cannot serve.
All formulas can be deduced independently & response of site author is not required.
18+ web.archive.org/web/20230602154543///kenokeno.ucoz.ru/publ/?page2

Бесплатный конструктор сайтов - uCozЯндекс.Метрика