twrite to correct field - cosmo - front and backend for Markov-Chain Monte Carlo inversion of cosmogenic nuclide concentrations (HTM) git clone git://src.adamsgaard.dk/cosmo (DIR) Log (DIR) Files (DIR) Refs (DIR) README (DIR) LICENSE --- (DIR) commit c4cc96524ef09c984bd8e1c9f59f00e2ce358944 (DIR) parent 022ee5ab49639d5b6e84e83738e2eac13152bb20 (HTM) Author: Anders Damsgaard <anders.damsgaard@geo.au.dk> Date: Wed, 18 Nov 2015 20:02:59 +0100 write to correct field Diffstat: M matlab/generate_plots.m | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) --- (DIR) diff --git a/matlab/generate_plots.m b/matlab/generate_plots.m t@@ -240,18 +240,18 @@ for i1 = 1:M % for each model parameter xlabel('Interglacial erosion rate [m/Myr]') text(0.02,0.98,'a', 'Units', ... 'Normalized', 'VerticalAlignment', 'Top') - epsilon_int_25 = prctile(Ss{iwalk}.ms(i1,:)*1000., 25); - epsilon_int_50 = prctile(Ss{iwalk}.ms(i1,:)*1000., 50); - epsilon_int_75 = prctile(Ss{iwalk}.ms(i1,:)*1000., 75); + epsilon_int_25(iwalk) = prctile(Ss{iwalk}.ms(i1,:)*1000., 25); + epsilon_int_50(iwalk) = prctile(Ss{iwalk}.ms(i1,:)*1000., 50); + epsilon_int_75(iwalk) = prctile(Ss{iwalk}.ms(i1,:)*1000., 75); elseif i1 == 2 %xlabel('Glacial erosion rate [mm/yr]') xlabel('Glacial erosion rate [m/Myr]') text(0.02,0.98,'b', 'Units', ... 'Normalized', 'VerticalAlignment', 'Top') - epsilon_gla_25 = prctile(Ss{iwalk}.ms(i1,:)*1000., 25); - epsilon_gla_50 = prctile(Ss{iwalk}.ms(i1,:)*1000., 50); - epsilon_gla_75 = prctile(Ss{iwalk}.ms(i1,:)*1000., 75); + epsilon_gla_25(iwalk) = prctile(Ss{iwalk}.ms(i1,:)*1000., 25); + epsilon_gla_50(iwalk) = prctile(Ss{iwalk}.ms(i1,:)*1000., 50); + epsilon_gla_75(iwalk) = prctile(Ss{iwalk}.ms(i1,:)*1000., 75); elseif i1 == 3 xlabel('Timing of last deglaciation [yr]') t@@ -264,9 +264,9 @@ for i1 = 1:M % for each model parameter xlabel(['\delta^{18}O_{threshold} [' char(8240) ']']) text(0.02,0.98,'d','Units', ... 'Normalized', 'VerticalAlignment', 'Top') - record_threshold_25 = prctile(Ss{iwalk}.ms(i1,:), 25); - record_threshold_50 = prctile(Ss{iwalk}.ms(i1,:), 50); - record_threshold_75 = prctile(Ss{iwalk}.ms(i1,:), 75); + record_threshold_25(iwalk) = prctile(Ss{iwalk}.ms(i1,:), 25); + record_threshold_50(iwalk) = prctile(Ss{iwalk}.ms(i1,:), 50); + record_threshold_75(iwalk) = prctile(Ss{iwalk}.ms(i1,:), 75); else disp(['Using mname for i1 = ' i1])