Подскажите какую-нибудь статью в которой есть и айти и железные дороги. Хочу что-нибудь почитать не старше 2013 года. На самом деле в аспирантуре сказали что-нибудь им перевести. Может тут есть кто-нибудь кто читает такой направленности статьи?
Подскажите, у кого-нибудь получается залогиниться программно на ЛОРе? Пытаюсь сделать уведомлялку себе на телефон, но на все попытки залогиниться получаю 403. Вот код на всякий случай(Android если это важно) -
final HttpsURLConnection cn = (HttpsURLConnection) new URL("https://www.linux.org.ru//login_process").openConnection();
cn.setRequestMethod("POST");
String charset = "UTF-8";
String query = "csrf=" + URLEncoder.encode("myMS4KQMs9rc40AXyaKG1w==", charset) + "&user=pseudo-cat" + "&passwd=areukidding";
cn.setRequestProperty("Accept-Charset", charset);
cn.setRequestProperty("Content-Type", "application/x-www-form-urlencoded");
cn.setRequestProperty("Content-Length", "" + Integer.toString(query.getBytes().length));
cn.setRequestProperty("Content-Language", "en-US");
cn.setRequestProperty("USER-AGENT", "Mozilla/5.0");
OutputStream os = cn.getOutputStream();
byte[] bdata = query.getBytes(charset);
os.write(bdata);
cn.connect();
int responseCode= cn.getResponseCode();
Сейчас бы в 2017 когда у сайтов не было открытых API)
Добрый день, кто подскажет что происходит с base, когда мы оборачиваем код в тело функции?
type A(a) =
let _value = (a + 2) / 3
member x.value = _value
type B(a) =
inherit A(a)
base.value * a // OK
let _c = |> (fun a -> base.value * a) // ERROR
let rrr = base // ERROR
member x.c = _c
Можно ли при объявлении defmethod указать, что у объекта должны быть наследованы несколько типов? По смыслу что-то типа -
(defmethod m ((o (and type1 type2))) ...)Перевожу один свой проект на SDL2, раньше использовал SDL. Была такая логика - главное окно делилось на несколько зон, в каждой из которых рисовался свой surface. Приведу код:
(loop with plot-n = 3 with plot-h = (round (/ height plot-n))
for i from 0 below plot-n
for name in (list
"Температура охлаждающей жидкости (°С)"
"Положение дроссельной заслонки (%)"
"Скорость вращения двигателя на холостом ходу (об/мин)")
for s = (sdl:create-surface width plot-h)
do (progn
(sdl:fill-surface sdl:*white* :surface s)
(draw-plot name s)
(sdl:draw-surface-at s
(point :x 0 :y (* i (/ height plot-n)))
:surface sdl:*default-surface*))))
В SDL2 всё по-другому и у меня не получается увязать вместе render и surface, да и, скорее всего, неправильный подход я пытаюсь использовать. Пробовал по-разному, к примеру так -
(let* ((s (sdl2:create-rgb-surface 100 100 1))
(r (sdl2:create-software-renderer s)))
(sdl2:set-render-draw-color r 0 0 255 255)
(sdl2:render-draw-line r 0 0 100 100)
(sdl2:render-copy render (sdl2:create-texture-from-surface r s)
:source-rect (make-rect 0 0 100 100)
:dest-rect (make-rect 10 10 110 110)))
Доки почитал, но что-то не разобрался. Спасибо.
РЕШЕНИЕ:
(defun start-plot ()
(sdl2:make-this-thread-main
(lambda ()
(sdl2:with-init (:everything)
(sdl2:with-window (win :title "prostolog" :w *width* :h *height*)
(sdl2:with-renderer (render win)
(sdl2:with-gl-context (gl-context win)
(init-scene)
(sdl2:with-event-loop (:method :poll)
(:keyup
(:keysym keysym)
(when
(sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape)
(sdl2:push-event :quit)))
(:idle
()
(let ((foreground-textures '()))
(dotimes (i 30)
;; texture
(let ((texture
(sdl2:create-texture render 373694468 :target 100 50)))
;; clear texture background
(sdl2:set-render-target render texture)
(sdl2:set-render-draw-color render 200 200 200 255)
(sdl2:render-clear render)
;; drawing at texture
(sdl2:set-render-draw-color render 0 0 0 255)
(sdl2:render-draw-line render 0 0 100 50)
(sdl2:render-draw-line render 100 0 0 50)
;; return render
(sdl2:set-render-target render nil)
(push texture foreground-textures))
;; anouther texture
(let ((texture
(sdl2:create-texture render 373694468 :target 200 30)))
;; clear texture background
(sdl2:set-render-target render texture)
(sdl2:set-render-draw-color render 100 100 100 255)
(sdl2:render-clear render)
;; drawing at texture
(sdl2:set-render-draw-color render 255 0 0 255)
(sdl2:render-draw-line render 0 0 200 30)
(sdl2:render-draw-line render 0 30 200 0)
;; return render
(sdl2:set-render-target render nil)
(push texture foreground-textures)))
;; draw window background graphics
(sdl2:set-render-draw-color render 255 255 255 255)
(sdl2:render-clear render)
(sdl2:set-render-draw-color render 255 0 0 255)
(sdl2:render-draw-line render 0 0 *width* *height*)
(sdl2:set-render-draw-color render 0 0 255 50)
(sdl2:render-draw-line render *width* 0 0 *height*)
;; draw textures at window surface
(loop for ft in foreground-textures
for w = (texture-width ft) for h = (texture-height ft)
with offset = 0
while (< (+ offset h) *height*)
do
(progn
(sdl2:render-copy
render ft
:dest-rect (sdl2:make-rect
(- (/ *width* 2) (/ w 2))
offset w h))
(incf offset h))))
;; present all stuff at window surface
(sdl2:render-present render))
(:quit () t)))))))))
На поиск бага, вызванного фичей ниже, я потратил целый день, а теперь, пожалуйста, просто объясните мне эту магию:
> hash (1.0, 2.0);;
val it : int = 2112880640
> hash (2.0, 1.0);;
val it : int = 2146435072
> hash (1.0, 0.0);;
val it : int = 1039138816
> hash (0.0, 1.0);;
val it : int = 1072693248
> hash (2.0, 0.0);;
val it : int = 1073741824
> hash (0.0, 2.0);;
val it : int = 1073741824
Добрый день. Я опять возвращаюсь к вопросу, которой уже поднимал около 3х лет назад. Оптимизация поиска _наличия_ общего элемента 2х списков. Это опять оказалось слабым местом в производительности моей программы.
let original eq l =
l
|> List.fold
(fun acc el ->
if (acc |> List.exists (fun elLater -> eq el elLater))
then acc else el :: acc)
[]
|> List.rev
Да, тогда мне насоветовали использовать хэш таблицы и я сильно удивился, открыв код и увидев реализацию в лоб. Я переписал код:
let original (eq : 'a -> 'a -> bool when 'a : equality) l =
let hs = new HashSet<'a>(l, Comparer<'a>(eq))
hs.ToList().AsEnumerable() |> Seq.toList
Производительность разумеется выросла, но программа стала работать неправильно. Учитывая, что я поменял только код этой функции, я написал на неё несколько тестов и они все отработали верно, но программа целиком работала не правильно. Причина этого кроется в реализации Comparer:
type Comparer<'a>(f) =
interface System.Collections.Generic.IEqualityComparer<'a> with
member x.Equals(a, b) =
f a b
member x.GetHashCode(a) = hash(a.ToString())
Подскажите, как в функциональных ЯП описывается следующая схема:
for e in seq
do if(test(e)) then seq.addInRest(next(e))
В частности интересует F#, именно с ним единственным я знаком.
Можно ли сделать чтобы функция возвращала результат и функцию, которая возвращает следующий результат и функцию, которая ... ммм? спасибо.
Примерчик.
let clos = ref [1]
let rec continuation () =
match !clos with
| [] -> None
| _ ->
if worldChanged then clos := []
Some(!clos, continuation)
прикол именно в том, чтобы функция возвращала себя новую, а не в том чтобы сделать генератор типа счетчика с созданием объекта, инкапсуляцией и прочими прелестями.
Кто-нибудь читал - http://mitpress.mit.edu/books/structure-and-interpretation-classical-mechanics-2 ? Какой уровень сложности? Понятно для обычного программиста с неглубоким знанием описываемых там вещей?
п.с. пожалуйста, не перемещайте в толкс, мне интересно мнение девелоперов, поэтому написал в этот раздел, спасибо.
Основное требование - заранее не известно количество кластеров. Входные данные - одномерный список целых чисел. Вот пример входных данных - (5 1 3 5 7 3 50 30 45 32 1000 800 300 10000 8000) Желаемый результат(| - разделитель кластеров) - (5 1 3 5 7 3 | 50 30 45 32 | 1000 800 | 300 | 10000 8000). Простота, в плане понимания и реализации, приветствуется. Основная сложность, как мне кажется, в том, что есть большая разница в сосредоточенности точек различных(желаемых) кластерах. Спасибо.
Добрый день, пытаюсь понять аппроксимацию набора точек на плоскости кривыми Безье. Нашёл вот такую тему - Кривые Безье - математический ликбез., где человек предлагает использовать первые производные для нахождения прямых, на которых лежат задающие точки P2 и P3 кубической кривой, т.к. геометрический смысл первых производных - касательные к кривой в точках P1 и P4. Дальше он спрашивает как найти найти расстояние, на котором лежат точки P1 и P2. Ему говорят про вторые производные и он понимает, а я нет. Вот отрывок -
B(t) = (1-t)^3 P1 + 3t(1-t)^2 P2 + 3t^2(1-t) P3 + t^3 P4.
B'(0) = -3 P1 + 3 P2 — это производная на одном конце, то же на другом конце. Остаются два свободных параметра.
Можешь их подогнать так чтобы например вторые производные на концах тоже совпадали с твоим гребаным графиком:
B"(0) = 6 P1 - 12 P2 + 6 P3 B"(1) = 6 P4 - 12 P3 + 6 P2
эти два вектора значит должны быть параллельны (1, f"(x) и (1, f"(x[i+1])) соответственно.
Помогите понять что имел в виду анонимус в том сообщении, используя вторые производные?
(("V(1)->V(5), used fragments: (1 2 3 4), recognized: М(0.7058823)")
("V(1)->V(3), used fragments: (1 2), recognized: h(0.77272725)"
"V(3)->V(5), used fragments: (3 4), recognized: Л(0.7083334)")
("V(1)->V(3), used fragments: (1 2), recognized: h(0.77272725)"
"V(3)->V(4), used fragments: (3), recognized: f(0.7692308)"
"V(4)->V(5), used fragments: (4), recognized: J(0.7692308)")
("V(1)->V(2), used fragments: (1), recognized: t(1.0)"))
Выше приведены результаты распознавания области содержащей несколько символов или один символ. В этой области содержится 4 фрагмента(они могли сами по себе быть разделены или с помощью алгоритма сегментации). Каждый подсписок (...) содержит ветви графа перехода, участвующие в распознавании, каждая ветвь содержит объединение фрагментов области и результат их распознавания. Если в списке несколько ветвей, то это означает последовательность распознанных символов. К примеру, 2ой список - «hЛ». Всего в области 4 фрагмента. Они соответствуют по индексам вершинам графа. Кроме 5ой, которая является вершиной конца строки.
Какому результату вы больше верите и почему?
Весь код нет смысла приводить, но суть в том, что с такой функцией работает нормально -
(defun rgraph-edges (graph)
(iter (for v in (rgraph-verticles graph))
(appending (rgraph-v-out v))))
(defun rgraph-edges (graph)
(let ((vs (rgraph-verticles graph)))
(mapcan (lambda (v) (rgraph-v-out v)) vs)))
висит, не выводя ничего в *standard-output* или точнее выводя, потому что при принудительном «Interrupt from Emacs» вывод печатается, но пока висит ничего не печатается. Причём вывод в *standard-output* производится до вызова этой функции. Не знаю как там устроена печать, но по ощущениям что-то типа flush делается только при выбрасывание ошибки. Всё это происходит при 2х вызовах rgraph-edges. То есть, если в коде rgraph-edges вызывается 1 раз, то всё нормально и печатается и работает. Если вызвать rgraph-edges 2 раза, то происходит то, что описано выше.
У меня есть кривые Безье. Только 2 и 3 порядка. Надо их как-то сравнивать. Заданны они всегда опорными точками. Думаю квадратичные приводить к кубическим и дальше сравнивать через область, описанную опорными точками. Это что-то типо проверки на bounding box. Если проверка прошла, то искать промежуточные точки одной кривой и искать ближайшие промежуточные другой. Разницу считать той самой «степенью похожести».
Мб кто-то может что-то дельное посоветовать? Пока занимаюсь другими тасками, решил пообсуждать эту тут)
Кстати, задача не ограничивается на сравнении только кривых. Также нужно сравнивать сложные кривые, образованные несколькими кривыми Безье, последовательно соединённых через опорные точки. Здесь, видимо, простого решения не будет, нужно городить какой-нибудь эмпирический анализ.
Пишу вот я код на F# и приходится мне помнить порядок вычисления, когда он не важен мне совершенно, поэтому беру я и указываю явно, чтобы другие не утруждались, кто код мой будет потом читать, смотрю, а получается как на лиспе. Вот пример, когда скобки удобнее, помнить надо меньше.
(stage1
@ (free |> List.map (fun l -> l, [l]))) //причинное место
|> List.groupBy
(fun (mline1, lines1) (mline2, lines2) ->
Math.Abs(mline1.x-mline2.x) < 0.1
&& Math.Abs(mline1.y-mline2.y) < 0.1)
(List.groupBy
(lambda (mline1 lines1 mline2 lines2)
(and (< (Math.Abs (- mline1.x mline2.x) 0.1))
(< (Math.Abs (- mline1.y mline2.y) 0.1))))
(@ stage1
(List.map (lambda (l) (list l (list l)))
free)))))
Наткнулся я как-то на один алгоритм, вот статья - An expert system for general symbol recognition. Зацепило что идея простая и, казалось бы, рабочая. Вот простой пример работы - имеем уже подверженный максимальному утончению символу, где 1-чёрный пиксель, 0-белый(фон) -
100000001
100000010
010000100
001000100
000101000
000010000
100|000|001
100|000|010
010|000|100
---|---|---
001|000|100
000|101|000
000|010|000
1..|...|..1
1..|...|.1.
.1.|...|1..
---|---|---
..1|...|1..
...|1.1|...
...|.1.|...
\..|...|../
.\.|...|./.
..\|...|/..
---|---|---
...|...|...
...|___|...
...|...|...
Но не очень понятно что делать с граничными пикселями и возможным сдвигом символов по зонам. К примеру -
001|000|100
000|101|000
001|010|000
-----------
000|100|000
001|011|000
001|000|100
..1|...|1..
...|1.1|...
..1|.1.|...
-----------
...|1..|...
..1|.11|...
..1|...|1..
...|...|...
...|___|...
...|...|...
-----------
..I|\..|...
..I|.\.|...
..I|..\|...
Сверка с шаблоном происходит позонно. Для большей точности в статье предлагается разбивать символ на большее количество зон, но тогда два похожих символа, отличающихся сдвигом на 1 пиксель вправо, к примеру, могут попасть в разные зоны и шаблоны будут совершенно не похожи. Вся аппроксимация коту под хвост.
Меня подкупила простота этого алгоритма и мне интересно, насколько он реально работает, как решаются описанные проблемы, применялся ли он где-нибудь реально и может кто-то слышал о нём? Я написал его реализацию и получил довольно плачевные результаты, распознаётся примерно 70% верно и 10% с ошибкой, примерно, на игрушечных примерах.
Ситуация такая - есть сервер с очень большой базой. Максимально даёт сделать несколько сотен запросов в день, после чего банит по ip на месяц. Что бы стянуть всю базу необходимо сделать сотни тысяч запросов + сервер ежедневно пополняется на те самые несколько сотен запросов. Какие есть варианты?
пс пишу программу для работы с этой базой, про такое ограничение узнал когда уже был написан прототип( с сетью не работал никогда, готов изучать, если это вообще реально сделать. Извините за, возможно, нубские вопросы.
ппс пишу в этот раздел, так как решение нужно в виде кода.
Интересненькое прошло и наступило время создавать набор для обучения. Дальше оттягивать уже некуда, теперь всё упирается в этот чертов набор) Вопрос следующий - неужели нет какой-нибудь открытой базы и каждый разраб составляет базу сам? Если есть хотя бы для английских символов, то это уже сильно упростит работу, желательно конечно для русских ещё.
Кто в теме, подскажите, какие алгоритмы стоит посмотреть для выделения символа из слова и слова из изображения. С учетом того, что символы могут иметь разную высоту/ширину, быть расположены чуть ниже/выше друг друга, слово может иметь форму дуги.
Если делать через окно поиска, то, правильно ли я понимаю последовательность действий -
1. задать начальную ширину-высоту, пройтись по всему изображению, меняя угол поворота окна и пытаясь распознать хоть что-то с заданной ошибкой.
2. изменить размеры окна и повторить 1.
| следующие → |