Вычисление до сотого знака.

[Deverell]

есть формула:
pi=2*(2/1*2/3*4/3*4/5*6/5*6/7*8/7)
Есть у кого-нибудь идеи,как можно провести расчеты до 100-го знака???
Или может кто-нибудь знает более совершенную формулу или алгоритм по рассчету числа pi???

[alibek]

Эта формула становится неточной задолго до 100 знака.
Восьмиугольник -- слишком грубое приближение, даст ошибку уже на третьем знаке.

[Deverell]

alibek
знаешь "поумнее" формулу?

[alibek]

Причем тут поумнее?
Формула считает с той точностью, с которой ты выберешь N.

[Deverell]

Это для этой формулы N выбирать надо:pi=4*(1/1-1/3+1/5-1/7+1/9-….)
Это не столь важно.
Как сделать, чтобы он считал до 300-го знака?

[Debugger]

Гм...............

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


Dim pi As Double
dim s As String
pi=2*(2/1*2/3*4/3*4/5*6/5*6/7*8/7)
s=CInt(pi*100)/100
msgbox s


Вроде так...

[_ae_]

[Deverell]

ницего кроме3,34 не показал...

[Viper]

Debugger видимо не осилил чтение топика...
Deverell, естественно вот этот код

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

s=CInt(pi*100)/100

больше двух знаков после запятой не покажет по определению

[alibek]

Это для этой формулы N выбирать надо:pi=4*(1/1-1/3+1/5-1/7+1/9-….)

Ты думать пробовал?
Или ты не видишь, что формула относится к вписанным и описанным правильным многоугольникам.
N -- это число сторон многоугольника.

[August]

на тебе ПИ

3.14159235959337332640673822570842421870593265598024690
6552049683416344089789068475237805981571125029387686062
4673188325650310260348017353037507287559741891028695865
48197024241906686830981813108269063793022376385475028538
39385092453592019148747614349583130497832722636129106169
443221761920176454563831745851684321691766427896810965901
112798977399787102891355739487908433311450311756802892268
981078453770726294564316856435700374584201612826374912855
59273951738815850437806694754603297770690392403992688

хватит надеюсь

взял я этот тут http://www.arbuz.uz/u_piclub.html , кстати забавно почитать было)

[alibek]

Пи.

[August]

alibek
Супер )

Deverell
Теперь пользуй

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

MID

и никакие формулы тебе не страшны)

[Deverell]

спасиб конечно,ток мне нужно чтобы он сам считал...
August
А как именно его использовать?
MID,а дальше что?

[shady]

спасиб конечно,ток мне нужно чтобы он сам считал...

А смысл?

MID,а дальше что?

Mid(string, start[, length]) - Возвращает строку, извлечённую из строки string, начиная с символа в позиции start, и содержащую length символов

[Deverell]

shady
Время расчета Пи скажем до миллиного(так много,для большей разнице во времени) знака на каждом комрьютере будет разным: простой способ сравнить способность ЦП и ОЗУ.

Только я так и не понял,что мне делать с MID???

[August]

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

dim PI as string = "число ПИ, сохрани его тут как текст" ' например 3.1415...
dim PI_resultat as string
dim i as integer  = 100 ' до какого символа

PI_resultat = mid(PI,1,i+2)
msgbox(PI_resultat)


[Deverell]

Он записи с равно не признает
говорит:End of statement

[alibek]

andreymp, ошибка у тебя. Седьмой знак -- 6, а не 3.

[Deverell]

Блин,если здесь все так сложно,может взять какую-нибудь другую операцию...Есть какие-нибудь предложения?

[August]

Ты принцип того кода который я написал вообще понимаешь??

dim PI as string
dim PI_resultat as string
dim i as integer

i = 3 ' до какого символа
PI = "3.1415" ' например 3.1415... дальше сам продлишь

PI_resultat = mid(PI,1,i+2)

msgbox(PI_resultat)

[Deverell]

Так он не считает, а просто пишет уже сохраненные значения...

[hCORe]

Куча методов вычисления pi
http://www.mcs.surrey.ac.uk/Personal/R.Knott/Fibonacci/fibpi.html

[August]

Так он не считает, а просто пишет уже сохраненные значения...

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

[Deverell]

Мне не нужны формулы вычисления.Мне нужна функция,кторая не будет ограничивать расчеты до 14 знаков.

Есть такой вариант:
x = 22
y = 7
For i = 1 To 1000000
z = x \ y : Print z;
z1 = (x Mod y) * 10
x = z1
Next i

Вот только слижком уж нечетко получается. . .

[_ae_]

Deverell
Да дело ведь не в формуле. Дело в том, что тип double не вмещает в себя 100 знаков

[Viper]

Мне не нужны формулы вычисления.Мне нужна функция,кторая не будет ограничивать расчеты до 14 знаков.

Есть такой вариант:
x = 22
y = 7
For i = 1 To 1000000
z = x \ y : Print z;
z1 = (x Mod y) * 10
x = z1
Next i

Вот только слижком уж нечетко получается. . .

да уж... получается весьма забавная последовательность из повторяющихся 142857, что весьма далеко от Pi

_ae_, автору не нужен тип Double, автор хочет получить последовательность цифр из которых состоит число Pi

[August]

да уж... получается весьма забавная последовательность из повторяющихся 142857, что весьма далеко от Pi

согласен, полная чушь получается