Бесполезная, медленная и тупая прога

[xqz_me]

Сабж пытается вычислить число e. Точность - 15 знаков после запятой. Моя работа.

[ANDLL]

И кому тут нужен твой экзешник?? Код в студию. Желательно еще и описание, как считаеш? Просто как придел последовательности?

[xqz_me]

Желательно еще и описание, как считаеш?

Просто глупо. Достаточно одной операции. Остольное всё - анимация. Вообщем, e -> (1 + 1 / n) ^ n, при n -> к бесконечности.

Код: Выделить всё

Private Sub Command1_Click()
Dim a As Double
a = CDbl(InputBox("Enter counting precision. Value at least > then 100000 is recommended.", "e calculations"))
Dim i As Double
Dim ans As Double
Command1.Visible = False
Check1.Visible = True
Dim step As Double
step = CDbl(InputBox("Enter counting step. Counting speed depends on this value", "e calculations"))
If step + 1 > a Then
MsgBox "Unproper step value!"
Exit Sub
End If
For i = 1 To a Step step
    If Check1.Value = vbChecked Then Exit For
    DoEvents
    ans = (1 + 1 / i) ^ i
    DoEvents
    Text1.Text = CStr(ans)
    DoEvents
    ProgressBar1.Value = (i / a) * 100
    DoEvents
Next i
Command1.Visible = True
Check1.Visible = False
Check1.Value = vbUnchecked
End Sub

Private Sub Form_Load()
Command1.Visible = True
Check1.Visible = False
End Sub

[ANDLL]

Понятно, я угадал, предел последовательности

[Денис Победря]

Если е ещё мона вычислить как предел последовательности... ты лучше ПИ - суммой ряда =)

[Faust]

Хм... Такой код, ИМХО, точность даст не больше, чем exp(1). Вот если бы это все было с помощью длинной арифметики реализованно...

[Денис Победря]

А на фига длинная арифметика, когда мона выщитать (1+1/9999999999)^9999999999

[xqz_me]

Интересно, как pi можно вычислить.... Его ж вроде до 30000 знаков просчитали. Как на vb это организовать?

[tyomitch]

Интересно, как pi можно вычислить.... Его ж вроде до 30000 знаков просчитали. Как на vb это организовать?

Миллион знаков пи есть на http://www.gutenberg.org/dirs/etext93/pimil10.txt
Вообще же рассчитаны миллиарды его знаков, только кому всё это надо?

[alibek]

Вообще же рассчитаны миллиарды его знаков, только кому всё это надо?

Это неплохой источник данных для генератора случайных чисел.

[Ramzes]

alibek
tyomitch
Господа это всего навсего ПИ*

[off]
Простите меня пожалуйста...просто понесло
[/off]

[Faust]

А на фига длинная арифметика, когда мона выщитать (1+1/9999999999)^9999999999

Мона. Но не нуна. Просто использованием встроенных функций ВБ точности большей, чем при exp(1) не достичь (а это выражение обсчитывается быстрее, чем (1+1/9999999999)^9999999999). Ежели так хотелось видеть прогресс точности, то можно было находить e как сумму ряда.

[xqz_me]

только кому всё это надо?

Ну так, интересно просто как это считается.

[hCORe]

Зачем прога? Я, например, и так помню это число до пятнадцатого знака:

Код: Выделить всё

e = 2,718281828459045

[tyomitch]

Зачем прога? Я, например, и так помню это число до пятнадцатого знака:

Код: Выделить всё

e = 2,718281828459045

А миллион знаков слабо выучить?

[hCORe]

Признаюсь: слабо. Да и зачем? 2,718 для практических нужд хватает с лихвой

[tyomitch]

А пятнадцать знаков зачем?

Не вижу никакой практической разницы между 15 знаками и миллионом.

[Денис Победря]

А я Пи помню до 7 знака после запятой
3,1415926

[Andrey Fedorov]

Интересно, как pi можно вычислить.... Его ж вроде до 30000 знаков просчитали. Как на vb это организовать?

Да не помню уже... Но тоже формула существует и не столь уж сложная. Проблема лишь с разрядностью вычислителя.

[hCORe]

А пятнадцать знаков зачем?

Не вижу никакой практической разницы между 15 знаками и миллионом.

Дело в том, что для меня 15 - это максимум локальной "кривой обучения", обеспечивающий, с одной стороны, минимальные усилия по заучиванию, а с другой - максимальный радиус кривизны понтов

[alibek]

Дело в том, что для меня 15 - это максимум локальной "кривой обучения", обеспечивающий, с одной стороны, минимальные усилия по заучиванию, а с другой - максимальный радиус кривизны понтов

Для "понтов" я число PI наизусть заучивал, до 23 знаков

[tyomitch]

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

с http://lib.ru/NEWPROZA/SIDOROV_A/limeriki.txt :

Код: Выделить всё

     Как-то раз астронавт из Торонто
     Собрался на Венеру - для понта.
     Но в дорогу потребовал матом
     Для себя макароны с томатом -
     Где же столько достать макарон-то?!


с http://blogs.technet.com/exchange/archi ... 21334.aspx :

Код: Выделить всё

     Mail from a Nigerian minister
     Deposed in a coup -- that’s quite sinister.
     He offered to pay
     If I helped him today,
     But I hadn’t the funds to administer.