teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問VBAによる部分グラフ同型判定プログラムについて

編集履歴

質問編集履歴

2

文法の修正

2018/05/10 05:37

投稿

teratailist
teratailist

スコア6

title CHANGED
File without changes
body CHANGED
@@ -32,7 +32,7 @@
32
32
  ' 置換行列Pが存在すれば、Pありと出力
33
33
  If SubgraphHomotyping(A1, A2) = True Then
34
34
  Debug.Print "Pあり"
35
- ElseIf SubgraphHomotyping(A1, A2) = False Then
35
+ Else
36
36
  Debug.Print "Pなし"
37
37
  End If
38
38
  End Sub
@@ -44,7 +44,7 @@
44
44
 
45
45
  If Pが存在する Then
46
46
  SubgraphHomotyping = True
47
- ElseIf Pが存在しない Then
47
+ Else
48
48
  SubgraphHomotyping = False
49
49
  End If
50
50
 

1

ソースコードにおける変数A1, A2の初期化のエラーの改定

2018/05/10 05:37

投稿

teratailist
teratailist

スコア6

title CHANGED
File without changes
body CHANGED
@@ -20,31 +20,34 @@
20
20
  ### 該当のソースコード
21
21
 
22
22
  ```VBA
23
+ Option Explicit
24
+
23
25
  Sub main()
24
- Dim A1() As Integer
26
+ Dim A1
25
- Dim A2() As Integer
27
+ Dim A2
26
28
 
27
- A1 = [{0,1,1,1,1,0,0,0,0,0,0;1,0,0,0,0,1,0,0,0,0,0;1,0,0,0,0,0,1,1,1,0,0;1,0,0,0,0,0,0,0,0,0,0;1,0,0,0,0,0,0,0,0,0,0;0,1,0,0,0,0,0,0,0,2,1;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,0,0,0,2,0,0,0,0,0;0,0,0,0,0,1,0,0,0,0,0}]
28
- A2 = [{0,1,0,0,0;1,0,1,0,0;0,1,0,2,1;0,0,2,0,0;0,0,1,0,0}]
29
+ A1 = [{0,1,1,1,1,0,0,0,0,0,0;1,0,0,0,0,1,0,0,0,0,0;1,0,0,0,0,0,1,1,1,0,0;1,0,0,0,0,0,0,0,0,0,0;1,0,0,0,0,0,0,0,0,0,0;0,1,0,0,0,0,0,0,0,2,1;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,1,0,0,0,0,0,0,0,0;0,0,0,0,0,2,0,0,0,0,0;0,0,0,0,0,1,0,0,0,0,0}]
30
+ A2 = [{0,1,0,0,0;1,0,1,0,0;0,1,0,2,1;0,0,2,0,0;0,0,1,0,0}]
29
31
 
30
- ' 置換行列Pが存在すれば、Pありと出力
32
+ ' 置換行列Pが存在すれば、Pありと出力
31
- If SubgraphHomotyping(A1, A2) = True Then
33
+ If SubgraphHomotyping(A1, A2) = True Then
32
- Debug.Print "Pあり"
34
+ Debug.Print "Pあり"
33
- ElseIf SubgraphHomotyping(A1, A2) = False Then
35
+ ElseIf SubgraphHomotyping(A1, A2) = False Then
34
- Debug.Print "Pなし"
36
+ Debug.Print "Pなし"
35
- End If
37
+ End If
36
38
  End Sub
37
39
 
38
40
  ' 置換行列Pが存在するか判定する処理(存在すればTrue, 存在しなければFalse)
39
- Function SubgraphHomotyping(A1() As Integer, A2() As Integer) As Boolean
41
+ Function SubgraphHomotyping(A1 As Variant, A2 As Variant) As Boolean
40
-
42
+
41
- ' 処理をここに記述
43
+ ' 処理をここに記述
42
-
44
+
43
- If Pが存在する Then
45
+ If Pが存在する Then
44
- SubgraphHomotyping = True
46
+ SubgraphHomotyping = True
45
- ElseIf Pが存在しない Then
47
+ ElseIf Pが存在しない Then
46
- SubgraphHomotyping = False
48
+ SubgraphHomotyping = False
47
- End If
49
+ End If
48
-
50
+
49
51
  End Function
52
+
50
53
  ```