Желающие поговорить о лженауке

← →
kaif (2009-12-05 19:59) [1080]

разглагольствованием

← →
kaif (2009-12-05 20:02) [1081]

kaif (04.12.09 13:55) [932]
Так вот такому гипотетическому ученому ничего запрещать не надо, но если он настроен серьезно, то, очевидно, пойдет по известному пути, - представит свои аргументы, пройдет процедуру рецензирования и т.д.

Галилею Церковь именно так и предлагала. Но он не пожелал принять то, что не пршел процедуру рецензирования после того, как его аргументы в пользу гипотезы "В центре Вселенной находится не Земля, а Солнце" не были приняты.

← →
kaif (2009-12-05 20:13) [1082]

Предвосхищаю вопрос TUser-а о том, что произойдет, если доллар укрепится по отношению к рублю до 50 руб./доллар и у хеджера не хватит денег для пополнения своего хеджерского депозита.
Если такое случится, то хеджер проиграет 6 млн (те 3, что он положил + 3, что занял у банка дополнительно, когда курс угрожал перевалить за 32), но зато он выиграет 20 млн. рублей на курсе при обмене вырученного миллилона долларов за Нивы на российские рубли.

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

Это плохо.

Могу объяснить, почему.

Если у него не хватает депозита для страхования от валютных рисков и он соблазняется поиграть как трейдер, то он должен будет осознавать простую вещь: курс доллара может скакнуть до 36 р/доллар, съесть весь его депозит и откатиться к 33. И тогда он не выиграет и не останется в нуле, а проиграет 3 млн. рублей, как те лохи, что верят, что на валютном рынке их ждет легкая прибыль.

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

← →
kaif (2009-12-05 20:20) [1083]

Правда для этого нужно иметь не Черный Баланс, а Белый Баланс, но это уже требует изменения системы бухучета и налогообложения и так далее. Одним словом одного объявления "победы капитализма в отдельно взятой стране" недостаточно. Необходимо создание всего финансового и правового инструментария для нормальной работы экономики. Иначе бизнес не сможет выполнять свои обязательства в срок, доверия будет мало, рисков много, власть будет коррумпирована, а предпринимательство прибандиченно.

Слава богу наконец (к сожалению, пришлось ждать этого 20 лет) зампредседателя ЦБ озвучил то мнение, что без отмены действующего бухучета, ориентированного исключительно на нужды налоговой и перехода на публичный международный стиль, ориентированный на информационные нужды инвесторов, невозможно ничего изменить к лучшему в сложившейся сегодня у нас экономической системе.

← →
Kerk © (2009-12-05 20:24) [1084]

kaif, зачем ты моей стране желаешь зла?

← →
TUser © (2009-12-05 20:29) [1085]

> Kerk © (05.12.09 20:24) [1084]
>
> kaif, зачем ты моей стране желаешь зла?

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

← →
Kerk © (2009-12-05 20:38) [1086]

> TUser © (05.12.09 20:29) [1085]

Ты пьян?

← →
TUser © (2009-12-05 20:40) [1087]

нет

← →
TUser © (2009-12-05 20:40) [1088]

нет

← →
kaif (2009-12-05 20:40) [1089]

Kerk © (05.12.09 20:24) [1084]
kaif, зачем ты моей стране желаешь зла?

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

← →
Kerk © (2009-12-05 20:51) [1090]

> kaif (05.12.09 20:40) [1089]
> Сила мракобесия столь велика в твоей голове, что глаза не
> видят и уши не слышат, когда разумные люди говорят разумные
> вещи.

Понимаешь ли, дружище, если бы ты все это говорил пару лет назад, я бы просто подумал, что ты заблуждаешься. Но сейчас ты либо религиозный фанатик, либо осознанный вредитель. К чему приводит предоставление кредитов под залог баланса, который спекулятивно наращивается с полпинка, а не реального имущества, мы все видим. Спасибо кризису за это.

← →
Игорь Шевченко © (2009-12-05 21:03) [1091]

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

← →
Petr V. Abramov © (2009-12-05 21:23) [1092]

> Kerk © (05.12.09 20:24) [1084]
>
> kaif, зачем ты моей стране желаешь зла?

ты страну, слава б-гу, не приватизировал, она такая же твоя, как и Ашота (кстати гражданина РФ со стажем порядка твоего возраста), как и моя.
Не зарывайся.

← →
kaif (2009-12-05 21:33) [1093]

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

В тебе говорит неосведомленность.

В связи с событиями в Перми, я покидаю форум, участие в котором приравниваю к развлечению.

Прошу меня простить.

Полагаю, что в случаях нарушения пожарной безопасности учреждения должны не штрафоваться, а закрываться.
А коррупция, могущая развиться на основе угрозы закрытия подобных заведений в органах надзора, не должна приравниваться ко всей прочей коррупции (например, на таможне или в налоговой), а идти по совершенно иным статьям.

Это мое мнение, как гражданина этой страны.

Надеюсь хотя бы это мое мнение Kerk разделит.

До свидания.

← →
Petr V. Abramov © (2009-12-05 21:43) [1094]

> kaif (05.12.09 21:33) [1093]

не обращай внимания на горлопанов

← →
Alx2 © (2009-12-05 21:46) [1095]

kaif (05.12.09 21:33) [1093]

Ну вот... А я только что софтину написал для построения распределения длин топиков. Кстати, для потрепаться - недопуассон.

← →
kaif (2009-12-05 21:49) [1096]

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

← →
Alx2 © (2009-12-05 21:55) [1097]

kaif (05.12.09 21:49) [1096]

Да, довольно близко к прямой. Ты прав.

← →
Alx2 © (2009-12-05 21:58) [1098]

Вдогонку к Alx2 © (05.12.09 21:55) [1097]
Статистика строилась по 500 последним топикам

← →
Inovet © (2009-12-05 22:00) [1099]

> [1095] Alx2 © (05.12.09 21:46)
> А я только что софтину написал для построения распределения длин топиков.

За какой период? Есть ли там помимо длины длительность во времени ветки, т.е. разность между временами первого и крайнего постов?

← →
Alx2 © (2009-12-05 22:01) [1100]

Alx2 © (05.12.09 21:58) [1098]
Код софтины:
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeeProcs, TeEngine, Chart, ExtCtrls, StdCtrls, Series, ComCtrls; type TArrayOfInteger = array of Integer; TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Chart1: TChart; OpenDialog: TOpenDialog; TrackBar: TTrackBar; Series: TBarSeries; Panel3: TPanel; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure TrackBarChange(Sender: TObject); procedure Button2Click(Sender: TObject); private valuesArray: TArrayOfInteger; procedure buildHistogramFromFile(const FileName: string); procedure buildHistogramFromString(const data: string); procedure buildHistogramFromValuesArray( const valuesArray: TArrayofinteger); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses wininet; {$R *.dfm} procedure TForm1.buildHistogramFromValuesArray(const valuesArray: TArrayofinteger); var histArray: TArrayOfInteger; histColumnCount, k, min, max, idx: integer; scale, xv, yv: double; note: string; begin if length(valuesArray) < 1 then exit; min := valuesArray[0]; max := min; for k := 1 to length(valuesArray) - 1 do begin if max < valuesArray[k] then max := valuesArray[k]; if min > valuesArray[k] then min := valuesArray[k]; end; TrackBar.Max := (max - min) div 2; TrackBar.PageSize := (max - min) div 10; if min = max then begin series.AddXY(min, length(valuesArray)); exit; end; histColumnCount := TrackBar.Position; setLength(histArray, histColumnCount); for k := 0 to histColumnCount - 1 do histArray[k] := 0; Series.Clear; scale := (histColumnCount - 1) / (max - min); for k := 0 to length(valuesArray) - 1 do begin idx := trunc((valuesArray[k] - min) * scale); inc(histArray[idx]); end; for k := 0 to histColumnCount - 1 do begin xv := (k + 0.5) / scale + min; yv := histArray[k]; note := format("%d-%d", [round(k / scale + min), round((k + 1) / scale + min)]); series.AddXY(xv, yv, note); end; end; procedure TForm1.buildHistogramFromString(const data: string); const template = " count="; const templatet = #9"count="; function templateStr(idx: integer): boolean; var k, p: integer; begin result := false; k := idx - length(template) + 1; if k > 0 then begin p := 1; while k <= idx do begin if not (data[k] in [template[p], templatet[p]]) then exit; inc(k); inc(p); end; result := true; end; end; var idx, value: Integer; digit: string; begin setLength(valuesArray, 0); idx := length(template); while idx <= length(data) do begin while (idx <= length(data)) and (not templateStr(idx)) do inc(idx); inc(idx); digit := ""; while (idx <= length(data)) and (data[idx] in ["0".."9"]) do begin digit := digit + data[idx]; inc(idx); end; if digit <> "" then begin value := StrToInt(digit); setLength(valuesArray, length(valuesArray) + 1); valuesArray[length(valuesArray) - 1] := value; end; end; buildHistogramFromValuesArray(valuesArray); end; procedure TForm1.buildHistogramFromFile(const FileName: string); var F: System.Text; s, data: string; begin data := ""; AssignFile(F, FileName); reset(f); try while not eof(f) do begin readln(F, s); data := data + s; end; finally closeFile(f); end; buildHistogramFromString(data); end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog.Execute then buildHistogramFromFile(OpenDialog.FileName) end; procedure TForm1.TrackBarChange(Sender: TObject); begin buildHistogramFromValuesArray(valuesArray); TrackBar.Hint := IntToStr(TrackBar.Position); end; procedure TForm1.Button2Click(Sender: TObject); const urlStr = "http://www.delphimaster.ru/cgi-bin/client.pl?getnew=1&n="; const bufSize = 1024 * 1024; var internet, url: hinternet; data: string; bytesRead, err: DWord; begin data := ""; internet := InternetOpen("", INTERNET_OPEN_TYPE_PROXY, nil, nil, 0); if internet <> nil then try url := InternetOpenUrl(internet, PChar(urlStr + edit1.text), nil, 0, 0, 0); if url <> nil then try setLength(data, bufSize); if not InternetReadFile(url, @data[1], bufSize, bytesRead) then exit; setLength(data, bytesRead); finally InternetCloseHandle(url); end finally InternetCloseHandle(internet); end; if data <> "" then buildHistogramFromString(data) else begin err := getLastError; Application.MessageBox(PChar("Error while request processing [" + IntToStr(Err) + "]: " + SysErrorMessage(err)), "error"); end; end; end.

← →
Alx2 © (2009-12-05 22:01) [1101]

Код формы:
object Form1: TForm1 Left = 320 Top = 144 Width = 783 Height = 540 Caption = "Form1" Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = "MS Sans Serif" Font.Style = [] OldCreateOrder = False ShowHint = True PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 472 Width = 775 Height = 41 Align = alBottom TabOrder = 0 object TrackBar: TTrackBar Left = 237 Top = 1 Width = 537 Height = 39 Align = alClient Max = 250 Min = 2 Orientation = trHorizontal PageSize = 100 Frequency = 1 Position = 10 SelEnd = 0 SelStart = 0 TabOrder = 0 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBarChange end object Panel3: TPanel Left = 1 Top = 1 Width = 236 Height = 39 Align = alLeft TabOrder = 1 object Button1: TButton Left = 8 Top = 8 Width = 89 Height = 25 Caption = "Build form file..." TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 104 Top = 8 Width = 89 Height = 25 Caption = "Get from forum: " TabOrder = 1 OnClick = Button2Click end object Edit1: TEdit Left = 200 Top = 8 Width = 33 Height = 21 TabOrder = 2 Text = "3" end end end object Panel2: TPanel Left = 0 Top = 0 Width = 775 Height = 472 Align = alClient TabOrder = 1 object Chart1: TChart Left = 1 Top = 1 Width = 773 Height = 470 Title.Text.Strings = ( "Histogram") View3D = False Align = alClient TabOrder = 0 PrintMargins = ( 15 24 15 24) object Series: TBarSeries Marks.ArrowLength = 8 Marks.Callout.Brush.Color = clBlack Marks.Callout.Length = 8 Marks.Visible = False SeriesColor = clRed BarStyle = bsCilinder Gradient.Direction = gdTopBottom XValues.Name = "X" XValues.Order = loAscending YValues.Name = "Bar" end end end object OpenDialog: TOpenDialog InitialDir = "." Left = 152 Top = 8 end end

← →
Alx2 © (2009-12-05 22:02) [1102]

Inovet © (05.12.09 22:00) [1099]

Нет, Андрей. Только количество постов, любезно предоставляемое запросом http://www.delphimaster.ru/cgi-bin/client.pl?getnew=1&n=;

← →
kaif (2009-12-05 22:10) [1103]

Alx2 © (05.12.09 21:55) [1097]
kaif (05.12.09 21:49) [1096]

Да, довольно близко к прямой. Ты прав.

А теперь постарайся вычислить наклон этой прямой.
В конечном итоге я надеялся бы получить показатель K степенной функции вида:

M = N^-K,

где M - число вхождений в спектр,
а N - длина ветки.

Хорошо бы еще измерить среднеквадратичное отклонение от функции этого вида и сравнить с другими гипотезами (например, с Пуассоном или Гаусом).

← →
Alx2 © (2009-12-05 22:31) [1104]

kaif (05.12.09 22:10) [1103]

Исполняю, господин: :)
M = 80.97*N^(-0.734)

Насчет проверок гипотез - уже лениво.

← →
Alx2 © (2009-12-05 22:41) [1105]

Уточнение к Alx2 © (05.12.09 22:31) [1104]

M - количество веток, длиной N-1 и N

← →
Alx2 © (2009-12-05 22:45) [1106]

+ косяк в коде [1100] в функции buildHistogramFromValuesArray:

Строчку Series.Clear; надо переместить во вторую строчку тела. Было изменение в последний момент, пропустил.

← →
kaif (2009-12-05 23:05) [1107]

2 Alx2 ©

Спасибо! А то, что лениво, это, ИМХО - нормально. Простите - я перегнул. Вы и так сделали достаточно и даже сверх того.

← →
Petr V. Abramov © (2009-12-05 23:08) [1108]

> kaif (05.12.09 22:10) [1103]

вот теханализ предсказывает, что на уровне 6.66 тренд развернется.
скорее всего, это так. для биржи в вакууме можно вывести что-то типа уравнения идеального газа., в этом я не сомневаюсь.
но как быть с тем, что завтра ЦБ гондураса повысит учетную ставку?
на форексе ладно.
на фондовой бирже есть законы борьбы с инсайдом. Вроде б правильно, инсайдеры нарушают права играющих на основе теханализа.
НО: любой инвестор имеет принять решение о покупке продажи акций в любой момент на основе любой имеющейся информации или желании левой пятки, это ж и есть его "чутье".
почему с инсайдом борятся???
мне просто интересно с т.з. науки о бирже, которую ты постигаешь и пытаешься достигнутое донести до масс. Я нигде не сказал слова "хорошо" или "плохо".

kaif (05.12.09 23:05) [1107]

Не за что. Интересно стало тоже. Только вот что теперь с этим всем делать? :)

>Простите - я перегнул

Все нормально. Это я иногда юродствую.

> [1023] Alx2 © (05.12.09 01:34)
> Андрей, расскажи про пиксели, а?

Ты, кстати, почитал что на эту тему было в твоё отсутствие? Там без голограмм правда.:)

← →
kaif (2009-12-05 23:59) [1112]

Petr V. Abramov © (05.12.09 23:08) [1108]
но как быть с тем, что завтра ЦБ гондураса повысит учетную ставку?

ЦБ главных участников Forex (USD,EUR,GBP,CHF,JPY) никогда не изменяют учетные ставки, не заявив задолго до того публично о величине и дате изменения.

А на валютах Гондурасов играют только те, у кого мозги там же, где их гондурас.

Что касается рынков акций, то там классики теханализа не советуют играть вообще. Так как там торги могут быть остановлены. а цена на акции может падать до нуля. Теханализ на сегодня хорош там, где графики "нормальные" - то есть там, где высока ликвидность, постоянно идут торги, и эти торги не прерываются искусственно. Это - рынки фьючерсов, металлов, валют, индексов и производных от них финансовых инструментов.

все ваши разговоры о струнах напомнили мне высказывание одного физика, дословно не помню, жалко... вообщем, бред.

> [1113] KilkennyCat © (06.12.09 00:11)
> все ваши разговоры о струнах напомнили мне высказывание
> одного физика, дословно не помню, жалко... вообщем, бред.

Ты думаешь бредом станут заниматься тысячи ведущих физиков и математиков? Хотя многие другие сомневаются в правильности самой идеи, да и они не отрицают, что это может оказаться просто красивой моделью но не реальной. Но какая красота!

← →
kaif (2009-12-06 00:33) [1115]

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

kaif (06.12.09 0:33) [1115]

То что я скажу - банальщина, конечно, но ведь в теоретических изысках бизнес-стимул неприменим. И не всякий достойный того может себе позволить удовлетворять любопытство за свой счет. Нефиксированной з/п там никак не получится. А сортировать и фильтровать цели и методы надо.

> [1115] kaif (06.12.09 00:33)
> При этом такого рода ученые паразитами на теле общества
> вовсе не считаются

Они как правило ещё преподаванием занимаются.

К [1104] по всем (открытым) форумам:

M = 2024.343 * N^(-0.955)

> [1117] Inovet © (06.12.09 00:47)
> > [1115] kaif (06.12.09 00:33)
> > При этом такого рода ученые паразитами на теле общества вовсе не считаются
>
> Они как правило ещё преподаванием занимаются.

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

← →
Styx (2009-12-06 01:19) [1120]

> GDI+ (04.12.09 22:40) [967]
> буду благодарен на ссылки на сканы книг

http://eqworld.ipmnet.ru/ru/library/physics.htm

Желающие поговорить о лженауке - милости прошу Найти похожие ветки