% ***********************************************************************
% hematite_n.m
% ***********************************************************************
%
% Data description:
% refractive index (real part) of hematite (212-1001nm), 
% interpolated from original data (resolution of 1nm) 
%
% Prepared by: Bradley W. Kimmel on February 2009
%
% ***********************************************************************
%
% Original data source:
% 
% I.N. Sokolik and O.B. Toon, Incorporation of mineralogical coposition
% into models of the radiative properties of mineral aerosol from UV to
% IR wavelengths, Journal of Geophysical Research, 104(D8):9423-9444,
% April 1999.
%
% ***********************************************************************
clear all;
data = [...
	1.246378137286655, 1.279027544434298, 1.308610392561218, 1.334702724029587, 1.357284266700824, ...
	1.377343394115499, 1.395929766431286, 1.414092788292707, 1.432770593684820, 1.451607018696874, ...
	1.470461444023612, 1.489268750724260, 1.507935412215454, 1.526367901913830, 1.544472693236025, ...
	1.562156259598675, 1.579325074418415, 1.595885611111882, 1.611744343095712, 1.626902929250483, ...
	1.641560476797884, 1.655764692706692, 1.669555209170941, 1.682971658384661, 1.696053672541884, ...
	1.708840883836642, 1.721372924462965, 1.733689426614887, 1.745781967497387, 1.757542506784813, ...
	1.768959603938315, 1.780075590144729, 1.790932796590895, 1.801573554463650, 1.812040194949830, ...
	1.822375049236275, 1.832620448509821, 1.842816576819927, 1.852944260193728, 1.863004366336797, ...
	1.873021336699222, 1.883019612731093, 1.893023635882499, 1.903057847603530, 1.913146689344274, ...
	1.923314602554822, 1.933586028685262, 1.943985409231507, 1.954547603572551, 1.965440438837657, ...
	1.976615931146716, 1.987937964727249, 1.999270423806777, 2.010477192612819, 2.021422155372897, ...
	2.031969196314532, 2.041982199665243, 2.051362063310074, 2.060384321718967, 2.069178611266535, ...
	2.077747202939400, 2.086090754676083, 2.094209924415104, 2.102105370094985, 2.109777749654247, ...
	2.117227721031411, 2.124455942164998, 2.131464819368318, 2.138306819798085, 2.145021075198028, ...
	2.151587507139321, 2.157982547990801, 2.164182630121303, 2.170164185899663, 2.175903647694716, ...
	2.181377447875299, 2.186562018810247, 2.191433852403883, 2.195979605736681, 2.200205899954352, ...
	2.204172260811330, 2.207943463552865, 2.211584283424205, 2.215159495670601, 2.218733875537303, ...
	2.222372198269558, 2.226139239112617, 2.230099773311729, 2.234308809618864, 2.238746363737460, ...
	2.243327666618687, 2.248044146144271, 2.252893169763503, 2.257872104925673, 2.262978319080075, ...
	2.268209179675996, 2.273562054162730, 2.279035528401348, 2.284828512470339, 2.291095968507989, ...
	2.297706122059695, 2.304509686400278, 2.311357374804562, 2.318099900547365, 2.324587976903510, ...
	2.330672317147818, 2.336203634555110, 2.341188023679359, 2.346073360067636, 2.351126161214888, ...
	2.356178182503936, 2.361060864741189, 2.365605648733055, 2.369643975285944, 2.373007285206266, ...
	2.375527019300430, 2.377034618374843, 2.377527353121256, 2.377410425415400, 2.377064579708397, ...
	2.376527529583564, 2.375836544519628, 2.375028893995317, 2.374141847489359, 2.373212674480478, ...
	2.372278644447404, 2.371375352207028, 2.370397981529707, 2.369136441261440, 2.367571937722546, ...
	2.365790228934881, 2.363877072920303, 2.361918227700671, 2.359999451297840, 2.358206501733668, ...
	2.356625137030013, 2.355341115208732, 2.354440194291683, 2.353935316156696, 2.353787178908423, ...
	2.353991598865075, 2.354402062861976, 2.354989653744241, 2.355742376032803, 2.356648234248595, ...
	2.357695232912544, 2.358871376545585, 2.360164669668646, 2.361563116802660, 2.363093333487916, ...
	2.365270569235762, 2.368950910907843, 2.373761837146501, 2.379265328468819, 2.385023365391882, ...
	2.390597928432777, 2.395941415368549, 2.401341506012951, 2.406949811023255, 2.412858902590846, ...
	2.419044874884502, 2.425483822072999, 2.432151838325114, 2.439025017809625, 2.446079454695307, ...
	2.453291243150939, 2.460645284609781, 2.468227476092191, 2.476165099705058, 2.484458046989052, ...
	2.493080291973796, 2.502005808688916, 2.511208571164037, 2.520662553428783, 2.530341729512778, ...
	2.540220073445647, 2.550271559257015, 2.560476745517160, 2.571188985353388, 2.582555329056959, ...
	2.594394234642234, 2.606521097828228, 2.618751314333955, 2.630900279878427, 2.642783390180659, ...
	2.654216040959663, 2.665026084889342, 2.675422825093995, 2.685585072792691, 2.695536746650491, ...
	2.705301765332460, 2.714904047503657, 2.724367511829147, 2.733716076973990, 2.742973661603250, ...
	2.752164184381988, 2.761311563975267, 2.770357104653742, 2.779226973020712, 2.787956196076118, ...
	2.796580447135107, 2.805135399512824, 2.813656726524417, 2.822180101485031, 2.830741197709814, ...
	2.839375688513909, 2.848119247212467, 2.857026898378864, 2.866138310637854, 2.875386384185390, ...
	2.884698801627594, 2.894003245570592, 2.903227398620510, 2.912298943383472, 2.921145562465604, ...
	2.929694938473030, 2.938053287609067, 2.946375003669389, 2.954603551160232, 2.962666926338824, ...
	2.970488907563241, 2.977993273191558, 2.985103801581852, 2.991744271092197, 2.997843722452085, ...
	3.003569090204066, 3.009057602812510, 3.014355467087308, 3.019555703344530, 3.024654368008167, ...
	3.029628600602411, 3.034455540651452, 3.039112327679483, 3.043576101210694, 3.047824000769277, ...
	3.051833165879422, 3.055651786582864, 3.059424550626349, 3.063143675271344, 3.066790980135681, ...
	3.070359510912510, 3.073842313294983, 3.077232432976249, 3.080522915649458, 3.083706807007761, ...
	3.086777152744309, 3.089746527304684, 3.092680568597800, 3.095580104452764, 3.098442343293204, ...
	3.101266507184574, 3.104051818192326, 3.106797498381914, 3.109502769818790, 3.112167519961648, ...
	3.114831584699797, 3.117496655155727, 3.120131766641745, 3.122705954470153, 3.125188253953255, ...
	3.127547700403355, 3.129753329132756, 3.131774175453764, 3.133579274678679, 3.135141613185808, ...
	3.136573930247728, 3.137969587215523, 3.139351174501660, 3.140701678809843, 3.142004086843773, ...
	3.143241385307156, 3.144396560903693, 3.145452600337089, 3.146392490311047, 3.147199217529272, ...
	3.147855768695464, 3.148345130513329, 3.148661178841448, 3.148866424254467, 3.148979874954783, ...
	3.149008948276646, 3.148961061554304, 3.148843632122005, 3.148664077314000, 3.148429814464536, ...
	3.148146926602823, 3.147745014445320, 3.147189290319651, 3.146503194453839, 3.145710167075906, ...
	3.144833648413877, 3.143897078695775, 3.142923898149622, 3.141937547003441, 3.140961465485256, ...
	3.140013770241456, 3.139004791576187, 3.137943591335963, 3.136895158925542, 3.135924483749680, ...
	3.135096555213138, 3.134476362720669, 3.134121416423606, 3.133894842073443, 3.133728722167891, ...
	3.133630788156998, 3.133609074537791, 3.133674273670055, 3.133824326312080, 3.134053237719109, ...
	3.134355013146382, 3.134723657849141, 3.135153177082626, 3.135637576102080, 3.136170860162744, ...
	3.136833638298841, 3.137979916493519, 3.139584844479288, 3.141574756248789, 3.143875985794665, ...
	3.146414867109557, 3.149117734186108, 3.151910921016960, 3.154720761594754, 3.157473589912132, ...
	3.160271574617262, 3.163539853716701, 3.167172262969793, 3.171019378583912, 3.174931776766430, ...
	3.178760033724719, 3.182354725666153, 3.185613697257402, 3.188731603628292, 3.191720791347619, ...
	3.194590309776148, 3.197382769039537, 3.200081577338880, 3.202669544923609, 3.205129482043152, ...
	3.207444198946942, 3.209596505884407, 3.211598705013479, 3.213588032465933, 3.215550067081454, ...
	3.217482726027667, 3.219385022379240, 3.221209693530827, 3.222909426110470, 3.224436906746216, ...
	3.225744822066107, 3.226785858698189, 3.227512703270506, 3.227880339277043, 3.227934261964499, ...
	3.227713035067155, 3.227214208050126, 3.226434448196506, 3.225406750799069, 3.224166419194755, ...
	3.222748756720506, 3.221189066713262, 3.219522652509967, 3.217784817447560, 3.216010864862985, ...
	3.214024625757501, 3.211628537674473, 3.208819994464983, 3.205665509222414, 3.202232516976784, ...
	3.198588452758118, 3.194800751596433, 3.190936848521750, 3.187064178564092, 3.183225748266106, ...
	3.179181757856966, 3.174890715727940, 3.170405280442884, 3.165778110565649, 3.161061864660091, ...
	3.156309201290063, 3.151572779019419, 3.146905256412012, 3.142359292031697, 3.137919563129880, ...
	3.133447263783555, 3.128953467038105, 3.124458940551296, 3.119984451980896, 3.115550768984673, ...
	3.111178659220394, 3.106888890345826, 3.102702230018737, 3.098638305970281, 3.094656350293010, ...
	3.090729777510515, 3.086868778701847, 3.083072633195536, 3.079339522313265, 3.075667627376715, ...
	3.072055129707569, 3.068500210627508, 3.065001051458213, 3.061554051377047, 3.058143267358552, ...
	3.054761668035425, 3.051409103310416, 3.048100849996084, 3.044833550202280, 3.041601196908494, ...
	3.038397783094214, 3.035217301738930, 3.032053745822131, 3.028901108323308, 3.025753382221948, ...
	3.022604560497542, 3.019414457723345, 3.016146401295708, 3.012834438831993, 3.009513435822008, ...
	3.006218257755567, 3.002983770122476, 2.999844838412549, 2.996836328115593, 2.993993104721419, ...
	2.991348696057836, 2.988872685751908, 2.986521917459658, 2.984276308468818, 2.982111281863174, ...
	2.980002060868619, 2.977923868711047, 2.975851928616347, 2.973761463810412, 2.971627697519133, ...
	2.969425852968404, 2.967131147332571, 2.964725921936257, 2.962230530626019, 2.959676507694887, ...
	2.957095387435891, 2.954518704142062, 2.951977992106429, 2.949504785622022, 2.947130618981872, ...
	2.944858437418156, 2.942623607095780, 2.940421167924371, 2.938250557496096, 2.936111213403120, ...
	2.934002573237614, 2.931924074591742, 2.929875155057672, 2.927855252227569, 2.925863803693603, ...
	2.923897795045622, 2.921952961189139, 2.920028858820470, 2.918125088321322, 2.916241250073403, ...
	2.914377591791489, 2.912539815835160, 2.910728170063553, 2.908941177756756, 2.907177362194851, ...
	2.905435246657926, 2.903713354426065, 2.902010208779353, 2.900324332997875, 2.898654250361719, ...
	2.896998484150967, 2.895355557645706, 2.893723994126020, 2.892102316871996, 2.890489049163717, ...
	2.888882714281271, 2.887281835504741, 2.885684936114213, 2.884090539389773, 2.882497168611506, ...
	2.880903347059496, 2.879307591846421, 2.877709426214146, 2.876110202872896, 2.874511435402471, ...
	2.872914563712246, 2.871317532404856, 2.869719547769827, 2.868121657116241, 2.866524907753178, ...
	2.864930346989720, 2.863339022134946, 2.861751980497938, 2.860170269387775, 2.858594936113541, ...
	2.857027027984314, 2.855467592309176, 2.853917676397208, 2.852378327557489, 2.850850593099102, ...
	2.849335520331127, 2.847834156562644, 2.846347549102736, 2.844876745260481, 2.843422792344961, ...
	2.841986737665257, 2.840569628530450, 2.839172512249620, 2.837796436131848, 2.836442447486216, ...
	2.835111593621803, 2.833804921847690, 2.832523479472959, 2.831268313806691, 2.830040472157965, ...
	2.828837265530432, 2.827653868466849, 2.826489250743644, 2.825342392393682, 2.824212273449832, ...
	2.823097873944960, 2.821998173911934, 2.820912153383619, 2.819838792392884, 2.818777070972596, ...
	2.817725969155620, 2.816684466974826, 2.815651544463078, 2.814626181653246, 2.813607358578195, ...
	2.812594055270792, 2.811585251763906, 2.810579928090402, 2.809577064283148, 2.808575640375011, ...
	2.807574636398857, 2.806572641714262, 2.805567926074878, 2.804559730544307, 2.803547330079031, ...
	2.802529999635532, 2.801507014170293, 2.800477648639796, 2.799441178000523, 2.798396877208956, ...
	2.797344021221578, 2.796281884994871, 2.795209436762029, 2.794126308499390, 2.793033777943164, ...
	2.791933169942907, 2.790825809348178, 2.789713021008533, 2.788596129773534, 2.787476460492736, ...
	2.786355338015698, 2.785234087191979, 2.784114032871134, 2.782996499902725, 2.781882813136308, ...
	2.780774297421441, 2.779672277607683, 2.778578078544591, 2.777493025081724, 2.776418442068640, ...
	2.775355654354896, 2.774305986790051, 2.773270764223663, 2.772251311505290, 2.771248953484490, ...
	2.770265015010821, 2.769300820933841, 2.768357696103109, 2.767436965368183, 2.766539953578619, ...
	2.765667985583977, 2.764821113524707, 2.763988067937797, 2.763166828076172, 2.762358563164965, ...
	2.761564442429306, 2.760785635094325, 2.760023310385156, 2.759278637526926, 2.758552785744770, ...
	2.757846924263817, 2.757162222309198, 2.756499849106045, 2.755859032471871, 2.755238485969132, ...
	2.754639127593481, 2.754061879262266, 2.753507662892836, 2.752975131582671, 2.752454355516130, ...
	2.751943790245862, 2.751443128345207, 2.750952062387504, 2.750470284946090, 2.749997488594304, ...
	2.749533365905486, 2.749077609452972, 2.748629911810103, 2.748189965550217, 2.747757463246652, ...
	2.747332097472746, 2.746913560801838, 2.746501545807268, 2.746095745062373, 2.745695851140492, ...
	2.745301556614964, 2.744912554059127, 2.744528536046320, 2.744149195149881, 2.743774223943150, ...
	2.743403314999463, 2.743036160892160, 2.742672454194580, 2.742311887480062, 2.741954153321943, ...
	2.741598944293562, 2.741245952968259, 2.740894871919371, 2.740545393720237, 2.740197210944196, ...
	2.739850016164586, 2.739503501954745, 2.739157360888013, 2.738811285537729, 2.738464968477229, ...
	2.738118102279854, 2.737770379518941, 2.737421492767830, 2.737071134599858, 2.736718997588365, ...
	2.736364774306688, 2.736008157328167, 2.735648839226140, 2.735286512573946, 2.734920869944923, ...
	2.734551603912410, 2.734178407049745, 2.733800998040208, 2.733419793748694, 2.733036491386699, ...
	2.732652417758258, 2.732267645484594, 2.731882247186932, 2.731496295486494, 2.731109863004503, ...
	2.730723022362184, 2.730335846180760, 2.729948407081454, 2.729560777685490, 2.729173030614091, ...
	2.728785238488481, 2.728397473929882, 2.728009809559519, 2.727622317998616, 2.727235071868394, ...
	2.726848143790079, 2.726461606384893, 2.726075532274060, 2.725689994078804, 2.725305064420347, ...
	2.724920815919914, 2.724537321198727, 2.724154652878011, 2.723772883578988, 2.723392085922883, ...
	2.723012332530918, 2.722633696024317, 2.722256249024304, 2.721880064152102, 2.721505214028935, ...
	2.721131771276025, 2.720759808514597, 2.720389398365874, 2.720020613451079, 2.719653526391436, ...
	2.719288209808169, 2.718924736322500, 2.718563178555654, 2.718203609128853, 2.717846100663322, ...
	2.717490725780283, 2.717137557100960, 2.716786667246577, 2.716438128838357, 2.716092014497523, ...
	2.715748396845300, 2.715407348502910, 2.715068942091577, 2.714733250232524, 2.714399955572026, ...
	2.714067018869135, 2.713734191018059, 2.713401538469420, 2.713069127673842, 2.712737025081949, ...
	2.712405297144363, 2.712074010311707, 2.711743231034606, 2.711412883617462, 2.711082793450506, ...
	2.710753021427386, 2.710423632326318, 2.710094690925517, 2.709766262003200, 2.709438410337582, ...
	2.709111200706878, 2.708784697889304, 2.708458966663076, 2.708134071806410, 2.707810078097522, ...
	2.707487050314626, 2.707165053235939, 2.706844151639677, 2.706524410304055, 2.706205894007289, ...
	2.705888667527594, 2.705572795643187, 2.705258343132283, 2.704945374773097, 2.704633955343846, ...
	2.704324149622745, 2.704016022388009, 2.703709638417856, 2.703405062490499, 2.703102359384156, ...
	2.702801593877041, 2.702502830747370, 2.702206134773360, 2.701911570733225, 2.701619203405182, ...
	2.701329097567445, 2.701041317998232, 2.700755929475757, 2.700472996778236, 2.700192584683886, ...
	2.699914757970920, 2.699639581417557, 2.699367119802011, 2.699097437902497, 2.698830600497232, ...
	2.698566672364430, 2.698305718282309, 2.698047803029083, 2.697792991382969, 2.697541348122181, ...
	2.697292938024937, 2.697047825869451, 2.696806076433938, 2.696567754496615, 2.696332924835699, ...
	2.696101652229403, 2.695874001455944, 2.695649893948072, 2.695427703328362, 2.695206976765834, ...
	2.694987742413981, 2.694770028426299, 2.694553862956281, 2.694339274157422, 2.694126290183217, ...
	2.693914939187160, 2.693705249322746, 2.693497248743468, 2.693290965602823, 2.693086428054304, ...
	2.692883664251406, 2.692682702347622, 2.692483570496449, 2.692286296851380, 2.692090909565909, ...
	2.691897436793532, 2.691705906687743, 2.691516347402036, 2.691328787089907, 2.691143253904849, ...
	2.690959776000356, 2.690778381529924, 2.690599098647046, 2.690421955505219, 2.690246980257935, ...
	2.690074201058690, 2.689903646060977, 2.689735343418293, 2.689569321284131, 2.689405607811985 ...
];

fid = fopen('riHm.txt', 'wb');
for i = 1:790
	wave(i) = 211 + i;
	fprintf(fid, '%d  %3.4g \n', wave(i), data(i));
end;
fclose(fid);

plot(wave, data, 'b-', 'linewidth', 3);
axis([200 1001 1 3.5]);
set(gca, 'FontSize', 14);
grid on;
title('Hematite', 'FontSize', 14);
ylabel('refractive index', 'FontSize', 14);
xlabel('wavelength (nm)', 'FontSize', 14);
set(gcf,'PaperUnits','inches','PaperPosition',[0 0 6 5]);
pause;
print('-dpng', '-r100', 'hematite_n.png');
close;

