- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
-- Бесконечная система уравнений для МНК
system s = zip (matrix s) (column s) where
matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
-- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
f a b = b - a * b1 / a1
-- Вычисление иксов (второй шаг гаусса)
calcX n = foldr calc [] . take n where
calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
-- метод наименьших квадратов
mnk n = reverse . calcX n . triangle . system
Метод наименьших квадратов.
http://ideone.com/CsD0ku
Fai 25.11.2012 11:11 # +1
bormand 25.11.2012 11:43 # +1
serpinski 25.11.2012 12:30 # −5
m, c = np.linalg.lstsq(A, y)[0]
serpinski 25.11.2012 20:23 # −2
scriptin 25.11.2012 23:25 # +4
Примерно так они думали, нажимая на минус.
serpinski 25.11.2012 23:27 # +2
LispGovno 26.11.2012 00:05 # −5
scriptin 26.11.2012 00:55 # 0
LispGovno 26.11.2012 00:58 # −4
scriptin 26.11.2012 19:51 # 0
bormand 26.11.2012 20:01 # 0
scriptin 26.11.2012 20:36 # +2
LispGovno 26.11.2012 23:54 # −1
scriptin 27.11.2012 00:26 # +2
bormand 27.11.2012 00:22 # 0
scriptin 27.11.2012 00:27 # +2
LispGovno 27.11.2012 00:35 # −2
bormand 27.11.2012 00:58 # +1
Fai 27.11.2012 01:08 # +1
bormand 27.11.2012 01:12 # +4
roman-kashitsyn 26.11.2012 23:45 # +1
LispGovno 26.11.2012 20:38 # −2
Я тянок люблю.
zim 26.11.2012 22:09 # +4
LispGovno 26.11.2012 23:55 # −7
Steve_Brown 27.11.2012 10:12 # +4
LispGovno 27.11.2012 10:30 # −2
Fai 27.11.2012 12:36 # −3
guest 27.11.2012 15:13 # −1
3.14159265 26.11.2012 17:47 # +3
Хочу рассказать тебе одну историю. Жил-был на белом свете один мальчик, примерно твоих лет.
И вот как-то раз, начитавшись разных умных форумов в его маленькую головку пришла одна простая мысль.
Но обо всем по порядку. Однажды он увидел тред где жестоко насмехались над обосравишмся.
Такое событие потрясло его - ведь человек не виноват что он срёт.
А немного погодя он нашел сайт, где смеялись над разными обрацами говна.
bormand 26.11.2012 17:58 # +1
А чем же закончилась эта история?
anonimb84a2f6fd141 26.11.2012 18:05 # 0
bormand 26.11.2012 18:07 # +6
LispGovno 26.11.2012 18:08 # −1
Говно? И слава богу.
Сорри. Что-то меня на туалетный юмор пробило.
anonimb84a2f6fd141 26.11.2012 18:12 # 0
LispGovno 26.11.2012 18:00 # −6
3.14159265 26.11.2012 18:00 # +3
Не умея какать радугой и бабочками, в отличие пони, он твердо решил перестать срать. Совсем.
День без ненужного побочного эффекта дефекации пролетел незаметно. Говно пару раз подступало, но его удалось сдержать.
Второй день принес неожиданный сюрприз - наш герой обосрался прямо в переполненной маршрутке.
Первая попытка перестать срать, успеха не принесла, но это не остановило бесстрашного парня.
3.14159265 26.11.2012 18:10 # +4
Тогда было принято важное решение - запыжевать анал, а жопу зашить нитками (для верности)
Дабы не дать говну ни единого шанса.
Зашивать жопу ему было не впервой - после многочисленных контузий на полях интернет-баталий он овладел этим навыком в совершенстве.
Баррикадирование анала оказалось делом более проблемным, но он справился и с этой трудностью.
Прошла неделя. Он стал толстеть.
3.14159265 26.11.2012 18:12 # +4
Говно постепенно интегрировалось в его организм.
Через месяц процесс завершился и говно поглотило его полностью.
Так что не осталось ни единого ограна без молекул говна. После чего он сам превратился в Гумно.
Ныне он своей жуткой вонью отравляет жизнь посетителей разных форумов, ходят слухи, что распознать его можно по приставке Govno у ника.
Конец.
3.14159265 26.11.2012 18:12 # +2
http://img.sc/img/5d4fa1fc02b959ad6b57a3456f30d6db.jpg
Мораль истории в том, что идеальные математические модели, немутабельность, чистота и всё такое неприменимы к нашему неидеальному миру.
К ним можно приблизится, но всё-равно где-то будет вылазить говно. А если зашить жопу нитками, то получится еще хуже.
Steve_Brown 27.11.2012 10:15 # +2
Ctrl+Shift+Del, Enter
TarasB 27.11.2012 10:19 # +3
LispGovno 27.11.2012 10:33 # −4
guest 27.11.2012 15:05 # 0
LispGovno 25.11.2012 15:03 # 0
Fai 25.11.2012 18:08 # +1
LispGovno 25.11.2012 18:55 # 0
Fai 25.11.2012 19:37 # +2
И кстати, не понимаю, почему все говорят "выучил хаскель, теперь писать на языке X противно". Мне понравился хаскел, но тем не менее я не испытываю никаких трудностей с программированием на других языках, хоть питон, хоть си++, даже недавно писал на паскале.
Разрыв шаблонов, конечно был, но это больше было похоже не на "блядь, нахуй императивщину, функциональщина рулит", а на "вот оно как, помимо императивщины есть функциональщина и она очень хороша".
Никакой неприязни к императивному или объектно-ориентированному программированию у меня не появилось.
LispGovno 25.11.2012 20:18 # −4
Но лисп слишком низкоуровневый среди функциональных языков (естественно, раз под него были процы в своё время). Потому он пративный после высокоуровнего хаски или даже любых других функциональных. А если ещё добавить к этому мою не любовь к динамикопетушащим языкам, тк они не подходят для частичного док-ва корректности программы во время компиляции, то это ставит на лиспе крест. Кстати, в CL есть даже goto, дохрена мутабильности и глобальных переменных.
Fai 26.11.2012 08:23 # 0
CL и Sheme я вообще хочу выучить не из-за функциональщины, а из-за макросов. Вдохновило вот это видео http://landoflisp.com
roman-kashitsyn 26.11.2012 08:48 # +3
Золотые слова. Функциональщины там особой нет, но макросы очень доставляют.
Land of Lisp, кстати, довольно неплохая книженция
LispGovno 26.11.2012 10:30 # −1
anonimb84a2f6fd141 27.11.2012 21:54 # −2