回答編集履歴
3
Update
test
CHANGED
|
@@ -9,113 +9,3 @@
|
|
|
9
9
|
> `$1 != prev {printf "\n"; prev=$1}` # 空行を出力
|
|
10
10
|
|
|
11
11
|
> `{print}` # その行自体を出力
|
|
12
|
-
|
|
13
|
-
|
|
14
|
-
|
|
15
|
-
この awk スクリプトと同じ処理になるようにプログラムを変更します。ただ、データの数値をそのまま比較すると全てが孤立線になってしまいますので、10倍して整数値に丸めて比較しています(粗過ぎる？)
|
|
16
|
-
|
|
17
|
-
|
|
18
|
-
|
|
19
|
-
```c
|
|
20
|
-
|
|
21
|
-
int tmp_count = 0;
|
|
22
|
-
|
|
23
|
-
int prev = 0, cur = 0;
|
|
24
|
-
|
|
25
|
-
double data[3];
|
|
26
|
-
|
|
27
|
-
for (int i = 1; i < N - 1; i++)
|
|
28
|
-
|
|
29
|
-
{
|
|
30
|
-
|
|
31
|
-
for (int j = 1; j < M - 1; j++)
|
|
32
|
-
|
|
33
|
-
{
|
|
34
|
-
|
|
35
|
-
data[tmp_count] = a[i][j];
|
|
36
|
-
|
|
37
|
-
tmp_count++;
|
|
38
|
-
|
|
39
|
-
if (tmp_count == 3)
|
|
40
|
-
|
|
41
|
-
{
|
|
42
|
-
|
|
43
|
-
// 有効数字の桁数
|
|
44
|
-
|
|
45
|
-
cur = (int)(data[0]*10);
|
|
46
|
-
|
|
47
|
-
// 前の行の値と異なる場合は改行を出力
|
|
48
|
-
|
|
49
|
-
if (cur != prev) fprintf(fp1,"\n");
|
|
50
|
-
|
|
51
|
-
fprintf(fp1, "%6.6f\t%6.6f\t%6.6f\t\n", data[0], data[1], data[2]);
|
|
52
|
-
|
|
53
|
-
tmp_count = 0;
|
|
54
|
-
|
|
55
|
-
prev = cur;
|
|
56
|
-
|
|
57
|
-
}
|
|
58
|
-
|
|
59
|
-
}
|
|
60
|
-
|
|
61
|
-
}
|
|
62
|
-
|
|
63
|
-
fclose(fp1);
|
|
64
|
-
|
|
65
|
-
```
|
|
66
|
-
|
|
67
|
-
|
|
68
|
-
|
|
69
|
-
……さて、この結果は適切なのでしょうか……？
|
|
70
|
-
|
|
71
|
-
|
|
72
|
-
|
|
73
|
-
|
|
74
|
-
|
|
75
|
-
|
|
76
|
-
|
|
77
|
-
**追記**
|
|
78
|
-
|
|
79
|
-
|
|
80
|
-
|
|
81
|
-
単純に横(X軸方向)に伸ばすのであれば、`replot` すれば良いのですが、、、
|
|
82
|
-
|
|
83
|
-
|
|
84
|
-
|
|
85
|
-
```gnuplot
|
|
86
|
-
|
|
87
|
-
#g-s_method.plt
|
|
88
|
-
|
|
89
|
-
cd 'C:\Users\%USERNAME%\Desktop\gnuplot'
|
|
90
|
-
|
|
91
|
-
|
|
92
|
-
|
|
93
|
-
set pm3d
|
|
94
|
-
|
|
95
|
-
set pm3d map
|
|
96
|
-
|
|
97
|
-
set pm3d interpolate 1, 10
|
|
98
|
-
|
|
99
|
-
set ticslevel 0
|
|
100
|
-
|
|
101
|
-
set cbrange[-1:1]
|
|
102
|
-
|
|
103
|
-
set xrange [-1:1]
|
|
104
|
-
|
|
105
|
-
set yrange [-1:1]
|
|
106
|
-
|
|
107
|
-
set palette rgbformulae 15, 5, 7
|
|
108
|
-
|
|
109
|
-
splot 'g-s_result.dat' with pm3d
|
|
110
|
-
|
|
111
|
-
replot y
|
|
112
|
-
|
|
113
|
-
```
|
|
114
|
-
|
|
115
|
-
|
|
116
|
-
|
|
117
|
-
こんな感じになりますが、さて？
|
|
118
|
-
|
|
119
|
-
|
|
120
|
-
|
|
121
|
-
|
2
Update
test
CHANGED
|
@@ -71,3 +71,51 @@
|
|
|
71
71
|
|
|
72
72
|
|
|
73
73
|
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
77
|
+
**追記**
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
単純に横(X軸方向)に伸ばすのであれば、`replot` すれば良いのですが、、、
|
|
82
|
+
|
|
83
|
+
|
|
84
|
+
|
|
85
|
+
```gnuplot
|
|
86
|
+
|
|
87
|
+
#g-s_method.plt
|
|
88
|
+
|
|
89
|
+
cd 'C:\Users\%USERNAME%\Desktop\gnuplot'
|
|
90
|
+
|
|
91
|
+
|
|
92
|
+
|
|
93
|
+
set pm3d
|
|
94
|
+
|
|
95
|
+
set pm3d map
|
|
96
|
+
|
|
97
|
+
set pm3d interpolate 1, 10
|
|
98
|
+
|
|
99
|
+
set ticslevel 0
|
|
100
|
+
|
|
101
|
+
set cbrange[-1:1]
|
|
102
|
+
|
|
103
|
+
set xrange [-1:1]
|
|
104
|
+
|
|
105
|
+
set yrange [-1:1]
|
|
106
|
+
|
|
107
|
+
set palette rgbformulae 15, 5, 7
|
|
108
|
+
|
|
109
|
+
splot 'g-s_result.dat' with pm3d
|
|
110
|
+
|
|
111
|
+
replot y
|
|
112
|
+
|
|
113
|
+
```
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
こんな感じになりますが、さて？
|
|
118
|
+
|
|
119
|
+
|
|
120
|
+
|
|
121
|
+
|
1
Update
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
|
|
15
|
-
この awk スクリプトと同じ処理になるようにプログラムを変更します。ただ、データの数値をそのまま比較すると全てが孤立線になってしまいますので、10倍して整数値に丸めています(粗過ぎる？)
|
|
15
|
+
この awk スクリプトと同じ処理になるようにプログラムを変更します。ただ、データの数値をそのまま比較すると全てが孤立線になってしまいますので、10倍して整数値に丸めて比較しています(粗過ぎる？)
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|