例: 乱数生成のシード

関数 > 統計 > 確率分布 > 例: 乱数生成のシード

例: 乱数生成のシード

Seed関数を使用して、新しい乱数の生成過程を制御します。

1. 関数 Seed およびrnormを短いプログラムで使用して、シード値をリセットすることで行う 3 回の反復計算のための、正規分布に従う乱数の同じセットを生成します。

<region id="ID0EVOQCB" top="268.80000000000007" left="38.400000000000006" height="117.15199999999999" width="372.98" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math resultRef="84">
    <define xmlns="http://schemas.mathsoft.com/math50">
      <function>
        <id labels="VARIABLE" xml:space="preserve">SameNormal</id>
        <boundVars>
          <id labels="VARIABLE" xml:space="preserve">p</id>
          <id labels="VARIABLE" xml:space="preserve">μ</id>
          <id labels="VARIABLE" xml:space="preserve">σ</id>
        </boundVars>
      </function>
      <program>
        <for>
          <id labels="VARIABLE" xml:space="preserve">i</id>
          <range>
            <real>0</real>
            <real>2</real>
          </range>
          <program>
            <apply>
              <id labels="FUNCTION" xml:space="preserve">シード値</id>
              <real>1</real>
            </apply>
            <localDefine>
              <id labels="VARIABLE" xml:space="preserve">nums</id>
              <apply>
                <id labels="FUNCTION" xml:space="preserve" label-is-contextual="true">rnorm</id>
                <sequence>
                  <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">p</id>
                  <id labels="VARIABLE" xml:space="preserve">μ</id>
                  <id labels="VARIABLE" xml:space="preserve">σ</id>
                </sequence>
              </apply>
            </localDefine>
            <localDefine>
              <apply>
                <matcol />
                <id labels="VARIABLE" xml:space="preserve">M</id>
                <id labels="VARIABLE" xml:space="preserve">i</id>
              </apply>
              <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">nums</id>
            </localDefine>
          </program>
        </for>
        <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">M</id>
      </program>
    </define>
    <resultFormat>
      <matrix size="12,12" offset="0,0" show-indices="false" expand-nested-arrays="false" />
    </resultFormat>
  </math>
</region>

• シードが 1 に固定されているので、毎回同じ組み合わせの乱数が生成されます。

• SameNormal は反復のたびに 1 つずつの 3 つの同じ列を持つ行列を返します。

2. 関数histおよびmaxを使用して、2 つ目の乱数セットのヒストグラム (ビン数 n_bin) をプロットします。水平マーカーを追加して返されたセットの最大値を示します。

<region id="ID0ECWQCB" top="691.2" left="38.400000000000006" height="45.2" width="228.19666666666669" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math resultRef="94">
    <define xmlns="http://schemas.mathsoft.com/math50">
      <apply>
        <indexer />
        <id labels="VARIABLE" xml:space="preserve">S1</id>
        <id labels="*" xml:space="preserve">q</id>
      </apply>
      <apply>
        <indexer />
        <parens>
          <apply>
            <matcol />
            <apply>
              <id labels="VARIABLE" xml:space="preserve">SameNormal</id>
              <sequence>
                <id labels="VARIABLE" xml:space="preserve">p</id>
                <id labels="VARIABLE" xml:space="preserve">μ</id>
                <id labels="VARIABLE" xml:space="preserve">σ</id>
              </sequence>
            </apply>
            <real>1</real>
          </apply>
        </parens>
        <id xml:space="preserve">q</id>
      </apply>
    </define>
    <resultFormat>
      <matrix size="12,12" offset="0,0" show-indices="false" expand-nested-arrays="false" />
    </resultFormat>
  </math>
</region>

<region id="ID0EMXQCB" top="921.60000000000014" left="38.400000000000006" height="235" width="575.781818181818" xmlns="http://schemas.mathsoft.com/worksheet50">
  <plot background-type="white" origin-positioning="true">
    <xyPlot>
      <title class="- topic/title " wwtype:type="Paragraph" xmlns:wwtype="urn:WebWorks-Type-Schema" />
      <legend />
      <traces>
        <trace resultRef="100">
          <traceStyle color="#FF9ABC66" symbol="none" line-weight="1" line-style="Solid">columns</traceStyle>
        </trace>
      </traces>
      <graph-size width="456.581818181818" height="177.4" />
      <axes>
        <xAxis rank="1" legend-position="PlotBoundaryBottom" start="0" end="20">
          <axisLine position="origin" positionticmark="0" legendWidth="92.1466666666667" />
          <axisGrid>
            <gridFrequency>5</gridFrequency>
            <gridLabels display="true" />
            <gridLines />
            <tickMarks display="true" />
          </axisGrid>
          <axisLabel />
          <markers />
          <numberFormat>
            <general precision="3" show-trailing-zeros="false" radix="dec" zero-threshold="15" imaginary-value="i" exponential-threshold="3" />
          </numberFormat>
          <plotEquations>
            <plotEquation>
              <math resultRef="107">
                <id xml:space="preserve" xmlns="http://schemas.mathsoft.com/math50">range</id>
              </math>
              <math resultRef="108">
                <placeholder xmlns="http://schemas.mathsoft.com/math50" />
              </math>
            </plotEquation>
          </plotEquations>
          <xyDomain scale-type="linear" auto-scale="true">
            <startValue resultRef="102">
              <real xmlns="http://schemas.mathsoft.com/math50">0</real>
            </startValue>
            <secondTickValue resultRef="104">
              <real xmlns="http://schemas.mathsoft.com/math50">5</real>
            </secondTickValue>
            <endValue resultRef="106">
              <real xmlns="http://schemas.mathsoft.com/math50">20</real>
            </endValue>
          </xyDomain>
        </xAxis>
        <yAxis rank="1" legend-position="PlotBoundaryLeft" start="0" end="150">
          <axisLine position="origin" positionticmark="0" legendWidth="87.9033333333333" />
          <axisGrid>
            <gridFrequency>7</gridFrequency>
            <gridLabels display="true" />
            <gridLines />
            <tickMarks display="true" />
          </axisGrid>
          <axisLabel />
          <markers>
            <marker resultRef="109" display="true" color="#FFED1D2F" line-style="Dash" value="129">
              <apply xmlns="http://schemas.mathsoft.com/math50">
                <id xml:space="preserve">max</id>
                <id xml:space="preserve">same</id>
              </apply>
            </marker>
          </markers>
          <numberFormat>
            <general precision="3" show-trailing-zeros="false" radix="dec" zero-threshold="15" imaginary-value="i" exponential-threshold="3" />
          </numberFormat>
          <plotEquations>
            <plotEquation>
              <math resultRef="117">
                <id xml:space="preserve" xmlns="http://schemas.mathsoft.com/math50">same</id>
              </math>
              <math resultRef="118">
                <placeholder xmlns="http://schemas.mathsoft.com/math50" />
              </math>
            </plotEquation>
          </plotEquations>
          <xyDomain scale-type="linear" auto-scale="true">
            <startValue resultRef="112">
              <real xmlns="http://schemas.mathsoft.com/math50">0</real>
            </startValue>
            <secondTickValue resultRef="114">
              <real xmlns="http://schemas.mathsoft.com/math50">25</real>
            </secondTickValue>
            <endValue resultRef="116">
              <real xmlns="http://schemas.mathsoft.com/math50">150</real>
            </endValue>
          </xyDomain>
        </yAxis>
      </axes>
    </xyPlot>
  </plot>
</region>

3. プログラムを修正して、反復ごとにシード値を増分し、正規分布に従う 3 つの異なる乱数のセットを生成するようにします。

<region id="ID0E3YQCB" top="1267.2000000000003" left="38.400000000000006" height="117.15199999999999" width="365.72" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math resultRef="130">
    <define xmlns="http://schemas.mathsoft.com/math50">
      <function>
        <id labels="VARIABLE" xml:space="preserve">DiffNormal</id>
        <boundVars>
          <id labels="VARIABLE" xml:space="preserve">p</id>
          <id labels="VARIABLE" xml:space="preserve">μ</id>
          <id labels="VARIABLE" xml:space="preserve">σ</id>
        </boundVars>
      </function>
      <program>
        <for>
          <id labels="VARIABLE" xml:space="preserve">i</id>
          <range>
            <real>0</real>
            <real>2</real>
          </range>
          <program>
            <apply>
              <id labels="FUNCTION" xml:space="preserve">シード値</id>
              <apply>
                <plus />
                <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">i</id>
                <real>1</real>
              </apply>
            </apply>
            <localDefine>
              <id labels="VARIABLE" xml:space="preserve">nums</id>
              <apply>
                <id labels="FUNCTION" xml:space="preserve" label-is-contextual="true">rnorm</id>
                <sequence>
                  <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">p</id>
                  <id labels="VARIABLE" xml:space="preserve">μ</id>
                  <id labels="VARIABLE" xml:space="preserve">σ</id>
                </sequence>
              </apply>
            </localDefine>
            <localDefine>
              <apply>
                <matcol />
                <id labels="VARIABLE" xml:space="preserve">M</id>
                <id labels="VARIABLE" xml:space="preserve">i</id>
              </apply>
              <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">nums</id>
            </localDefine>
          </program>
        </for>
        <id labels="VARIABLE" xml:space="preserve" label-is-contextual="true">M</id>
      </program>
    </define>
    <resultFormat>
      <matrix size="12,12" offset="0,0" show-indices="false" expand-nested-arrays="false" />
    </resultFormat>
  </math>
</region>

• シード値は反復計算のたびに変わるので、毎回異なる組み合わせの乱数が生成されます。

• どちらのプログラムも iteration = 0 において seed = 0、column =0 で始まるため、どちらも同じデータセットを含む行列を返します。

4. 返された行列から 2 つ目のデータセットを次のように抽出します。

<region id="ID0EK4QCB" top="1593.6000000000001" left="38.400000000000006" height="45.2" width="220.93666666666667" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math resultRef="132">
    <define xmlns="http://schemas.mathsoft.com/math50">
      <apply>
        <indexer />
        <id labels="VARIABLE" xml:space="preserve">S2</id>
        <id labels="*" xml:space="preserve">q</id>
      </apply>
      <apply>
        <indexer />
        <parens>
          <apply>
            <matcol />
            <apply>
              <id labels="VARIABLE" xml:space="preserve">DiffNormal</id>
              <sequence>
                <id labels="VARIABLE" xml:space="preserve">p</id>
                <id labels="VARIABLE" xml:space="preserve">μ</id>
                <id labels="VARIABLE" xml:space="preserve">σ</id>
              </sequence>
            </apply>
            <real>1</real>
          </apply>
        </parens>
        <id xml:space="preserve">q</id>
      </apply>
    </define>
    <resultFormat>
      <matrix size="12,12" offset="0,0" show-indices="false" expand-nested-arrays="false" />
    </resultFormat>
  </math>
</region>

5. 関数 hist を使用して一連の乱数のヒストグラム (ビン数 n_bins) を生成し、その最大値を計算します。

6. ヒストグラムをプロットし、水平マーカーを使用して最大値を示します。

<region id="ID0E3ARCB" top="1785.6000000000004" left="38.400000000000006" height="235" width="575.781818181818" xmlns="http://schemas.mathsoft.com/worksheet50">
  <plot background-type="white" origin-positioning="true">
    <xyPlot>
      <title class="- topic/title " wwtype:type="Paragraph" xmlns:wwtype="urn:WebWorks-Type-Schema" />
      <legend />
      <traces>
        <trace resultRef="138">
          <traceStyle color="#FFF47D44" symbol="none" line-weight="1" line-style="Dash">columns</traceStyle>
        </trace>
      </traces>
      <graph-size width="456.581818181818" height="177.4" />
      <axes>
        <xAxis rank="1" legend-position="PlotBoundaryBottom" start="0" end="20">
          <axisLine position="origin" positionticmark="0" legendWidth="92.1466666666667" />
          <axisGrid>
            <gridFrequency>5</gridFrequency>
            <gridLabels display="true" />
            <gridLines />
            <tickMarks display="true" />
          </axisGrid>
          <axisLabel />
          <markers />
          <numberFormat>
            <general precision="3" show-trailing-zeros="false" radix="dec" zero-threshold="15" imaginary-value="i" exponential-threshold="3" />
          </numberFormat>
          <plotEquations>
            <plotEquation>
              <math resultRef="145">
                <id xml:space="preserve" xmlns="http://schemas.mathsoft.com/math50">range</id>
              </math>
              <math resultRef="146">
                <placeholder xmlns="http://schemas.mathsoft.com/math50" />
              </math>
            </plotEquation>
          </plotEquations>
          <xyDomain scale-type="linear" auto-scale="true">
            <startValue resultRef="140">
              <real xmlns="http://schemas.mathsoft.com/math50">0</real>
            </startValue>
            <secondTickValue resultRef="142">
              <real xmlns="http://schemas.mathsoft.com/math50">5</real>
            </secondTickValue>
            <endValue resultRef="144">
              <real xmlns="http://schemas.mathsoft.com/math50">20</real>
            </endValue>
          </xyDomain>
        </xAxis>
        <yAxis rank="1" legend-position="PlotBoundaryLeft" start="0" end="175">
          <axisLine position="origin" positionticmark="0" legendWidth="80.32" />
          <axisGrid>
            <gridFrequency>8</gridFrequency>
            <gridLabels display="true" />
            <gridLines />
            <tickMarks display="true" />
          </axisGrid>
          <axisLabel />
          <markers>
            <marker resultRef="147" display="true" color="#FF662D91" line-style="Dash" value="155">
              <apply xmlns="http://schemas.mathsoft.com/math50">
                <id xml:space="preserve">max</id>
                <id xml:space="preserve">diff</id>
              </apply>
            </marker>
          </markers>
          <numberFormat>
            <general precision="3" show-trailing-zeros="false" radix="dec" zero-threshold="15" imaginary-value="i" exponential-threshold="3" />
          </numberFormat>
          <plotEquations>
            <plotEquation>
              <math resultRef="155">
                <id xml:space="preserve" xmlns="http://schemas.mathsoft.com/math50">diff</id>
              </math>
              <math resultRef="156">
                <placeholder xmlns="http://schemas.mathsoft.com/math50" />
              </math>
            </plotEquation>
          </plotEquations>
          <xyDomain scale-type="linear" auto-scale="true">
            <startValue resultRef="150">
              <real xmlns="http://schemas.mathsoft.com/math50">0</real>
            </startValue>
            <secondTickValue resultRef="152">
              <real xmlns="http://schemas.mathsoft.com/math50">25</real>
            </secondTickValue>
            <endValue resultRef="154">
              <real xmlns="http://schemas.mathsoft.com/math50">175</real>
            </endValue>
          </xyDomain>
        </yAxis>
      </axes>
    </xyPlot>
  </plot>
</region>