Вполне гуглится возможность заполнения запоминающего устройства нулями чтобы информацию было затруднительно восстановить. А как это будет если та же задача, но с отдельными файлами. Нужно решить с помощью стандартных средств SystemRescueCD.
Вот знаю кучу всяких научпоп СМИ про физику, технологии, но про историю цивилизации как-то не очень. Чтобы были статейки с ссылками на приличные научные статьи. Знаю вот антропогенез, но это совсем про другую историю. А интересны статьи о раскопках культурных следов, побоищ, раскопки в архивах о делах государств, торговле. Ведь в истории цивилизации работы полно - там копать и копать, тем более по части истории этой страны. Понятно что у нас свои национальные особенности с линией партии, но всё равно где-то должна быть серьёзная научная работа.
Мне понравилось замечание в SICP что у лиспа довольно специфичный взгляд на синтаксический сахар. Но вот я не могу понять почему в таких формах из CL как cl:defun или cl:destructuring-bind у ключевых симоволов &key, &optional приставка & вместо использования более адекватных для CL кейвордов?
Уже сколько времени прошло, а до сих пор и в представлении обывателя основная операционная система это масдай. На взгляд такого прожжённого линуксоида как я M$ в своём дейтище преуспевают только в одном направлении - успешно заставляют машину сильнее тормозить. Тут невольно начинаешь думать что это отрабатывается весьма определённый заказ производителя - обыватель просто вынужден потреблять продукцию. Чтож для производителю добро так и производитель отвечает добром - поддержка оборудования в основном концентрируется на оффтопике и, может, это сейчас меняется хотя сомневаюсь что сильно. Мне кажется логичным предположить что интерес производителя к онтопику также растёт за счёт того, что этот самый онтопик тоже вполне может неплохо так тормозить.
Вот буквально недавно спокойно пользовался давно обработанными напильником awesome и GNU/Emacs, и думал что всякие SSD, GNOME, KDE и новомодные текстовые редакторы не нужны. И вот как взгляд на мир меняется обыкновенный разговор со знакомым, желающим поделиться радостью от новоприобретённого SSD. Бизнес, ничего личного.
Теперь вот такой вопрос - какой дистибутив GNU/Linux выбрать, чтобы он лучше тормозил мой компьютер?
Скачал, запустил виртуалочку в qemu и теперь хочу элементарных удобств в интерфейсе - работающий sshd, после которого гуй и иксы можно смело сносить. Система для виртуалки вроде по умолчанию с установленным sshd, а вот как его запустить непонятно. Пробовал раскомментировать соответсвующие строки в /etc/config.scm, при перезагрузке sshd в запущенных процессах не появляется. При командах, что советуются в 8.15.1, или `guix system reconfigure /etc/config.scm` система на кой-то ляд что-то откуда-то качает, хотя ping 8.8.8.8 не проходят, забивает диск и тормозит.
Это баг такой?
CL-USER> (format nil "~A ~A"
(lisp-implementation-type)
(lisp-implementation-version))
"SBCL 1.4.10"
CL-USER> (directory "*.*")
NIL
CL-USER> (uiop/run-program:run-program '("touch" "q[r].file"))
NIL
NIL
0
CL-USER> (uiop/run-program:run-program '("ls")
:output :string)
"q[r].file
"
NIL
0
CL-USER> (uiop/run-program:run-program '("ls" "q[r].file")
:output :string)
"q[r].file
"
NIL
0
CL-USER> (probe-file #P"q[r].file")
; Evaluation aborted on #<SB-INT:SIMPLE-FILE-ERROR "~@<~?~@[: ~2I~_~A~]~:>" {1003C5C4C3}>.
CL-USER> (directory "*.*")
(#P"/home/redarch13/Desktop/bug03/q\\[r].file")
CL-USER> (defparameter *p* (first *))
*P*
CL-USER> *p*
#P"/home/redarch13/Desktop/bug03/q\\[r].file"
CL-USER> (probe-file *p*)
#P"/home/redarch13/Desktop/bug03/q\\[r].file"
CL-USER> (uiop/run-program:run-program (list "ls" (namestring *p*))
:output :string)
; Evaluation aborted on #<UIOP/RUN-PROGRAM:SUBPROCESS-ERROR {1004640263}>.
CL-USER> (delete-file *p*)
T
CL-USER> (probe-file *p*)
NIL
CL-USER>
В общем элементарное уравнение - вектор зависит от вектора через линейное произведение на матрицу 3x3. Нужно было быстро слабать отчёт и я вместо того чтобы вкуривать теорию погрешностей быстро нагенерировал множество возможных возмущений «грешных» величин - какие-то из них уменьшив, какие-то не затронув, какие-то увеличив и так все возможные варианты возмущений с вариантом для каждой «грешной» величины - минимальное значение, максимальное и вообще без возмущения (что я думаю было лишним и это на опыте подтвердилось). Таким образом я отобрал из всего этого максимальные и минимальные значения интересующих мне величин, посчитав таким образом абсолютные погрешности.
Правильно ли я понимаю что т.к. уравнение линейное, то так вполне себе можно считать погрешность?
Вот есть набор таких видеофайлов:
$ ffprobe VTS_03_5.VOB
ffprobe version n4.0.2 Copyright (c) 2007-2018 the FFmpeg developers
built with gcc 8.2.0 (GCC)
configuration: --prefix=/usr --disable-debug --disable-static --disable-stripping --enable-avresample --enable-fontconfig --enable-gmp --enable-gnutls --enable-gpl --enable-ladspa --enable-libaom --enable-libass --enable-libbluray --enable-libdrm --enable-libfreetype --enable-libfribidi --enable-libgsm --enable-libiec61883 --enable-libjack --enable-libmodplug --enable-libmp3lame --enable-libopencore_amrnb --enable-libopencore_amrwb --enable-libopenjpeg --enable-libopus --enable-libpulse --enable-libsoxr --enable-libspeex --enable-libssh --enable-libtheora --enable-libv4l2 --enable-libvidstab --enable-libvorbis --enable-libvpx --enable-libwebp --enable-libx264 --enable-libx265 --enable-libxcb --enable-libxml2 --enable-libxvid --enable-nvenc --enable-omx --enable-shared --enable-version3
libavutil 56. 14.100 / 56. 14.100
libavcodec 58. 18.100 / 58. 18.100
libavformat 58. 12.100 / 58. 12.100
libavdevice 58. 3.100 / 58. 3.100
libavfilter 7. 16.100 / 7. 16.100
libavresample 4. 0. 0 / 4. 0. 0
libswscale 5. 1.100 / 5. 1.100
libswresample 3. 1.100 / 3. 1.100
libpostproc 55. 1.100 / 55. 1.100
Input #0, mpeg, from 'VTS_03_5.VOB':
Duration: 00:18:52.10, start: 4514.431267, bitrate: 7584 kb/s
Stream #0:0[0x1bf]: Data: dvd_nav_packet
Stream #0:1[0x1e0]: Video: mpeg2video (Main), yuv420p(tv, fcc/bt470bg/bt470bg, top first), 720x576 [SAR 64:45 DAR 16:9], 25 fps, 25 tbr, 90k tbn, 50 tbc
Stream #0:2[0x80]: Audio: ac3, 48000 Hz, 5.1(side), fltp, 448 kb/s
Stream #0:3[0x81]: Audio: ac3, 48000 Hz, 5.1(side), fltp, 448 kb/s
Unsupported codec with id 100357 for input stream 0
На мой взгляд у файлов ужасное сжатие - видел полно файлов с более лучшим сжатием и качеством картинки. Каким образом можно перекодировать эти файлы с улучшением сжатия и сохранением качества картинки?
В кодеках ffmpeg разбираюсь плохо.
Не получается:
rename '-h.dat' .dat *-h.dat
Команда принимает ключ -h, выводит справку и больше ничего не делает.
С помощью модуля (web client) (guile 2.2.4) запрашиваю некий сервер и тот оставляет мусор в заголовке:
scheme@(guile-user)> (define myx (http-get site))
web/http.scm:479:8: In procedure parse-non-negative-integer:
Bad non-negative-integer header component: 0; must-revalidate; no-cache
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> ,bt
In current input:
678:12 6 (_)
In web/client.scm:
386:24 5 (http-request _ #:body _ #:port _ #:method _ #:version _ #:keep-alive? _ # _ # _ …)
In web/response.scm:
200:48 4 (read-response #<input-output: string 560a19106b60>)
In web/http.scm:
225:33 3 (read-headers #<input-output: string 560a19106b60>)
195:11 2 (read-header #<input-output: string 560a19106b60>)
529:23 1 (lp _)
479:8 0 (parse-non-negative-integer "0; must-revalidate; no-cache" _ _)
scheme@(guile-user) [1]>
На первый взгляд косяк элементарный, но я в схеме новичок и поэтому читаю этот http.scm с данными из бэктрейса и не могу понять куда впатчить предварительную обработку строки.
Для организующих всякие данные скриптов - к производительности высоких требований нет, т.к. операции предполагаются элементарные, чтобы быстро стартовал, был способен грузить динамические библиотеки через ffi, желательна поддержка geiser для удобства разработки. Иными словами нужна замена clisp - CL уже приелся и хочу уже взглянуть на какой-нибудь r7rs, раздутый стандарт CL вроде меньше подходит для вышеназванных требований. Попробовал racket - не понравился, по ощущениям sbcl лучше отвечает требованиям не говоря уже про clisp.
Вот бывает такие мозги, которые предрасположены к критическому мышлению - когда хорошо развит критический аппарат, когда мозг всегда старается обнаружить минусы и недостатки, или, возможно другими словами, мозг зануды, которому постоянно что-то не нравится. Бывает что отчасти критический анализ направлен на творчество этого же самого мозга, т.е. мозг способен на самокритику и какое-никакое творчество. Часто у такого мозга что-то не получается из-за такого вот взаимоисключающего торможения, но обычно дело делать надо и мозг бьётся и бьётся, но рано или поздно устаёт. Я считаю, что из-за усталости первым тормозит и отрубается критический аппарат, потому что очень требователен к вычислительным ресурсам.
Вот есть такая вещь как метод штурма - это когда предлагаются совершенно любые идеи включая бредовые, а критический подход отрубается, только потом разгребают полученное творчество. А в вышеописанном случае мозг, получается, входит в режим автоштурма - метод штурма активируется поневоле. Критическое мышление отрубается и у пациента создаётся иллюзия, что его мозг начинает генерировать идею за идеей - одна офигительнее другой. Под впечатлениями пациент возбуждается и уже банально не может выйти из такого режима работы и успокоиться. Вот как в таких случаях останавливать такую генерацию? Ибо хватит уже - пора бы наконец поспать!
Алкоголь очевиден и интересуют средства с менее разрушительными побочными эффектами.
Очередной раз попробовал с помощью своих навыков в LaTeX штурмануть ГОСТ 7.32-2001. Столкнулся с парой проблем. Конечно для моего готового отчёта это не критично и такие проблемы удалось обойти. Но осадок остался и я хочу решить грамотно.
\titlespacing*{\part}{0mm}{5mm}{5mm}
и в случае с section всё работает замечательно, а с part отступ всё равно очень большой. Проблему я обошёл подстановкой отрицательных значений в расстояниях, но тем не менее это костыль и его костыльность обнажает следующий пример:
Да задолбали! Да задолбали! Да задолбали! Да задолбали!
\part*{ВВЕДЕНИЕ}
Данный текст посвящён полнейшей лабуде.
! TeX capacity exceeded, sorry [input stack size=5000].
\@makeother #1->\catcode `#1
12\relax
l.45 .../wiki/Тензор\_напряжений}}
.
! ==> Fatal error occurred, no output PDF file produced!
Transcript written on report.log.
make: *** [Makefile:27: report.pdf] Error 1
В данном случае pdflatex катит бочку на код из сопутствующего bib-файла где я оформляю ссылку на википедию.
@online{StressTensorWiki,
title = {Тензор напряжений --- Википедия},
url = {\url{https://ru.wikipedia.org/wiki/Тензор\_напряжений}}
}
Сабж.
Вот замечаю я человека как он кувыркается со своим стареньким ноутбуком на диване и невольно начал беспокоиться за состояние здоровья машинки. И вот читаю я S.M.A.R.T. :
Для меня случай исключительный, по словам хозяина винчестер служит 8 лет + 2-3 месяца, бывало его сильно били, падал со второго яруса общажной кровати в выключенном состоянии, сдохший аккумулятор и сбои в стабильном энергопитании. Я смотрю на данную пасту и у меня есть основания верить таким показаниям. Итак делаем ставки господа - даст ли такой винчестер шанс хозяину спокойно защитить диплом через 4 месяца?
Я человек не суеверный, но уж очень много винчестеров подыхало рядом со мной за жизнь в общаге. Хорошо что все эти харды моих соседей.
Осваиваю тут сабж для обработки спектров. Я так понял сабж есть просто гуй для bgmn и поэтому тут вопросы касаются в основном bgmn. Я так понял что для успешной обработки спектра в bgmn для начала нужно составлять точную конфигурацию используемого оборудования, которое при расчётах моделируется. Нельзя ли как-нибудь подбирать под спектр параметры оборудования?
Дело в том что спектры которые я обрабатываю сделаны на синхротроне который находится в далёкой стране и его точные параметры достать довольно затруднительно.
Банальности вроде длины волны я знаю. Также начинаю с обработки спектра LaB_6 - своего рода эталон и по нему обычно рассчитывают инструментальную функцию, кристалл дефектами в котором можно пренебречь другими словами.
$ id3info 10.\ Группа\ крови.mp3
*** Tag information for 10. Группа крови.mp3
=== TPE2 (Band/orchestra/accompaniment): 8=>
=== TIT2 (Title/songname/content description): @C??0 @>28
=== TALB (Album/Movie/Show title): Live 1988-1990. '0ABL 2
=== TYER (Year): 1990
=== TRCK (Track number/Position in set): 10/10
=== TPE1 (Lead performer(s)/Soloist(s)): 8=>
=== COMM (Comments): (iTunNORM)[eng]: 0000068D 00000529 0000110F 00000F55 00035B8E 00035B8E 00006A21 000061F2 0001ADC7 00035B60
=== PRIV (Private frame): (unimplemented)
=== PRIV (Private frame): (unimplemented)
=== PRIV (Private frame): (unimplemented)
*** mp3 info
MPEG1/layer III
Bitrate: 192KBps
Frequency: 44KHz
Когда между вами и этим человеком нет совершенно никаких секретов или когда вы признаёте что секреты есть, но верите что эти секреты не будут направляться против ваших интересов?
Кто-нибудь из здешних его использует? Как он себя показывает в плане надёжности, как в плане крутясь просто молча и отвечая на запросы при этом не падая так и в плане всяких неожиданно выскакивающих траблов при разработке? Сильных требований к производительности нет, да и вроде он и проседать сильно не должен по сравнению с аналогами, но что насчёт требовательности к ресурсам железа?
Пишу свой супер-пупер производительный парсер на CL под sbcl, GNU/Linux. И давно вот заметил что кусками равного размера чтение из файла идёт быстрее чем если читать поток по символу.
(in-package cl-user)
(defpackage buffering-tests
(:use :cl))
(in-package buffering-tests)
(defparameter *test-text*
(merge-pathnames #P"Desktop/buffering-test/text.txt"
(user-homedir-pathname)))
(defun count-chars (file)
(with-open-file (in file)
(loop :for c = (read-char in nil nil)
:while c
:counting 1)))
(defparameter *default-buffer-size*
(floor (* 4 (expt 2 10))))
(defun count-chars-with-buffering (file
&optional (buffer-size *default-buffer-size*))
(with-open-file (in file)
(loop :with buffer = (make-string buffer-size)
:for e = (read-sequence buffer in)
:while (plusp e)
:summing e)))
BUFFERING-TESTS> (let (r)
(sb-ext:gc :full t)
(time (dotimes (i 15)
(setf r
(count-chars *test-text*))))
r)
Evaluation took:
1.514 seconds of real time
1.512376 seconds of total run time (1.490228 user, 0.022148 system)
99.87% CPU
3,487,695,298 processor cycles
63,488 bytes consed
6210660
BUFFERING-TESTS> (let (r)
(sb-ext:gc :full t)
(time (dotimes (i 15)
(setf r
(count-chars-with-buffering *test-text*))))
r)
Evaluation took:
0.693 seconds of real time
0.692603 seconds of total run time (0.669793 user, 0.022810 system)
100.00% CPU
1,597,583,804 processor cycles
323,520 bytes consed
6210660
Разница есть если даже пытаться сравнять количество итераций:
(defun count-chars-with-buffering (file
&optional (buffer-size *default-buffer-size*))
(with-open-file (in file)
(loop :with buffer = (make-string buffer-size)
:for e = (read-sequence buffer in)
:while (plusp e)
:summing
(loop :repeat e
:for i :upfrom 0
:for c = (schar buffer i)
:when c
:counting 1))))
BUFFERING-TESTS> (let (r)
(sb-ext:gc :full t)
(time (dotimes (i 15)
(setf r
(count-chars-with-buffering *test-text*))))
r)
Evaluation took:
1.193 seconds of real time
1.191737 seconds of total run time (1.172685 user, 0.019052 system)
99.92% CPU
2,748,553,404 processor cycles
323,520 bytes consed
6210660
BUFFERING-TESTS>
В парсере это привело к созданию прослойки над потоками - объекта, содержащего ссылку на поток, буфер и инфу откуда программе начинать чтение. Остаётся вопрос - для чего так реализовано? Недостающая оптимизация sbcl? В других реализациях других языков тоже такая разница? Понятно что сварганить вышеописанный объект может любой программист в два счёта, но почему бы не сделать это в рамках реализации чтобы не было разницы посимвольно ты читаешь поток или кусками? Почему бы эту абстракцию не взять на себя ядру, у которого и так в IO буфер буфером погоняет?
| ← назад | следующие → |