-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathrainbow_figure.m
48 lines (36 loc) · 1000 Bytes
/
rainbow_figure.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
data_path = "";
data_time = "3000";
PSI3000 = readmatrix([data_path, "PSI", data_time, ".dat"]);
U3000 = readmatrix([data_path, "U", data_time, ".dat"]);
V3000 = readmatrix([data_path, "V", data_time, ".dat"]);
X = readmatrix([data_path, "X.txt"]);
Y = readmatrix([data_path, "Y.txt"]);
figure
quiver(X, Y, U3000, V3000, 'r');
M = sqrt(U3000.^2+V3000.^2);
colorlist = jet;
Mdown = min(M(:));
Mup = max(M(:));
Mlist = linspace(Mdown, Mup, 256);
scaler1 = Mup./M;
U3000 = U3000.*scaler1;
V3000 = V3000.*scaler1;
scaler2 = 0.05;
U3000 = U3000*scaler2;
V3000 = V3000*scaler2;
figure
[m, n] = size(X);
for i = 1 : m
for j = 1 : n
Mtemp = abs(M(i, j) - Mlist);
index = find(Mtemp == min(Mtemp));
colorarrow = colorlist(index,:);
q = quiver(X(i, j), Y(i, j), U3000(i, j), V3000(i, j), 'MaxHeadSize', 100);
q.LineWidth = 1;
q.Color = colorarrow;
hold on
end
end
hc = colorbar;
colormap(jet)
hc.TickLabels = linspace(Mdown, Mup, 11);