Sudarsan Balakrishnan
76baa16390
- pending goal, make the 'parameter set' for a particular data analysis uniquely drawn from a database or a collection of files. - reduce human intervention when sorting
81 lines
1.8 KiB
Plaintext
81 lines
1.8 KiB
Plaintext
|
|
# --- configuration ---
|
|
datafilec = "../ANASEN_analysis/PW_study_Sudarsan/cathode1_2.dat"
|
|
datafilea = "../ANASEN_analysis/PW_study_Sudarsan/anode1_2.dat"
|
|
datafileqr = "../ANASEN_analysis/PW_study_Sudarsan/qqq_rings_geometry.dat"
|
|
datafileqw = "../ANASEN_analysis/PW_study_Sudarsan/qqq_wedges_geometry.dat"
|
|
|
|
set datafile separator ","
|
|
|
|
N = 24 #number of cids
|
|
|
|
# --- allocate arrays ---
|
|
array ca1x[N]
|
|
array an1x[N]
|
|
array ca1y[N]
|
|
array an1y[N]
|
|
array ca1z[N]
|
|
array an1z[N]
|
|
array ca2x[N]
|
|
array an2x[N]
|
|
array ca2y[N]
|
|
array an2y[N]
|
|
array ca2z[N]
|
|
array an2z[N]
|
|
array qqqW_Phi[64]
|
|
array qqqR_Rho[16]
|
|
|
|
# --- initialize (optional but safe) ---
|
|
do for [i=1:N] {
|
|
ca1x[i] = ca1y[i] = ca1z[i] = NaN;
|
|
ca2x[i] = ca2y[i] = ca2z[i] = NaN;
|
|
an1x[i] = an1y[i] = an1z[i] = NaN;
|
|
an2x[i] = an2y[i] = an2z[i] = NaN;
|
|
}
|
|
|
|
do for [j=1:16] {
|
|
do for [i=1:4] {
|
|
qqqW_Phi[i*4+j] = NaN
|
|
}
|
|
qqqR_Rho[j] = NaN
|
|
}
|
|
|
|
|
|
# --- load table into arrays ---
|
|
stats datafilec using \
|
|
(ca1x[int($1)+1] = $2, \
|
|
ca1y[int($1)+1] = $3, \
|
|
ca1z[int($1)+1] = $4, \
|
|
ca2x[int($1)+1] = $5, \
|
|
ca2y[int($1)+1] = $6, \
|
|
ca2z[int($1)+1] = $7, 0) \
|
|
nooutput
|
|
|
|
stats datafilea using \
|
|
(an1x[int($1)+1] = $2, \
|
|
an1y[int($1)+1] = $3, \
|
|
an1z[int($1)+1] = $4, \
|
|
an2x[int($1)+1] = $5, \
|
|
an2y[int($1)+1] = $6, \
|
|
an2z[int($1)+1] = $7, 0) \
|
|
nooutput
|
|
|
|
set datafile separator "\t"
|
|
stats datafileqr using \
|
|
(qqqR_Rho[int($1)+1] = $2, 0) \
|
|
nooutput
|
|
|
|
stats datafileqw using \
|
|
(qqqW_Phi[(int($1))*4+int($2)+1] = $3, 0) \
|
|
nooutput
|
|
|
|
#do for [i=1:N] {
|
|
# print sprintf("Data[%d] = %g", i, an1x[i])
|
|
# print sprintf("Data[%d] = %g", i, ca1x[i])
|
|
#}
|
|
|
|
set datafile separator whitespace
|
|
#plot '< cat /tmp/coords | grep q' u (ca1x[int($2)+1]):(ca1y[int($2)+1]):(ca1x[int($2)+1]):(ca1y[int($2)+1]) w vector
|
|
|
|
#pause mouse key
|