質問編集履歴
1
いただいた回答の指摘を試しました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
相関係数算出プログラム
|
|
1
|
+
相関係数算出プログラムの計算結果が正しく算出されません
|
test
CHANGED
|
@@ -1,10 +1,8 @@
|
|
|
1
|
-
###前提・実現したいこと
|
|
2
|
-
|
|
3
1
|
はじめてこちらを利用します。プログラミングに関しては初級者ですので、記述不足等ありましたらご指摘ください。
|
|
4
2
|
|
|
5
|
-
Visual Basicで、自己評価値と他者からの評価値の相関係数を求めるプログラムを制作しています（記載コード
|
|
3
|
+
Visual Basicで、自己評価値と他者からの評価値の相関係数を求めるプログラムを制作しています（記載コードでは省略していますが、結果はLabelコントロールに表示します）。
|
|
6
4
|
|
|
7
|
-
ネット上の同じようなコードを参考にして書きましたが、
|
|
5
|
+
ネット上の同じようなコードを参考にして書きましたが、正しい計算結果が算出されずに困っています。具体性に欠ける質問で申し訳ありませんが、改善点等教えていただきたいです。
|
|
8
6
|
|
|
9
7
|
|
|
10
8
|
|
|
@@ -16,7 +14,7 @@
|
|
|
16
14
|
|
|
17
15
|
|
|
18
16
|
|
|
19
|
-
###
|
|
17
|
+
###ソースコード
|
|
20
18
|
|
|
21
19
|
|
|
22
20
|
|
|
@@ -30,9 +28,11 @@
|
|
|
30
28
|
|
|
31
29
|
|
|
32
30
|
|
|
31
|
+
|
|
32
|
+
|
|
33
33
|
'自己評価値平均算出
|
|
34
34
|
|
|
35
|
-
Dim Selflist() As Double = {
|
|
35
|
+
Dim Selflist() As Double = {47, 10, 15, 50, 20, 21}
|
|
36
36
|
|
|
37
37
|
|
|
38
38
|
|
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
'口コミ評価値平均算出
|
|
44
44
|
|
|
45
|
-
Dim Reviwslist() As Double = {
|
|
45
|
+
Dim Reviwslist() As Double = {3.93, 3.16, 3.74, 3.81, 3.24, 3.77}
|
|
46
46
|
|
|
47
47
|
|
|
48
48
|
|
|
@@ -50,9 +50,11 @@
|
|
|
50
50
|
|
|
51
51
|
|
|
52
52
|
|
|
53
|
+
|
|
54
|
+
|
|
53
55
|
'自己評価値の偏差を求めて格納
|
|
54
56
|
|
|
55
|
-
Dim Self_dev(
|
|
57
|
+
Dim Self_dev(5) As Double
|
|
56
58
|
|
|
57
59
|
|
|
58
60
|
|
|
@@ -66,7 +68,7 @@
|
|
|
66
68
|
|
|
67
69
|
'口コミ評価値の偏差を求める格納
|
|
68
70
|
|
|
69
|
-
Dim Reviws_dev(
|
|
71
|
+
Dim Reviws_dev(5) As Double
|
|
70
72
|
|
|
71
73
|
|
|
72
74
|
|
|
@@ -75,6 +77,10 @@
|
|
|
75
77
|
Self_dev(b) = Selflist(b) - Reviws_avg
|
|
76
78
|
|
|
77
79
|
Next
|
|
80
|
+
|
|
81
|
+
|
|
82
|
+
|
|
83
|
+
|
|
78
84
|
|
|
79
85
|
|
|
80
86
|
|
|
@@ -106,9 +112,9 @@
|
|
|
106
112
|
|
|
107
113
|
'標準偏差の計算
|
|
108
114
|
|
|
109
|
-
Dim Self_std_dev As Double = Sqrt(Self_Bunsan)
|
|
115
|
+
Dim Self_std_dev As Double = System.Math.Sqrt(Self_Bunsan)
|
|
110
116
|
|
|
111
|
-
Dim Reviws_std_dev As Double = Sqrt(Reviws_Bunsan)
|
|
117
|
+
Dim Reviws_std_dev As Double = System.Math.Sqrt(Reviws_Bunsan)
|
|
112
118
|
|
|
113
119
|
|
|
114
120
|
|
|
@@ -116,7 +122,7 @@
|
|
|
116
122
|
|
|
117
123
|
'偏差積の計算
|
|
118
124
|
|
|
119
|
-
Dim Dev_pdt(
|
|
125
|
+
Dim Dev_pdt(5) As Double
|
|
120
126
|
|
|
121
127
|
|
|
122
128
|
|
|
@@ -128,11 +134,15 @@
|
|
|
128
134
|
|
|
129
135
|
|
|
130
136
|
|
|
137
|
+
|
|
138
|
+
|
|
131
139
|
'偏差積平均の計算
|
|
132
140
|
|
|
133
141
|
|
|
134
142
|
|
|
135
143
|
Dim Dev_avg = Aggregate Self In Dev_pdt Into Average()
|
|
144
|
+
|
|
145
|
+
|
|
136
146
|
|
|
137
147
|
|
|
138
148
|
|
|
@@ -146,7 +156,17 @@
|
|
|
146
156
|
|
|
147
157
|
###試したこと
|
|
148
158
|
|
|
159
|
+
配列定義の仕方に問題があるとの指摘をいただき改善しましたが、
|
|
160
|
+
|
|
161
|
+
実行結果に目に見えた変化は見られませんでした。
|
|
162
|
+
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
ブレークポイントの設定を用いて、変数の値を見てみましたが、
|
|
166
|
+
|
|
167
|
+
標準偏差の値が0.0となっているのに対して、
|
|
168
|
+
|
|
149
|
-
|
|
169
|
+
分散には誤りながら値が格納されていました。
|
|
150
170
|
|
|
151
171
|
|
|
152
172
|
|