質問編集履歴
3
私的された部分の変更。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,32 +1,14 @@
|
|
|
1
1
|
縦横長さ３cmの正方形の中に1cm間隔で格子点が配置されているとします。つまり格子点の数は16個。その配置された格子点の中の左上のものの番号を１とします。
|
|
2
2
|
この番号1のついた格子点とそのほかの格子点の距離の合計は
|
|
3
3
|
do i = 1,16
|
|
4
|
-
r(1) = sqrt((x(i)-x(1))**2 + (y(i)-y(1))**2)
|
|
4
|
+
r(1) = r(1) + sqrt((x(i)-x(1))**2 + (y(i)-y(1))**2)
|
|
5
5
|
enddo
|
|
6
6
|
とあらわされます。(x(i),y(i)は各格子点のx,y座標の値を格納したもの。例えば格子点1の時はx(1),y(1)とあらわされます。)これを1から16のすべての場所について計算し、r(k)（k番目の格子点とそのほかの格子点との距離の合計）に格納したいときどのようにしたらいいのかお聞きしたいです。もちろん
|
|
7
7
|
do k = 1,16
|
|
8
8
|
do i = 1,16
|
|
9
|
-
r(k) = sqrt((x(i)-x(k))**2 + (y(i)-y(k))**2)
|
|
9
|
+
r(k) = r(k) + sqrt((x(i)-x(k))**2 + (y(i)-y(k))**2)
|
|
10
10
|
enddo
|
|
11
11
|
enddo
|
|
12
12
|
は試してみましたが、うまくいきません。
|
|
13
|
-
これは
|
|
14
|
-
do i = 1,3
|
|
15
|
-
do j = 1,3
|
|
16
|
-
r(i) = i+j
|
|
17
|
-
write(*,*)r(i)
|
|
18
|
-
enddo
|
|
19
|
-
enddo
|
|
20
|
-
の結果が
|
|
21
|
-
2.0000000000000000
|
|
22
|
-
3.0000000000000000
|
|
23
|
-
4.0000000000000000
|
|
24
|
-
3.0000000000000000
|
|
25
|
-
4.0000000000000000
|
|
26
|
-
5.0000000000000000
|
|
27
|
-
4.0000000000000000
|
|
28
|
-
5.0000000000000000
|
|
29
|
-
6.0000000000000000
|
|
30
|
-
|
|
13
|
+
上記のプログラムを実行すると結果は256(16*16通り）出てきてしまいます。
|
|
31
|
-
よろしくお願いします。
|
|
32
14
|
|
2
４→３
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
縦横長さ
|
|
1
|
+
縦横長さ３cmの正方形の中に1cm間隔で格子点が配置されているとします。つまり格子点の数は16個。その配置された格子点の中の左上のものの番号を１とします。
|
|
2
2
|
この番号1のついた格子点とそのほかの格子点の距離の合計は
|
|
3
3
|
do i = 1,16
|
|
4
4
|
r(1) = sqrt((x(i)-x(1))**2 + (y(i)-y(1))**2)
|
1
質問内容がより分かりやすくなるように変更しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,9 @@
|
|
|
1
|
-
縦横長さ4cmの正方形の中に1cm間隔で格子点が配置されているとします。つまり格子点の数は16個。その
|
|
1
|
+
縦横長さ4cmの正方形の中に1cm間隔で格子点が配置されているとします。つまり格子点の数は16個。その配置された格子点の中の左上のものの番号を１とします。
|
|
2
|
+
この番号1のついた格子点とそのほかの格子点の距離の合計は
|
|
2
3
|
do i = 1,16
|
|
3
4
|
r(1) = sqrt((x(i)-x(1))**2 + (y(i)-y(1))**2)
|
|
4
5
|
enddo
|
|
5
|
-
とあらわされます。これを1から16のすべての場所について計算し、r(k)（k番目の格子点とそのほかの格子点との距離の合計）に格納したいときどのようにしたらいいのかお聞きしたいです。もちろん
|
|
6
|
+
とあらわされます。(x(i),y(i)は各格子点のx,y座標の値を格納したもの。例えば格子点1の時はx(1),y(1)とあらわされます。)これを1から16のすべての場所について計算し、r(k)（k番目の格子点とそのほかの格子点との距離の合計）に格納したいときどのようにしたらいいのかお聞きしたいです。もちろん
|
|
6
7
|
do k = 1,16
|
|
7
8
|
do i = 1,16
|
|
8
9
|
r(k) = sqrt((x(i)-x(k))**2 + (y(i)-y(k))**2)
|