Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Achim Morschhauser
OBS_MAT
Commits
c3248c5a
Commit
c3248c5a
authored
May 16, 2018
by
Jürgen Matzka
Browse files
Merge branch 'master' into Functions
parents
956cec6f
b203f8e4
Changes
14
Expand all
Hide whitespace changes
Inline
Side-by-side
IAGA2002_Kyoto_transfer_Katrin.m
View file @
c3248c5a
...
...
@@ -21,8 +21,8 @@
% attachment: same file
clear
all
startdate
=
jd2000
(
2018
,
05
,
0
4
);
% HERE START DATE FOR non-online
enddate
=
jd2000
(
2018
,
05
,
06
);
% HERE END DATE FOR non-online
startdate
=
jd2000
(
2018
,
05
,
1
4
);
% HERE START DATE FOR non-online
enddate
=
jd2000
(
2018
,
05
,
14
);
% HERE END DATE FOR non-online
station
=
'VNA1'
;
%station = 'WNG1';
...
...
apply_temp2var.m
View file @
c3248c5a
...
...
@@ -192,6 +192,153 @@ end
if
strcmp
(
station
,
'WNG1g'
)
%works only for daily files!!! % JMAT 10.5.2018
if
timein
(
1
)
>=
jd2000
(
2014
,
08
,
10
)
&&
timein
(
1
)
<
jd2000
(
2014
,
11
,
8
)
display
(
'Temperatur-Korrektur fuer WNG, Aug. 2014 bis Nov 2014.'
)
%not sure if the following works
if
max
(
diff
(
timein
))
>
0.00005
display
([
'more than 2 consecutive seconds missing, check if array'
...
'is suitable for smoothing temperature'
])
end
%
%
%smooth temperature records
%
%
%T1dec = T1in(1:20:end); %decimate temp
%T1dec = nanmean(reshape(T1in, 60, 1440)', 2);
timedec
=
[
timein
(
1
);
nanmean
(
reshape
(
timein
,
120
,
720
)
'
,
2
);
timein
(
end
)];
T1dec
=
[
nanmean
(
T1in
(
1
:
30
));
...
nanmean
(
reshape
(
T1in
,
120
,
720
)
'
,
2
);
nanmean
(
T1in
(
end
-
30
:
end
))];
T1smoothdec
=
smooth
(
T1dec
,
5
);
T1smooth
=
interp1
(
timedec
,
T1smoothdec
,
timein
);
% T2dec = [nanmean(T2in(1:30)); ...
% nanmean(reshape(T2in, 120, 720)', 2); nanmean(T2in(end-30:end))];
% T2smoothdec = smooth(T2dec, 5);
% T2smooth = interp1(timedec, T2smoothdec, timein);
%
%
% use the adopted temperature correction
%
%
% this is adopted temp correction, see notes:
% stable temperature at just before and after the worst event is
% 20 C, for this zero correction.
%Other temperature variations were not so visible in baelines.
% uncorrected baselines rise with 0.00255 degrees per C
% H = 18170 nT, this is 0.153 minutes of arc per C
% or 0.8 nT per C
% that means that variations are too small for higher temperatures
% and too large for lower temperatures.
% variation corretction is: HEout = HEin - (25-T1smooth)*(+0.8)
%
% compensate for temperature corection:
% HEout = HEin + (25-T1smooth)*(+0.8)
%
% note:
% 'direction' 1 == correct for temperature
% % -1 == compensate for temperature corection
if
direction
>
0
HEout
=
HEin
+
(
T1smooth
-
20.0
)
*
(
+
0.8
);
end
if
direction
<
0
HEout
=
HEin
-
(
T1smooth
-
20.0
)
*
(
+
0.8
);
end
temp_cor_structure
.
HE_T1_factor
=
+
0.8
;
temp_cor_structure
.
HE_T1_offset
=
-
20.0
;
end
end
% % erster Versuch WNG1, zu langer Zeitraum
% if strcmp(station, 'WNG1g') %works only for daily files!!! % JMAT 10.5.2018
% if timein(1) >= jd2000(2013, 12, 31) && timein(1) < jd2000(2015, 3, 26)
%
% display('Temperatur-korrektur fuer WNG, Jan 20154 bis Maerz 2015.')
%
% %not sure if the following works
% if max(diff(timein)) > 0.00005
% display(['more than 2 consecutive seconds missing, check if array'...
% 'is suitable for smoothing temperature'])
% end
%
% %
% %
% %smooth temperature records
% %
% %
% %T1dec = T1in(1:20:end); %decimate temp
% %T1dec = nanmean(reshape(T1in, 60, 1440)', 2);
% timedec = [timein(1); nanmean(reshape(timein, 120, 720)', 2); timein(end)];
%
% T1dec = [nanmean(T1in(1:30)); ...
% nanmean(reshape(T1in, 120, 720)', 2); nanmean(T1in(end-30:end))];
% T1smoothdec = smooth(T1dec, 5);
% T1smooth = interp1(timedec, T1smoothdec, timein);
%
% % T2dec = [nanmean(T2in(1:30)); ...
% % nanmean(reshape(T2in, 120, 720)', 2); nanmean(T2in(end-30:end))];
% % T2smoothdec = smooth(T2dec, 5);
% % T2smooth = interp1(timedec, T2smoothdec, timein);
%
%
% %
% %
% % use the adopted temperature correction
% %
% %
%
% % this is adopted temp correction, see notes:
% % stable temperature at 26.3.2015 is 25 C, for this zero correction
% % uncorrected baselines rise with 0.00255 degrees per C
% % H = 18170 nT, this is 0.153 minutes of arc per C
% % or 0.8 nT per C
% % that means that variations are too small for higher temperatures
% % and too large for lower temperatures.
% % variation corretction is: HEout = HEin - (25-T1smooth)*(+0.8)
% %
% % compensate for temperature corection:
% % HEout = HEin + (25-T1smooth)*(+0.8)
% %
% % note:
% % 'direction' 1 == correct for temperature
% % % -1 == compensate for temperature corection
%
%
% if direction > 0
% HEout = HEin + (T1smooth - 25.0)*(+0.8)
%
% end
% if direction < 0
% HEout = HEin - ( T1smooth - 25.0)*(+0.8)
%
% end
% temp_cor_structure.HE_T1_factor = +0.8;
% temp_cor_structure.HE_T1_offset = -25.0;
%
%
% end
% end
%OLD STUFF, KEPT FOR DOCUMENTATION:
% if strcmp(station, 'TDC1d') %works only for daily files!!!
% if timein(1) >= jd2000(2011, 2, 1)
...
...
calculate_baselines.m
View file @
c3248c5a
This diff is collapsed.
Click to expand it.
calculate_baselines_environment.m
View file @
c3248c5a
...
...
@@ -210,6 +210,7 @@ end
% This was removed as option here !
%
% 's' for spreadsheet, 'c' for cdf, here always 'c'
% If 's' is to be used, then change this in calculate_baselines.m
ppmsource
=
'c'
;
...
...
cdf_supplementing.m
View file @
c3248c5a
...
...
@@ -39,9 +39,9 @@
clear
all
pack
% supply
station
=
'
W
NG
1
g'
;
% HIER IST DIE DATENLCKE
station
=
'NG
K0
g'
;
% HIER IST DIE DATENLCKE
%with
supplementer
=
'
W
NG
0
g'
;
% VON HIER DATEN HOLEN
supplementer
=
'NG
K1
g'
;
% VON HIER DATEN HOLEN
% supplementing interval, it is recommended to use a start time on the
% previous day instead of hour 00 and an end date on the day following day
...
...
@@ -51,8 +51,8 @@ supplementer = 'WNG0g'; % VON HIER DATEN HOLEN
% reading of SUP files!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! COULD BE
% VERY EASY
start_supp
=
jd2000
(
201
8
,
03
,
1
7
,
00
+
00
/
60
)
%Stunde Minute/60 INKLUSIVE
end___supp
=
jd2000
(
201
8
,
0
4
,
04
,
23
+
58
/
60
)
%Stunde Minute/60 EXKLUSIVE
start_supp
=
jd2000
(
201
7
,
03
,
1
1
,
15
+
15
/
60
)
%Stunde Minute/60 INKLUSIVE
end___supp
=
jd2000
(
201
7
,
0
3
,
11
,
17
+
20
/
60
)
%Stunde Minute/60 EXKLUSIVE
% chooses data investigation interval to determine linear relationship
% or user select a start and end data
...
...
cdf_supplementing_from_SUP_GFZ.m
View file @
c3248c5a
...
...
@@ -39,7 +39,7 @@ clear all
close
all
pack
% supply
station
=
'NG
K0
g'
;
station
=
'
W
NG
1
g'
;
%with
supplementer1
=
'file'
;
% supplementer ist stationsname z. Bsp. 'THL4d'
% oder 'file', dann wird die station aus den
...
...
@@ -47,12 +47,12 @@ supplementer1 = 'file'; % supplementer ist stationsname z. Bsp. 'THL4d'
% der SUP-Datei geholt., z. Bsp. 'NGK6g' aus
% 'definitive_NGK6g'
start_day
=
jd2000
(
201
7
,
12
,
01
);
end_day
=
jd2000
(
201
7
,
1
2
,
3
1
);
start_day
=
jd2000
(
201
4
,
01
,
16
);
end_day
=
jd2000
(
201
8
,
0
1
,
0
1
);
plotfigures
=
0
;
% 1 = 4 Bilder pro Tag, nur bei max 3 Tagen? setzen.
SUP_file
=
'O:\jmat\cfg\SUP_NG
K0
g.2014.txt'
;
SUP_file
=
'O:\jmat\cfg\SUP_
W
NG
1
g.2014.txt'
;
...
...
check_IAF_vs_absolutes.m
View file @
c3248c5a
...
...
@@ -10,7 +10,7 @@ station = 'WNG1g';
%calculate IAF files for timeinterval:
timeinterval
=
[
201
8
;
1
;
3
];
%start year, start month, number of months
timeinterval
=
[
201
4
;
1
;
48
];
%start year, start month, number of months
% option to apply time correction
time_correction_str
=
'n'
;
...
...
def2iaf.m
View file @
c3248c5a
...
...
@@ -19,9 +19,9 @@
clear
all
IAFversion
=
'2.10'
;
%station = 'GDH6d';
%station = 'NGK0';
%station = 'TDC1';
station
=
'WNG1'
;
%station = 'TDC1';
%station = 'WNG1';
%station = 'SHE0';
%station = 'VNA1';
%station = 'BFO1';
...
...
@@ -29,8 +29,8 @@ station = 'WNG1';
%calculate IAF files for timeinterval:
timeinterval
=
[
201
8
;
2
;
2
];
%start year, start month, number of months
timeinterval
=
[
2018
;
3
;
1
];
timeinterval
=
[
201
4
;
1
;
1
2
];
%start year, start month, number of months
% works for 2011 data onwards--
% use 0 UT 1/1-3000 for furture date
...
...
@@ -57,8 +57,8 @@ if strcmp(station(1:3), 'VNA')
use6
=
[
3000
,
1
,
1
,
0
,
3000
,
1
,
2
,
0
];
end
if
strcmp
(
station
(
1
:
3
),
'WNG'
)
use6
=
[
201
3
,
7
,
1
,
0
,
201
8
,
3
,
1
5
,
0
% needs finetuning
2018
,
4
,
6
,
0
,
3000
,
1
,
2
,
0
];
% needs finetuning
use6
=
[
201
4
,
5
,
1
5
,
0
,
201
4
,
5
,
2
1
,
0
% needs finetuning
3000
,
1
,
1
,
0
,
3000
,
1
,
2
,
0
];
% needs finetuning
end
if
strcmp
(
station
(
1
:
3
),
'NGK'
)
use6
=
[
3000
,
1
,
1
,
0
,
3000
,
1
,
2
,
0
];
...
...
@@ -103,18 +103,20 @@ end
path_cdf4
=
[
path2
bs
station
(
1
:
3
)
'4'
bs
'cdf'
bs
];
if
strcmp
(
station
(
1
:
3
),
'TDC'
)
||
strcmp
(
station
(
1
:
3
),
'VNA'
)
...
||
strcmp
(
station
(
1
:
3
),
'BFO'
)
||
strcmp
(
station
(
1
:
3
),
'BFO'
)
||
strcmp
(
station
(
1
:
3
),
'WNG'
)
path_cdf4
=
[
path2
bs
station
(
1
:
3
)
'1'
bs
'cdf'
bs
];
elseif
strcmp
(
station
(
1
:
3
),
'NGK'
)
||
strcmp
(
station
(
1
:
3
),
'WNG'
)
...
||
strcmp
(
station
(
1
:
3
),
'VSS'
)
||
strcmp
(
station
(
1
:
3
),
'TTB'
)
...
elseif
strcmp
(
station
(
1
:
3
),
'NGK'
)
||
...
strcmp
(
station
(
1
:
3
),
'VSS'
)
||
strcmp
(
station
(
1
:
3
),
'TTB'
)
...
||
strcmp
(
station
(
1
:
3
),
'SHE'
)
path_cdf4
=
[
path2
bs
station
(
1
:
3
)
'0'
bs
'cdf'
bs
];
end
path_cdf6
=
[
path2
bs
station
(
1
:
3
)
'6'
bs
'cdf'
bs
];
if
strcmp
(
station
(
1
:
3
),
'NGK'
)
||
strcmp
(
station
(
1
:
3
),
'WNG'
)
...
if
strcmp
(
station
(
1
:
3
),
'NGK'
)
...
||
strcmp
(
station
(
1
:
3
),
'TTB'
)
path_cdf6
=
[
path2
bs
station
(
1
:
3
)
'1'
bs
'cdf'
bs
];
elseif
strcmp
(
station
(
1
:
3
),
'WNG'
)
path_cdf6
=
[
path2
bs
station
(
1
:
3
)
'0'
bs
'cdf'
bs
];
end
month_str
=
[
'JAN'
;
'FEB'
;
'MAR'
;
'APR'
;
'MAY'
;
'JUN'
;
...
...
...
@@ -158,13 +160,17 @@ for timeintervalmonth = 1:timeinterval(3)
min_file4
=
[
path_cdf4
station
(
1
:
3
)
'4_'
num2str
(
year
,
'%4.4d'
)
...
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
if
strcmp
(
station
(
1
:
3
),
'TDC'
)
||
strcmp
(
station
(
1
:
3
),
'VNA'
)
...
||
strcmp
(
station
(
1
:
3
),
'BFO'
)
||
strcmp
(
station
(
1
:
3
),
'BFO'
)
||
strcmp
(
station
(
1
:
3
),
'WNG'
)
min_file4
=
[
path_cdf4
station
(
1
:
3
)
'1_'
num2str
(
year
,
'%4.4d'
)
...
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
elseif
strcmp
(
station
(
1
:
3
),
'NGK'
)
||
strcmp
(
station
(
1
:
3
),
'WNG'
)
...
elseif
strcmp
(
station
(
1
:
3
),
'NGK'
)
...
||
strcmp
(
station
(
1
:
3
),
'VSS'
)
||
strcmp
(
station
(
1
:
3
),
'TTB'
)
...
||
strcmp
(
station
(
1
:
3
),
'SHE'
)
min_file4
=
[
path_cdf4
station
(
1
:
3
)
'0_'
num2str
(
year
,
'%4.4d'
)
...
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
end
...
...
@@ -172,11 +178,13 @@ for timeintervalmonth = 1:timeinterval(3)
min_file6
=
[
path_cdf6
station
(
1
:
3
)
'6_'
num2str
(
year
,
'%4.4d'
)
...
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
if
strcmp
(
station
(
1
:
3
),
'NGK'
)
||
strcmp
(
station
(
1
:
3
),
'WNG'
)
...
if
strcmp
(
station
(
1
:
3
),
'NGK'
)
...
||
strcmp
(
station
(
1
:
3
),
'TTB'
)
min_file6
=
[
path_cdf6
station
(
1
:
3
)
'1_'
num2str
(
year
,
'%4.4d'
)
...
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
elseif
strcmp
(
station
(
1
:
3
),
'WNG'
)
min_file6
=
[
path_cdf6
station
(
1
:
3
)
'0_'
num2str
(
year
,
'%4.4d'
)
...
num2str
(
month
,
'%2.2d'
)
num2str
(
day
,
'%2.2d'
)
'.mat'
];
end
...
...
plot_baseline_universal.m
View file @
c3248c5a
...
...
@@ -55,14 +55,16 @@ clear all
% remember to check scale values!
% TDC works only after 2011 01 01
% station = 'TDC1d'; startime= jd2000(2011, 1, 1);
% station = 'WNG0g', startime= jd2000(2014, 1, 1);
station
=
'WNG1g'
,
startime
=
jd2000
(
2014
,
1
,
1
);
% station = 'WNG2g', startime= jd2000(2014, 1, 1);
% station = 'VNA1s', startime= jd2000(2013, 11, 01);
%station = 'TTB0g'; startime= jd2000(2015, 11, 01);
%
station = 'TTB0g'; startime= jd2000(2015, 11, 01);
% station = 'TTB1l'; startime= jd2000(2008, 06, 01);
% station = 'NGK0g', startime= jd2000(2014, 1, 1);
% station = 'BFO1s', startime= jd2000(2014, 1, 1);
% station = 'VSS0g', startime= jd2000(2016, 1, 1);
%station = 'SMA0g', startime= jd2000(2016, 1, 1);
%
station = 'SMA0g', startime= jd2000(2016, 1, 1);
% TIME SPAN,
%startime= jd2000(2014, 12, 03);
endtime
=
jd2000
(
2018
,
12
,
31
);
...
...
@@ -78,9 +80,9 @@ endscvtime = jd2000(2017, 9, 19);
% endscvtime = 5450,
% type of data to be produced
baselinetype
=
'preliminary'
;
%
baselinetype = 'preliminary';
% baselinetype = 'QD';
%
baselinetype = 'definitive';
baselinetype
=
'definitive'
;
%baselinetype = 'test';
write_IBFV200_for_year
=
2017
;
%this I want to automize!!!!!!!!
...
...
@@ -157,11 +159,11 @@ operator_str = [...
];
if
strcmp
(
station
(
1
:
3
),
'NGK'
)
bluecross
=
int8
(
30
);
% hier kann Zahl gendert werden
redcross
=
int8
(
10
);
redcross
=
int8
(
42
);
end
%if
if
strcmp
(
station
(
1
:
3
),
'WNG'
)
bluecross
=
int8
(
16
);
redcross
=
int8
(
10
);
redcross
=
int8
(
42
);
end
%if
if
strcmp
(
station
(
1
:
3
),
'VNA'
)
bluecross
=
int8
(
10
);
...
...
@@ -282,12 +284,22 @@ for counteri = 1:size(D0)
end
%for findnegi
%above replaces D0(D0<0) = NaN;
D0
=
floor
(
D0
/
100
)
+
(
D0
-
100
*
floor
(
D0
/
100
))/
60
;
% am 8.5.2018 geaendert und wieder rausgenommen, noch testen JMAT
% for counteri = 1:size(D0)
% if D0(counteri) >= 1
% D0(counteri) = floor(D0(counteri)/100)...
% + (D0(counteri) - 100*floor(D0(counteri)/100))/60;
% else
% D0(counteri) = (D0 - 100*floor(D0(counteri)/100))/60;
% end
% end
D0
=
floor
(
D0
/
100
)
+
(
D0
-
100
*
floor
(
D0
/
100
))/
60
;
%wiederhergestellt
%new on 2014-01-09
for
counteri
=
1
:
size
(
D0
)
if
isnan
(
D0
(
counteri
))
==
0
&&
D0
(
counteri
)
>
180
D0
=
D0
-
360
;
D0
(
counteri
)
=
D0
(
counteri
)
-
360
;
%am 8.5.2018 geaendert, testen JMAT
end
%if
end
%for findnegi
% above replaces: D0(D0 > 180) = D0 - 360;
...
...
@@ -451,11 +463,11 @@ end
% triple-plot to magnify and get usefull numbers (not fully tested yet)
figure
subplot
(
3
,
1
,
1
)
subplot
(
4
,
1
,
1
)
plot
(
time
,
H0
-
10
*
floor
(
min
(
H0
)/
10
),
'.'
)
title
([
'
add '
num2str
(
10
*
floor
(
min
(
H0
)/
10
))
' to get H0 in nT'
])
title
([
station
',
add '
num2str
(
10
*
floor
(
min
(
H0
)/
10
))
' to get H0 in nT'
])
%figure
subplot
(
3
,
1
,
2
)
subplot
(
4
,
1
,
2
)
if
min
(
D0
)
<
0
plot
(
time
,
D0
-
0.1
*
ceil
(
max
(
D0
)/
0.1
),
'.'
)
title
([
'add '
num2str
(
0.1
*
ceil
(
max
(
D0
)/
0.1
))
' to get D0 in degree'
])
...
...
@@ -464,7 +476,7 @@ else
title
([
'add '
num2str
(
0.1
*
floor
(
min
(
D0
)/
0.1
))
' to get D0 in degree'
])
end
%figure
subplot
(
3
,
1
,
3
)
subplot
(
4
,
1
,
3
)
if
min
(
Z0
)
<
0
plot
(
time
,
Z0
-
10
*
ceil
(
max
(
Z0
)/
10
),
'.'
)
title
([
'add '
num2str
(
10
*
ceil
(
max
(
Z0
)/
10
))
' to get Z0 in nT'
])
...
...
@@ -472,6 +484,9 @@ else
plot
(
time
,
Z0
-
10
*
floor
(
min
(
Z0
)/
10
),
'.'
)
title
([
'add '
num2str
(
10
*
floor
(
min
(
Z0
)/
10
))
' to get Z0 in nT'
])
end
subplot
(
4
,
1
,
4
)
plot
(
time
,
T1
,
'.'
)
title
(
'Temperature T1'
)
xlabel
(
'Julian days since 01.01.2000'
)
% three plots with adopted
...
...
@@ -530,43 +545,46 @@ ylabel('Z0 in nT')
% plot(time, T2, '.')
% PLOT for scale vuale test
% save('WNG1_base_temp') Save workspace / absolute data here
scvplotHabsmeas
=
Habsmeas
(
time
<
endscvtime
);
scvplotDabsmeas
=
Dabsmeas
(
time
<
endscvtime
);
scvplotZabsmeas
=
Zabsmeas
(
time
<
endscvtime
);
scvplotH0
=
H0
(
time
<
endscvtime
);
scvplotD0
=
D0
(
time
<
endscvtime
);
scvplotZ0
=
Z0
(
time
<
endscvtime
);
scvplottime
=
time
(
time
<
endscvtime
);
scvplotHabsmeas
=
Habsmeas
(
time
>
startscvtime
);
scvplotDabsmeas
=
Dabsmeas
(
time
>
startscvtime
);
scvplotZabsmeas
=
Zabsmeas
(
time
>
startscvtime
);
scvplotH0
=
H0
(
time
>
startscvtime
);
scvplotD0
=
D0
(
time
>
startscvtime
);
scvplotZ0
=
Z0
(
time
>
startscvtime
);
scvplotAzm
=
Azm
(
time
<
endscvtime
);
scvplotAzm
=
Azm
(
time
>
startscvtime
);
scvplottime
=
time
(
time
>
startscvtime
);
% PLOT for scale vuale test
figure
plot
(
scvplotHabsmeas
,
scvplotH0
,
'+'
,
'MarkerEdgeColor'
,
'r'
)
title
(
'H0 vs. H'
)
figure
plot
(
scvplotDabsmeas
,
scvplotD0
,
'+'
,
'MarkerEdgeColor'
,
'r'
)
title
(
'D0 vs. D'
)
figure
plot
(
scvplotZabsmeas
,
scvplotZ0
,
'+'
,
'MarkerEdgeColor'
,
'r'
)
title
(
'Z0 vs. Z'
)
figure
plot
(
scvplotDabsmeas
,
scvplotAzm
,
'+'
,
'MarkerEdgeColor'
,
'r'
)
title
(
'D0 vs. Mire'
)
% scvplotHabsmeas = Habsmeas(time<endscvtime);
% scvplotDabsmeas = Dabsmeas(time<endscvtime);
% scvplotZabsmeas = Zabsmeas(time<endscvtime);
% scvplotH0 = H0(time<endscvtime);
% scvplotD0 = D0(time<endscvtime);
% scvplotZ0 = Z0(time<endscvtime);
% scvplottime = time(time<endscvtime);
% scvplotHabsmeas = Habsmeas(time>startscvtime);
% scvplotDabsmeas = Dabsmeas(time>startscvtime);
% scvplotZabsmeas = Zabsmeas(time>startscvtime);
% scvplotH0 = H0(time>startscvtime);
% scvplotD0 = D0(time>startscvtime);
% scvplotZ0 = Z0(time>startscvtime);
% scvplotAzm = Azm(time<endscvtime);
% scvplotAzm = Azm(time>startscvtime);
% scvplottime = time(time>startscvtime);
%
% figure
% plot(scvplotHabsmeas, scvplotH0, '+', 'MarkerEdgeColor','r')
% title('H0 vs. H')
%
% figure
% plot(scvplotDabsmeas, scvplotD0, '+', 'MarkerEdgeColor','r')
% title('D0 vs. D')
%
% figure
% plot(scvplotZabsmeas, scvplotZ0, '+', 'MarkerEdgeColor','r')
% title('Z0 vs. Z')
%
% figure
% plot(scvplotDabsmeas, scvplotAzm, '+', 'MarkerEdgeColor','r')
% title('D0 vs. Mire')
% figure
% plot(scvplotHabsmeas, scvplotHabsmeas-scvplotH0, '+', 'MarkerEdgeColor','r')
...
...
@@ -625,6 +643,14 @@ for i = 1:size(c)
SCV_Xa
=
1.0
;
SCV_Ya
=
1.0
;
SCV_Za
=
1.0
;
elseif
strcmp
(
station
,
'WNG5g'
)
SCV_Xa
=
1.0
;
SCV_Ya
=
1.0
;
SCV_Za
=
1.0
;
elseif
strcmp
(
station
,
'WNG0g'
)
SCV_Xa
=
1.0
;
SCV_Ya
=
1.0
;
SCV_Za
=
1.0
;
elseif
strcmp
(
station
,
'WNG1g'
)
SCV_Xa
=
1.0
;
SCV_Ya
=
1.0
;
...
...
plot_baseline_universal_adopted.m
View file @
c3248c5a
...
...
@@ -56,6 +56,10 @@ function [H0alines, D0alines, Z0alines] = ...
% SCV_Xa = 1.0;
% SCV_Ya = 1.0;
% SCV_Za = 1.0;
% elseif strcmp(station, 'WNG5g')
% SCV_Xa = 1.0;
% SCV_Ya = 1.0;
% SCV_Za = 1.0;
% elseif strcmp(station, 'WNG1g')
% SCV_Xa = 1.0;
% SCV_Ya = 1.0;
...
...
@@ -128,7 +132,54 @@ function [H0alines, D0alines, Z0alines] = ...
if
strcmp
(
station
,
'WNG0g'
)
%
% NOTE:
%
%
H0alines
=
{
5113
18184.00
'p'
''
5114
18184.00
'p'
'2014-01-01'
5435.75
18184.00
'p'
''
5435.75
18093.00
'p'
'datum_Sensor_ausgetauscht'
};
% REMEMBER for QD: default is the first day of the next month!!!
D0alines
=
{
5113
0.63400
'p'
''
5114
0.63400
'p'
'2014-01-01'
5435.75
0.63400
'p'
'datum_Sensor_ausgetauscht'
5435.75
2.41600
'p'
''
};
% REMEMBER for QD: default is the first day of the next month!!!
Z0alines
=
{
5113
45984.50
'p'
''
5114
45984.50
'p'
'2014-01-01'
5435.75
45984.50
'p'
'datum_Sensor_ausgetauscht'
5435.75
46142.00
'p'
''
};
% REMEMBER for QD: default is the first day of the next month!!!
end
% ALT:
% if strcmp(station, 'WNG0g')
% %
% % NOTE:
% %
% %
% H0alines = {
% 5114 18092.00 'p' 'test01012014'
% 6600 18092.00 'p' 'test'
% }; % REMEMBER for QD: default is the first day of the next month!!!
% D0alines = {
% 5114 2.4167 'p' 'test'
% 6600 2.4167 'p' 'test'
% }; % REMEMBER for QD: default is the first day of the next month!!!
% Z0alines = {
% 5114 46143.00 'p' 'test'
% 6600 46143.00 'p' 'test'
% }; % REMEMBER for QD: default is the first day of the next month!!!
% end
...
...
@@ -138,82 +189,55 @@ if strcmp(station, 'WNG1g')
%
%
H0alines
=
{
5113
18064.00
'p'
''
5114
18064.00
'p'
'2014-01-01'
5875
18063.60
'q'
'2016-02-01'
5904
18063.60
'q'
'2016-03-01'
5965
18063.60
'q'
'2016-05-01'
5996
18063.60
'q'
'2016-06-01'
6026
18063.00
'q'
'2016-07-01'
6057
18063.00
'q'
'2016-08-01'
6088
18063.00
'q'
'2016-09-01'
6118
18063.00
'q'
'2016-10-01'
6149
18063.50
'q'
'2016-11-01'
6179
18063.50
'q'
'2016-12-01'
6210
18063.50
'q'
'2017-01-01'
6241
18064.00
'q'
'2017-02-01'
6269
18064.00
'q'
'2017-03-01'
6300
18064.50
'q'
'2017-04-01'
6330
18064.50
'q'
'2017-05-01'
6361
18064.50
'q'
'2017-06-01'
6391
18064.00
'q'
'2017-07-01'
6422
18064.00
'q'
'2017-08-01'
6453
18064.00
'q'
'2017-09-01'
6483
18063.00
'q'
'2017-10-01'
6514
18063.00
'q'
'2017-11-01'
6544
18063.30
'q'
'2017-12-01'