rawdata/silicon.r

require(dielectric)
setwd("~/Documents/github/dielectric/inst/rawdata")
## test <- read.table("CRYSTALS_a-Si_sopra_asi.txt", head=TRUE)
## test <- transform(test, epsilon = complex(real = n,  imag = k)^2,  wavelength=lambda*1e3)
## dput(test[, c("wavelength", "epsilon")])
aSi_raw <-data.frame(wavelength = c(240, 242, 244, 246, 248, 250, 252, 
254, 256, 258, 260, 262, 264, 266, 268, 270, 272, 274, 276, 278, 
280, 282, 284, 286, 288, 290, 292, 294, 296, 298, 300, 302, 304, 
306, 308, 310, 312, 314, 316, 318, 320, 322, 324, 326, 328, 330, 
332, 334, 336, 338, 340, 342, 344, 346, 348, 350, 352, 354, 356, 
358, 360, 362, 364, 366, 368, 370, 372, 374, 376, 378, 380, 382, 
384, 386, 388, 390, 392, 394, 396, 398, 400, 402, 404, 406, 408, 
410, 412, 414, 416, 418, 420, 422, 424, 426, 428, 430, 432, 434, 
436, 438, 440, 442, 444, 446, 448, 450, 452, 454, 456, 458, 460, 
462, 464, 466, 468, 470, 472, 474, 476, 478, 480, 482, 484, 486, 
488, 490, 492, 494, 496, 498, 500, 502, 504, 506, 508, 510, 512, 
514, 516, 518, 520, 522, 524, 526, 528, 530, 532, 534, 536, 538, 
540, 542, 544, 546, 548, 550, 552, 554, 556, 558, 560, 562, 564, 
566, 568, 570, 572, 574, 576, 578, 580, 582, 584, 586, 588, 590, 
592, 594, 596, 598, 600, 602, 604, 606, 608, 610, 612, 614, 616, 
618, 620, 622, 624, 626, 628, 630, 632, 634, 636, 638, 640, 642, 
644, 646, 648, 650, 652, 654, 656, 658, 660, 662, 664, 666, 668, 
670, 672, 674, 676, 678, 680, 682, 684, 686, 688, 690, 692, 694, 
696, 698, 700, 702, 704, 706, 708, 710, 712, 714, 716, 718, 720, 
722, 724, 726, 728, 730, 732, 734, 736, 738, 740, 742, 744, 746, 
748, 750, 752, 754, 756, 758, 760, 762, 764, 766, 768, 770, 772, 
774, 776, 778, 780, 782, 784, 786, 788, 790, 792, 794, 796, 798, 
800, 802, 804, 806, 808, 810, 812, 814, 816, 818, 820, 822, 824, 
826, 828, 830, 832, 834, 836, 838, 840), epsilon = c(-8.25969008+11.22214656i, 
-8.27066411+11.6266338i, -8.24010128+12.02528754i, -8.25011365+12.48078612i, 
-8.18476885+12.84855012i, -8.17330068+13.25668176i, -8.16787752+13.69187914i, 
-8.18541225+14.05593i, -8.16028525+14.519745i, -8.0785674+14.91139008i, 
-7.99246248+15.39997414i, -7.9549476+15.83658538i, -7.8590204+16.24705722i, 
-7.76455645+16.71589908i, -7.61488455+17.16643312i, -7.49927217+17.63335256i, 
-7.32627504+18.033552i, -7.17753456+18.4973213i, -6.99863472+18.98305954i, 
-6.81143752+19.50372186i, -6.58870785+19.90873472i, -6.35061519+20.3898604i, 
-6.0790576+20.88445758i, -5.82164655+21.31915112i, -5.49230869+21.7816662i, 
-5.20538865+22.22678552i, -4.88088315+22.68601012i, -4.53009324+23.0948392i, 
-4.16547595+23.54288508i, -3.76004112+23.98812416i, -3.33965229+24.3854878i, 
-2.890583901183+24.816516786256i, -2.44143664+25.2142443i, -1.984061471283+25.587100357956i, 
-1.50971985+25.94343472i, -0.998468750136+26.30074154065i, -0.47227765+26.63925708i, 
0.047946957176+26.94011283705i, 0.57480073+27.21957264i, 1.1121856749+27.490621000528i, 
1.66784712+27.74408966i, 2.255368174164+27.9717595564i, 2.86104632+28.18171974i, 
3.483737997075+28.388255134572i, 4.099698+28.5667015i, 4.662181413117+28.685960476156i, 
5.2337034+28.78250112i, 5.8848316725+28.89702115i, 6.55236777+28.97892536i, 
7.190534959936+28.971458208i, 7.80828615+28.93920048i, 8.392609522649+28.9434348792i, 
8.97204319+28.9401672i, 9.5775931432+28.899876279678i, 10.18561548+28.83512464i, 
10.781202684364+28.750791354i, 11.3690984+28.64283282i, 11.951160348792+28.506374069194i, 
12.52078128+28.34868254i, 13.068858852605+28.178064190332i, 13.60563057+27.98752176i, 
14.1437363194+27.768192404202i, 14.66621492+27.53253456i, 15.153687035136+27.2939641502i, 
15.62735669+27.0429054i, 16.109561349981+26.7694530173i, 16.57677477+26.48565436i, 
17.008631593044+26.20358873i, 17.41942048+25.91562264i, 17.813868872231+25.6182361644i, 
18.19977696+25.3100484i, 18.5947396166+24.984904194822i, 18.97366257+24.65219824i, 
19.308369277988+24.322376351616i, 19.62702819+23.9888142i, 19.956511609489+23.643592377i, 
20.2716432+23.29843032i, 20.549866099867+22.968017040156i, 20.81167361+22.637526i, 
21.076132145689+22.2913529994i, 21.32350079+21.9450264i, 21.535731239864+21.61225551345i, 
21.72836757+21.28426724i, 21.906706564939+20.9567327619i, 22.08266144+20.6290692i, 
22.274868377608+20.296862571606i, 22.46784609+19.9658312i, 22.656485844925+19.644152911812i, 
22.82893531+19.320951i, 22.9749570193+18.990437284512i, 23.08420912+18.64712466i, 
23.392367407693+18.552039743076i, 23.631411847835+18.383522940468i, 
23.808863446155+18.152271393028i, 23.932739795709+17.86916199614i, 
24.01135197+17.54506804i, 24.05330992966+17.190778681248i, 24.067373652715+16.816864804788i, 
24.062474344675+16.433621726868i, 24.047650533725+16.051027645092i, 
24.03197201+15.6787092i, 24.07235563852+15.375257277798i, 24.118536791757+15.087462918724i, 
24.167768074019+14.81229447522i, 24.217261315128+14.546791863846i, 
24.26418693+14.28805876i, 24.293023912593+14.022552318376i, 24.316709938169+13.76107558956i, 
24.335510176369+13.5035341296i, 24.34972637658+13.249840246528i, 
24.35964575+12.99989952i, 24.366444149679+12.75231038872i, 24.36925238118+12.508602027552i, 
24.368128565644+12.26897197848i, 24.363121119967+12.033666157056i, 
24.35429295+11.80287712i, 24.340005667421+11.57787952398i, 24.322442356288+11.357564873166i, 
24.302108025+11.14188331095i, 24.279461939968+10.930769867976i, 
24.25496832+10.72415624i, 24.229220011095+10.522689525328i, 24.202530326428+10.325365509696i, 
24.175316579804+10.13193955392i, 24.147999549223+9.942114006864i, 
24.12098336+9.7556388i, 24.09968872064+9.572890503168i, 24.078229632336+9.39273846112i, 
24.055750860288+9.214758790784i, 24.031397697216+9.03854105984i, 
24.00431616+8.863688i, 23.968807068864+8.68693393492i, 23.930083415304+8.51153952895i, 
23.88850220064+8.337845994062i, 23.844411961245+8.166186065772i, 
23.79820205+7.99689228i, 23.751812726855+7.831045507128i, 23.703622984204+7.66797303048i, 
23.6535983583+7.507814941312i, 23.601713567767+7.350661432344i, 
23.54793705+7.19665128i, 23.491640438095+7.046725564728i, 23.433555553695+6.899970747368i, 
23.373808343895+6.756266148632i, 23.312516980428+6.615529698096i, 
23.24979909+6.477669i, 23.186984368896+6.35100606605i, 23.122692470283+6.224879186444i, 
23.056734676896+6.09710359868i, 22.988864413143+5.965519024576i, 
22.91882488+5.82799734i, 22.827941365985+5.655837207168i, 22.738897957216+5.48037734244i, 
22.65600103732+5.306067586362i, 22.583583401808+5.137227282194i, 
22.5260064+4.97810222i, 22.534957930144+4.854782049i, 22.555790531784+4.74372845177i, 
22.581163303359+4.64376544808i, 22.603682431232+4.553791000776i, 
22.61599396+4.4727696i, 22.567399082577+4.405290950936i, 22.504723749585+4.343467335392i, 
22.431442722049+4.28487338916i, 22.350965671652+4.227077291136i, 
22.26668055+4.16765248i, 22.193698741336+4.09057488279i, 22.12058791104+4.010454579208i, 
22.047723474845+3.928286214732i, 21.975496801848+3.845008398614i, 
21.90430713+3.76159784i, 21.836658748455+3.682342103512i, 21.770308870821+3.60396548014i, 
21.705158770359+3.52658283472i, 21.641055949975+3.450295071i, 
21.57788765+3.37519692i, 21.516478197343+3.300771392376i, 21.455520898812+3.227901497984i, 
21.394665657324+3.15682313688i, 21.333562592727+3.087818994136i, 
21.2718688+3.02112558i, 21.204293987851+2.96120937858i, 21.136705169856+2.90307453563i, 
21.069993125421+2.84592203654i, 21.00504748244+2.788964244858i, 
20.94271116+2.7314216i, 20.891221694503+2.666438894496i, 20.842191519543+2.600789589776i, 
20.794644002079+2.53522434164i, 20.747614253628+2.470458624704i, 
20.70014595+2.40721868i, 20.645356126108+2.347841000544i, 20.589743325519+2.29106314844i, 
20.533847931303+2.237215417696i, 20.47820822838+2.186623547392i, 
20.4233602+2.13960912i, 20.374302654624+2.10500319389i, 20.325989245861+2.0724314241i, 
20.277823280256+2.04011021452i, 20.229217469184+2.00622196853i, 
20.17958904+1.9690055i, 20.124076279744+1.91250810645i, 20.067394763149+1.8527312199i, 
20.009986863048+1.791456373286i, 19.952337744675+1.730444575772i, 
19.89493065+1.67143392i, 19.840268500741+1.62546538602i, 19.78631347836+1.582599273962i, 
19.73306753208+1.542232899378i, 19.68049452096+1.503765875448i, 
19.62856509+1.4666018i, 19.577671622801+1.42728145836i, 19.527272149113+1.388820812616i, 
19.477211786337+1.351351661216i, 19.427381017497+1.315007148096i, 
19.37762727+1.27991864i, 19.327006881807+1.247574359824i, 19.276431823212+1.216402267216i, 
19.22598032078+1.186215838512i, 19.175730927471+1.156785526i, 
19.12575983+1.12792656i, 19.076335752816+1.09850720373i, 19.027297520736+1.069485305i, 
18.978661640845+1.040868066732i, 18.930443393455+1.012706139432i, 
18.88270272+0.98500754i, 18.835688975148+0.957837046736i, 18.789122935143+0.931184674776i, 
18.742968868767+0.905064400544i, 18.6971912595+0.8794902348i, 
18.6517548+0.85447622i, 18.605597043085+0.827708444028i, 18.559973246627+0.802128057564i, 
18.51509483476+0.778337131482i, 18.471182062605+0.756934579892i, 
18.42846369+0.7385164i, 18.38929221056+0.732548066208i, 18.351221384832+0.728497752224i, 
18.313937744256+0.72474310512i, 18.277128648912+0.719668577216i, 
18.240482+0.71166522i, 18.200664960225+0.686915991272i, 18.1611376617+0.6591205256i, 
18.122318991972+0.629727015296i, 18.084672546113+0.600176570616i, 
18.04862192+0.57190194i, 18.019855012077+0.553797523564i, 17.992283321616+0.53793704723i, 
17.96502285224+0.523876975662i, 17.937233777925+0.511177236228i, 
17.90803584+0.4993996i, 17.8737655369+0.487080576i, 17.837095417929+0.47508998704i, 
17.797883620321+0.4632583878i, 17.755989270276+0.45141717712i, 
17.7112726+0.43939872i, 17.659379363296+0.42526220709i, 17.605435040237+0.411073499916i, 
17.550351522624+0.39708858196i, 17.49502676624+0.383602254642i, 
17.4403456+0.37086432i, 17.388987793172+0.360074684496i, 17.339600124113+0.350333978016i, 
17.292624035049+0.34167410888i, 17.2484988921+0.334126770048i, 
17.20766231+0.3277236i, 17.174441375025+0.324787633888i, 17.144385335521+0.32248246668i, 
17.1169614033+0.320271419968i, 17.091622502656+0.31761960912i, 
17.06784825+0.313994i, 17.044415755033+0.304496416056i, 17.021632353428+0.294059861904i, 
16.999153152212+0.283243637616i, 16.976593632801+0.27260559784i, 
16.95361215+0.26270288i, 16.927578094365+0.257711625388i, 16.900964444835+0.253652447412i, 
16.87398908888+0.250179873918i, 16.846860860885+0.246949334892i, 
16.8197796+0.24361722i, 16.793497316865+0.237000683048i, 16.767529932996+0.23029796336i, 
16.741956135489+0.22386974092i, 16.716846459297+0.218075489896i, 
16.69226328+0.21327354i, 16.668906442632+0.213589744074i, 16.646050716128+0.214659169704i, 
16.623617123365+0.215917128108i, 16.601519117088+0.216759666434i, 
16.57966205+0.21662508i, 16.557647378765+0.210344621172i, 16.535774400048+0.203072727186i, 
16.514038863603+0.195380241804i, 16.492420755228+0.187836402304i, 
16.47092496+0.1810091i, 16.449524370981+0.17545646034i, 16.428216522216+0.17173531273i, 
16.407007002096+0.17040920477i, 16.385860533501+0.1720400425i, 
16.36478155+0.17718852i))

comment(aSi_raw) <- c(source = "Amorphous silicon in the visible,  http://refractiveindex.info/?group=CRYSTALS&material=a-Si",  units = "nanometres")

aSi <- with(aSi_raw, new("dielectric", wavelength=wavelength, epsilon=epsilon, span=range(wavelength), comment=as.list(comment(aSi_raw))))

save(aSi, file="aSi.rda")
baptiste/dielectric documentation built on Aug. 29, 2022, 9:23 a.m.