% ***********************************************************************
% hematite_k.m
% ***********************************************************************
%
% Data description:
% refractive index (imaginary 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.199081438283810e+00, 1.210278514690326e+00, 1.221343377694255e+00, 1.232189052104583e+00, 1.242725686566888e+00, ...
	1.252860785261980e+00, 1.262499514727693e+00, 1.271545088376043e+00, 1.279899230446773e+00, 1.287462720121650e+00, ...
	1.294136015322670e+00, 1.299819954337324e+00, 1.304416531867280e+00, 1.307829744401567e+00, 1.309968228389391e+00, ...
	1.311408317576880e+00, 1.312656000342264e+00, 1.313699678407432e+00, 1.314527813316604e+00, 1.315128979785468e+00, ...
	1.315491922920904e+00, 1.315607427894341e+00, 1.315599685384652e+00, 1.315550584088730e+00, 1.315461689977484e+00, ...
	1.315334570377706e+00, 1.315170793451184e+00, 1.314971927700763e+00, 1.314739541503463e+00, 1.314475202670713e+00, ...
	1.314180478035733e+00, 1.313856933068087e+00, 1.313506131515416e+00, 1.313129635072322e+00, 1.312729003076385e+00, ...
	1.312305792231242e+00, 1.311861556356690e+00, 1.311397846165717e+00, 1.310916209068390e+00, 1.310418189002492e+00, ...
	1.309905326290805e+00, 1.309379157524930e+00, 1.308841215475520e+00, 1.308293029028802e+00, 1.307730657258717e+00, ...
	1.307107501509263e+00, 1.306414253489190e+00, 1.305652983061940e+00, 1.304825765320968e+00, 1.303934679310102e+00, ...
	1.302981806788155e+00, 1.301969231038320e+00, 1.300899035722764e+00, 1.299773303782795e+00, 1.298594116384894e+00, ...
	1.297363551912833e+00, 1.296083685006057e+00, 1.294719754119003e+00, 1.293204902998407e+00, 1.291544733284773e+00, ...
	1.289746820037631e+00, 1.287818798045612e+00, 1.285768346876262e+00, 1.283603176674822e+00, 1.281331014740777e+00, ...
	1.278959592905925e+00, 1.276496635732910e+00, 1.273949849548599e+00, 1.271326912322422e+00, 1.268635464395837e+00, ...
	1.265883100065386e+00, 1.263077360018489e+00, 1.260225724618064e+00, 1.257335608029357e+00, 1.254414353179966e+00, ...
	1.251469227541963e+00, 1.248507419723270e+00, 1.245536036853972e+00, 1.242562102752100e+00, 1.239592556852585e+00, ...
	1.236634253882489e+00, 1.233688025306831e+00, 1.230742453987079e+00, 1.227797698299085e+00, 1.224854576928504e+00, ...
	1.221913879737874e+00, 1.218976372397066e+00, 1.216042801789180e+00, 1.213113902177025e+00, 1.210184210323160e+00, ...
	1.207196796557180e+00, 1.204136708969634e+00, 1.201002716127233e+00, 1.197793611228683e+00, 1.194508213263776e+00, ...
	1.191145368472837e+00, 1.187703952098958e+00, 1.184182870425017e+00, 1.180581063086903e+00, 1.176856659776036e+00, ...
	1.172675762687622e+00, 1.168028823281654e+00, 1.162994749287328e+00, 1.157651714029893e+00, 1.152076841863695e+00, ...
	1.146345962494650e+00, 1.140533432915647e+00, 1.134712025149512e+00, 1.128952877632796e+00, 1.123325507873582e+00, ...
	1.117897883970106e+00, 1.112736552676134e+00, 1.107906821935644e+00, 1.103472996176084e+00, 1.099498663140608e+00, ...
	1.096047031651149e+00, 1.093181320424887e+00, 1.090965198918217e+00, 1.089463282150339e+00, 1.088547971540020e+00, ...
	1.087695467263226e+00, 1.086818006581904e+00, 1.085910492856033e+00, 1.084982042485561e+00, 1.084041677299830e+00, ...
	1.083098319779549e+00, 1.082160790761462e+00, 1.081237809578100e+00, 1.080337996584219e+00, 1.079469878022495e+00, ...
	1.078641893183890e+00, 1.077862403822652e+00, 1.077139705792160e+00, 1.076482042875764e+00, 1.075903976244815e+00, ...
	1.075685451588773e+00, 1.075960178725139e+00, 1.076710889136700e+00, 1.077920808231429e+00, 1.079573558511698e+00, ...
	1.081720918296468e+00, 1.084540827112963e+00, 1.087986241853942e+00, 1.091993896656737e+00, 1.096500867388570e+00, ...
	1.101444102130189e+00, 1.106760009513423e+00, 1.112384103561762e+00, 1.118250704898789e+00, 1.124292699221673e+00, ...
	1.130441354789449e+00, 1.136626201345947e+00, 1.142774973376896e+00, 1.148813620878113e+00, 1.154666390872310e+00, ...
	1.160255982740286e+00, 1.165503780012968e+00, 1.170330160590908e+00, 1.174668963762394e+00, 1.179056914623872e+00, ...
	1.183779776665028e+00, 1.188773857725735e+00, 1.193974565916144e+00, 1.199316244291887e+00, 1.204732045791963e+00, ...
	1.210153849590856e+00, 1.215512220223873e+00, 1.220736410973868e+00, 1.225754413054539e+00, 1.230493052086253e+00, ...
	1.234878133230715e+00, 1.238834636126772e+00, 1.242286960448232e+00, 1.245159222483432e+00, 1.247375602614886e+00, ...
	1.248860742956715e+00, 1.249540193691111e+00, 1.249556289131927e+00, 1.249462109060301e+00, 1.249294167712129e+00, ...
	1.249054318806198e+00, 1.248744427277362e+00, 1.248366368203131e+00, 1.247922025760629e+00, 1.247413292214490e+00, ...
	1.246842066936196e+00, 1.246210255455311e+00, 1.245519768543019e+00, 1.244772521328329e+00, 1.243970432447258e+00, ...
	1.243115423225285e+00, 1.242209416893283e+00, 1.241254337837154e+00, 1.240252110881298e+00, 1.239204660606068e+00, ...
	1.238113910699277e+00, 1.236981783341836e+00, 1.235810198627541e+00, 1.234601074017022e+00, 1.233356323825837e+00, ...
	1.232077858746644e+00, 1.230626683682844e+00, 1.228625002172503e+00, 1.226082323213554e+00, 1.223033690619197e+00, ...
	1.219514567153264e+00, 1.215560667120741e+00, 1.211207801088976e+00, 1.206491733232509e+00, 1.201448051642496e+00, ...
	1.196112051801618e+00, 1.190518633298069e+00, 1.184702209738207e+00, 1.178696631717111e+00, 1.172535122619685e+00, ...
	1.166250226952024e+00, 1.159873770843289e+00, 1.153436834311850e+00, 1.146969734855636e+00, 1.140502021904717e+00, ...
	1.134062481495971e+00, 1.127334921473660e+00, 1.120031929825463e+00, 1.112222977475917e+00, 1.103976593379913e+00, ...
	1.095282872416880e+00, 1.086104503176996e+00, 1.076524466564266e+00, 1.066624799309629e+00, 1.056485206856508e+00, ...
	1.046182873923877e+00, 1.035792332282464e+00, 1.025385382791340e+00, 1.015031068551824e+00, 1.004795695949679e+00, ...
	9.947429003663795e-01, 9.849337534370171e-01, 9.754269089076881e-01, 9.662787843909446e-01, 9.575437766270380e-01, ...
	9.492745082250447e-01, 9.415220346948210e-01, 9.341318107185090e-01, 9.269071945431921e-01, 9.198394169142364e-01, ...
	9.129200825645916e-01, 9.061410886046667e-01, 8.994945976094588e-01, 8.929730134693707e-01, 8.865689598628372e-01, ...
	8.802752612188023e-01, 8.740849260461054e-01, 8.679911325150553e-01, 8.619872161839126e-01, 8.560666597697406e-01, ...
	8.502230848691488e-01, 8.444502455398969e-01, 8.387420236591657e-01, 8.330924259785890e-01, 8.274955827998909e-01, ...
	8.219460902880713e-01, 8.164359109278581e-01, 8.109537946443897e-01, 8.054887235435619e-01, 8.000299811198612e-01, ...
	7.945671511559741e-01, 7.890901179983034e-01, 7.835890681356942e-01, 7.780544930082144e-01, 7.724771929719310e-01, ...
	7.668482823443301e-01, 7.611591954533764e-01, 7.554014315032351e-01, 7.495223572956806e-01, 7.435016960352148e-01, ...
	7.373605063513652e-01, 7.311193367095943e-01, 7.247981812441898e-01, 7.184164456016779e-01, 7.119929223734681e-01, ...
	7.055457756610284e-01, 6.990925342922688e-01, 6.926457242299799e-01, 6.861665219521538e-01, 6.796676283707153e-01, ...
	6.731813145742463e-01, 6.667387689376025e-01, 6.603700891105913e-01, 6.541042896262799e-01, 6.479693242800955e-01, ...
	6.419921224246290e-01, 6.361986383409159e-01, 6.306139128832811e-01, 6.252621466499034e-01, 6.201667840035119e-01, ...
	6.153280102296161e-01, 6.106773612119394e-01, 6.062096455423380e-01, 6.019264799457764e-01, 5.978293765216764e-01, ...
	5.939197804089031e-01, 5.901991131401569e-01, 5.866688215309114e-01, 5.833304320447162e-01, 5.801856106793025e-01, ...
	5.771994929547521e-01, 5.743112444744242e-01, 5.715091508344745e-01, 5.687822492350953e-01, 5.661198116447612e-01, ...
	5.635113296531741e-01, 5.609465014978844e-01, 5.584152211808778e-01, 5.559075695991593e-01, 5.534138076198490e-01, ...
	5.509243710356164e-01, 5.484298673404571e-01, 5.459210742689302e-01, 5.433889400440683e-01, 5.408645591379659e-01, ...
	5.384364355348683e-01, 5.360869036474238e-01, 5.337930980625268e-01, 5.315325880746496e-01, 5.292833522315585e-01, ...
	5.270237629914915e-01, 5.247325811630061e-01, 5.223922961437981e-01, 5.200183888125738e-01, 5.175995097502816e-01, ...
	5.151146996051414e-01, 5.125434682071237e-01, 5.098658307040838e-01, 5.070623517717954e-01, 5.041141974141148e-01, ...
	5.010031938091253e-01, 4.977118925893278e-01, 4.941981425338794e-01, 4.902747401330635e-01, 4.859342268680432e-01, ...
	4.812100944260638e-01, 4.761359262567243e-01, 4.707450927539818e-01, 4.650686075254256e-01, 4.591345890013280e-01, ...
	4.529722660152472e-01, 4.466098820564485e-01, 4.400745473006256e-01, 4.333921480366167e-01, 4.265872867819170e-01, ...
	4.196832508528078e-01, 4.127020069432380e-01, 4.056638361533792e-01, 3.985082171928944e-01, 3.911054019710899e-01, ...
	3.832273328501122e-01, 3.749511849245645e-01, 3.663681756087936e-01, 3.575646643152823e-01, 3.486215953868722e-01, ...
	3.396141176207170e-01, 3.306113650740871e-01, 3.216763821350525e-01, 3.128661749802110e-01, 3.042318714107271e-01, ...
	2.958189715350064e-01, 2.876554822032685e-01, 2.795565199367122e-01, 2.715104171256764e-01, 2.635712521942525e-01, ...
	2.556337880936049e-01, 2.477648541970441e-01, 2.400691012805689e-01, 2.326391226950228e-01, 2.255561234247596e-01, ...
	2.188909673685897e-01, 2.126717013011369e-01, 2.068170863235830e-01, 2.012398293063260e-01, 1.958741541935252e-01, ...
	1.907170880581620e-01, 1.857654257740609e-01, 1.810157744125535e-01, 1.764645951253555e-01, 1.721082425554561e-01, ...
	1.679430018461457e-01, 1.639651233432226e-01, 1.601674793796755e-01, 1.565292783527424e-01, 1.530410201224186e-01, ...
	1.496953896293322e-01, 1.464854976581514e-01, 1.434048530288573e-01, 1.404473370522435e-01, 1.376071800570116e-01, ...
	1.348789398146265e-01, 1.322574817049726e-01, 1.297330882202014e-01, 1.272848998234330e-01, 1.249076817570784e-01, ...
	1.226006791934465e-01, 1.203635926021701e-01, 1.181960798284519e-01, 1.160977615143467e-01, 1.140682266721840e-01, ...
	1.121070383800573e-01, 1.102137395742299e-01, 1.083878589182082e-01, 1.066289167330989e-01, 1.049364309786849e-01, ...
	1.033099232794204e-01, 1.017480629475049e-01, 1.002486056693821e-01, 9.880996176258758e-02, 9.743064538519303e-02, ...
	9.610927322809873e-02, 9.484456514597162e-02, 9.363534542530762e-02, 9.247766562698584e-02, 9.136089798599858e-02, ...
	9.028149567664098e-02, 8.923658740185707e-02, 8.822342140442840e-02, 8.723935704110974e-02, 8.628185718357098e-02, ...
	8.534848139241810e-02, 8.443821848825873e-02, 8.355390094834114e-02, 8.269366019388327e-02, 8.185518652635823e-02, ...
	8.103624805293073e-02, 8.023468646246310e-02, 7.944841338150255e-02, 7.867540728174921e-02, 7.791371091244502e-02, ...
	7.716142923267158e-02, 7.641672781971809e-02, 7.567783173050591e-02, 7.494302479355325e-02, 7.421064930915260e-02, ...
	7.347910613533837e-02, 7.274685513686056e-02, 7.201419295889161e-02, 7.128399080599546e-02, 7.055613010055520e-02, ...
	6.983040986026651e-02, 6.910646729071607e-02, 6.838482486422046e-02, 6.766646440169233e-02, 6.695232366655947e-02, ...
	6.624329710168808e-02, 6.554023670341666e-02, 6.484395302033431e-02, 6.415521626491569e-02, 6.347475752665370e-02, ...
	6.280327007589984e-02, 6.214141074822600e-02, 6.148980139975261e-02, 6.084903042454023e-02, 6.021965432580936e-02, ...
	5.960219933343215e-02, 5.899716306082427e-02, 5.840501619505238e-02, 5.782620421466026e-02, 5.726114913039870e-02, ...
	5.670942631745512e-02, 5.616662611251827e-02, 5.563227480334857e-02, 5.510664532754952e-02, 5.458999851215622e-02, ...
	5.408258364680145e-02, 5.358463906719482e-02, 5.309639274789611e-02, 5.261659174470446e-02, 5.214333511041083e-02, ...
	5.167676512436981e-02, 5.121703114930372e-02, 5.076427486797298e-02, 5.031863062483349e-02, 4.988022576839889e-02, ...
	4.944918099386558e-02, 4.902561068560474e-02, 4.860962325917000e-02, 4.820132150251408e-02, 4.780080291615092e-02, ...
	4.740816005204113e-02, 4.702348085102164e-02, 4.664684897863870e-02, 4.627834415928447e-02, 4.591804250857562e-02, ...
	4.556601686394941e-02, 4.522233711349100e-02, 4.488707052304073e-02, 4.456028206166693e-02, 4.424203472562387e-02, ...
	4.393238986094965e-02, 4.363081227757919e-02, 4.333579968230876e-02, 4.304730055574535e-02, 4.276534234201031e-02, ...
	4.248995226067363e-02, 4.222009728710389e-02, 4.195359792804062e-02, 4.169043356306706e-02, 4.143065272480298e-02, ...
	4.117430305572876e-02, 4.092143132978227e-02, 4.067208347611426e-02, 4.042630460494989e-02, 4.018413903550508e-02, ...
	3.994563032590703e-02, 3.971082130507046e-02, 3.947975410648184e-02, 3.925247020384643e-02, 3.902901044855447e-02, ...
	3.880941510892507e-02, 3.859372391118911e-02, 3.838197608217436e-02, 3.817421039365915e-02, 3.797046520836361e-02, ...
	3.777077852755063e-02, 3.757518804021144e-02, 3.738372697599852e-02, 3.719568540845533e-02, 3.701059711222474e-02, ...
	3.682856569543599e-02, 3.664969262269967e-02, 3.647407732241539e-02, 3.630181729672498e-02, 3.613300823402046e-02, ...
	3.596774412392723e-02, 3.580611737469334e-02, 3.564821893292777e-02, 3.549413840564100e-02, 3.534396418455391e-02, ...
	3.519778357265136e-02, 3.505568291297010e-02, 3.491774771962133e-02, 3.478406281106179e-02, 3.465471244563841e-02, ...
	3.452978045944509e-02, 3.440935040654261e-02, 3.429350570160584e-02, 3.418232976507558e-02, 3.407590617090642e-02, ...
	3.397431879701526e-02, 3.387757595126092e-02, 3.378297205960894e-02, 3.368959286202770e-02, 3.359807543632128e-02, ...
	3.350904824720814e-02, 3.342313099714909e-02, 3.334093471857147e-02, 3.326237398710195e-02, 3.318608945528322e-02, ...
	3.311252147844122e-02, 3.304221962586966e-02, 3.297572731940471e-02, 3.291358315513251e-02, 3.285632242889859e-02, ...
	3.280447886502484e-02, 3.275858654947063e-02, 3.271918207073808e-02, 3.268680687412892e-02, 3.266200983752395e-02, ...
	3.264229623257781e-02, 3.262311688389841e-02, 3.260443788948527e-02, 3.258628197191359e-02, 3.256867180437661e-02, ...
	3.255163001709961e-02, 3.253517920402352e-02, 3.251934192975801e-02, 3.250414073680467e-02, 3.248959815305061e-02, ...
	3.247573669953360e-02, 3.246257889847960e-02, 3.245014728161442e-02, 3.243846439875062e-02, 3.242755282665226e-02, ...
	3.241743517817916e-02, 3.240813411171362e-02, 3.239967234087229e-02, 3.239207264450636e-02, 3.238535787699376e-02, ...
	3.237955097882713e-02, 3.237467498750195e-02, 3.237352386727186e-02, 3.241879601242623e-02, 3.251824851288180e-02, ...
	3.266335279370587e-02, 3.284631118500036e-02, 3.306087321358318e-02, 3.329802710466045e-02, 3.354794992796725e-02, ...
	3.380016537270171e-02, 3.404351657830752e-02, 3.426621742326059e-02, 3.445599032121843e-02, 3.462020508858590e-02, ...
	3.478365862407436e-02, 3.494625116072349e-02, 3.510759893400256e-02, 3.526731717317434e-02, 3.542502012729394e-02, ...
	3.558032112565139e-02, 3.573283267242884e-02, 3.588216657536823e-02, 3.602793410826010e-02, 3.616974620707133e-02, ...
	3.630721369952727e-02, 3.643994756795246e-02, 3.656755924515470e-02, 3.669106374722945e-02, 3.681400314805473e-02, ...
	3.693582416565996e-02, 3.705568325898098e-02, 3.717272414960085e-02, 3.728607834611058e-02, 3.739486591807242e-02, ...
	3.749819652577546e-02, 3.759517071121952e-02, 3.768488145476841e-02, 3.776641600067560e-02, 3.783885795319534e-02, ...
	3.790128964325470e-02, 3.795279476367523e-02, 3.799246126870365e-02, 3.801944795599314e-02, 3.803841802864744e-02, ...
	3.805444116307508e-02, 3.806795064424233e-02, 3.807898832383916e-02, 3.808759649820907e-02, 3.809381785790696e-02, ...
	3.809769543932763e-02, 3.809927257844964e-02, 3.809859286673477e-02, 3.809570010921788e-02, 3.809063828481814e-02, ...
	3.808345150889714e-02, 3.807418399808594e-02, 3.806288003739827e-02, 3.804958394964303e-02, 3.803434006714609e-02, ...
	3.801719270578655e-02, 3.799818614135004e-02, 3.797736458819771e-02, 3.795477218024650e-02, 3.793045295425344e-02, ...
	3.790445083539355e-02, 3.787680962511853e-02, 3.784757975717387e-02, 3.781743156669466e-02, 3.778683205675337e-02, ...
	3.775584435154433e-02, 3.772453121876791e-02, 3.769295505859087e-02, 3.766117789458432e-02, 3.762926136662022e-02, ...
	3.759726672570611e-02, 3.756525483073780e-02, 3.753328614714889e-02, 3.750142074743593e-02, 3.746971831353849e-02, ...
	3.743823814105245e-02, 3.740703914525637e-02, 3.737617986893020e-02, 3.734571849194683e-02, 3.731571284261742e-02, ...
	3.728622041077246e-02, 3.725317123519466e-02, 3.720762080013768e-02, 3.715043876191298e-02, 3.708291926849061e-02, ...
	3.700636762825234e-02, 3.692179342759652e-02, 3.683003748175094e-02, 3.673231273653935e-02, 3.662982283927511e-02, ...
	3.652375588528254e-02, 3.641528154040842e-02, 3.630554899207138e-02, 3.619540257857530e-02, 3.605252597839231e-02, ...
	3.586957635681567e-02, 3.566804394528798e-02, 3.546869051510146e-02, 3.529144853987917e-02, 3.515556868073384e-02, ...
	3.507974532074785e-02, 3.503528510870771e-02, 3.499246169182631e-02, 3.495110594612555e-02, 3.491105001928504e-02, ...
	3.487212718934241e-02, 3.483417173630929e-02, 3.479701882649894e-02, 3.476050440939141e-02, 3.472446512688931e-02, ...
	3.468873823484233e-02, 3.465316153673913e-02, 3.461757332948460e-02, 3.458181236119549e-02, 3.454571780096068e-02, ...
	3.450911063071196e-02, 3.447156411037988e-02, 3.443288795482977e-02, 3.439299595118397e-02, 3.435180186328982e-02, ...
	3.430921944058381e-02, 3.426516243970777e-02, 3.421954465883087e-02, 3.417227998461844e-02, 3.412328245177275e-02, ...
	3.407246631505310e-02, 3.401974613366143e-02, 3.396500490659081e-02, 3.390761560839944e-02, 3.384745268183813e-02, ...
	3.378463420998468e-02, 3.371927859026834e-02, 3.365150442909157e-02, 3.358143044021836e-02, 3.350917534702223e-02, ...
	3.343485778867657e-02, 3.335859623035881e-02, 3.328050887752984e-02, 3.320071359433973e-02, 3.311932782620110e-02, ...
	3.303646852656235e-02, 3.295225208790362e-02, 3.286679427697037e-02, 3.278021017425049e-02, 3.269261411769411e-02, ...
	3.260411965066736e-02, 3.251482068935801e-02, 3.242452829125209e-02, 3.233321884568888e-02, 3.224096364282689e-02, ...
	3.214783334130581e-02, 3.205355210198722e-02, 3.195356411215695e-02, 3.184686367728762e-02, 3.173400261713945e-02, ...
	3.161553184156975e-02, 3.149199935487006e-02, 3.136394844575260e-02, 3.123191606443161e-02, 3.109643138664261e-02, ...
	3.095801456300893e-02, 3.081717565090622e-02, 3.067441372488974e-02, 3.053021616083483e-02, 3.038505808819388e-02, ...
	3.023940200418770e-02, 3.009369754331945e-02, 2.994838139531624e-02, 2.980387736446082e-02, 2.966059656326233e-02, ...
	2.951893773352534e-02, 2.937928768809781e-02, 2.924202186690633e-02, 2.910750500131083e-02, 2.897609188132419e-02, ...
	2.884779442007893e-02, 2.872040235931959e-02, 2.859344535088775e-02, 2.846692176572845e-02, 2.834082998210400e-02, ...
	2.821516838561642e-02, 2.808993536922938e-02, 2.796512933328967e-02, 2.784074868554816e-02, 2.771679184118019e-02, ...
	2.759325722280557e-02, 2.747014326050795e-02, 2.734744839185376e-02, 2.722517106191060e-02, 2.710330972326509e-02, ...
	2.698183432669342e-02, 2.686064382615310e-02, 2.673973633338479e-02, 2.661911955458666e-02, 2.649880111528279e-02, ...
	2.637878855955169e-02, 2.625908934930962e-02, 2.613971086364776e-02, 2.602066039822277e-02, 2.590194516469973e-02 ...
];

fid = fopen('ecHm.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 0 1.4]);
set(gca, 'FontSize', 14);
grid on;
title('Hematite', 'FontSize', 14);
ylabel('extinction coefficient', 'FontSize', 14);
xlabel('wavelength (nm)', 'FontSize', 14);
set(gcf,'PaperUnits','inches','PaperPosition',[0 0 6 5]);
pause;
print('-dpng', '-r100', 'hematite_k.png');
close;

