Google 下記の関数でπ円周率がうまく反映できないの

Google 下記の関数でπ円周率がうまく反映できないの。そもそもこのコードにπの定義が見当たらないし、記述しようとした痕跡すらないけど、もしかして自分で作っているコードではないの。下記の関数でπ(円周率)がうまく反映できないのですが
どなたかご教示お願いいたします & x27;
Function txtcalc(adrs As Range) As Double
Dim data As String, d_1 As String, Cnt As Integer
Dim i As Integer, flag As Boolean, mch, d_2 As String
data = Replace(Replace(Replace(Replace(Replace(Replace(StrConv(adrs, vbNarrow), "÷", "/"), _
"×", "*"), "{", "("), "}", ")"), "[", "("), "]", ")")
If data = "" Then txtcalc = 0: Exit Function
With CreateObject("vbscript regexp")
Global = True
If adrs Like "*" & adrs Font Superscript & "*" Then
Do While i < Len(adrs)
i = i + 1
If adrs Characters(i, 1) Font Superscript Then
d_1 = d_1 & "^"
If adrs Characters(i + 1, 1) Font Superscript Then flag = True
End If
If flag Then
d_1 = d_1 & Mid$(data, i, 2)
i = i + 1
flag = False
Else
d_1 = d_1 & Mid$(data, i, 1)
End If
Loop
data = d_1
d_1 = ""
End If
data = Replace(data, "√", "Sqr")
Pattern = "\d+\("
If test(data) Then data = Replace(data, "(", "*(")
Pattern = "\)\d"
If test(data) Then data = Replace(data, ")", ")*")

Pattern = "\)\("
If test(data) Then data = Replace(data, ")(", ")*(")
Pattern = "(\+ \ \/)(\*)"
If test(data) Then data = Replace(data, "$1")
Pattern = "(\*)(\+ \ \/ \))"
If test(data) Then data = Replace(data, "$2")
If data Like "*Sqr*" Then
Pattern = "(\d+ \))Sqr"
If test(data) Then
For Each mch In Execute(data)
data = Replace(data, mch, Split(mch, "S")(0) & "*" & "Sqr")
Next
End If
Pattern = "Sqr\d+"
If test(data) Then
For Each mch In Execute(data)
data = Replace(data, mch, Sqr(Split(mch, "r")(1)))
Next
End If
Pattern = "Sqr\("
If test(data) Then
d_2 = data
For Each mch In Execute(data)
Cnt = 1
For i = mch firstindex + 5 To Len(d_2)
If Mid(d_2, i, 1) = "(" Then
Cnt = Cnt + 1
ElseIf Mid(d_2, i, 1) = ")" Then
Cnt = Cnt 1
If Cnt = 0 Then Exit For
End If
d_1 = d_1 & Mid(d_2, i, 1)
Next i
data = Replace(data, "Sqr(" & d_1 & ")", Sqr(Evaluate(d_1)))
d_1 = ""
Next
End If
End If
Pattern = "\D"
If test(data) Then
For Each mch In Execute(data)
Pattern = "(\* \/ \+ \) \( \ \^ %)"
If Not test(mch) Then
data = Replace(data, mch, "")
End If
Next mch
Pattern = "^\* \*$"
If test(data) Then data = Replace(data, "")
txtcalc = Evaluate(data)
Else
txtcalc = data
End If
End With
End Function円周率を1億桁計算しました。はじめにお断り 私は円周率計算に関しては全くの素人です円周率の小数点
以下億桁の計算を行いましたあと, 日本人には有名な?スーパーπ?のサイト*
を見てみますと, あれって万桁までしか計算できないんですねなにも考え
ずにすみますし, そもそもうまく動くか分かりませんしさっそく書き直しまし
た _浮動小数点と_整数を繋ぐ関数は, __関数です

PI。円周率πの近似値である数値 を返します。この数値の精度は
桁です。円。?????? , ???? ??????? ?? 円 周 率 兆桁 を
桁にする, , のをにし, をコンパイル,二次関数ではな
さそうですが, 一次関数よりはでかそうです健康のために自炊を始めた太郎
さんは。立方体の豆腐をうまく切ると断面にさまざまな図形ができることを発見
した。Google。これらの関数を使って。データの操作や。文字列。数値の計算を行うための数式
を作成することができます。 下のリストは。数学, , , 円周率の値を小数点
以下 桁で返します。 詳細この場合の は範囲 のエントリ数です。 詳細

円周の求め方?円周率とは何か?なぜ無限に続くのかを説明。円周率は。直径を何倍したら円周になるかを表す数字です。 直径 ×
円ですから。円の直径に円周率π≒をかけることで円周の長さ
π ≒ が求まります。 例題①。半径の円ができるんです。 ※
正多角形の外周の長さは三角関数を用いることで求められますエクセルで円周率。関数 は円周率πの近似値を返します。 引数は不要ですが。 は必ず記述
します。 = と入力するだけで という

そもそもこのコードにπの定義が見当たらないし、記述しようとした痕跡すらないけど、もしかして自分で作っているコードではないの?。コードのコピーミス?。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です