Excellでの関数の作り方

質問

今、こんな関数を作りたいと思っているんですけど…

値を入力
↓　　↓
偶数 奇数
｜ ↓
↓３倍して１加える
２で割る　↓
↓　偶数奇数
偶数奇数 ： ：
：　： ： ：
： ： ： ：
： ：
１（いわゆる「角谷の予想」です）

意味分かるでしょうか？こういう関数です。ご教授願います。

回答No.4

arata · ベストアンサー

値を入力
↓　　↓
偶数 奇数
｜ ↓
↓３倍して１加える
２で割る

ここまでの関数が欲しいのでしょうか？
ここまででしたら、他の方の回答でOKですね。

それとも、１になるまでの関数ですか？
それでしたら、

=1

でＯＫですね。
（冗談ですよ。）

繰り返し計算していって、１になるかどうかを検証するための関数であれば、VBAを使用する必要があるかもしれません。

こんな感じの関数を作って

Function 角谷(p_Value As Variant) As Integer
Dim i As Integer

i = Val(p_Value)

If i = 1 Then
角谷 = 1
Exit Function
End If

If (i Mod 2) = 0 Then
角谷 = 角谷(i / 2)
Else
角谷 = 角谷(i * 3 + 1)
End If

End Function

セルで

=角谷(A1)

のようにして使用します。

お礼

ありがとうございました。

回答No.3

nishi6

『角谷の予想』ということで、なるべく大きい数値が扱えるようにしてみました。(当方、Excel97です)

A1に最初の数値を入れ、A2に
　=IF(OR(A1<=1,A1=""),"",IF(INT(A1/2)*2=A1,A1/2,A1*3+1))
とします。

999999でも258回目でやっと1になります。A2の式は下方向にコピーします。

ただ、エクセルの関数では、最初が12桁数値くらいでも3倍を繰り返すと、計算結果が15桁を超して正しく求められなくなる場合があります。
長い桁の数値で、1位または1位と10位の数値が0になったら計算の検証が必要です。

お礼

ありがとうございました。

回答No.2

norinori555

=IF(OR(A1=1,A1=""),"",IF(MOD(A1,2)=0,A1/2,A1*3+1))

の方がよさそうですね。これだと左隣のセルが1または空白だとなにも表示しなくなります。

お礼

ありがとうございました。

回答No.1

norinori555

おはようございます。

A１に数字をいれて
B1に　=IF(MOD(A1,2)=0,A1/2,A1*3+1)
を入れます。

あとは、その関数をＣ１　Ｄ１....とコピーしていけばできあがりです。

エクセルで試してみました。関数については
http://www3.tokai.or.jp/excel/index.htm
を参考にされるとよいと思います。

参考URL：

http://www3.tokai.or.jp/excel/index.htm

お礼

ありがとうございました。