[過去ﾛｸﾞ] 高木くんがアクセプトされるまで見守るスレ ★4 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

704(2): ◆pObFevaelafK [sage] 2023/07/27(木)11:29 ID:Rrvg2yJA(4/11)
>>701
Option Explicit

Sub ObtainRelation()
Dim l As Long
Dim l1 As Long
Dim l2 As Long
Dim m As Long
Dim n As Long
Dim p As Long
Dim a As Long
Dim b As Long
Dim lSkip As Long
Dim lMax As Long
Dim lCount As Long
Dim d As Double
Dim s As String
Dim rFlags() As Boolean
Dim pFlags() As Boolean
Dim bCombinations() As Boolean
Dim lPrimes(1000) As Long

n = 19

SetPrimes lPrimes

ReDim rFlags(n - 1) As Boolean
ReDim pFlags(n - 1) As Boolean
For l = 0 To n - 1
rFlags(l) = True
pFlags(l) = True
Next

m = 0
Do
m = m + 1
If lPrimes(m) > n - 1 Then Exit Do
Loop
m = m - 1
ReDim bCombinations(n - 2, m) As Boolean

For l = 0 To n - 2
p = n ^ 2 + 1 + l
For l1 = 1 To m
If p Mod lPrimes(l1) = 0 Then
bCombinations(l, l1) = True
End If
Next
Next

---

705(1): ◆pObFevaelafK [sage] 2023/07/27(木)11:30 ID:Rrvg2yJA(5/11)
>>704 追記
For l1 = m To 1 Step -1
a = 0
b = Int((n - 1) / lPrimes(l1))
lSkip = -1
lMax = 0
For l = 0 To n - 2
p = n ^ 2 + 1 + l
If p Mod lPrimes(l1) = 0 Then
If pFlags(l) Then
a = a + 1
For l2 = l1 - 1 To 1 Step -1
If bCombinations(l, l2) Then
If lSkip = -1 Then
lSkip = l
lMax = l2
Exit For
Else
If l2 > lMax Then
lSkip = l
lMax = l2
Exit For
End If
End If
End If
Next
End If
End If
Next

---

708: ◆pObFevaelafK [sage] 2023/07/27(木)11:34 ID:Rrvg2yJA(8/11)
>>701
Excel VBAのプログラム>>704の"n=19"の部分を変更すれば
そのnのときの、pとrの関係を出力する

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.067s