Моя первая статья

[BP]

Приветствую всех.
Написал вот статью(и уже отправил на этот сайт). Но как и всем авторам хочется чтобы программистский люд поскорее увидел моё творение.
http://basicproduction.nm.ru/articles/numpack.htm

Пользователей Оперы вынужден разочаровать. Она плохо дружит с гипертекстовыми документами, сделанными в Word 10. Текст получается растянутым по вертикали.

[alibek]

Эпатажное поведение предполагает дальнейшие придирки. Поэтому придирки:
1. Очень спорное описание "Что такое упаковка чисел" (второй пункт).
2. Упаковка. Очень тормозной алгоритм (сложение). Даже маска (Dst = Src Xor Res) была бы быстрее. Соответственно, распаковка тоже не избежала двух вложенных циклов.
3. Последний пункт ("Лицензия"). Написать можно что угодно. Если используются копирайты, то надо указать дату регистрации.

А в остальном неплохо.

[tyomitch]

alibek, копирайты не регистрируются, ты их путаешь с Registered Names, которые обозначаются буквой R в кружочке. Но даже и для них не надо указывать дату регистрации.

BP, написано всё как-то настолько туманно, что если бы я не знал LZW заранее, я бы вообще ничего не понял...

[BP]

alibek,
Вообще-то ты не прав, но всё равно спасибо за уделённое мне внимание. А вообще я бы рекомендовал сначала проверять своё "бесспорное" авторитетное утверждение.

Private Sub Form_Load()
Dim a As Byte

t1 = Timer
For b = 1 To 1000000
a = 0
a = a Xor 2 ^ 7
Next b
t2 = Timer
MsgBox t2 - t1

t1 = Timer
For b = 1 To 1000000
a = 0
a = a + 2 ^ 7
Next b
t2 = Timer
MsgBox t2 - t1

End Sub

Сложение оказалось чуть быстрее. 1.8 секунды у XOR против 1.7 секунды у ADD. Пока это лучший алгоритм. Если кто здесь напишет лучше - буду только рад. Причём следует заметить что преимущество в удобстве оператора XOR здесь использовать не удастся. XOR позволяет переключать биты, но так как буфер приёмника пуст (т.е. все биты выключены), то переключать ничего не требуется и выключенные биты просто пропускаются.
PS: Орфографические ошибки можете не искать. Статья предварительно пропущена через Word 2002.


All,
Кто нибудь знает какой алгоритм сжатия по словарю быстрее, с добавлением целых слов или ссылки на предыдущие элементы? Причём нужно учитывать что OLE строки VB6 работают крайне медленно. Мне интересно сравнение как в общем, так и для VB6 в частности.

tyomitch,
Как раз наоборот, написано для тех кто в упаковке чисел полный ноль. Смотри как я подробно расписываю простейшие вещи.

[BP]

tyomitch,
И ещё, если ты не бегло просматривал статью, а более менее стрался проследить мою мысль, то ты наверное заметил, что я стараюсь не привязывать упаковку чисел конкретно к LZW алгоритму. Это сделано специально для расширения кругозора читателей.

[alibek]

Я разве говорил, что надо восемь раз накладывать маску на каждый бит? Вычисли маску (для байта, Integer, Long) и накладывай ее, это будет гораздо быстрее -- и от вложенного цикла уйдешь, и сама операция несколько быстрее.
Кроме того, использовать в цикле 2^7 не есть хорошо, лучше однажды посчитать таблицу степеней и использовать массив Power2(7).

Что же касается понятности статьи, то я соглашусь с tyomitch. Я в упаковке полный ноль (никогда не доводилось делать архиваторы), но сквозь статью приходилось "продираться". Что-нибудь не столь "элементарное" читалось бы куда понятнее.

[tyomitch]

BP, "подробно" - не то же самое, что "понятно".
Имхо у тебя в статье "за деревьями не видно леса" - из-за слишком большого числа общих рассуждений непонятна суть объясняемого.

Посмотри на http://www-2.cs.cmu.edu/afs/cs.cmu.edu/ ... lained.txt - как там всё доступно и понятно. Когда я её читал, я был полный ноль в упаковке, и однако-таки во всём разобрался. А читатели твоей статьи, наверное, демонстрационную программу сочтут неким "волшебным кодом", который непонятно почему работает, и лучше не трогать, чтобы не сломать.

[BP]

alibek,
Ты опять не прав. Эти предложения совершенно не применимы здесь. Хотя я не буду, подобно тебе, делать "авторитетных" заявлений. Покажи более быстрый алгоритм в данном контексте. И если я был не прав, то я это признаю. Мне не жалко.
По поводу продирания.
На данный момент это лучшее русскоязычное описание упаковки чисел. Причём описание общее и к тому же выведено за рамки LZW, что позволяет применять в новых алгоритмах, которые программист захочет придумать. Если ты не можешь и это освоить то другие описания тебе дадутся с ещё большим трудом. И архиваторы не имеют к упаковке чисел совершенно никакого отношения.
tyomich, к тебе это тоже относится.

PS: Если вам не нравится какая либо часть описания или алгоритма, напишите лучше. Но прошу вас не флудить без повода. Это раздражает.

[tyomitch]

Ну интересно - сначала выставил статью на обсуждение, а сейчас уже этим обсуждением недоволен
Мы своё время тратим на обсуждение его статьи, а он ещё недоволен? :roll:

Если ты писал эту статью не для того, чтобы её читали, а для того, чтобы она была - на удовольствие, не собираюсь мешать твоему самолюбованию
И зачем ты ещё тратил своё время на нас, неразумных, не верящих в Истинный Язык Программирования?

[GSerg]

так вот... никакой Word не заменит человека... и никогда человек за Word'ом не спрячется... у тебя по всей статье нет запятых там, где они должны быть; кроме того, ты постоянно путаешь тся и ться...

Почитаю ещё, ещё чё скажу...

[BP]

tyomitch,
Я же просил не выяснять отношения здесь. Тебе с первого раза не понятно чтоли? Критикуй по существу. Если нечего сказать - молчи. А флудить не надо. Я не люблю флудеров.

[BP]

GSerg,
Это враньё. Прошу тебя больше не писать в этой теме.

[BP]

Если не прекратите, я начну флудить во всех ваших постах. Просто чтобы вам ясно стало.

[hCORe]

расположены строго упорядочено

и все-таки здравый смысл подсказывает, что раз они (данные) строго упорядочены, то расположены они строго упорядоченно (действие уже совершилось).

[BP]

Ещё один доброжелатель.
Теперь понятно почему VbNet есть в каталоге Microsoft, а VbStreets нету. Потому что здесь всем заправляют мусорщик и подхалим и все должны им кланяться. Не сильно ли много прав вы себе присвоили господа?
Ведь в мире есть не один такой GSerg. Их навалом, да ещё и в сто крат образованнее. По моему равноправием тут и не пахнет.

Недоумки одним словом. Мля, последний раз предупреждаю, а потом начинаю флудить.

[tyomitch]

Все недоумки сразу испугались, замолчали, и попрятались по норам...

BP, если тебе здесь не нравится - какого чёрта ты здесь делаешь? Мазохист, что ли?

Давай, начинай флудить в моих топиках

[GSerg]

Числа в переменных расположены строго упорядоченно, и, если отсек хранения чисел заполнен не полностью, то оставшееся место просто занимает память.

При этом условно выбирается сколько таких ячеек ??? выделяется для хранения чисел опять же условных типов данных.

Этот процесс необратим, и размер такого хранилища не может сузиться до конца работы алгоритма.

Вначале расширяемый тип имеет какую-то минимальную фиксированную длину. Как только длина данных увеличивается, увеличивается и длина типа.

Например, единичные числа могут занимать только верхнюю ступеньку хранилища, десятки идут ниже, сотни ещё ниже, и так до самого дна.

И если в ячейке фиксированной длины количество разрядов определено заранее, то в расширяющейся ячейке новый, более крупный разряд присоединяется, и критические данные предыдущих разрядов переходят в него (рис 2).

К примеру, вначале данные хранились как тип Byte, но постепенно тип может измениться на Integer, Long и так далее.

И если в примере позиция разряда - это число 10 в степени номер разряда (Например, разряд 3 - это 10^3 степени), то в ЭВМ это 2 в степени номер разряда (разряд 3 - это 2^3 степени).

Нужно уточнить, что при расширении типа должна обязательно идти пара [Максимальное число текущего диапазона...Число следующего диапазона].

При упаковке данных следует учесть это правило.

Данное правило никак не связанно с алгоритмом LZW, так как в нём данные идут строго последовательно, и меньшее число не может идти после большего.

Поступающие в переменную расширяющегося типа данные, равные или меньшие текущей длине типа, могут быть любого размера и поступать в любом порядке.

Исходя из строения типа можно увидеть, что наибольшую пользу можно извлечь из маленьких чисел.

Напомню, что данные хранятся в цепочке переменных расширяющегося типа, которые, в свою очередь, упакованы внутри цепочки переменных фиксированного типа Byte.

Имеется стартовая длина типа, и все последующие данные имеют эту длину до тех пор, пока не встретится значение, большее допустимого значения для текущего типа.

Эта операция не критична, и её можно удалить при использовании алгоритма в других целях.

[GSerg]

Это что касается "Это враньё"...

[GSerg]

Теперь понятно почему VbNet есть в каталоге Microsoft, а VbStreets нету.

Да. Заодно понятно, почему VBStreets пользуется официальной поддержкой Microsoft, а VBNet - нет.

Потому что здесь всем заправляют мусорщик и подхалим и все должны им кланяться. Не сильно ли много прав вы себе присвоили господа?

Если ты имел в виду модераторов, то никто тебя за язык не тянул.
Если меня и tyomitch - то, во-первых, кто есть кто (мне интересно, как это ты провёл такое разделение).
В обоих случаях - и мы, и модераторы ничего не присваивали. На форуме, кстати, полная демократия. И правила форума применяются не по букве, а по духу. Мне это нравится. Это моё мнение. Я не навязывал его даже тем, кому мог бы.

Ведь в мире есть не один такой GSerg. Их навалом, да ещё и в сто крат образованнее.

Это действительно так. А в чём проблема?

Недоумки одним словом. Мля, последний раз предупреждаю, а потом начинаю флудить.

Может быть, даже ещё успеешь.

[GSerg]

Правда, мне кое-что всё-таки интересно...

[Amed]

Предлагаю кое-кому бан навесить

[BP]

Вот козлы, а. Да вы посмотрите уроды на все статьи по Vb. Они все делятся на две категории: "Как подключить контрол" и как подключить контрол через ж... (GSerg). И именно в тот редкий случай, когда появляется что то стоящее, эти дауны стараются всячески сбить с толку других программистов и вернуть их к "нормальному" подключению контролов. Кто вам дал такое право? Сами присвоили? Тогда вы просто обычные отморозки, отбирающие пищу у более слабых.

[BP]

GSerg,
Не надо только строить из себя знатока русского языка. Ты даже ассемблер не можешь написать, обиженный. На обиженных воду возят. Я тебе предлагал присоединиться. Нет, ты же ведь самый умный, никто кроме тебя на это не способен. А потом он с обиженным видом говорит что ассемблер в VB не нужен. И все как попугаи это повторяют. Должно же быть несколько мнений, а не только GSerg'а. А если он завтра скажет что упаковка чисел в VB не нужна? Только потому что она ему не угодна.

[EvilCoder]

сколько нервов...

что ты БЫКУЕШЬ!!!

Тебе свое мнение выразили. следи за речью.

И вообще Где модераторы....

[BP]

Ты сам быкуешь. Ты называешь это мнением? А я называю это флудом.

[BP]

Если бы я молчал, то статью бы так обо...ли что другие люди бы просто не получили этих знаний. Потому что оно глючное тормозящее и вообще не работает.

[GSerg]

Так вот, мне интересно.

Не помню кто (но человек был очень мудрый) однажды сказал (эх, не могу вспомнить дословно): «Больше всего я люблю спокойно сидеть где-нибудь в кафе и наблюдать за нравами». Иногда ловлю себя на том, что это действительно занимательно.

Я считаю себя в определённом смысле сложившимся человеком. У меня есть позиция, у меня есть мировоззрение, у меня есть отношение к миру. И когда я встречаю человека, чья позиция столь сильно отличается от моей, я испытываю к нему определённый интерес – не знаю почему...

Ещё никогда я не испытывал негативных эмоций, когда мне указывали на мои ошибки. Скажи мне, почему ты реагируешь так, уж извини, интересно? Почему ты начинаешь (именно ты начинаешь!) активно оскорблять того, кто потратил своё время ради того, чтобы помочь тебе стать лучше? Причём начинаешь исподволь; вот зачем ты взял в кавычки слово «авторитетный», когда отвечал Алибеку? Единственное, что мне приходит в голову – что ты сознательно хотел его задеть, и потом, прикинувшись шлангом, сделать вид, что начал не ты. Скажи, ты удивлён тем, что не получилось?
Как ты думаешь, почему, когда я читаю то, что сказали alibek и tyomitch, мне хочется с этим согласиться? Я знаю, что меня никто не заставляет этого делать – потому что никто и не заставляет. Я знаю, что я могу с ними не согласиться – и знаю, что никогда не вызову этим такой реакции, как вызывает несогласие у тебя. Почему, когда кто-то пытается показать тебе, как нужно делать, ты воспринимаешь это как оскорбление и как попытку поставить себя выше тебя? Мне нравится находиться в обществе людей, которые умнее меня. К такому обществу я обычно стремлюсь. alibek для меня весьма авторитетен в области БД. tyomitch – разнопрофильный спец, хотя в железе не очень. Я не буду затрагивать тех, кто не был упомянут тут тобой. Почему же у тебя такое общество вызывает исключительно раздражение? Почему ты не можешь понять, что никто здесь никого не притесняет и не унижает – никто, кроме, как получается, тебя?


О, ещё напостили, пока я тут печатал… Ага…

[pitbull]

А я бы сказал, что все было тихо и спокойно. Пока твоя гордость не начала тебя душить. (Как так твоя обалденная статья, а ее че-то никто не ЦЕНИТ. КАК так!!!).
И вместо того, чтобы конструктивно ее обсудить ты начал метать стрелки...
Даже когда GSerg тебе показал, что ошибки в тексте есть (ты сказал, что это враньё) ты сразу как-то перевел разговор (милую беседу) на личности - в двойне стрелочник....

Ты сам быкуешь. Ты называешь это мнением? А я называю это флудом.

А теперь ты начинаешь кидаться на каждого встречного...

[BP]

GSerg,
Очень хочется верить в ту сказку, которую ты написал и в те высокие фразы, которыми ты прикрываешся. Но ведь началось то сразу с чего? Посмотри. Сразу же ставится под сомнение моя компетентность, хотя потом он утверждает что в этом ничего не смыслит. Ну разве это не флуд? Неужели ты думаешь что если бы он предложил мне лучший алгоритм я бы стал с ним спорить? Я бы сказал ему спасибо. И я об этом уже говорил. Но вместо ожидаемых отзывов я получаю заранее негативные отзывы флудеров. На меня они не имеют воздействия потому что не несут в себе никакой информации, а только намерение (кстати тобой спровоцированное) выставить меня в невыгодном свете. Я думаю моё поведение нормально, а ты как предлагаешь реагировать?

[tyomitch]

BP, http://www.anekdot.ru/an/an9701/970110.html , №10:

Сара возвращается с базара:
- Hу, Хаим, мне такого наговорили, такого... Последними словами
обзывали!
- Сколько раз я тебе говорил: не ходи туда, где тебя все знают!