Weather Stationデバイスを使って照度データを調べる

以下の時系列は，Tinker Forge Weather Stationの向きを連続的に変更しながら，デバイスから0.1秒毎に5秒間照度データを読み込んで生成したものである．

In[1]:=

ts = TemporalData[TimeSeries, {{{
Quantity[104.7, "Lux"], 
Quantity[101.30000000000001`, "Lux"], 
Quantity[194.9, "Lux"], 
Quantity[200.8, "Lux"], 
Quantity[169., "Lux"], 
Quantity[158.3, "Lux"], 
Quantity[174.3, "Lux"], 
Quantity[169.60000000000002`, "Lux"], 
Quantity[149.1, "Lux"], 
Quantity[89., "Lux"], 
Quantity[62.300000000000004`, "Lux"], 
Quantity[66.4, "Lux"], 
Quantity[62.1, "Lux"], 
Quantity[75.4, "Lux"], 
Quantity[106.5, "Lux"], 
Quantity[189.4, "Lux"], 
Quantity[193.5, "Lux"], 
Quantity[186.20000000000002`, "Lux"], 
Quantity[175.3, "Lux"], 
Quantity[170.3, "Lux"], 
Quantity[179.20000000000002`, "Lux"], 
Quantity[223.10000000000002`, "Lux"], 
Quantity[230.3, "Lux"], 
Quantity[232.70000000000002`, "Lux"], 
Quantity[212.9, "Lux"], 
Quantity[175.3, "Lux"], 
Quantity[154., "Lux"], 
Quantity[62.300000000000004`, "Lux"], 
Quantity[59.6, "Lux"], 
Quantity[44.800000000000004`, "Lux"], 
Quantity[42., "Lux"], 
Quantity[51., "Lux"], 
Quantity[80.2, "Lux"], 
Quantity[174., "Lux"], 
Quantity[213.4, "Lux"], 
Quantity[213.10000000000002`, "Lux"], 
Quantity[188., "Lux"], 
Quantity[170.60000000000002`, "Lux"], 
Quantity[168.9, "Lux"], 
Quantity[172.9, "Lux"], 
Quantity[148.6, "Lux"], 
Quantity[89.2, "Lux"], 
Quantity[48.1, "Lux"], 
Quantity[29.900000000000002`, "Lux"], 
Quantity[30.200000000000003`, "Lux"], 
Quantity[34., "Lux"], 
Quantity[40., "Lux"], 
Quantity[45.5, "Lux"], 
Quantity[50.7, "Lux"], 
Quantity[55.2, "Lux"]}}, {{{
      3.6042180390339364`17.3093859387573*^9, 
       3.6042180391339464`17.30938593876935*^9, 
       3.6042180392339564`17.3093859387814*^9, 
       3.6042180393339664`17.30938593879345*^9, 
       3.6042180394339764`17.3093859388055*^9, 
       3.6042180395339864`17.309385938817552*^9, 
       3.6042180396369967`17.309385938829966*^9, 
       3.6042180397370067`17.309385938842016*^9, 
       3.6042180398370167`17.309385938854067*^9, 
       3.6042180399370267`17.309385938866118*^9, 
       3.6042180400370367`17.309385936150637*^9, 
       3.6042180401370467`17.309385936162688*^9, 
       3.6042180402370567`17.30938593617474*^9, 
       3.6042180403370667`17.30938593618679*^9, 
       3.6042180404370767`17.30938593619884*^9, 
       3.6042180405370867`17.309385936210894*^9, 
       3.6042180406370967`17.309385936222945*^9, 
       3.6042180407371067`17.309385936234996*^9, 
       3.6042180408371167`17.309385936247047*^9, 
       3.6042180409371267`17.309385936259098*^9, 
       3.6042180410371367`17.309385933543616*^9, 
       3.6042180411371467`17.309385933555667*^9, 
       3.6042180412371567`17.309385933567718*^9, 
       3.6042180413371667`17.30938593357977*^9, 
       3.6042180414371767`17.30938593359182*^9, 
       3.6042180415371867`17.30938593360387*^9, 
       3.6042180416371967`17.30938593361592*^9, 
       3.6042180417372067`17.309385933627972*^9, 
       3.6042180418372167`17.309385933640023*^9, 
       3.6042180419382268`17.309385933652198*^9, 
       3.6042180420392369`17.309385930936838*^9, 
       3.6042180421412471`17.30938593094913*^9, 
       3.6042180422412571`17.30938593096118*^9, 
       3.6042180423412671`17.30938593097323*^9, 
       3.6042180424412771`17.309385930985282*^9, 
       3.6042180425412871`17.309385930997333*^9, 
       3.6042180426412971`17.309385931009384*^9, 
       3.6042180427413071`17.309385931021435*^9, 
       3.6042180428423172`17.309385931033606*^9, 
       3.6042180429433273`17.309385931045778*^9, 
       3.6042180430443374`17.30938592833042*^9, 
       3.6042180431453475`17.30938592834259*^9, 
       3.6042180432453575`17.30938592835464*^9, 
       3.6042180433453675`17.309385928366687*^9, 
       3.6042180434453775`17.30938592837874*^9, 
       3.6042180435453875`17.30938592839079*^9, 
       3.6042180436453975`17.309385928402843*^9, 
       3.6042180437464076`17.309385928415015*^9, 
       3.6042180438464176`17.309385928427066*^9, 
       3.6042180439474277`17.30938592843924*^9}}}, 1, {
    "Discrete", 1}, {"Discrete", 1}, 1, {
    ValueDimensions -> 1, 
     MetaInformation -> {
      "Illuminance" -> TemporalData`Self["PathComponent", 1]}}}, True,
    10.];

照度の値をプロットする．

In[2]:=

Out[2]=

データのMin，Mean，Maxを計算する．

完全なWolfram言語入力を表示する

Out[3]=

周囲の光源をオンにしたりオフにしたりして照度データを生成する．

In[4]:=

ts1 = TemporalData[TimeSeries, {{{
Quantity[4.4, "Lux"], 
Quantity[4.4, "Lux"], 
Quantity[4.4, "Lux"], 
Quantity[56.400000000000006`, "Lux"], 
Quantity[101.9, "Lux"], 
Quantity[102.30000000000001`, "Lux"], 
Quantity[102.10000000000001`, "Lux"], 
Quantity[5.1000000000000005`, "Lux"], 
Quantity[4., "Lux"], 
Quantity[3.9000000000000004`, "Lux"], 
Quantity[3.9000000000000004`, "Lux"], 
Quantity[9.700000000000001, "Lux"], 
Quantity[101.4, "Lux"], 
Quantity[102.2, "Lux"], 
Quantity[101.80000000000001`, "Lux"], 
Quantity[8.6, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[102., "Lux"], 
Quantity[102.2, "Lux"], 
Quantity[101.7, "Lux"], 
Quantity[33.4, "Lux"], 
Quantity[3.8000000000000003`, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[18.6, "Lux"], 
Quantity[102.7, "Lux"], 
Quantity[102.10000000000001`, "Lux"], 
Quantity[101.80000000000001`, "Lux"], 
Quantity[101.7, "Lux"], 
Quantity[11.100000000000001`, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.8000000000000003`, "Lux"], 
Quantity[3.8000000000000003`, "Lux"], 
Quantity[80.5, "Lux"], 
Quantity[102., "Lux"], 
Quantity[102.10000000000001`, "Lux"], 
Quantity[101.9, "Lux"], 
Quantity[10.700000000000001`, "Lux"], 
Quantity[3.8000000000000003`, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.7, "Lux"], 
Quantity[3.8000000000000003`, "Lux"], 
Quantity[79.60000000000001, "Lux"], 
Quantity[102.10000000000001`, "Lux"], 
Quantity[102.10000000000001`, "Lux"], 
Quantity[101.9, "Lux"]}}, {{{
      3.607349029336815`16.309763140342866*^9, 
       3.607349029440007`16.309763140355294*^9, 
       3.607349029543284`16.30976314036773*^9, 
       3.607349029645544`16.309763140380035*^9, 
       3.607349029749347`16.309763140392533*^9, 
       3.607349029851488`16.30976314040483*^9, 
       3.607349029956972`16.30976314041753*^9, 
       3.6073490300602`16.3097631401572*^9, 
       3.607349030161687`16.309763140169427*^9, 
       3.607349030264048`16.30976314018175*^9, 
       3.607349030365409`16.30976314019395*^9, 
       3.607349030468202`16.30976314020633*^9, 
       3.607349030575648`16.309763140219264*^9, 
       3.607349030683109`16.3097631402322*^9, 
       3.60734903078562`16.30976314024454*^9, 
       3.607349030892996`16.30976314025747*^9, 
       3.607349030996745`16.309763140269954*^9, 
       3.607349031098901`16.309763140009505*^9, 
       3.607349031200542`16.30976314002174*^9, 
       3.607349031301858`16.30976314003394*^9, 
       3.607349031404407`16.309763140046286*^9, 
       3.607349031507354`16.309763140058678*^9, 
       3.607349031613969`16.309763140071514*^9, 
       3.6073490317204`16.30976314008433*^9, 
       3.607349031823586`16.30976314009675*^9, 
       3.607349031931386`16.30976314010973*^9, 
       3.607349032034666`16.30976313984941*^9, 
       3.607349032138277`16.309763139861882*^9, 
       3.607349032241323`16.30976313987429*^9, 
       3.607349032347014`16.309763139887014*^9, 
       3.607349032450084`16.30976313989942*^9, 
       3.607349032552619`16.309763139911766*^9, 
       3.607349032660934`16.309763139924808*^9, 
       3.607349032767866`16.30976313993768*^9, 
       3.607349032875564`16.309763139950643*^9, 
       3.607349032976631`16.309763139962815*^9, 
       3.607349033084248`16.309763139703016*^9, 
       3.607349033185845`16.30976313971525*^9, 
       3.60734903328931`16.309763139727707*^9, 
       3.607349033390699`16.309763139739914*^9, 
       3.607349033495185`16.309763139752494*^9, 
       3.607349033598599`16.309763139764943*^9, 
       3.607349033701307`16.30976313977731*^9, 
       3.607349033804215`16.3097631397897*^9, 
       3.607349033906545`16.30976313980202*^9, 
       3.607349034007981`16.309763139541474*^9, 
       3.607349034110323`16.309763139553795*^9, 
       3.607349034212928`16.309763139566147*^9, 
       3.607349034315777`16.30976313957853*^9, 
       3.607349034417383`16.309763139590764*^9}}}, 1, {
    "Continuous", 1}, {"Discrete", 1}, 1, {
    ValueDimensions -> 1, 
     ResamplingMethod -> {"Interpolation", InterpolationOrder -> 1}, 
     MetaInformation -> {
      "Illuminance" -> TemporalData`Self["PathComponent", 1]}}}, True,
    10.];

時系列のプロットにより，データがほぼ周期的であることが分かる．

In[5]:=