Скачать: CL | DM;

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

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

---

← →
Alx2 ©   (2009-12-05 23:10) [1109]

kaif   (05.12.09 23:05) [1107]

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

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

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

---

← →
Inovet ©   (2009-12-05 23:28) [1110]

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

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

---

← →
Alx2 ©   (2009-12-05 23:32) [1111]

Inovet ©   (05.12.09 23:28) [1110]

Еще нет. Я тут разыгрался с топиками форума - извращаюсь еще.  :-)

---

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

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

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

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

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

---

← →
KilkennyCat ©   (2009-12-06 00:11) [1113]

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

---

← →
Inovet ©   (2009-12-06 00:21) [1114]

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

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

---

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

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

---

← →
Alx2 ©   (2009-12-06 00:46) [1116]

kaif   (06.12.09 0:33) [1115]

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

---

← →
Inovet ©   (2009-12-06 00:47) [1117]

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

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

---

← →
Alx2 ©   (2009-12-06 00:50) [1118]

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

M = 2024.343 * N^(-0.955)

---

← →
Inovet ©   (2009-12-06 01:06) [1119]

> [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

---

Страницы: 1 2 3 4 5 6 7 8 9 
10 11 12 13 14 15 16 17 18 
19 20 21 22 23 24 25 26 27 
28 29 30 31 32 33 34 35 36 
37 38 39 40 41 42 43 44 45 
46 47 48 49 
50 51 52 53 54 
55 56 57 58 вся ветка

Скачать: CL | DM;



Память: 2.62 MB
Время: -0.471 c